Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
11406 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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
ＶＢＡでなくても、事前に手動設定でもかまいません。

設定後に
'=======================================================================
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
>ＶＢＡでなくても、事前に手動設定でもかまいません。
>
>設定後に
>'=======================================================================
>Sub test()
>　 Range("a1").Activate
>　 wk = Application.InputBox("please iput")
>End Sub
>
>Excel2000では、これで半角カタカナになっています。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
11406 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free