- 帖子
- 41
- 主題
- 7
- 精華
- 0
- 積分
- 79
- 點名
- 1
- 作業系統
- WIN XP
- 軟體版本
- SP2
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2011-3-25
- 最後登錄
- 2026-3-16
|
Private Sub Cbo新增資料_Click()
myarray = Array(Txt姓名.Value, Txt電話.Value, Txt地址.Value)
[b65536].End(xlUp).Offset(1).Resize(, 3) = myarray ===>請問左邊這行程式碼,可否幫解釋一下!!
If Range("A2") = "" Then
Range("A2") = 1
Range("A2:A" & Range("B65536").End(xlUp).Row).DataSeries===>請問左邊這行程式碼,可否幫解釋一下!!
Else
Range("A" & [a65536].End(xlUp).Row & ":A" & Range("B65536").End(xlUp).Row).DataSeries ===>請問左邊這行程式碼,可否幫解釋一下!!
End If
End Sub |
|