| |
▼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の７は、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 = _
"１から８０のいずれかの数値を入力してください"
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
|
|
yusuke
- 06/8/22(火) 11:42 -
