標題: 控制物件之VBA [打印本頁]

---

作者: duck_simon    時間: 2011-9-7 16:23     標題: 控制物件之VBA

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

請教先進大大:
如附件內之說明
謝謝 ![attach]7755[/attach]

---

作者: Hsieh    時間: 2011-9-7 18:50

回復 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    時間: 2011-9-7 21:12

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

---

作者: Hsieh    時間: 2011-9-7 22:15

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    時間: 2011-9-8 12:14

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

---

作者: Hsieh    時間: 2011-9-8 13:16

回復 5# duck_simon

我用你1#檔案執行無誤

---

作者: GBKEE    時間: 2011-9-8 13:28

本帖最後由 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

---

作者: duck_simon    時間: 2011-9-8 14:47

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

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

[attach]7766[/attach]

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

---

作者: oobird    時間: 2011-9-8 16:10

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

---

作者: GBKEE    時間: 2011-9-8 17:01

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

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

---

作者: duck_simon    時間: 2011-9-8 17:04

回復 9# oobird


  回 oobird 大大:  已試過, 找不到原因 !?

---

作者: Hsieh    時間: 2011-9-8 17:44

回復 11# duck_simon
基本語法概念請先建立

1. Private Sub CommandButton1_Click()
   
2. Dim a As Range
   
3. Set a = Columns("A").Find([F1], lookat:=xlWhole)
   
4. If Not a Is Nothing Then a.Offset(, 1).Resize(, 4) = a.Offset(, 1).Resize(, 4).Value
   
5. End Sub

複製代碼

---

作者: duck_simon    時間: 2011-9-8 22:06

Ya! ~成功了!  感謝所有大大先進不吝指導, 因為我死腦筋 + 笨笨  笨死了! 請原諒 !

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)