मुझे निम्न समस्या है। मैं विभिन्न कक्षों में सूत्र (="") भरना चाहता हूं, किसी अन्य फ़ाइल द्वारा संसाधित किए जाने के कारण कक्षों को खाली छोड़ने के बजाय इस प्रकार के सूत्र को भरना आवश्यक है। हालांकि, अगर मैं विभिन्न कोशिकाओं पर निम्न तरीके से लूप करता हूं:

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

तब मुझे एक त्रुटि मिलती है कि सूत्र असाइन नहीं किया जा सकता है। फिर भी मैं नहीं देखता कि त्रुटि क्या उत्पन्न करती है।

आपकी सहायता के लिए धन्यवाद

सादर क्लाउड

1
Claude G 26 जुलाई 2017, 10:50

3 जवाब

सबसे बढ़िया उत्तर

जब आप VBA के माध्यम से सेल में " डालने का प्रयास करते हैं तो यह थोड़ा भ्रमित करने वाला होता है। आपको इसे " से बचाना होगा...

ये कोशिश करें:

"="""""
2
Egan Wolf 26 जुलाई 2017, 10:53

मुझे दोहरा " प्रतीक प्राप्त करने के लिए Chr(34) का उपयोग करना पसंद है:

Worksheets(name_sheet).Range("A1").Offset(Row - 1, Col - 1).Formula = "=" & Chr(34) & Chr(34)
2
Shai Rado 26 जुलाई 2017, 10:55

आपको शायद उद्धरणों से बचना होगा, इसलिए उनकी व्याख्या आपके स्ट्रिंग को सीमित करने वाले उद्धरणों के रूप में नहीं की जाती है।

उदाहरण के लिए, उपयोग करें

Worksheets(name_sheet).Range("A1").Offset(Row - 1, Col - 1).Formula = "="""""
1
sancho.s ReinstateMonicaCellio 26 जुलाई 2017, 11:07