Excel VBA質問箱 IV

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

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


363 / 75312 ←次へ | 前へ→

【80594】Re:Sheet間の転記について
質問  tarutaru  - 19/3/17(日) 11:12 -

引用なし
パスワード
   マナ様

早速のご返信ありがとうございます。
今回もお手数をおかけしますが、よろしくお願いいたします。

ご指摘の部分ですが、

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

マナ様、お忙しい中、申し訳ありませんが、よろしくお願いいたします。

45 hits

【80592】Sheet間の転記について tarutaru 19/3/16(土) 18:21 質問[未読]
【80593】Re:Sheet間の転記について マナ 19/3/16(土) 20:18 発言[未読]
【80594】Re:Sheet間の転記について tarutaru 19/3/17(日) 11:12 質問[未読]
【80596】Re:Sheet間の転記について マナ 19/3/17(日) 12:07 発言[未読]
【80598】Re:Sheet間の転記について tarutaru 19/3/17(日) 12:47 お礼[未読]

363 / 75312 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free