![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?8acaa2e)
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も見ています
-
「環境が人を育てる」って本当?環境によって人格や生き方は本当に変わるのか
環境が人生に与える影響は実際どれほどのものなのか、専門家の田宮由美さんに伺った。
-
InputBoxの入力値を半角数字のみと限定する方法
Excel(エクセル)
-
エクセルVBAでIME入力モードの制御
Excel(エクセル)
-
InputBoxでの日本語オン、オフ設定方法
Visual Basic(VBA)
-
-
4
EXCEL VBA でインプットボックスを開いたときの入力モードの設定について
Excel(エクセル)
-
5
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
-
6
Word2007数式でIMEオン/オフをマクロで
その他(Microsoft Office)
-
7
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
8
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
9
エクセルVBAで、MsgBox やInputBox は、画面の中央以外に表示させたい。
Excel(エクセル)
-
10
private subモジュールを他のモジュールから呼び出して使う方法を教えてください(-.-)
Visual Basic(VBA)
-
11
日付型のフィールドに空白を入れる方法を教えてください
その他(データベース)
-
12
Excelで、ボタンにコメントをつけたい。
Excel(エクセル)
-
13
Enterキーでマクロを起動さす。
その他(ソフトウェア)
-
14
エクセルVBA InputBoxで入力欄を*****
Excel(エクセル)
-
15
ExcelのVBAでフォームが表示されない
Excel(エクセル)
-
16
VBA シートのボタン名を変更したい
Visual Basic(VBA)
-
17
ExcelVBAでスペースキー操作したい
Excel(エクセル)
-
18
VBAのTextBoxに半角数字のみ入力したい
Visual Basic(VBA)
-
19
Inputboxの表示位置(VBA)
Excel(エクセル)
-
20
inputboxの日本語入力切替について
その他(プログラミング・Web制作)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelで在庫管理表の入出庫入力...
-
マクロ 入力規則は残し文字の...
-
「ATOK」で、変換で表示さ...
-
エクセル 日付超過でポップアッ...
-
みんなのラベル屋さんのユーザ...
-
Googleドキュメントで数式を書...
-
GIMPで韓国語
-
エクセルのマクロの使い方
-
手書き入力で文章を作成できる...
-
ニヤリーイコールの入力の仕方
-
ドロップダウンリスト 自動表...
-
エクセル アンケート用紙を作り...
-
Excelで日報を自動で作成したい...
-
エクセル COUNTIF関数 検索条...
-
autocad 数値が表示されなくな...
-
Photoshopのテキストツール
-
エクセルで入力規則(リスト)...
-
博子の旧字体を入力するには
-
カーソルをセル移すと他のセル...
-
読めない漢字を入力する時
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ドロップダウンリスト 自動表...
-
autocad 数値が表示されなくな...
-
Excelについて
-
ドロップダウンリストを2列で...
-
VBAの日付チェックでオーバーフ...
-
マクロ 入力規則は残し文字の...
-
スプレッドシートの使い方につ...
-
Excelで日報を自動で作成したい...
-
エクセル 日付超過でポップアッ...
-
excelのInputBoxで日本語入力OF...
-
エクセルVB ポップアップウィ...
-
エクセルで半角カナや特殊文字...
-
特殊漢字「はし」(橋のつくり...
-
Googleドキュメントで数式を書...
-
バーコードリーダーを使ってフ...
-
小数点以下の入力規則
-
エクセルで入力規則(リスト)...
-
アクセス2000 クエリ抽出でBet...
-
弥生会計05、「摘要」入力について
-
EXCEL VBAの入力規則で小数点桁...
おすすめ情報