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
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を制御する機能はありません
と書いてあり、今回の質問の回答になりました。
お探しの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も見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
InputBoxの入力値を半角数字のみと限定する方法
Excel(エクセル)
-
エクセルVBAでIME入力モードの制御
Excel(エクセル)
-
InputBoxでの日本語オン、オフ設定方法
Visual Basic(VBA)
-
-
4
EXCEL VBA でインプットボックスを開いたときの入力モードの設定について
Excel(エクセル)
-
5
Enterキーでマクロを起動さす。
その他(ソフトウェア)
-
6
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
7
フォームを開くときに、コンボボックスの値を選択(アクセスVBA)
Visual Basic(VBA)
-
8
ExcelVBAでスペースキー操作したい
Excel(エクセル)
-
9
TextBoxコントロールを引数として渡すには?
その他(教育・科学・学問)
-
10
VBA(エクセル)で自動的にボタンをクリックさせるには
その他(プログラミング・Web制作)
-
11
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
-
12
Access サブフォームでの選択行の取得
その他(データベース)
-
13
VBAでの SendKeysの変数指定方法
Excel(エクセル)
-
14
サブフォームに対してGoToRecordするには?
その他(Microsoft Office)
-
15
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
16
private subモジュールを他のモジュールから呼び出して使う方法を教えてください(-.-)
Visual Basic(VBA)
-
17
EXCELのcountif関数での大文字と小文字は区別できるのでしょうか
Excel(エクセル)
-
18
cellsで特定の離れた範囲を選択する方法は?
Visual Basic(VBA)
-
19
Accessのフォームでタブの色
Access(アクセス)
-
20
エクセルVBA テキストボックスへのセットフォーカスについて
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
求人情報で「SAP入力可能な方」...
-
VBAの日付チェックでオーバーフ...
-
autocad 数値が表示されなくな...
-
ドロップダウンリスト 自動表...
-
マクロ 入力規則は残し文字の...
-
弥生会計05、「摘要」入力について
-
バーコードリーダーを使ってフ...
-
Excelについて
-
ドロップダウンリストを2列で...
-
筆ぐるめでの外字入力
-
エクセルの質問です。 行数の最...
-
小数点以下の入力規則
-
特殊漢字「はし」(橋のつくり...
-
コピーライトのC
-
DocuWorksでのスキャンデータ取...
-
JWCADの質問
-
excel、VBA、フォーム、コ...
-
エクセルVB ポップアップウィ...
-
Excelで日報を自動で作成したい...
-
シフト表をマクロで作成したいです
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ドロップダウンリスト 自動表...
-
【スプレッドシート】時間入力...
-
Excelについて
-
autocad 数値が表示されなくな...
-
エクセルの検索関数でシート内...
-
VBAの日付チェックでオーバーフ...
-
ドロップダウンリストを2列で...
-
Excelで日報を自動で作成したい...
-
マクロ 入力規則は残し文字の...
-
確定申告の医療費控除について
-
特殊漢字「はし」(橋のつくり...
-
エクセル 日付超過でポップアッ...
-
excelのInputBoxで日本語入力OF...
-
バーコードリーダーを使ってフ...
-
エクセルVB ポップアップウィ...
-
求人情報で「SAP入力可能な方」...
-
アクセス2000 クエリ抽出でBet...
-
excelで第二金曜日を…
-
エクセルで入力規則(リスト)...
-
pdfの文字入力で一文字ずつしか...
おすすめ情報