昨夜から20時間くらい悩んでおります・・・。どなたかよろしくお願いします。
(概要)
エクセルで 「オーダー受付」と「顧客データ」の2つのシートがあります。
●「オーダー受付」のセルには、K3電話番号 K4お名前 K5住所1 K6住所2 と縦に表示用セルを設けています。
●「顧客データ」のセルには、A1 A2 A3 A4 と横に上記データを記録してあり、すでに1万行を超えています。
(やりたい事)
●お客様から電話があったときに「オーダー受付」シートの K3に電話番号をいれマクロを実行すると、「顧客データ」から残りの項目である 名前・住所1・住所2 が転記されるようにしたいです。
●もし新規のお客様で、検索結果なしの場合は引き続きお名前・住所1・住所2 とお尋ねし、後からコピペでデータ一覧へ足しています。この辺の操作は検索・転記が解決してから挑戦しようと思っています。
是非、ご回答ください。
No.1ベストアンサー
- 回答日時:
何がどうダメなのかわかりませんが、サンプルをのせます。
たぶん検索する際のオブジェクトの指定が曖昧になっていてエラーになったのではないかと推察しますが…
「オーダー受付シート」のマクロ記述
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$K$3" Then
Call KokyakuSearch
End If
End Sub
「標準モジュール」のマクロ記述
Option Explicit
Sub KokyakuSearch()
Dim LastR As Long, res
With Worksheets("顧客データ")
LastR = .Range("A1").End(xlDown).Row
res = Application.Match(ActiveSheet.Range("K3"), _
Range(.Cells(1, 1), .Cells(LastR, 1)), 0)
If IsNumeric(res) Then
Range("K4") = .Cells(res, 2)
Range("K5") = .Cells(res, 3)
Range("K6") = .Cells(res, 4)
Else
Range("K4") = "新規"
Range("K5:K6").ClearContents
End If
End With
End Sub
「オーダー受付」シートのK3セルが書き換わったら検索するようにしましたが、手動で起動するなら標準モジュールのマクロだけでもよいです。
zap35さん、早速ありがとうございます。
まったく問題なく動作しました。かなり感激しました!
普段は自動記録で基本動作を作り、細部を修正することでマクロを
活用しています。その程度の知識ですので、zapさんのサンプルで
「なぜ」マクロが動くのか理解はできませんが少しずつ研究します。
おっしゃる通り、K3が書き換わったら検索されました。また、新規と
表示もされるので大変便利です。月曜からはスタッフ全員で活用させて
いただきます。ありがとうございます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 【関数】【マクロ】データの転記の方法について 2 2023/07/26 15:22
- Excel(エクセル) 【エクセル」 特定のセルで条件抽出した列を、別シートに上から詰めて表示したい。 8 2022/04/08 16:00
- Visual Basic(VBA) ユーザーフォーム「frm_基本❶」を立ち上げると新規で入力する行数を右下のNoとして表示しています。 1 2023/03/16 19:02
- Excel(エクセル) 【Excel】住所に郵便番号を付記する方法 3 2022/05/07 17:15
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/08/03 11:27
- Visual Basic(VBA) 顧客ごとに違う点検案内を作成するマクロ 4 2022/09/16 05:34
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/08/03 12:30
- Visual Basic(VBA) Excel VBAのリストボックスの値を他のフォームに反映させる方法を教えてください。 2 2023/07/14 14:06
- Visual Basic(VBA) vbaについて 主に以下のような設定をしたいです。 Aブックの表の行数が20未満だったら Bブックの 1 2023/06/08 23:40
- Visual Basic(VBA) 指定月分の顧客データファイルを統合して並べ替え、所定の場所に貼り付ける (再質問) 4 2022/09/14 22:51
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Access レポート印刷するときに...
-
access2021 印刷プレビューでの...
-
Access Error3061 パラメータが...
-
ACCESS VBA でのエラー解決の根...
-
Microsoft365にAccessってあり...
-
Accessのリンクテーブルのパス...
-
access クエリ yes/no型のクエ...
-
accessデータを指定したExcel、...
-
Accessのフォーム上のテキスト...
-
Access VBA を利用して、フォル...
-
Accessのスプレッドシートエク...
-
accessでlaccdbファイルが削除...
-
Accessのことで教えてください...
-
CSVファイルの「0落ち」にVBA
-
Access VBA [リモートサーバー...
-
accessのフォームに設置したボ...
-
Accessのデータ型の日付/時刻型...
-
Accessのクエリで、replace関数...
-
日付のテキストボックスに(例...
-
お世話になっています いまクエ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Access レポート印刷するときに...
-
Microsoft365にAccessってあり...
-
Accessのクエリで、replace関数...
-
ACCESS VBA でのエラー解決の根...
-
Accessのスプレッドシートエク...
-
Access VBA を利用して、フォル...
-
【Access】Dcount関数の複数条...
-
accessデータを指定したExcel、...
-
Accessレポートのチェックボッ...
-
Access VBA [リモートサーバー...
-
Vba Userformを前面に出すについて
-
Accessのリンクテーブルのパス...
-
実行時エラー3131 FROM 句の構...
-
Accessのフォーム上のテキスト...
-
CSVファイルの「0落ち」にVBA
-
Access 複数条件検索の設定が上...
-
アクセス 削除するレコードを含...
-
Access で半角スペースと全角ス...
-
access 更新クエリについて
-
Accessのクエリの結果を、既存...
おすすめ情報