2012-07-11 11 views
7

Bu VBA makrosunda bir sorunum var.VBA, formülünü değiştirmeden hücrenin değerini (ekran metni) nasıl değiştirir?

Sub demoChangeText() 
    Application.Range("B2").Value = "Overidden text" 
End Sub 

Testim here olduğunu. Bu makroyu çalıştırmak için Excel'de açın, Ctrl+F8 tuşlarına basın ve demoChangeText'u seçin. Sonuç olarak, bu makro B2 hücresinin değerini (bize görüntülenen metin) değiştirir, ancak formülünü temizler. B2'un değerini değiştirmem gerekiyor. Ayrıca kalması gereken formüle de ihtiyaç var.

Bu yüzden sorum l Formülünü değiştirmeden hücrenin ekran metni nasıl değiştirilir?

GÜNCELLEME

Yardımcı olur eğer ne yatan gereksinimi söylemek biraz zor olduğu gibi, emin değilim this problem

+1

Don ile vba ile tatbik edilen gibi bir hücre biçimi uygulanarak LSE
örneğin 0;0;0;Ov\e\r\ri\d\d\e\n t\ext bir biçimi' herhangi dize değeri gösterecektir Bunun mantıklı olduğunu düşünmüyorum. Formül, ekranı tanımlayan şeydir. Ekranı değiştirmek isterseniz, formülü değiştirin. Değeri "Geçersiz Metin" olarak değiştirirseniz, temel olarak "Bu metni çıkar" yazan önemsiz bir şekilde formülü değiştirin. –

+0

@Davuz ChrisNeilsen sorunuzu mükemmel bir şekilde yanıtlayın. Ben de çözüm dosyasını aşağıdaki cevaba ekledim: –

cevap

11

çözmeye çalışıyorum çünkü bu soruyu sormak ama burada yine gider:

    0:

    Çeşitli şeyler bir hücrenin görüntüsünü etkiler

  1. girdi değeri, eğer bir hesaplama onun sabit bir
  2. sonuç, onun bir formül
  3. hücrenin hücre
  4. koşullu biçimi (ler) biçiminde, bir
halinde örnek tabloda

Eğer 22

bir dize sonuç döndürür =ROW()&COLUMN() bir formül Bu ekran şey e yapabilir olması koşuluyla Overridden text

Bu

Range("B2").NumberFormat = "0;0;0;Ov\e\r\ri\d\d\e\n t\ext\s" 

veya

Range("B2").NumberFormat = "0;0;0;""Overridden texts""" 
+1

+ 1 Nice Explanation :) Evet bu, görüntü metnini değiştirmenin bir yoludur. –

+5

+1 Ayrıca, her bir harfin formatından kaçmak yerine tırnak içine alabilirsiniz. "0; 0; 0;" "Geçersiz kılınmış metinler" "" –

+0

@ChrisNeilsen Awesome! Bu, https://dl.drop.doc.com/u/6194904/2012/TestChangeText.xlsm –