Excel VBA質問箱 IV
当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。
こちら
をご一読ください。
投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。
新規投稿
┃
ツリー表示
┃
一覧表示
┃
トピック表示
┃
検索
┃
設定
┃
過去ログ
┃
ホーム
5977 / 13646 ツリー
←次へ
|
前へ→
▼
【47904】InputBoxを使って数値の入力と条件適合まで繰り返し
tamachan
07/3/26(月) 12:48
【47904】InputBoxを使って数値の入力と条件適合ま...
tamachan
- 07/3/26(月) 12:48 -
引用なし
パスワード
Sub A08地下の階数警告するメッセージボックス()
Sheets("設定").Select
値 = InputBox("数値を入れてください")
Range("I31").Value = 値
If Range("E22") = 1 And 値 > 1 Then
タイトル = "地下の階数が1層です"
メッセージ = "地組の割増設定はできません"
スタイル = vbCritical + vbRetryCancel + vbApplicationModal '※1
MsgBox メッセージ, スタイル, タイトル
End If
応答 = MsgBox(メッセージ, スタイル, タイトル)
If 応答 = vbRetry Then
値 = InputBox("数値を入れてください")
Range("I31").Value = 値
End If
新規投稿
┃
ツリー表示
┃
一覧表示
┃
トピック表示
┃
検索
┃
設定
┃
過去ログ
┃
ホーム
5977 / 13646 ツリー
←次へ
|
前へ→
ページ:
┃
記事番号:
(SS)C-BOARD v3.8 is Free