No.2ベストアンサー
- 回答日時:
Option Explicit
Sub test()
Dim t As Single
Select Case ActiveWorkbook.Name
Case "AAA", "BBB", "CCC", "book1"
t = 3.5
MsgBox "小文字"
Case "Book1"
MsgBox "大文字"
Case Else
t = 4
End Select
'こんな感じでは?
'IF 文ですと
If ActiveWorkbook.Name = "AAA" Or _
ActiveWorkbook.Name = "BBB" Or _
ActiveWorkbook.Name = "CCC" Then
t = 3.5
End If
'VBAではこんな風
'なお 大文字と小文字を区別するようですね
Debug.Print ActiveWorkbook.Name
End Sub
No.3
- 回答日時:
こんにちは。
KenKen_SP です。>「型が一致しません」とエラーが出てしまいます。これは何がおかしいので
> しょうか。
IF の構文が違います。この点は既に回答がでてますので省略。今回の場合、
Select Case を使った方がスッキリすると思います。
大文字・小文字の問題については、代表的な対策として次の3つの方法があり
ます。オススメは 「対策3」です。
・対策1 Option Compare Text
モジュールの先頭で「このモジュールでは大文字・小文字を区別しない」
と宣言しておくということです。
・対策2 StrComp 関数で文字列比較のオプションを vbTextCompare にする
With ActiveWorbook
If StrComp(.Name, "aaa.xls", vbTextCompare) = 0 Then t = 3.5
If StrComp(.Name, "bbb.xls", vbTextCompare) = 0 Then t = 3.5
If StrComp(.Name, "ccc.xls", vbTextCompare) = 0 Then t = 3.5
End With
・対策3 UCase、LCase 関数等で比較する文字列の大文字・小文字を揃えておく
Select Case UCase$(ActiveWorbook.Name) ’ブック名を大文字に
Case Is = "AAA.XLS", "BBB.XLS", "CCC.XLS" ’大文字で比較
t = 3.5
Case Is = "EEE.XLS"
t = 1.5
Case Else
End Select
No.4
- 回答日時:
すみません。
タイプミスがありました。訂正します。× Select Case UCase$(ActiveWorbook.Name)
↓
○ Select Case UCase$(ActiveWorkbook.Name)
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
メールアドレスのicloudはiClou...
-
Gメールって大文字で作っても...
-
Windowsではファイル名の大文字...
-
フランス語の à の大文字
-
「w」の大文字と小文字を大きさ...
-
大文字と小文字、頭文字とイニ...
-
妻の実家のお墓参りに夫が行く...
-
実家のお墓参りに行くと、決ま...
-
体調悪い時にお墓参り
-
夫の実家の常識の無さに困って...
-
主人が私の実家の墓参りを嫌が...
-
お墓参りでのやりとり
-
亡くなった恋人のお墓参りについて
-
極端な夫 どうすれば?
-
給料日が15日の場合お盆休み期...
-
旦那は長男。墓参りにいくのは...
-
お墓のアリ退治
-
お墓参りに行きたくない(ご先祖...
-
今年の春のお彼岸の墓参りは、...
-
来月、家族を亡くして一周忌に...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
メールアドレスのicloudはiClou...
-
Gメールって大文字で作っても...
-
ç é à などのフランス語特殊文...
-
8月、お盆休みは?
-
「w」の大文字と小文字を大きさ...
-
英語の事で質問です。 今Androi...
-
お盆は先祖の霊が帰ってくる
-
大文字と小文字、頭文字とイニ...
-
迎え火についてです。 毎年、お...
-
フランス語の à の大文字
-
新盆の送り火はいつでしょうか...
-
訂正して再度質問です。 Godとg...
-
スマホの消費データ容量を知り...
-
ユニークな形のギリシア文字 ω...
-
ワードの文章の最初の大文字
-
国際伝票使用時 内容品の明記は...
-
GODとgodの違いを教えて下さい。
-
社名の31画と32画はどちらが良...
-
これなんて文字?
-
エクセル関数 同じだったらその...
おすすめ情報