Excel VBA質問箱 IV

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

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


40078 / 76738 ←次へ | 前へ→

【41764】Re:引数を使いコードをまとめたい
発言  yusuke  - 06/8/22(火) 11:42 -

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

>>特に48とか36とか55の数字は何を意味してるのでしょう?
>ここのとこだけ。
>Msgboxをヘルプで調べましょう。
>定数    値    内容
>vbOKOnly    0    (既定値) [OK] ボタンのみを表示します。
>vbOKCancel    1    [OK] ボタンと [キャンセル] ボタンを表示します。
>vbAbortRetryIgnore    2    [中止]、[再試行]、[無視] の 3 つのボタンを表示します。
>vbYesNoCancel    3    [はい]、[いいえ]、[キャンセル] の 3 つのボタンを表示します。
>vbYesNo         4    [はい] ボタンと [いいえ] ボタンを表示します。
>vbRetryCancel    5    [再試行] ボタンと [キャンセル] ボタンを表示します。
>vbCritical    16    警告メッセージ アイコンを表示します。
>vbQuestion    32    問い合わせメッセージ アイコンを表示します。
>vbExclamation    48    注意メッセージ アイコンを表示します。
>vbInformation    64    情報メッセージ アイコンを表示します。
>vbDefaultButton1    0    (既定値)第 1 ボタンを標準ボタンに設定します。
>vbDefaultButton2    256    第 2 ボタンを標準ボタンに設定します。
>vbDefaultButton3    512    第 3 ボタンを標準ボタンに設定します。
>vbDefaultButton4    768    第 4 ボタンを標準ボタンに設定します。
>vbApplicationModa     0    (既定値)アプリケーション モーダルに設定します。
>vbSystemModal    4096    システム モーダルに設定します。
>vbMsgBoxHelpButton    16384    ヘルプ ボタンを追加します。
>VbMsgBoxSetForeground    65536    最前面のウィンドウとして表示します。
>vbMsgBoxRight    524288    テキストを右寄せで表示します。
>vbMsgBoxRtlReading    1048576    テキストを、右から左の方向で表示します。
>
>MsgBox 関数の戻り値        
>
>定数    値    内容 (選択されたボタン)
>vbOK    1    [OK]
>vbCancel    2    [キャンセル]
>vbAbort    3    [中止]
>vbRetry    4    [再試行]
>vbIgnore    5    [無視]
>vbYes    6    [はい]
>vbNo    7    [いいえ]

ヘルプに書いてありました。

>となっています。
>したがって、48=注意メッセージ アイコンを表示します。
>36=32+4=問い合わせメッセージ アイコンを表示します。+[はい] ボタンと [いいえ] ボタンを表示します。
>となります。
>合わせて、If Ans = 7の7は、vbNo 7 [いいえ]ということです。
>
>55については、BC列が55列目になるということです。
>ツール→オプション→全般→R1C1参照形式を使用するにチェックを入れると
>BC列が55と表示されます。
ponponさん詳しい説明ありがとうございます。
難しそうですがこれから少しずつお勉強したいと思います。
それと下記構文もよくわからないのですが、Do Loop Const While ELine etc?
何度も不躾な質問ですみません
  Dim Num As Long, X As Long
  Const Pmt As String = _
  "1から80のいずれかの数値を入力してください"
  Do
   Num = Application.InputBox(Pmt, Type:=1)
   If Num = False Then Exit Sub
  Loop While Num < 1 Or Num > 80
  X = Num + 7
  Call MyCode(X)

If Ans = 7 Then GoTo ELine
          ~~~~~~~~
よろしくお願いします。
わががまな事を申し上げ恐縮です。(VBA不慣れなもので・・・)m(_ _)m

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 お礼

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