返回列表 上一主題 發帖

excel vba 視窗自動帶入資料小問題

excel vba 視窗自動帶入資料小問題

小女因為沒上過課也是新手,
是自己網路看慢慢研究,

主要這個程式碼是想要拿來當視窗新增資料按鈕用,
想說跳出視窗已經做好了
但就是輸入資料要新增時候新增按鈕一偵測錯誤。

因為物件定義錯誤一直找不到,
想請教是以下哪裡錯誤了....


我只想用在一個工作頁讓他執行.

Private Sub CommandButton1_Click()

  r = Sheets("客戶資料").Range("A4").End(xlDown).Row + 1
  
  Sheets("客戶資料").Cells(r, "A") = Text01().Text
  Sheets("客戶資料").Cells(r, "B") = Text02().Text
  Sheets("客戶資料").Cells(r, "C") = Text03().Text
  Sheets("客戶資料").Cells(r, "D") = Text04().Text
  Sheets("客戶資料").Cells(r, "E") = Text05().Text
  Sheets("客戶資料").Cells(r, "F") = Text06().Text
  Sheets("客戶資料").Cells(r, "G") = Text07().Text
  Sheets("客戶資料").Cells(r, "H") = Text08().Text
  Sheets("客戶資料").Cells(r, "I") = Text09().Text
  Sheets("客戶資料").Cells(r, "J") = Text10().Text
  Sheets("客戶資料").Cells(r, "K") = Text11().Text
  Sheets("客戶資料").Cells(r, "L") = Text12().Text
  Sheets("客戶資料").Cells(r, "M") = Cb01.Text(至下一行新增)

End Sub

感謝各位師傅與資深人員,
如果有推薦我的網站以及語法,
我也願意學習喔!~~

小女因為沒上過課也是新手,
是自己網路看慢慢研究,

主要這個程式碼是想要拿來當視窗新增資料按鈕用,
想 ...
rick55087 發表於 2019-1-1 21:14



    Text12().Text  這是??
    不是參數 不是函數 不是自定義

  多做多想多學習,少看少錯少迷途

  多做=多多練習,多多編寫。
  多想=想想為什麼人家程式要那樣寫,如果換成自己,又會怎寫。
  多學習=學習人家的發問並解答,學習人家的寫法

  少看=只看不做也枉然

TOP

        靜思自在 : 有心就有福,有願就有力,自造福田,自得福緣。
返回列表 上一主題