返回列表 上一主題 發帖

控制物件之VBA

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
1# 跳轉到 »
發表於 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

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
2#
發表於 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

TOP

        靜思自在 : 口說好話、心想好意、身行好事。
返回列表 上一主題