Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

10392 / 13646 ﾂﾘｰ

←次へ　｜　前へ→

▼

【22055】住所検索関数の作成 okb 05/2/7(月) 23:03

【22060】Re:住所検索関数の作成 りすりす 05/2/8(火) 1:45

【22062】Re:住所検索関数の作成 ichinose 05/2/8(火) 8:32

【22087】改めて質問します okb 05/2/8(火) 16:06

【22113】Re:改めて質問します りすりす 05/2/9(水) 2:26

【22120】Re:改めて質問します okb 05/2/9(水) 11:31


	【22055】住所検索関数の作成

okb - 05/2/7(月) 23:03 -


	引用なし

	パスワード

下記サンプルで、セルD10に入力した郵便番号で、マクロを実行すればD12に住所が、表示されますが、これを任意のセルに自動表示できるように、ワーシート
関数を作成するのは無理なんしょうか？
いろいろ試してみたのですが、うまくいきません。

ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー
　セルD12に、入力規則で日本語入力タブ→IMEの設定を｢ひらがな｣に変更。

>Sub 住所検索()
>　 Range("D12").Activate
　 SendKeys Range("D10") & Space(1)
>End Sub


	【22060】Re:住所検索関数の作成

りすりす - 05/2/8(火) 1:45 -


	引用なし

	パスワード

▼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


	【22062】Re:住所検索関数の作成

ichinose - 05/2/8(火) 8:32 -


	引用なし

	パスワード

りすりすさん、okb さん、おはようございます。

郵便番号の検索なら、

http://www.post.japanpost.jp/zipcode/dl/kogaki.html

からデータベースをダウンロードしてCsvファイルをmdbファイルに
インポートした後、
このデータベースに対して検索をするような処理にするのは
いかがですか？

IMEと比べると、若干処理は遅いけど、
同じ郵便番号で違う住所なんて場合も対処ができるかと思います。

http://www.vbalab.net/vbaqa/c-board.cgi?cmd=one;no=10787;id=excel

データベースの中まで定義しなくてはならないので
コードの投稿は今はできませんが、
ちょっと試してみたけど、ワークシート関数でも処理はできますよ！！


	【22087】改めて質問します

okb - 05/2/8(火) 16:06 -


	引用なし

	パスワード

下記箇所、私の知識では、理解できないのですが、関数として利用したいので、
FUNCTION ～ END FUNCTION をイメージしていたのですが、使い方はどうすれば
いいのでしょうか？
icinoseさんの方法は、他のPCに移すのが面倒なので積極的には使いにくいですね。
>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

質問を改めて書きますと、欲しい関数は次のようなイメージです。
１．任意のセルＡに半角で郵便番号を入力
２．任意のセルＢ（入力規則で日本語入力ON済み）にワークシート関数を定義して
　　次の手順で住所を表示
　　a)セルＡの値をIMEの変換キーを押す前の全角に変換
　　b)変換キーを一度だけ押す
　　c)住所が表示されて、Enterキーを押す


	【22113】Re:改めて質問します

りすりす - 05/2/9(水) 2:26 -


	引用なし

	パスワード

▼okb さん：

>質問を改めて書きますと、欲しい関数は次のようなイメージです。
>１．任意のセルＡに半角で郵便番号を入力
>２．任意のセルＢ（入力規則で日本語入力ON済み）にワークシート関数を定義して
>　　次の手順で住所を表示
>　　a)セルＡの値をIMEの変換キーを押す前の全角に変換
>　　b)変換キーを一度だけ押す
>　　c)住所が表示されて、Enterキーを押す

セル内に　キーボードイベントおくと
再計算されるたびに呼び出されたり
それ以前に式入れた時点で吹っ飛びますよ。

他から検索データを拾ってきたくないってことなので
ワークシートのイベントで処理する方が安全でしょう

ThisWorkbook　に下記を追加

Public Sub 住所検索2(c1, c2 As String)
'　使い方 call 住所検索2("A1","B1")
　Range(c2).Activate
　Call SendKeys(Range(c1).Cells.Value & Space(1), True)
　Call SendKeys("{ENTER}", True)
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
　If (Sh.Name = "Sheet1") And (Target.Column = 1) _
　　 And (IsEmpty(Target.Value) = False) Then
　　Call 住所検索2(Target.Address, _
　　　　　Cells(Target.Row, Target.Column + 1).Address)
　End If
End Sub


	【22120】Re:改めて質問します

okb - 05/2/9(水) 11:31 -


	引用なし

	パスワード

過去ログ、りすりすさんの投稿を参考に下記で思うように動作しました。

１．標準モジュールへ
Sub 住所変換(c1, c2 As String)
　　'セルc1に郵便番号を"-"つきの半角で入力しておき、セルc2の入力規則、日本語入力で"ひらがな"を選択
　 '　使い方 call 住所変換("A1","B1")
　 Range(c2).Activate
　 Application.SendKeys Range(c1) & Space(1)　　　　'& "{ENTER}"
End Sub

２．シートへ
Private Sub Worksheet_Change(ByVal Target As Range)
'　指定のセルの値をチェックして何かを実行させる。
'
　If Target.Count = 1 Then
　　 If Target = Range("A1") And Target.Value <> "" Then
　　　　　Call 住所変換("A1", "B1")　'入力ミスの回避は、Escキーで対応
　　 End If
　End If
End Sub

使い方が、まずかったのか下記ではうまくいきませんでした。
>ThisWorkbook　に下記を追加
>
>Public Sub 住所検索2(c1, c2 As String)
>'　使い方 call 住所検索2("A1","B1")
>　Range(c2).Activate
>　Call SendKeys(Range(c1).Cells.Value & Space(1), True)
>　Call SendKeys("{ENTER}", True)
>End Sub
>
>Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
>　If (Sh.Name = "Sheet1") And (Target.Column = 1) _
>　　 And (IsEmpty(Target.Value) = False) Then
>　　Call 住所検索2(Target.Address, _
>　　　　　Cells(Target.Row, Target.Column + 1).Address)
>　End If
>End Sub


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

10392 / 13646 ﾂﾘｰ

←次へ　｜　前へ→

ページ：

┃

記事番号：

(SS)C-BOARD v3.8 is Free