現在は別シートに転記していますが別ブックに転記したいのです


Message#から前件を

日から 前を
Q&A掲示板へ

最新20件 最新50件 最新100件 最新200件 200件以前
昨日以降(0) 2日前以降(0) 3日前以降(0) 4日前以降(0) 5日前以降(0)


Message#1 2021年6月26日(土)02時12分
From: 西村
返事 削除 変更
売上集計表から、B列のある売上日をダブルクリックで その行のデータの「顧客名」C列 「適応」D列 「金額」E列 を 領収書(別ブック)を開き、領収書(別ブック)のB7に顧客名 C11に金額 D16に適応を転記 売上集計表のブックを閉じる

このような事を実現したいのですか゛
どちら様か ご指南ください
よろしくお願いします。

現在のコード
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Set Target = Intersect(Target, Me.Range("B4").CurrentRegion)
If Target Is Nothing Then Exit Sub
Set Target = Intersect(Target.EntireRow, Me.Range("C:E"))
Target.Select
With Worksheets("Sheet2")
.Range("B7").Value = "'" & Target(1, 1).Value
.Range("C11").Value = Target(1, 3).Value
.Range("D16").Value = Target(1, 2).Value

End With
Cancel = True
End Sub

最新20件 最新50件 最新100件 最新200件 200件以前
昨日以降 2日前以降 3日前以降 4日前以降 5日前以降
ExcelのVBAについてのQ&A掲示板

↑ExcelのVBA全般について分からない事があればこちらの掲示板よりご質問ください^^

VBAのInternetExplorer操作入門

↑ExcelのVBAをマスターできたら、エクセルVBAのIE(InternetExplorer)操作にも挑戦してみてください^^

VBAのIE制御入門RSS

RSSフィードを登録すると最新記事を受け取ることができます。

VBAIE操作のスカイプレッスン

エクセルVBAのステートメント

こちらでは、エクセルVBAの事例で利用したステートメントをまとめたものです。ExcelのVBAには様々な機能が用意されていますので一度ご確認ください。

エクセルVBAのオブジェクト

こちらでは、エクセルVBAの事例で利用したオブジェクトをまとめたものです。ExcelのVBAには様々な機能が用意されていますので一度ご確認ください。

エクセルVBAのプロパティ

こちらでは、エクセルVBAの事例で利用したオブジェクトのプロパティをまとめたものです。ExcelのVBAには様々な機能が用意されていますので一度ご確認ください。

エクセルVBAのメソッド

こちらでは、エクセルVBAの事例で利用したオブジェクトのメソッドをまとめたものです。ExcelのVBAには様々な機能が用意されていますので一度ご確認ください。

エクセルVBAのイベント

こちらでは、エクセルVBAの事例で利用したオブジェクトのイベントをまとめたものです。ExcelのVBAには様々な機能が用意されていますので一度ご確認ください。

dmb.cgi Ver. 1.068
Copyright(C) 1997-2014, hidekik.com