VBA セルに年月を書いてあり、月のみ取得したい

例えばセルA1に「２０２１年７月」を書いてあります。
セルB1に「７月」を書いてあります。
A1中の「2021年」を無視して「７月」のみ取得したいです。
比較の時、もしA1の値とB1の値を同じだったら、なになに実行します。のプログラムを作りたいと思います。
説明がうまくできず申し訳ございません。
宜しくお願い致します。

No.6 回答者： nicotinism 回答日時： 2021/07/30 20:16

例えばですが、セルA1に「２０２１年７月」と入力すると

Excelのお節介機能が働いて、「2021年7月」に変更されてしまいます。
文字は右詰めになり数式バーでは 2021/7/1 のようになっているのが確認できます。
Excel内部では文字ではなく日付・時刻型のデータとして扱われています。
ただ、質問者さんの場合に、実際にも半角ではなく全角の２０２１年７月であることも考えられます。
なので、両方に対応する
If strconv(split(range("a1").Text,"年")(1),vbWide) = strconv(range("B1").Text,vbWide) = true then
True パート
Else
False パート
End If
でどうでしょうかね？

この回答へのお礼

ご説明いただき、誠にありがとうございます。
strconv(split(range("a1").Text,"年")(1),vbWide)のやり方を実行してみましたが、Textのところ取得する値は”２０２１年７月１日”になってます。
”７月”のみ取得することはできますでしょうか。
宜しくお願い致します。

お礼日時：2021/08/02 13:31

No.5 回答者： housyasei-usagi 回答日時： 2021/07/30 20:06

すいませんスペル間違いした。

No.4 回答者： housyasei-usagi 回答日時： 2021/07/30 20:01

VBAもいいけどMounth関数使ったら？

No.3 回答者： Qchan1962 回答日時： 2021/07/30 19:33

こんばんは

VBAコードで良いのですよね。

sub sample1()
dim strtmp as string
dim strmm as string
strtmp = mid(range("a1").text, instr(range("a1").text, "年") + 1)
strmm = left(strtmp, instr(strtmp, "月"))
msgbox strmm
if range("b1").text <> """" then
if strconv(range("b1"), 4) = strconv(strmm, 4) then
msgbox ("ok")
else
msgbox ("ng")
end if
else
msgbox ("nothing b1cell")
end if
end sub
参考程度で

No.2 回答者： tatsumaru77 回答日時： 2021/07/30 18:15

A1の７月の７が全角の7で

B1の７月の７が半角の７のケースはありますか。
もし、そのようなケースがある場合、同じとして扱いますか、
それとも不一致としてあつかいますか。

No.1 回答者： 銀鱗 回答日時： 2021/07/30 18:10

やり方はいろいろあるからなあ。

・A1セルの値を文字列として ”年” の次の文字から右を切り出してB1セルの値と比較する。
・A1セルの値の後ろに ”１日” を追加し日付データとして、シリアル値から月だけ取り出してB1セルの値と比較する。
・B1セルの値の前に ”2021年” を加えてA1セルの値と比較する。
・B1セルの値の前に ”0000年” の文字を加えて、”年” から右側の文字をバイナリーでXOR比較する。

…とまあ、パッと思いつく限りのやりかたを一覧させてみましたが、
考え方次第でアルゴリズムは変わりプログラムも変わるのです。

どの考え方を採用するかは質問者さん次第。
自身でやれをそうなものを選んで、試行錯誤してみましょう。