- ベストアンサー
１つのシートで２つ目のマクロ
pkh4989の回答
- pkh4989
- ベストアンサー率62% (162/260)
こんにちは。 <エラーの原因> No2さんの通りです。 <住所を反映させるマクロ> 以下を参考にしてください。 郵便番号変換ウィザード http://www.morgan.co.jp/kiso/5excel-5.htm 郵便番号から住所を自動入力 http://dreamy.boy.jp/tec41.htm
関連するQ&A
- セル移動マクロについてご教示下さい。
市町村別の住所録を作成していますが、次のようなマクロが出来れば新たな住所の入力を するのに便利になると、質問させていただきました。 シート1に市町村名を、シート2に市町村毎の住所録を入力しています。 シート１のＢ列に入力している市町村名をクリックすれば、シート２のＣ列に入力している 市町村名にセル移動するようなマクロは可能でしょうか。 マクロはコードの張り付け程度しか出来ない超初心者です。 どなたか、よろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- excelでマクロを使用した連続印刷について
A2セルから通し番号、氏名、住所等のデータが入力されている「データ」シートがあり、 VLOOKUPを使用してB3セルに「データ」シートのA列にある「通し番号」を 入力すると氏名・住所等が反映される「印刷」シートがあります。 例えば「データ」シートのC列（住所）に「東京都」という文字列が 含まれている宛名のみを連続で印刷したい場合、 どのようなマクロになりますでしょうか？ （マクロ内に「東京都」と指定する方法と、 シート内の特定セルに入力した文字列で指定する方法が ありますでしょうか？） wordでの差し込み印刷や、宛名ソフト等の使用は考えておりません。 よろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- エクセルの別のセルのデータを一緒にしたい
入力シートに住所録のような物を作成しました。 状況としてＡ列は連番Ｄ列は氏名、Ｆ列に郵便番号、Ｇ列に市町村名、Ｈ列に市町村名以降の住所が入力されています。 今回別のシートに宛名シートの印刷用フォームを作成したいと思っています。 郵便番号や氏名はvlookupの関数で普通にとばせるのですが、市町村名とその後の住所の部分を一緒のセルに表示させる事はできますか？ 例としてはＧ１２にある「○○市」、Ｆ１２にある「□□町１－２－３」を印刷用シートのＡ２に「○○市□□町１－２－３」と表示させたいです。 宜しくお願いします
- ベストアンサー
- オフィス系ソフト
- 文字を検索してその行を別シートにコピーするマクロ
A列 郵便番号 B列 住所 C列 名前 で出来ているファイルがあるのですが、住所欄にある市ごとにその行を別のシートにコピーさせたいと考えています。 マクロを起動させ、ダイアログボックスにコピーしたい市を入力するとSheet2又は新しいシートにコピーするマクロが出来たら助かるのですが、私用の範囲内で使いますのでご教授お願いします。
- ベストアンサー
- その他MS Office製品
- マクロで非表示シート内にあるデータの検索方法が知りたい
マクロの勉強をしているのですが、練習で郵便番号検索ツールを作成したいと思っています。 概要 まず、郵便番号7桁を入力する。変換ボタンを押すと、住所を検索し、漢字で住所を表示し、読み仮名をひらがなで表示する。 とまぁ、こんな感じのものを作りたいと考えています。 で、取りあえず郵便番号と住所（読み仮名つき）一覧表を作りました。 一覧表は・・ A1には郵便番号、A2には都道府県名、A3には市区町村名、A4には町名、A5には市区町村名（ふりがな）、A6には町名（ふりがな） となっています。 さて、ここからが問題なのですが・・・ ユーザーフォームを使ってこれを使えるようにしたいのですが、検索方法がわかりません。 イメージとして、テキストボックスに入力してもらい、変換ボタンを押すと、エクセルシートの中から該当する郵便番号を検索し、その隣にある内容を変数に代入し、持ってこようと思っていました。 でも、ここで問題が・・・ 検索してるところが見えるとかっこ悪い 笑 というわけで・・もうちょっと何とかしたいんですけど、シートを非表示にしちゃうと、マクロの記憶で得た検索方法はエラーになっちゃうんですよね。。 そんなわけで、これをどうにかできないか考えています。非表示シートの検索方法があれば一番いいのですが、もしない場合は代替案を教えていただけるとありがたいです。 よろしくお願い致しますm(_ _)m
- ベストアンサー
- Visual Basic
- 郵便番号を入れると住所が出るマクロを組みたい
A列に郵便番号を入れると、（例：123-4567）B列に住所が出るマクロを組みたいのですが なかなかできません。例えばA１セルに入力するとB１セルに。A4セルに入力するとB４セルに 出るといった感じです。インターネットで調べながら、 Option Explicit ' ワークシートのChangeイベント記述 Private Sub Worksheet_Change(ByVal Target As Range) Dim xlAPP As Application ' 郵便番号セル以外では動作させない If Target.Address <> "$A$1" Then Exit Sub ' (1) ' 3桁以上の郵便番号があり、住所がブランクの場合のみ住所を変換させる If ((Len(Cells(1, 1).Value) >= 3) And (Cells(1, 2).Value = "")) Then ' (2) Set xlAPP = Application xlAPP.EnableEvents = False ' (3) ' 郵便番号を全角変換し住所に転記 Cells(1, 2).Value = StrConv(Target.Value, vbWide) ' (4) ' 住所のセルを選択 Cells(1, 2).Select ' (5) ' F2 → Shift+Home → F13 を擬装入力する SendKeys "{F2}", True ' 編集モード ' (6) SendKeys "+{HOME}", True ' 文字列全体を選択 ' (7) SendKeys "{F13}", True ' 再変換(MS-IME) ' (8) xlAPP.EnableEvents = True End If End Sub というコードを作ったのですが、これはA1セルしか対応しておらず、A列全体で対応できません。 何か方法があればご教授いただけたら幸いです。
- ベストアンサー
- オフィス系ソフト
- 郵便番号から住所を出力
エクセルで郵便番号を入力して住所を表示するのに下のようにやってます。これを一発で目的を達するマクロにしたいのですが、どなたかご指導ください。 セルA2に郵便番号が入力されるとセルB2にも同じ値を書き込むマクロをつくり、セルC2に「=PHONETIC(B2)]としています。 操作員の手順は以下のとおり。 １．セルA2に郵便番号を入力する。 ２．セルB2に出た郵便番号を数式バー上で選択して「変換」キイを押してドロップダウンリストで住所を選択する。 ３．数式バー上で、都道府県の文字の後ろにカーソルを置いて都道府県名を削除した後、エンターで確定する。 ４．不足の住所の番地等を入力する。 この２と３をマクロ化したいと思いますが、どなたかご指導ください。 なお、３で都道府県名を削除していますが、こうしないとセルC2にふりがなが出ませんのでやむなく都道府県名を削除しています。かなが出るなら都道府県名の削除は必要ありません。 アドインや類似の質問の回答を試しましたが、いま一つ満足ができません。よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- エクセル2007のマクロで検索
マクロ初心者です。 どうぞよろしくお願いします。 sheet1のB1セルに都道府県名を入力すると、sheet2にある市町村名を抽出して、sheet1のB列(B3以降)に 反映したいのですが、どうぞご教授下さい。 (1)sheet1のB1セルに都道府県(例えば沖縄)を入力 (2)sheet1の適当な場所に『検索』ボタンを配置して、このボタンを押すと検索開始 (3)sheet2を検索して、ヒットした列の値(市町村)とセルの色をsheet1のB列に反映 この時、ヒットした列(都道府県)の値(市町村)の数はそれぞれ違うので、フレキシブルに反映 <sheet1> B1 ⇒ 都道府県入力欄 B列(B3以降) ⇒ sheet2の値(市町村)を反映（都道府県により値の数は違います) <sheet2> B2⇒東京都...............C2⇒沖縄県.............D2⇒埼玉県 B3⇒港区(セル色=青)......C3⇒那覇(セル色=灰)....D3⇒蕨(セル色=橙) B4⇒江東区(セル色=黄)....C4⇒豊見城(セル色=黄). D4⇒草加(セル色=赤) B5⇒江戸川区(セル色=緑)..C5⇒東風平(セル色=青)..D5⇒川越(セル色=緑) B6⇒品川区(セル色=橙)....C6⇒空欄...............D6⇒大宮(セル色=紫) B7⇒渋谷区(セル色=紫)....C7⇒空欄...............D7⇒空欄 【例】 sheet1のB1セルに[沖縄]と入力して『検索』ボタンを押下すると、sheet1に以下のように値が返る B3⇒那覇(セル色=灰) B4⇒豊見城(セル色=黄) B5⇒東風平(セル色=青) 宜しくお願いします。
- 締切済み
- その他(業務ソフトウェア)
- 複数のシートから該当セルをアクティブにするマクロ
インプットボックスなどに郵便番号、もしくは電話番号を入力し、 それに該当する部分がアクティブになるようなマクロを組みたいと思います。 会社名、住所、電話番号などを記載したデータが、 いくつかのシートに分かれて管理されています。 会社が１０件ほど記載されているシートもあれば、 ４０件ほど記載されているシートもあります。 探すのが大変なので、 郵便番号や電話番号などを入力すれば、 該当のシート、該当の会社の場所に飛ぶようなマクロを作成したいのですが・・・ 詳しい方がいらっしゃれば、教えてください。 よろしくお願いします。
- ベストアンサー
- Windows Vista
- 違うシートの同じ番号を色付けするマクロ
シート1とシート２のA列それぞれに数字が振ってあります。 ここで、シート２のA列の任意のセルを塗りつぶしたとします。 それがシート１の同じ数字のセルも同じ色で塗りつぶされるマクロを作りたいのですが なかなか作れません。教えていただければ非常に助かります。。 シート１ シート２ A列 A列 2 5←塗りつぶすとシート１の5と入力された数字も塗りつぶされるようにしたい 4 9 5← 6
- 締切済み
- オフィス系ソフト
お礼
ご回答ありがとう御座います。 一応、郵便番号変換ウィザードについては調べておりました。 すみません。書いておけば良かったですね。 （本当は書いておこうと思っていたのですが忘れてしまいました） ウィザードだと「まとめて変換」になりますよね。 最悪それでもいいのですが、そうやって諦める前に何とかならないかなぁ？ と思いこちらで質問を立てました。 下のURLも一応 調べてはあったのですが 何か「両方に入力しないといけないのかなぁ？」 と思い、他の方法を探しておりました。 ＞郵便番号から住所を自動入力 の方法で郵便番号を１回しか入力しないで出来る方法が可能でしょうか？ 出来れば再登場お願いします。