從表單Textbox到輸入儲存格的格式

h99949

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

dechiuan999

回復 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

回復 2# dechiuan999


OK,我試看看

謝謝

GBKEE

回復 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

複製代碼