Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

10582 / 76734

←次へ　｜　前へ→


	【71698】Re:以前に…

UO3 - 12/3/31(土) 8:43 -


	引用なし

	パスワード

▼acec さん：

実行時エラーになったということですが、アップされたコードでは、それ以前に
構文エラーになって、間違ったコードが赤く光っているはずですが？

で、実行時エラーの原因は

Private Sub Worksheet_BeforeDoubleClick(Byval Taget As Range, Cancel As Boolean)

これです。このプロシジャはシートのイベントプロシジャというもので、
その記述方法には｢お約束｣があります。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

このようにしてください。
この形は、自分で入力しなくても、ＶＢＥ画面の上の方に２つ並んだコンボボックスの
左側でWorkSheet、右側で、BeforeDoubleClickを選ぶと自動生成されますよ。

で、次に、構文エラーですが

Sheets("見積").range("D1:F1").value = target.entireRow.range(A1:C1")value

これは

Sheets("見積").Range("D1:F1").Value = Target.EntireRow.Range("A1:C1").Value

A1 の前にも " が必要ですし、右辺の Value の前に . が必要ですよ。

16 hits

▼

【71696】以前に… acec 12/3/31(土) 8:24