मैं एक छोटा और आसान ऐड क्लाइंट कोड प्रोग्रामिंग कर रहा हूं। लेकिन जब मैं एक ग्राहक जोड़ता हूं तो यह मुझे यह छोटी सी त्रुटि देता है कि मैं "कहां से छुटकारा पा सकता हूं। शायद यह एक आसान समाधान होगा। यहां मेरा कोड है:"
Private Sub btn_Toevoegen_Click()
Dim laatsteKlantNummer As Integer
Range("B4:B13").End(xlDown).Select
laatsteKlantNummer = ActiveCell.Value
ActiveCell.Offset(1, 0).Value = txtKlant
ActiveCell.Offset(1, 1).Value = txtNaam
ActiveCell.Offset(1, 2).Value = txtAdres
ActiveCell.Offset(1, 3).Value = txtWoonplaats
ActiveCell.Offset(1, 4).Value = txtContact
Me.Hide
Range("B4:B13").Sort Key1:=Range("B4:B13"), Order1:=xlAscending
End Sub
यह कोड ठीक से काम करता है लेकिन हो रही बातजब वह इसे एक्सेल वर्कशीट में रखता है तो इसे टेक्स्ट के रूप में रखा जाता है और संख्या के रूप में नहीं। तो यह मुझे त्रुटि देता है: "संख्या को पाठ के रूप में संग्रहीत"। उसके बाद मैं Convert to number पर क्लिक कर सकता हूं। ऐशे ही:(http://i.imgur.com/mfMnGFI.png) लेकिन क्या हर समय इसे क्लिक करने के बजाय इसे कोड करना संभव है?
उत्तर:
जवाब के लिए 2 № 1मुझे यकीन नहीं है कि आपको यह त्रुटि किस लाइन पर है, लेकिन उदाहरण के लिए अगर यह एक है:
ActiveCell.Offset(1, 4).Value = txtContact
आप इसे एक नंबर में "कन्वर्ट" करने के लिए जोड़ सकते हैं:
ActiveCell.Offset(1, 4).Value = txtContact + 0