EXCEL VBA CELLS用法

各位大神想請教
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有標題)，疑惑很多天才來發文謝謝

文章關鍵字

EXCEL VBA CELLS 用法

snare

2598分

2樓

snare

個人積分：2598分

文章編號：68895831

Range("a1").CurrentRegion.Rows.Count

caoq

3349分

3樓

caoq

個人積分：3349分

文章編號：68896112

shps1129 wrote:
各位大神想請教Private...(恕刪)

[a65536].End(xlup).Row
通常都是用xlup,很少用xldown
為什麼?你用A1,A3有值,A2留空去試就知道了

shps1129

0分

樓主

shps1129

個人積分：0分

文章編號：68896309

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