Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


11405 / 13645 ツリー ←次へ | 前へ→

【16263】inputbox hisao 04/7/22(木) 15:48 質問[未読]
【16266】Re:inputbox IROC 04/7/22(木) 16:17 回答[未読]
【16276】Re:inputbox ichinose 04/7/22(木) 22:27 回答[未読]
【16296】Re:inputbox hisao 04/7/23(金) 15:22 お礼[未読]

【16263】inputbox
質問  hisao E-MAIL  - 04/7/22(木) 15:48 -

引用なし
パスワード
   お世話になります。
inputboxに入力する際のIMEを半角カタカナ等に自動切り替え出来ないでしょうか?

【16266】Re:inputbox
回答  IROC  - 04/7/22(木) 16:17 -

引用なし
パスワード
   むずかしそうなので、StrConv 関数で
自動的にカタカナに変換するというのは如何でしょうか・

【16276】Re:inputbox
回答  ichinose  - 04/7/22(木) 22:27 -

引用なし
パスワード
   ▼hisao さん、IROCさん、こんばんは。

>お世話になります。
>inputboxに入力する際のIMEを半角カタカナ等に自動切り替え出来ないでしょうか?
入力規則を使用してみてはいかがでしょうか?

例えば、セルA1に入力規則を設定、その際、日本語入力は、「半角カタカナ」に設定。
'=====================================================================
Sub Macro1()
  With Range("a1").Validation
    .Delete
    .Add xlValidateInputOnly
    .IMEMode = xlIMEModeKatakanaHalf
  End With
End Sub
VBAでなくても、事前に手動設定でもかまいません。

設定後に
'=======================================================================
Sub test()
  Range("a1").Activate
  wk = Application.InputBox("please iput")
End Sub

Excel2000では、これで半角カタカナになっています。

【16296】Re:inputbox
お礼  hisao E-MAIL  - 04/7/23(金) 15:22 -

引用なし
パスワード
   IROCさん、ichinoseさん 有り難う御座いました。ばっちりです。

▼ichinose さん:
>▼hisao さん、IROCさん、こんばんは。
>
>>お世話になります。
>>inputboxに入力する際のIMEを半角カタカナ等に自動切り替え出来ないでしょうか?
>入力規則を使用してみてはいかがでしょうか?
>
>例えば、セルA1に入力規則を設定、その際、日本語入力は、「半角カタカナ」に設定。
>'=====================================================================
>Sub Macro1()
>  With Range("a1").Validation
>    .Delete
>    .Add xlValidateInputOnly
>    .IMEMode = xlIMEModeKatakanaHalf
>  End With
>End Sub
>VBAでなくても、事前に手動設定でもかまいません。
>
>設定後に
>'=======================================================================
>Sub test()
>  Range("a1").Activate
>  wk = Application.InputBox("please iput")
>End Sub
>
>Excel2000では、これで半角カタカナになっています。

11405 / 13645 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free