プログラム板雑談スレッド Part 3

プログラム板雑談スレ ..

313:デフォルトの名無しさん
08/12/27 03:24:11
>>311
Dim n As String
Dim m As Integer
n = InputBox("月名を入れよ")
m = (InStr("睦月　如月　弥生　卯月　皐月　水無月文月　葉月　長月　神無月霜月　師走", n) + 2) / 3
MsgBox n & "は" & m & "月"

314:デフォルトの名無しさん
08/12/27 05:43:14
>>311
完全マッチの必要がないなら、先頭の１文字だけ見る手もある。

315:デフォルトの名無しさん
08/12/27 09:48:25
>>311です
教えていただき、本当に助かりました。
みなさんありがとうございました。