वर्कशीट में स्वरूपित वीबीए में एक्सेल सेल वैल्यू कैसे प्राप्त करें?

Question

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

Set cel = Sheet.worksh.Cells(1, 1) 
cel.ColumnWidth = 10 
cel.Value = e.Name 
cel.NumberFormat = "0000" 

कहाँ e.Name संख्या, "0720" की तरह कुछ कार्यपत्रक पर यह प्रदर्शित करता है बस। ठीक, लेकिन अगर मैं कुछ इस तरह करते हैं:

Msgbox Sheet.worksh.Cells(1, 1).Value 

मैं "720" मैं इसे "0720" होने की जरूरत है, मुझे पता है मैं Len() का उपयोग कर जांच कर सकता है और शून्य कि जिस तरह से जोड़ने के लिए, लेकिन मैं सोच रहा था। यदि रेंज ऑब्जेक्ट के साथ अधिक प्रत्यक्ष दृष्टिकोण था जो मेरे लिए यह करेगा।

Answer 1

उपयोग यह:

Msgbox Format(Sheet.worksh.Cells(1,1).Value, "0000") 

Answer 2

आप अपने पाठ के प्रतिनिधित्व के साथ एक संख्या भ्रमित कर रहे हैं।

आप .Text संपत्ति चाहते हैं, .Value नहीं, लेकिन फिर you might have problems with it।

Answer 3

और भी बेहतर, आप सुनिश्चित करें कि क्या स्वरूप है नहीं कर रहे हैं, तो:

MsgBox स्वरूप (Sheet.worksh.Cells (1,1) .Value, शीट। वर्कश। कैल्स (1,1)। नम्बरफॉर्मैट)