Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

75669 / 76732

←次へ　｜　前へ→


	【5495】Re:よろしくお願いします。

ichinose - 03/5/15(木) 23:50 -


	引用なし

	パスワード

▼Starmine☆ さん：
こんばんは。
Inputboxには、ApplicationオブジェクトのメソッドとしてのInputboxと
関数としてのInputboxがありますから、Helpで確認して下さい。

>For文での繰り返し回数をユーザーがInputBoxに入力した値にしたい場合はどのようにするのがよいでしょうか？
'================================================
Sub Repeat_Sample()
　　Dim 繰り返し数 As Variant
　　Dim x As Long
　　繰り返し数 = Application.InputBox(prompt:="繰り返し数を指定してください", Type:=1)
　　If VarType(繰り返し数) <> vbBoolean Then
　　　 x = 0
　　　 For idx = 1 To 繰り返し数
　　　　 'この中に繰り返し実行する処理コードを記述します　
　　　　 '↓は例です
　　　　 x = x + idx
　　　　 '
　　　　 Next idx
　　　 MsgBox "1から" & 繰り返し数 & "までの総和は：" & x
　　Else
　　　 MsgBox "処理はキャンセルされました"
　　　 End If
End Sub

>また、（上のとは別の話で）InputBoxに入力した値を引数として、セルのアドレスに指定してあげる事はできるでしょうか？
>ex)InputBoxに8を入力した場合は、アクティブなセルから下に8個選択する

'==========================================================
Sub Select_Sample()
　　Dim 下選択数 As Variant
　　下選択数 = Application.InputBox(prompt:="選択数を指定してください", Type:=1)
　　If VarType(下選択数) <> vbBoolean Then
　　　 ActiveCell.Resize(下選択数, 1).Select
　　　 MsgBox "アクティブなセルから下に" & 下選択数 & "個選択しました"
　　Else
　　　 MsgBox "処理はキャンセルされました"
　　　 End If
End Sub

でどうでしょうか。

2 hits

▼

【5493】よろしくお願いします。 Starmine☆ 03/5/15(木) 23:12