台灣最大程式設計社群網站
線上人數
1068
 
會員總數:241338
討論主題:186905
歡迎您免費加入會員
討論區列表 >> 其他語言 >> Vba的沒有定義sub或function
[ 變換順序 ]  
[我要回覆]
回應主題 加入我的關注話題 檢舉此篇討論 將提問者加入個人黑名單
Vba的沒有定義sub或function
價值 : 20 QP  點閱數:496 回應數:0

樓主

joy5566she
門外漢
0 1
6 0
發送站內信

一設定資料可依輸入值後自動換行,就顯示Vba的沒有定義sub或function,想請問錯在哪?

Private Sub CommandButton_ADD_Click()


Rage("a2").Select
Selection.End(x1down).Select
Sheets("2017表單").Range("a" & ActiveCell.Row + 1) = ComboBox_DATE_month.Text
Sheets("2017表單").Range("b" & ActiveCell.Row + 1) = ComboBox_DATE_day.Text
Sheets("2017表單").Range("c" & ActiveCell.Row + 1) = TextBox_CAR_NUMBER.Text
Sheets("2017表單").Range("d" & ActiveCell.Row + 1) = TextBox_SHIP_NAME.Text
Sheets("2017表單").Range("e" & ActiveCell.Row + 1) = TextBox_SHIP_NUMBER.Text

If OptionButton_E.Value = True Then Sheets("2017表單").Range("l" & ActiveCell.Row + 1) = "E"
If OptionButton_F.Value = True Then Sheets("2017表單").Range("m" & ActiveCell.Row + 1) = "F"

Sheets("2017表單").Range("f" & ActiveCell.Row + 1) = ComboBox_SET.Text
Sheets("2017表單").Range("g" & ActiveCell.Row + 1) = ComboBox_ARRIVE.Text
Sheets("2017表單").Range("h" & ActiveCell.Row + 1) = TextBox_COST.Text
Sheets("2017表單").Range("i" & ActiveCell.Row + 1) = TextBox_40_CAR.Text
Sheets("2017表單").Range("j" & ActiveCell.Row + 1) = TextBox_20_1_CAR.Text
Sheets("2017表單").Range("k" & ActiveCell.Row + 1) = TextBox_20_2_CAR.Text
Sheets("2017表單").Range("n" & ActiveCell.Row + 1) = TextBox_REMARK.Text

End Sub




搜尋相關Tags的文章: [ vba ] , [ sub ] , [ function ] ,
本篇文章發表於2017-03-24 00:36
別忘捐VP感謝幫助你的人 新手會員瞧一瞧
目前尚無任何回覆
[ 變換順序 ]   

回覆
如要回應,請先登入.