No.2
- 回答日時:
>日本語入力OFF
(1)入力モードの初期値を英数にするということですか
(2)結果入力値が全角ではない内容にしたいということですか。
(2)だと回答は大幅に変わるでしょう。
>セルへの入力であれば、入力規則で出来るので
これも(1)のはず。
マクロの記録ではValidationの .IMEMode = xlIMEModeAlphaと出てきます。
TextBoxなどコントロールにはプロパティにIMEModeがあります。
InputBox関数自体にIMEを制御する機能はありません。
その対策として
http://www.officetanaka.net/excel/vba/tips/tips1 …
に逆のケース(ONにするケース)が載ってます。
APIを使う例も。
(ただし私のケースでは、SendKeys ("{kanji}")はOnにならずOffになった。)
対策以下は自信なし。
>(1)入力モードの初期値を英数にするということですか
こちらです。
SendKeys で対応することにしました。
参考URLありがとうございました。
>InputBox関数自体にIMEを制御する機能はありません
と書いてあり、今回の質問の回答になりました。
No.1ベストアンサー
- 回答日時:
こんばんは。
詳しい状況が分らないので、あまり正確にVBAのコードを書くことが出来ません。IMEをどこで使うかによっても変ってきます。なお、入力規則とはかなり違います。
まあ、一般的な方法を二つ書いておきます。
'--------------------------------------------
Sub IMEControl1()
Dim Ret As String
If IMEStatus <> vbIMEModeOff Then
SendKeys "%{kanji}"
End If
Ret = Application.InputBox("入力してください。", Type:=2)
If Ret <> "" Then
MsgBox "IME-OFF with SendKey :" & Ret
End If
End Sub
'次は、Win32 API関数を使った方法です。
'--------------------------------------------
Private Declare Function ImmGetContext Lib "imm32.dll" (ByVal hWnd As Long) As Long
Private Declare Function ImmReleaseContext Lib "imm32.dll" (ByVal hWnd As Long, ByVal hImc As Long) As Long
Private Declare Function ImmSetOpenStatus Lib "imm32.dll" (ByVal hImc As Long, ByVal b As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As Long) As Long
'--------------------------------------------
Sub IMEControl2()
Dim hImc As Long
Dim myHWnd As Long
Dim Ret As String
'バージョンチェック
If Application.Version > 9 Then
myHWnd = Application.hWnd
Else
myHWnd = FindWindow("XLMAIN", 0)
End If
hImc = ImmGetContext(myHWnd)
'IMEをOFF
If hImc <> 0 Then
Call ImmSetOpenStatus(hImc, 0)
Call ImmReleaseContext(myHWnd, hImc)
End If
Ret = Application.InputBox("入力してください。", Type:=2)
If Ret <> "" Then
MsgBox "IME-OFF with API :" & Ret
End If
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Android(アンドロイド) スマホの日本語入力の選択肢を変えるには 4 2023/07/29 19:07
- Windows 10 Windows10で、急に「IMEが無効です」となり日本語入力ができなくなりました。 6 2023/02/15 06:46
- Windows 10 MicrosoftIMEでトラブル、助けてください m(_._)m 4 2023/05/16 14:11
- Excel(エクセル) Excelヘルプの原文を表示する最速の方法(手順)には? 1 2023/08/11 11:30
- Windows 10 win11 日本語を入力するとアプリが消える 1 2022/11/22 19:34
- その他(データベース) Accessフォームからパラメーターで表示したレコードを指定のExcelのセルへ転送する方法について 2 2022/08/22 18:04
- Visual Basic(VBA) 空白のセルを変更しようとした時(アクティブセル)に インプットボックスを5回出す インプットボックス 1 2023/03/14 11:01
- Excel(エクセル) ①Excel シートに、「=」を入力したいのですが、shift+「ほ」を押すと、「_」と入力されます 2 2022/04/28 12:59
- Excel(エクセル) Excelについて Excel初心者です。 日報に数字を入力する時、誤った数字を入れると、セルが赤く 6 2023/03/31 17:05
- Windows 10 Win10で、IMEパッドをショートカットキーで出せない。 2 2023/01/25 18:45
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教える店舗&オフィスのセキュリティ対策術
中・小規模の店舗やオフィスのセキュリティセキュリティ対策について、プロにどう対策すべきか 何を注意すべきかを教えていただきました!
-
InputBoxの入力値を半角数字のみと限定する方法
Excel(エクセル)
-
エクセルVBAでIME入力モードの制御
Excel(エクセル)
-
InputBoxでの日本語オン、オフ設定方法
Visual Basic(VBA)
-
-
4
EXCEL VBA でインプットボックスを開いたときの入力モードの設定について
Excel(エクセル)
-
5
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
-
6
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
7
Enterキーでマクロを起動さす。
その他(ソフトウェア)
-
8
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
9
ExcelVBAでスペースキー操作したい
Excel(エクセル)
-
10
Access サブフォームでの選択行の取得
その他(データベース)
-
11
フォームを開くときに、コンボボックスの値を選択(アクセスVBA)
Visual Basic(VBA)
-
12
TextBoxコントロールを引数として渡すには?
その他(教育・科学・学問)
-
13
VBA(エクセル)で自動的にボタンをクリックさせるには
その他(プログラミング・Web制作)
-
14
Word2007数式でIMEオン/オフをマクロで
その他(Microsoft Office)
-
15
サブフォームに対してGoToRecordするには?
その他(Microsoft Office)
-
16
VBAでの SendKeysの変数指定方法
Excel(エクセル)
-
17
cellsで特定の離れた範囲を選択する方法は?
Visual Basic(VBA)
-
18
Accessのフォームでタブの色
Access(アクセス)
-
19
エクセルVBA テキストボックスへのセットフォーカスについて
Visual Basic(VBA)
-
20
ACCESS 一番最新の日付の金額を出したいのですが・・
その他(データベース)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
autocad 数値が表示されなくな...
-
EXCEL VBAの入力規則で小数点桁...
-
【スプレッドシート】時間入力...
-
ドロップダウンリストを2列で...
-
メアド入力不要な日程調整ツー...
-
マクロ 入力規則は残し文字の...
-
Excelで日報を自動で作成したい...
-
あるスマホアプリ内で会員登録...
-
求人情報で「SAP入力可能な方」...
-
jwwの文字入力について
-
手書き入力で文章を作成できる...
-
GoogleカレンダーToDoリスト入...
-
IMEひらがな入力 間違って直接...
-
筆ぐるめでの外字入力
-
VBAの日付チェックでオーバーフ...
-
Good Reader が繋がらない!
-
GIMP2 キーボード入力がうまく...
-
パス管理 KeePass 自動入力を速...
-
入力について
-
エクセルで、enterを押すと勝手...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ドロップダウンリスト 自動表...
-
Excelについて
-
autocad 数値が表示されなくな...
-
ドロップダウンリストを2列で...
-
VBAの日付チェックでオーバーフ...
-
Excelで日報を自動で作成したい...
-
特殊漢字「はし」(橋のつくり...
-
excelのInputBoxで日本語入力OF...
-
マクロ 入力規則は残し文字の...
-
エクセルの検索関数でシート内...
-
求人情報で「SAP入力可能な方」...
-
excelで第二金曜日を…
-
【スプレッドシート】時間入力...
-
エクセル 日付超過でポップアッ...
-
バーコードリーダーを使ってフ...
-
エクセルのマクロの使い方
-
エクセルVB ポップアップウィ...
-
小数点以下の入力規則
-
エクセル COUNTIF関数 検索条...
-
バッククォートの入力方法
おすすめ情報