Excel VBA質問箱 IV

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

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


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

40077 / 76738

←次へ　｜　前へ→


	【41765】Re:引数を使いコードをまとめたい

ponpon - 06/8/22(火) 12:02 -


	引用なし

	パスワード

▼yusuke さん：

>何度も不躾な質問ですみません
>　 Dim Num As Long, X As Long
>　 Const Pmt As String = _
>　 "１から８０のいずれかの数値を入力してください"
>　 Do
>　　　Num = Application.InputBox(Pmt, Type:=1)
　　　 'インプットボックスに数字を、その答えをNumに格納　　
>　　　If Num = False Then Exit Sub
　　　 'Numが空だったら抜ける
>　 Loop While Num < 1 Or Num > 80
　　　'Numが1より小さい80より大きい場合は、インプットボックスを表示
　　　'つまり、Numが1から80なるまでインプットボックスを表示
>　 X = Num + 7
>　 Call MyCode(X)
>
>If Ans = 7 Then GoTo ELine
>　　　　　　　　　　~~~~~~~~
　　'ansが７つまりvbNOならELineに跳びなさい。
　　'コードの下の方にELineがあると思います。

0 hits

▼

【41755】引数を使いコードをまとめたい yusuke 06/8/22(火) 1:55