返回列表下一主題上一主題發帖

請教inputbox多重輸入的問題。

tku0216

中學生 Rank: 2

帖子: 209
主題: 43
精華: 0
積分: 262
點名: 0
作業系統: win 7
軟體版本: office 20**
閱讀權限: 20
性別: 男
註冊時間: 2011-11-3
最後登錄: 2017-4-16

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2012-7-20 14:41 | 顯示全部帖子

請教inputbox多重輸入的問題。

各位好，請教一個問題：我需要在excel裡面，當使用者點選按鈕之後，跳出一個視窗，詢問哪兩題要對換，使用者輸入兩個題號之後，程式會將那兩題的某些特定欄位資料對換。
譬如附件所示，按下一個按鈕，出現一個視窗，出現“輸入對換題號”，使用者輸入“3”和“5”，就會把“一二三四五”(B4:F4)與“鼠牛虎兔龍”(B6:F6)給對換，題號則維持不變。

樓主熱帖

tku0216

中學生 Rank: 2

帖子: 209
主題: 43
精華: 0
積分: 262
點名: 0
作業系統: win 7
軟體版本: office 20**
閱讀權限: 20
性別: 男
註冊時間: 2011-11-3
最後登錄: 2017-4-16

2^#

發表於 2012-7-20 16:33 | 顯示全部帖子

感謝蕭大，我剛也試出了方法
Private Sub CommandButton1_Click()
Dim q1, q2 As Integer
q1 = InputBox("輸入題號一") + 2 '因為我的第一題是從第三列開始
q2 = InputBox("輸入題號二") + 2
r1 = Range(Cells(q1, 3), Cells(q1, 15)) '將某題第3欄~第15欄的資料對換
r2 = Range(Cells(q2, 3), Cells(q2, 15))
msgaa = MsgBox("確認第" & q1 - 2 & "與第" & q2 - 2 & "題對換?~~", 4)
If msgaa = 6 Then '若確認對換，按下ok
Range(Cells(q2, 3), Cells(q2, 15)) = r1
Range(Cells(q1, 3), Cells(q1, 15)) = r2
End If

End Sub

TOP

tku0216