Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
7114 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【41253】コピーとＶＬＯＯＫＵＰの併用 まったくの初心者です。 06/8/3(木) 11:42 質問[未読]
【41259】Re:コピーとＶＬＯＯＫＵＰの併用 Jaka 06/8/3(木) 13:03 発言[未読]
【41261】おかげさまで解決しました。ありがとう まったくの初心者です。 06/8/3(木) 13:16 お礼[未読]
【41253】コピーとＶＬＯＯＫＵＰの併用
質問  まったくの初心者です。  - 06/8/3(木) 11:42 -
引用なし
パスワード
   こんにちは。まったくの初心者なので
既質にありましたら失礼いたします。
Excel2003においてDataシートに項目及び単位，単価等のデーターが入っています
そこで表シートにDataシートのデーターを転写したいと思ってます。

【Dataシート】
　　　Ａ　　　　Ｂ　　　Ｃ　　　　Ｄ
１　りんご　　県名１　　個　　　１００
２　りんご　　県名２　　個　　　２００　
３　みかん　　県名３　　個　　　３００
４　みかん　　県名２　　個　　　４００

【表シート】
　　　Ａ　　　　Ｂ　　　　Ｃ　　　　Ｄ
１　　
２

転写アクションとして例えれば
Dataと表シートを画面上に並べて表示させておき
表シートのＡ１を選択している状態で
DataシートのＡ３をクリックすると

【表シート】
　　　Ａ　　　　Ｂ　　　　Ｃ　　　　Ｄ
１　　みかん　　県名３　　個　　　　３００
２

と転写させたいのです。
なにか策はあるものでしょうか。
皆様のお知恵を拝借出来れば幸いです。
よろしくお願いいたします。
【41259】Re:コピーとＶＬＯＯＫＵＰの併用
発言  Jaka  - 06/8/3(木) 13:03 -
引用なし
パスワード
   コピー先のシート１行目に何も書いていなくても、1回目のコピー時は、２行目からとなりますから、状況にあわせてカスタマイズしてください。
（シングルクリックイベントは無いのでＷクリック使用）

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, Columns(1)) Is Nothing Then
　 Cancel = True
　 Sheets("Sheet4").Range("A65536").End(xlUp).Resize(, 4).Offset(1).Value = _
　　　　　Target.Resize(, 4).Value
End If
End Sub
【41261】おかげさまで解決しました。ありがとう
お礼  まったくの初心者です。  - 06/8/3(木) 13:16 -
引用なし
パスワード
   ▼Jaka さん
早速のご回答をありがとうございました。
無事完璧に作動しました。
VBAって凄いですね。
感激してます！。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
7114 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free