控制物件之VBA

duck_simon

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

下載次數: 12

2011-9-7 16:23

Hsieh

回復 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

duck_simon

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

Hsieh

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

duck_simon

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

Hsieh

回復 5# duck_simon

我用你1#檔案執行無誤

GBKEE

回復 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

duck_simon

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

圖片1.rar (39.28 KB)

下載次數: 12

2011-9-8 14:52

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

oobird

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

GBKEE

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