एक सूत्र में संग्रहीत संख्याओं का उपयोग करना?


0

यहाँ कोड का टुकड़ा है जो मुझे परेशानी दे रहा है:

Dim lastRow As Long
With Worksheets("Rent Roll")
lastRow = Worksheets("Summary").Range("NUM_UNITS").Value
.Range("A1:A" & lastRow + 25).EntireRow.Hidden = False
.Range("A" & lastRow + 26 & ":A526").EntireRow.Hidden = True
.Range("S3").Formula = "=COUNTIF(""J26:J"" & lastRow + 25,""A"")"

विशेष रूप से यह कोड की अंतिम पंक्ति है। क्या आप कक्षों का सूत्र बदलते समय lastRow से संग्रहीत संख्या का उपयोग नहीं कर सकते हैं?


सूत्र में स्रोत सेल पते का उपयोग करें इसके बजाय चर में संग्रहीत मूल्य। COUNTIF () प्रथम तर्क में आपके द्वारा बनाए गए स्ट्रिंग पते को परिवर्तित करने के लिए आपको अतिरिक्त INDIRECT () फ़ंक्शन का उपयोग करने की आवश्यकता है।
अकिना

अगर आपके पास समय हो तो @ अकिना और अधिक विस्तार में जा सकता है? मुझे पूरा यकीन नहीं है कि आपका क्या मतलब है।
माइकल फ्रोबॉइस

@MichaelFroboese, अगर आप LastRow को इस तरह आज़मा रहे हैं =COUNTIF(C3:lastrow+2)तो इसे इस तरह लिखा जाना चाहिए,"=CountIf(C3:" & Cells(Cells(Rows.Count, 3).End(xlUp).Row + 2, 3).Address & ")"
Rajesh S

.Range("S3").Formula = "=COUNTIF(INDIRECT(""J26:J"" & Summary!NUM_UNITS),""A"")"
अकिना

2
ऐसा लगता है कि आपके उद्धरण सही जगह पर नहीं हैं:.Range("S3").Formula = "=COUNTIF(J26:J" & lastRow + 25 & ",""A"")"
साइबरनेटिक.नोमैड
हमारी साइट का प्रयोग करके, आप स्वीकार करते हैं कि आपने हमारी Cookie Policy और निजता नीति को पढ़ और समझा लिया है।
Licensed under cc by-sa 3.0 with attribution required.