返回列表 上一主題 發帖

請教inputbox多重輸入的問題。

Hsieh

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

2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
1# 跳轉到 »
發表於 2012-7-20 16:01 | 顯示全部帖子
回復 1# tku0216
  1. Private Sub CommandButton1_Click()
  2. Dim i%, j%, a As Range, b As Range, ar(), ar1()
  3. i = InputBox("輸入題號1")
  4. j = InputBox("輸入題號2")
  5. Set a = Columns("A").Find(i, lookat:=xlWhole)
  6. Set b = Columns("A").Find(j, lookat:=xlWhole)
  7. If a Is Nothing Or b Is Nothing Then MsgBox "無此題號": Exit Sub
  8. ar = a.Offset(, 1).Resize(, 5).Value
  9. ar1 = b.Offset(, 1).Resize(, 5).Value
  10. a.Offset(, 1).Resize(, 5) = ar1
  11. b.Offset(, 1).Resize(, 5) = ar
  12. End Sub
複製代碼
學海無涯_不恥下問

TOP

Hsieh

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

2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
2#
發表於 2012-7-27 18:34 | 顯示全部帖子
回復 7# tku0216


    i = Application.InputBox("請輸入數值", "輸入數值", 1, , , , , 1)
If i = False Then MsgBox "已取消輸入": Exit Sub Else MsgBox "輸入數值為" & i
學海無涯_不恥下問

TOP

        靜思自在 : 滴水成河。粒米成蘿，勿輕己靈，勿以善小而不為。
返回列表 上一主題