| |
マナ様
早速のご返信ありがとうございます。
今回もお手数をおかけしますが、よろしくお願いいたします。
ご指摘の部分ですが、
Sheet1のB3から、B128(余裕を持って128にしています）まで、「建物名」が入力されています。その「建物名」セルをダブル・クリックするとSheet2（ A1）に移動する構文は次のように書いています。
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range,Cancel As Boolean)
If Intersect(Target,Range(B3:B128)) Is Nothing Then Exit Sub
Application.Goto sheets(2).Range(“A1”)
Cancel = True
End Sub
例として、Sheet1のC3 には、「所在地」を、D3には「所有者」を、E3には「連絡先」を、F3には「建築年月日」を、G3には「構造」を入力するようにしてあります。※入力はフォームまたは、セルに直入力。
それを、Sheet2のセルに（以下のように）ダブル・クリックでSheet1からSheet2に移動するとともに、転記完了となるようにしたいのです。
Sheet1 Sheet2
B3 → A1
C3 → B1
D3 → A2
E3 → B2
F3 → C1
G3 → D1
H3 → C2
マナ様、お忙しい中、申し訳ありませんが、よろしくお願いいたします。
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
