返回列表 上一主題 發帖

[發問] 請問如何在B5輸入A值，在C5輸入要更改的值，去修改c17~25的值(已解決)

棋語鳥鳴

帖子
178 
主題
53 
精華
0 
積分
242 
點名
0  
作業系統
xp 
軟體版本
2007 
閱讀權限
20 
註冊時間
2011-2-22 
最後登錄
2024-7-5 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2011-7-14 20:15 | 只看該作者

[發問] 請問如何在B5輸入A值，在C5輸入要更改的值，去修改c17~25的值(已解決)

本帖最後由 棋語鳥鳴 於 2011-7-15 06:33 編輯

如題，請問相關的巨集如何寫?? 檔案變換.rar (7.86 KB)
收藏 分享

棋語鳥鳴

帖子
178 
主題
53 
精華
0 
積分
242 
點名
0  
作業系統
xp 
軟體版本
2007 
閱讀權限
20 
註冊時間
2011-2-22 
最後登錄
2024-7-5 
3#
發表於 2011-7-15 06:32 | 只看該作者
回復 2# Hsieh


    測試OK!感謝"Hsieh "大大指導~~

TOP

Hsieh

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

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
2#
發表於 2011-7-14 20:36 | 只看該作者
回復 1# 棋語鳥鳴
  1. Sub 矩形2_Click()
  2. Set a = [B17:B25].Find([B5], lookat:=xlWhole)
  3. If Not a Is Nothing Then a.Offset(, 1) = [C5]
  4. End Sub
複製代碼
學海無涯_不恥下問

TOP

        靜思自在 : 好事要提得起，是非要放得下，成就別人即是成就自己。
返回列表 上一主題