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で質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBAのユーザーフォームのテキストボックスに入力制限をしたい 6 2022/11/15 08:28
- Visual Basic(VBA) DisplayAlertsブロパティで ”実行時エラー424オブジェクトが必要です” 5 2022/05/15 18:02
- Visual Basic(VBA) VBAでファイルを開くプログラムがエラーです 2 2023/02/21 16:56
- Excel(エクセル) フォルダ内の全ブックのシート名を変更したい 7 2022/09/22 21:34
- Visual Basic(VBA) このVBAでExcelアプリケーションを作成は必要ですか? 3 2023/07/19 21:13
- Excel(エクセル) Excel VBAどこが間違ってますか? 4 2023/07/17 10:04
- Visual Basic(VBA) 【Excel VBA】自動メール送信の機能追加 5 2022/09/29 12:53
- その他(プログラミング・Web制作) Pythonを勉強しています。 5 2023/08/25 09:51
- Visual Basic(VBA) 動かなくなってしまった古いVBAを動くようにしたい 8 2022/09/20 13:57
- Visual Basic(VBA) ファイル全てを .xlsm に変更したところ、プログラムが途中で落ちてしまっています 17 2022/12/07 12:03
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・【大喜利】【投稿~11/22】このサンタクロースは偽物だと気付いた理由とは?
- ・お風呂の温度、何℃にしてますか?
- ・とっておきの「まかない飯」を教えて下さい!
- ・2024年のうちにやっておきたいこと、ここで宣言しませんか?
- ・いけず言葉しりとり
- ・土曜の昼、学校帰りの昼メシの思い出
- ・忘れられない激○○料理
- ・あなたにとってのゴールデンタイムはいつですか?
- ・とっておきの「夜食」教えて下さい
- ・これまでで一番「情けなかったとき」はいつですか?
- ・プリン+醤油=ウニみたいな組み合わせメニューを教えて!
- ・タイムマシーンがあったら、過去と未来どちらに行く?
- ・遅刻の「言い訳」選手権
- ・好きな和訳タイトルを教えてください
- ・うちのカレーにはこれが入ってる!って食材ありますか?
- ・おすすめのモーニング・朝食メニューを教えて!
- ・「覚え間違い」を教えてください!
- ・とっておきの手土産を教えて
- ・「平成」を感じるもの
- ・秘密基地、どこに作った?
- ・【お題】NEW演歌
- ・カンパ〜イ!←最初の1杯目、なに頼む?
- ・一回も披露したことのない豆知識
- ・これ何て呼びますか
- ・初めて自分の家と他人の家が違う、と意識した時
- ・「これはヤバかったな」という遅刻エピソード
- ・これ何て呼びますか Part2
- ・許せない心理テスト
- ・この人頭いいなと思ったエピソード
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・好きなおでんの具材ドラフト会議しましょう
- ・餃子を食べるとき、何をつけますか?
- ・あなたの「必」の書き順を教えてください
- ・ギリギリ行けるお一人様のライン
- ・10代と話して驚いたこと
- ・大人になっても苦手な食べ物、ありますか?
- ・14歳の自分に衝撃の事実を告げてください
- ・家・車以外で、人生で一番奮発した買い物
- ・人生最悪の忘れ物
- ・あなたの習慣について教えてください!!
- ・都道府県穴埋めゲーム
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
メールアドレスのicloudはiClou...
-
Gメールって大文字で作っても...
-
「w」の大文字と小文字を大きさ...
-
■■お中元、お歳暮、の「お」は...
-
喪中期間中のお中元・お歳暮に...
-
税理士にお歳暮は?
-
弁護士さんへのお歳暮
-
夢枕に人が立ってたら・・
-
お墓参りに行きたくない(ご先祖...
-
ガンで入院中の方へのお歳暮を...
-
彼女への家へのお中元
-
季節のいただきものをお断りす...
-
お墓参りでのやりとり
-
ありがた迷惑なギフトについて。
-
塾の先生にお中元はするもの?
-
今日給料日のはずでしたが先程A...
-
お墓参りに行こうと予定をして...
-
仏壇?怖くないですか
-
給料日が15日の場合お盆休み期...
-
路上で事故四した友達に毎年命...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
メールアドレスのicloudはiClou...
-
Gメールって大文字で作っても...
-
「w」の大文字と小文字を大きさ...
-
ç é à などのフランス語特殊文...
-
この、崩れたローマ字の解読で...
-
社名の31画と32画はどちらが良...
-
GODとgodの違いを教えて下さい。
-
Windowsではファイル名の大文字...
-
エクセル関数 同じだったらその...
-
京都で来月やる送り火について
-
これなんて文字?
-
マドンナのドイツ語表記
-
数学Aの問題です。 下記2パー...
-
現在アクティブなワークブック...
-
8月、お盆休みは?
-
大文字焼きの穴場。。。
-
妻の実家のお墓参りに夫が行く...
-
夢枕に人が立ってたら・・
-
実家のお墓参りに行くと、決ま...
-
表札が落下!!割れてしまった...
おすすめ情報