मुझे निम्न समस्या है। मैं विभिन्न कक्षों में सूत्र (=""
) भरना चाहता हूं, किसी अन्य फ़ाइल द्वारा संसाधित किए जाने के कारण कक्षों को खाली छोड़ने के बजाय इस प्रकार के सूत्र को भरना आवश्यक है। हालांकि, अगर मैं विभिन्न कोशिकाओं पर निम्न तरीके से लूप करता हूं:
For Col = 10 To 99
For Row = 10 To 11
If Col Mod 3 <> 0 Then
Worksheets(name_sheet).Range("A1").Offset(Row - 1, Col - 1).Formula = "="""
Worksheets(name_sheet).Range("A1").Offset(Row - 1, Col - 1).Locked = True
Worksheets(name_sheet).Range("A1").Offset(Row - 1, Col - 1).Interior.ThemeColor = xlThemeColorLight2
Worksheets(name_sheet).Range("A1").Offset(Row - 1, Col - 1).Interior.TintAndShade = 0.799981688894314
End If
Next Row
Next Col
तब मुझे एक त्रुटि मिलती है कि सूत्र असाइन नहीं किया जा सकता है। फिर भी मैं नहीं देखता कि त्रुटि क्या उत्पन्न करती है।
आपकी सहायता के लिए धन्यवाद
सादर क्लाउड
3 जवाब
जब आप VBA के माध्यम से सेल में "
डालने का प्रयास करते हैं तो यह थोड़ा भ्रमित करने वाला होता है। आपको इसे "
से बचाना होगा...
ये कोशिश करें:
"="""""
मुझे दोहरा "
प्रतीक प्राप्त करने के लिए Chr(34)
का उपयोग करना पसंद है:
Worksheets(name_sheet).Range("A1").Offset(Row - 1, Col - 1).Formula = "=" & Chr(34) & Chr(34)
आपको शायद उद्धरणों से बचना होगा, इसलिए उनकी व्याख्या आपके स्ट्रिंग को सीमित करने वाले उद्धरणों के रूप में नहीं की जाती है।
उदाहरण के लिए, उपयोग करें
Worksheets(name_sheet).Range("A1").Offset(Row - 1, Col - 1).Formula = "="""""
संबंधित सवाल
जुड़े हुए प्रश्न
नए सवाल
vba
अनुप्रयोगों के लिए विजुअल बेसिक (VBA) मैक्रो लिखने के लिए एक इवेंट-संचालित, ऑब्जेक्ट-ओरिएंटेड प्रोग्रामिंग भाषा है, जिसका उपयोग पूरे ऑफिस सूट के साथ-साथ अन्य अनुप्रयोगों के लिए भी किया जाता है। VBA VB.NET, या VBS के बराबर नहीं है; यदि आप Visual Studio उपयोग [vb.net] में काम कर रहे हैं। यदि आपका प्रश्न विशेष रूप से किसी एमएस ऑफिस एप्लिकेशन को प्रोग्रामिंग करने के बारे में है, तो उपयुक्त टैग का भी उपयोग करें: [एक्सेल], [एमएस-एक्सेस], [एमएस-वर्ड], [आउटलुक], या [एमएस-प्रोजेक्ट]।