標題: 從表單Textbox到輸入儲存格的格式 [打印本頁]

---

作者: h99949    時間: 2014-2-24 21:07     標題: 從表單Textbox到輸入儲存格的格式

用Userform裡的TextBox輸入資料後，
再新增將資料貼到儲存格裡，
但如何將儲存後的格式改為數字??

---

作者: dechiuan999    時間: 2014-2-25 08:44

回復 1# h99949


    你好：
請試試如下
Private Sub CommandButton1_Click()

[A65536].End(3)(2, 1) = CInt(TextBox1)
[B65536].End(3)(2, 1) = CInt(TextBox2)
[C65536].End(3)(2, 1) = CInt(TextBox3)
[D65536].End(3)(2, 1) = CInt(TextBox4)
[E65536].End(3)(2, 1) = CInt(TextBox5)
[F65536].End(3)(2, 1) = CInt(TextBox6)
   
End Sub

---

作者: h99949    時間: 2014-2-25 10:34

回復 2# dechiuan999


OK,我試看看

謝謝

---

作者: GBKEE    時間: 2014-2-25 15:02

回復 3# h99949

1. Dim AR()
   
2. Private Sub UserForm_Initialize()
   
3.     AR = Array(TextBox1, TextBox2, TextBox3, TextBox4, TextBox5, TextBox6)
   
4. End Sub
   
5. Private Sub CommandButton1_Click()
   
6.     With [A65536].End(3)(2, 1).Resize(1, UBound(AR) + 1)
   
7.     'With [A65536].End(xlUp).Cells(2, 1).Resize(1, UBound(AR) + 1)
   
8.         .Value = AR
   
9.         .Value = .Value  '但如何將儲存後的格式改為數字??
   
10.     End With
    
11. End Sub

複製代碼

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)