日本語入力モードの設定  Sub test() ' 日本語入力モードの設定    With Range("B3").Validation    &nb···