返回列表 上一主題 發帖

控制物件之VBA

控制物件之VBA

本帖最後由 duck_simon 於 2011-9-7 16:24 編輯

請教先進大大:
如附件內之說明
謝謝 ! 貼值.rar (7.48 KB)

回復 1# duck_simon


    Sub nn()
Set a = Columns("A").Find([F1], lookat:=xlWhole)
If Not a Is Nothing Then a.Offset(, 1).Resize(, 4) = a.Offset(, 1).Resize(, 4).Value
End Sub
學海無涯_不恥下問

TOP

請教Hsieh 大大:
當我執行該  VBA 時,顯示"變數"未定義, 要如何 "定義" ?
謝謝 !

TOP

Sub nn()
Dim a As Range
Set a = Columns("A").Find([F1], lookat:=xlWhole)
If Not a Is Nothing Then a.Offset(, 1).Resize(, 4) = a.Offset(, 1).Resize(, 4).Value
End Sub
學海無涯_不恥下問

TOP

請教Hsieh 大大:
我不知哪兒出錯, 還是不能執行,可惜原本我是中學生,改了新站,忘了通知板大,無法下載檔案..

TOP

回復 5# duck_simon

我用你1#檔案執行無誤
學海無涯_不恥下問

TOP

本帖最後由 GBKEE 於 2011-9-8 13:45 編輯

回復 5# duck_simon
"貼值"控制物件之VBA    貼值的VBA物件名稱為CommandButton1
Private Sub CommandButton1_Click() ' 此即為此控制物件之VBA  預設事件
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim a As Range
Set a = Columns("A").Find([F1], lookat:=xlWhole)
If Not a Is Nothing Then a.Offset(, 1).Resize(, 4) = a.Offset(, 1).Resize(, 4).Value

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
End Sub

TOP

本帖最後由 duck_simon 於 2011-9-8 16:05 編輯

請問能否看到圖片 ? 不知我錯在哪 ?

圖片1.rar (39.28 KB)

請教是否"設定引用項目" 未勾選 ?

TOP

CommandButton1_Click事件與Sub nn()
兩者你只能選其一。
就像一張時刻表,你不能上面寫台灣客運班車時刻表
然後接著一行寫:台灣鐵路局班車時刻表。

TOP

本帖最後由 GBKEE 於 2011-9-8 17:10 編輯

回復 8# duck_simon
建議你要多爬爬文來認識VBA的語法
這是一個程序巨集
Private Sub CommandButton1_Click()   
'
'  
'程序內的程式碼
'''
'
End Sub
'''''''''''''''''''''''''''
這又另一個程序巨集
Sub nn()
'
'程序內的程式碼
'
'
End Sub

TOP

        靜思自在 : 人生不一定球球是好球,但是有歷練的強打者,隨時都可以揮棒。
返回列表 上一主題