Excel VBA質問箱 IV

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

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


40071 / 76732 ←次へ | 前へ→

【41765】Re:引数を使いコードをまとめたい
発言  ponpon  - 06/8/22(火) 12:02 -

引用なし
パスワード
   ▼yusuke さん:

>何度も不躾な質問ですみません
>  Dim Num As Long, X As Long
>  Const Pmt As String = _
>  "1から80のいずれかの数値を入力してください"
>  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が7つまりvbNOならELineに跳びなさい。
  'コードの下の方にELineがあると思います。

0 hits

【41755】引数を使いコードをまとめたい yusuke 06/8/22(火) 1:55 質問
【41756】Re:引数を使いコードをまとめたい Blue 06/8/22(火) 2:16 発言
【41757】Re:引数を使いコードをまとめたい Kein 06/8/22(火) 2:48 回答
【41762】Re:引数を使いコードをまとめたい yusuke 06/8/22(火) 9:44 発言
【41763】Re:引数を使いコードをまとめたい ponpon 06/8/22(火) 10:56 発言
【41764】Re:引数を使いコードをまとめたい yusuke 06/8/22(火) 11:42 発言
【41765】Re:引数を使いコードをまとめたい ponpon 06/8/22(火) 12:02 発言
【41770】Re:引数を使いコードをまとめたい yusuke 06/8/22(火) 13:27 発言
【41778】Re:引数を使いコードをまとめたい Kein 06/8/22(火) 16:22 発言
【41786】Re:引数を使いコードをまとめたい yusuke 06/8/22(火) 19:05 お礼

40071 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free