|
▼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
でどうでしょうか。
|
|