| |
すみません、ネットにつながっていないＰＣでＶＢＡを作っていたもので、
こちらには手入力による転記ミスです。
こちらが、コピペしたものですので実際のＶＢＡです。
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
Sheets("見積").Range("D1:F1").Value = Target.EntireRow.Range("A1:C1").Value
End Sub
こちらで実行すると、マクロのボタンに登録できないのですが、どうするのでしょうか？
Sub Micro3()
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
Sheets("見積").Range("D1:F1").Value = Target.EntireRow.Range("A1:C1").Value
End Sub
End Sub
を加えれば良いのかな？と思い実行すると、
コンパイルエラー：End Subが必要です。
となります。
基本中の基本なのだとは思いますが、教えてもらえればうれしいです。
宜しくお願いします。
それから、素人考えなのですが、
Sheets("見積").Range("D1:F1").Value = Target.EntireRow.Range("A1:C1").Value
だと、常にA1:C1のデータが取得されませんか？
今日は１行目のデータ（A1:C1）が、明日は５行目（A5:C5）が欲しいと
いったような作業なのです。
左端の行の数字部分をCLICKすると、その行のA列からC列を取得する
といったようにしたいのですが、こんな都合の良いVBAはありますか？
何度もすみません、よろしくお願いします。
|
|
acec
- 12/3/31(土) 11:30 -
