एक्सेल (2007) वीबीए - इसमें उद्धरण के साथ फॉर्मूला

Question

मैंने कल कोड को एक प्रोग्राम में डालने का प्रयास किया। वीबीए ने एक त्रुटि कहा। मुझे लगता है कि यह सूत्र के अंदर डबल कोट्स की वजह से है। मैंने गुमराह किया और मुझे मिले सभी नतीजे सिर्फ सूत्रों को डालने का मूलभूत सिद्धांत दिया, लेकिन किसी ने भी समझाया कि अंदर उद्धरण कैसे प्राप्त करें।

.Range("A2").Formula = "=IF(Pivot!A5="",A1,Pivot!A5)" 

किसी भी मदद की बहुत सराहना कर रहा है (इस से पहले बयान के साथ एक था, धुरी एक वर्कशीट नाम है)। धन्यवाद!

Answer 1

जब भी संदेह होने पर, एक मैक्रो रिकॉर्ड अगर यह अनुमति देता है :)

इस

.Range("A2").Formula = "=IF(Pivot!A5="""",A1,Pivot!A5)" 

Answer 2

आपको ऐसा करने की आवश्यकता हो सकती है का प्रयास करें:

.Range("A2").Formula = "=IF(Pivot!A5="& """" & """" & ",A1,Pivot!A5)" 

Answer 3

उपयोग Chr(34) एक डबल के स्थान पर -quote।

तो अपने मामले में

:

.Range("A2").Formula = "=IF(Pivot!A5=" & Chr(34) & Chr(34) & ",A1,Pivot!A5)"