12
返回列表 上一主題 發帖

控制物件之VBA

duck_simon
　暱稱: duck_simon

中學生Rank: 2

帖子
120 
主題
34 
精華
0 
積分
174 
點名
0  
作業系統
win10 
軟體版本
Office 2016 
閱讀權限
20 
性別
男 
來自
台中 
註冊時間
2010-5-4 
最後登錄
2024-11-20 
11# 跳轉到 »
發表於 2011-9-8 17:04 | 只看該作者
回復 9# oobird


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

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
256  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-11-26 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
12#
發表於 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
複製代碼
學海無涯_不恥下問

TOP

duck_simon
　暱稱: duck_simon

中學生Rank: 2

帖子
120 
主題
34 
精華
0 
積分
174 
點名
0  
作業系統
win10 
軟體版本
Office 2016 
閱讀權限
20 
性別
男 
來自
台中 
註冊時間
2010-5-4 
最後登錄
2024-11-20 
13#
發表於 2011-9-8 22:06 | 只看該作者
Ya! ~成功了!  感謝所有大大先進不吝指導, 因為我死腦筋 + 笨笨  笨死了! 請原諒 !

TOP

        靜思自在 : 【為善競爭】人生要為善競爭，分秒必爭。
12
返回列表 上一主題