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.4
- 回答日時:
すみません。
タイプミスがありました。訂正します。× Select Case UCase$(ActiveWorbook.Name)
↓
○ Select Case UCase$(ActiveWorkbook.Name)
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
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・一回も披露したことのない豆知識
- ・これ何て呼びますか
- ・チョコミントアイス
- ・初めて自分の家と他人の家が違う、と意識した時
- ・「これはヤバかったな」という遅刻エピソード
- ・これ何て呼びますか Part2
- ・許せない心理テスト
- ・この人頭いいなと思ったエピソード
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・あなたの習慣について教えてください!!
- ・ハマっている「お菓子」を教えて!
- ・高校三年生の合唱祭で何を歌いましたか?
- ・【大喜利】【投稿~11/1】 存在しそうで存在しないモノマネ芸人の名前を教えてください
- ・好きなおでんの具材ドラフト会議しましょう
- ・餃子を食べるとき、何をつけますか?
- ・あなたの「必」の書き順を教えてください
- ・ギリギリ行けるお一人様のライン
- ・10代と話して驚いたこと
- ・家の中でのこだわりスペースはどこですか?
- ・つい集めてしまうものはなんですか?
- ・自分のセンスや笑いの好みに影響を受けた作品を教えて
- ・【お題】引っかけ問題(締め切り10月27日(日)23時)
- ・大人になっても苦手な食べ物、ありますか?
- ・14歳の自分に衝撃の事実を告げてください
- ・架空の映画のネタバレレビュー
- ・「お昼の放送」の思い出
- ・昨日見た夢を教えて下さい
- ・ちょっと先の未来クイズ第4問
- ・【大喜利】【投稿~10/21(月)】買ったばかりの自転車を分解してひと言
- ・メモのコツを教えてください!
- ・CDの保有枚数を教えてください
- ・ホテルを選ぶとき、これだけは譲れない条件TOP3は?
- ・家・車以外で、人生で一番奮発した買い物
- ・人生最悪の忘れ物
- ・【コナン30周年】嘘でしょ!?と思った○○周年を教えて【ハルヒ20周年】
- ・10秒目をつむったら…
- ・人生のプチ美学を教えてください!!
- ・あなたの習慣について教えてください!!
- ・都道府県穴埋めゲーム
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
メールアドレスのicloudはiClou...
-
Gメールって大文字で作っても...
-
Scilabのplotで使用するlegend...
-
ç é à などのフランス語特殊文...
-
ガンで入院中の方へのお歳暮を...
-
お墓参りに行きたくない(ご先祖...
-
彼氏の母親が亡くなりました
-
極端な夫 どうすれば?
-
税理士にお歳暮は?
-
20年間続けている仲人さんへ...
-
お歳暮のお礼
-
喪中期間中のお中元・お歳暮に...
-
カトリックの教会へ通っています。
-
これは絶対、先祖のせいだ!
-
夢枕に人が立ってたら・・
-
お盆の京都駅って人多いですか...
-
習い事。お歳暮ってどうするの?
-
8月11日(お盆の日曜日)にユニバ...
-
トリバゴで予約
-
お中元、お歳暮いつまでやるべ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
メールアドレスのicloudはiClou...
-
Gメールって大文字で作っても...
-
「w」の大文字と小文字を大きさ...
-
ç é à などのフランス語特殊文...
-
この、崩れたローマ字の解読で...
-
社名の31画と32画はどちらが良...
-
Windowsではファイル名の大文字...
-
GODとgodの違いを教えて下さい。
-
エクセル関数 同じだったらその...
-
これなんて文字?
-
8月、お盆休みは?
-
マドンナのドイツ語表記
-
京都で来月やる送り火について
-
現在アクティブなワークブック...
-
大文字焼きの穴場。。。
-
数学Aの問題です。 下記2パー...
-
妻の実家のお墓参りに夫が行く...
-
夢枕に人が立ってたら・・
-
実家のお墓参りに行くと、決ま...
-
表札が落下!!割れてしまった...
おすすめ情報