|
▼okb さん:
>下記サンプルで、セルD10に入力した郵便番号で、マクロを実行すればD12に住所が、表示されますが、これを任意のセルに自動表示できるように、ワーシート
>関数を作成するのは無理なんしょうか?
>いろいろ試してみたのですが、うまくいきません。
>
>ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー
> セルD12に、入力規則で日本語入力タブ→IMEの設定を「ひらがな」に変更。
>
>>Sub 住所検索()
>> Range("D12").Activate
> SendKeys Range("D10") & Space(1)
>>End Sub
Public Declare Sub keybd_event Lib "user32.dll" _
(ByVal bVirtualKey As Byte, ByVal bScanCode As Byte, _
ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Public Declare Function MapVirtualKey Lib "user32" _
Alias "MapVirtualKeyA" (ByVal wCode As Long, _
ByVal wMapType As Long) As Long
Const VK_DBE_HIRAGANA = &HF2
Const KEYEVENTF_EXTENDEDKEY = &H1
Const VK_KANJI = &H19
Const KEYEVENTF_KEYUP = &H2
Sub Macro1()
' 漢字自動変換マクロ
Selection.Cells.Activate
If (IMEStatus = vbIMEModeOff) Then
Call keybd_event(VK_KANJI, 0, 0, 0)
Call keybd_event(VK_KANJI, 0, KEYEVENTF_KEYUP, 0)
' Call keybd_event(VK_KANJI, MapVirtualKey(VK_KANJI, 0), 0, 0)
' IMEを待ってあげる
DoEvents
End If
Selection.Cells.Activate
Call SendKeys(Selection.Cells & Space(1), True)
Call SendKeys("{ENTER}", True)
End Sub
|
|