Excel VBA質問箱 IV

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

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


12454 / 13646 ツリー ←次へ | 前へ→

【10421】日本語入力をカナ入力から英入力に変更 ぴかる 04/1/26(月) 10:27 質問
【10422】Re:日本語入力をカナ入力から英入力に変更 INA 04/1/26(月) 10:39 回答
【10423】Re:日本語入力をカナ入力から英入力に変更 ぴかる 04/1/26(月) 11:44 発言
【10425】Re:日本語入力をカナ入力から英入力に変更 kein 04/1/26(月) 13:13 回答
【10426】Re:日本語入力をカナ入力から英入力に変更 ぴかる 04/1/26(月) 13:34 お礼
【10428】Re:日本語入力をカナ入力から英入力に変更 kein 04/1/26(月) 13:44 発言
【10429】Re:日本語入力をカナ入力から英入力に変更 ぴかる 04/1/26(月) 14:01 お礼

【10421】日本語入力をカナ入力から英入力に変更
質問  ぴかる  - 04/1/26(月) 10:27 -

引用なし
パスワード
   こんにちは。

カナ入力から英入力に変更するには、どのようにすれば可能でしょうか?。
SendKeysを使えば、OKの様な・・・。よろしくお願い致します。

【10422】Re:日本語入力をカナ入力から英入力に変更
回答  INA  - 04/1/26(月) 10:39 -

引用なし
パスワード
   どのようなところかによります。
TEXTBOXならIME modeプロパティがありますし、
セルなら入力規則で出来ると思います。

【10423】Re:日本語入力をカナ入力から英入力に変更
発言  ぴかる  - 04/1/26(月) 11:44 -

引用なし
パスワード
   INAさん、こんにちは。

状況を申し上げますと、あるファイルを班員全員で入力しています。その中の一人が、カナ入力をしています。その人が終わった後、キーボード入力するとカナ入力となり、困っています。パスワード等が打てない状態なので、その度に再起動しています。よってファイルを閉じる前に、英入力に戻せばOKと思い質問させて頂いた次第です。説明不足かもしれませんが、よろしくお願い致します。

【10425】Re:日本語入力をカナ入力から英入力に変更
回答  kein  - 04/1/26(月) 13:13 -

引用なし
パスワード
   ↓残念ながら "ローマ字/かな入力の変換" は、APIでも無理なようです。
http://support.microsoft.com/default.aspx?scid=kb;ja;419357
Webで情報を探すと、IME2000, 2002 も同様にダメみたいです。

【10426】Re:日本語入力をカナ入力から英入力に変更
お礼  ぴかる  - 04/1/26(月) 13:34 -

引用なし
パスワード
   keinさん、こんにちは。

>↓残念ながら "ローマ字/かな入力の変換" は、APIでも無理なようです。
>http://support.microsoft.com/default.aspx?scid=kb;ja;419357
>Webで情報を探すと、IME2000, 2002 も同様にダメみたいです。
簡単に出来るんかと思ってましたが、無理なんですね。誠にありがとうございました。
何故、カナ入力が残ってしまうのか、もう少し調べてみようと思います。

【10428】Re:日本語入力をカナ入力から英入力に変更
発言  kein  - 04/1/26(月) 13:44 -

引用なし
パスワード
   いちおう、IMEのダイアログを出すことは出来ます。こんな感じです。

Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Declare Function GetKeyboardLayout Lib "user32.dll" _
(ByVal dwLayout As Long) As Long
Declare Function ImmConfigureIME Lib "imm32.dll" _
Alias "ImmConfigureIMEA" (ByVal hKL As Long, ByVal hWnd As Long, _
ByVal dwMode As Long, lpdata As Any) As Long


Sub App_IMEDialog()
  Dim hWnd As Long
  Dim lngHandleInputContext As Long
  Dim lngWin32apiResultCode As Long
  Dim lngHandleKeyboardLayout As Long
   
  hWnd = FindWindow("XLMAIN", Application.Caption)
  lngHandleKeyboardLayout = GetKeyboardLayout(0)
  lngWin32apiResultCode = _
  ImmConfigureIME(lngHandleKeyboardLayout, hWnd, 1, ByVal CLng(0))
End Sub

【10429】Re:日本語入力をカナ入力から英入力に変更
お礼  ぴかる  - 04/1/26(月) 14:01 -

引用なし
パスワード
   試させて頂きました。ありがとうございました。
あと一歩でなんとかなりそうな・・・。でも、ならないんですよね・・・。

それとすみませんでした。ローマ字入力という言葉が出てこんかったんです。
3連休やって、本日少しボケ気味でして・・・。それでは、ピシッと仕事してきます!。

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