2014-06-07 30 views
5

Programımın bir kısmı, bir çalışma sayfasındaki birkaç veri sütununu yapıştırır, ardından her sütunda yinelenen değerleri çıkarır (yinelenen aralığı bulmak için değişken aralığıyla birlikte) rngDelete olarak adlandırılan değerler), ardından benzersiz değerlerin sayısını sayar. Sayı değerlerini aldıktan sonra, rngDelete'deki tüm satırları siliyorum.Excel Dikey Kaydırma Çubuğu uzunluğunu nasıl sıfırlanır (kapanmadan, sonra yeniden Açılır Çalışma Kitabı)

Ancak, satırları sildikten sonra dikey kaydırma çubuğu uzunluğunun hala aynı kaldığını, yani, rngDelete satırlarında veri aldığımla aynı uzunlukta olduğunu fark ettim. Çalışma sayfasının yeniden açılmasının kaydırma çubuğu uzunluğunu sıfırlayacağı doğrudur, ancak program çalışma zamanı tamamlandığında bunun olmasını zorlamanın bir yolu olup olmadığını merak ediyordum?

+0

http://superuser.com/a/433658/121933 –

+1

Brian, bu yüzden bir bildirim alır @Jon Crowell koymak istiyorum. (at) Brian Mustang'a gerek yok çünkü bu senin sorunun. – dcromley

+0

@Jon Crowell: dcromley'in cevabı yardımcı oldu, ancak bu yayına yönlendirdiğiniz için teşekkürler. Bunu ve Microsoft'un destek belgesini okudum ve sanırım şimdi süreci daha iyi anlayabiliyorum. Teşekkürler! –

cevap

7

Aşağıdakilerin çıkarılması, lastcell'i sıfırlar ve istediğiniz şeyi yapar.

ActiveSheet.UsedRange.SpecialCells (xlCellTypeLastCell) 
+0

Teşekkür ederim dcromley, işe yarıyor! –

+1

Sadece bunu keşfettiğim için, sayfanız korunmuşsa, bu koruma açıkken yapılamayacağını söyleyen bir hata verebilir. Çok garip, ve bir meslektaşımın bilgisayarında aynı dosyada olur, ama benimki değil. – redOctober13

İlgili konular