誠如我還在努力學習中
按下按鈕後將資料往右邊送我搜尋了
「吳老師教學部落格」的影片
此處的程式碼為
'按下按鈕時將把輸入的資料往下方送
Private Sub AddNewContentButton_Click()
r = Range("A90").End(xlDown).Row + 1
Cells(r,"A" ) = POInputLabel.Text
Cells(r,"B" ) = ContentInputA.Text
Cells(r,"C" ) = ContentInputB.Text
Cells(r,"D" ) = ContentInputC.Text
End Sub
同樣的可以把表單的資料往下面送
但我的需求卻是要把表單資料往右邊送，請參考下方圖片
'按下按鈕時將把輸入的資料往右邊送，且是縱向輸出而非此參考影片的橫向輸出
Private Sub AddNewContentButton_Click()
C = Range("A90").End(xlToRight).Column + 1
Cells("A", C) = POInputLabel.Text
Cells("B", C) = ContentInputA.Text
Cells("C", C) = ContentInputB.Text
Cells("D", C) = ContentInputC.Text
End Sub
可是卻出現了型態不符合的錯誤
再請大大幫忙啊…
已邀請的邦友 {{ invite_list.length }}/5
試試看
Sub AddNewContentButton_Click()
C = Range("A90").End(xlToRight).Column + 1
Cells(90, C) = POInputLabel.Text
Cells(91, C) = ContentInputA.Text
Cells(92, C) = ContentInputB.Text
Cells(93, C) = ContentInputC.Text
End Sub
你沒搞懂excel vba基本，這樣下去怎樣都不會改。
Cells的兩個參數分別代表列（row）、欄（column），然後欄位這個參數可以用英文字母代替，但是列卻沒這種用法。
也就是說Cells(1, "A")和Cells(1, 1)一樣代表欄位A1，但是Cells("A", 1)不代表Cells(1, 1)，因為excel沒有欄位1A這種表示法。
然後要寫程式的話，通通用數字表示會比較好解決。
https://docs.microsoft.com/zh-tw/office/vba/api/excel.worksheet.cells
Private Sub AddNewContentButton_Click()
C = Range("A90").End(xlToRight).Column + 1
Cells(1,c) = POInputLabel.Text
Cells(1,c) = ContentInputA.Text
Cells(1,c) = ContentInputB.Text
Cells(1,c) = ContentInputC.Text
End Sub
iThome鐵人賽
看影片追技術