各位大神 想請教
Private Sub CommandButton1_Click()
C = Range("A1").End(xlDown).Row + 1
Cells(C, 1) = 123
End Sub
這樣我按了CommandButton1他並沒有顯示123 反而顯示"1004"錯誤
我去偵錯他在C的地方是顯示65537..他不是應該在A1的下面嗎?(a全空只有a1有標題),疑惑很多天才來發文 謝謝
snare wrote:
Range('a1...(恕刪)
老師,謝謝您 居然成功了!!!所以是我寫錯甚麼嗎?
現在我又有問題了...setfocus
我的表單按下ENTER後資料有送出,但是卻不能回到我設定的位置textbox2.SETFOCUS
反而跑去上面日期欄位
以下是我的寫法:
Private Sub CommandButton1_Click()
'搜尋最下面資料並代'
c = Range("a1").CurrentRegion.Rows.Count + 1
Cells(c, 1) = c - 1
Cells(c, 2) = TextBox1.Text
Cells(c, 3) = ComboBox1.Text
Cells(c, 4) = ComboBox2.Text
Cells(c, 5) = TextBox2.Text
End Sub
Private Sub TextBox2_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
'在條碼鍵入ENTER觸發代入'
If KeyCode = 13 Then
Call CommandButton1_Click
TextBox2.SetFocus
End If
End Sub
Private Sub CommandButton2_Click()
Dim path As String
Dim filename As String
path = "D:\"
filename = "洗洗洗"
ActiveWorkbook.SaveAs filename:=path & filename & ".xls", FileFormat:=xlNormal
Workbooks.Close
End Sub
Private Sub UserForm_Activate()
'1.更新店別下拉式選單'
For i = 1 To Sheets("店別").Range("A1").End(xlDown).Row
ComboBox1.AddItem Sheets("店別").Cells(i, "A")
Next
'2.更新類別下拉式選單'
For i = 1 To Sheets("類別").Range("A1").End(xlDown).Row
ComboBox2.AddItem Sheets("類別").Cells(i, "A")
Next
'3.日期自動新增填入'
Dim d As Date
d = Date
TextBox1.Text = (d)
End Sub