Excel VBA

質問

Excel　VBAのテキストを片手に色々（仕事で必要で・・・）試しています。そこで、セルをダブルクリックしたときに実行するマクロを作成してみました。（テキストにしたがって）コピー元シートのＡ２番地に入力されている文字と同じ文字を、Shieet１の任意のセルをダブルクリックすると自動的に入力されるマクロです。ですが、コピー元の文字だけではなく書式も一緒に反映されるので、任意のセルに書式が設定されている場合、書式が崩れてしまいます。なので、どなたか　文字だけ
もしくは　書式だけ　を自動実行する方法を教えてください。
なかなか伝わりにくい文章で申し訳ありませんが・・・。宜しくお願いいたします。ちなみに↓↓VBの記述を貼り付けます。

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)

Cancel = True
Worksheets("コピー元").Range("A2").Copy Destination:=Target
End Sub

回答No.1

hana-hana3 · ベストアンサー

COPYを行うと、セルがコピーされるからです。
値だけでよいのであれば、＝を使います。

Target.Value = Worksheets("コピー元").Range("A2").Value

お礼

ありがとうございます。言われてみるとコピーしてますね。
ただ、VB初心者なので疑問に思うことはあっても修正することが出来ず困ってしまいます。答えていただいたついでに、ダブルクリックで太字にしたり文字の色を変えたりする場合はどうしたらよいのでしょうか？色々試したのですがうまくいきません。スミマセン。

回答No.2

merlionXX

> ダブルクリックで太字にしたり文字の色を変えたりする場合はどうしたらよいのでしょうか?

ダブルクリックイベントはすでにWorksheets("コピー元")からのデータ転記で使っていますので、さらに別に書くとエラーになるはずです。

以下は、空白のセルでダブルクリックしたらコピー元のデータを表示し、空白以外のセルでダブルクリックしたら太字＆赤色に変える例です。

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Cancel = True
With Target
If .Value = "" Then
.Value = Sheets("コピー元").Range("A2").Value
Else
.Font.Bold = True
.Font.ColorIndex = 3
End If
End With
End Sub

お礼

ありがとうございました。色々と教えていただいて少しずつわかってきたような気がします。そこでもうちょっと質問なんですが…。
If .Value = "" Then
.Value = Sheets("コピー元").Range("A2").Value
Else
の　Then　と　Else　の意味を教えてください。初歩的ですがスミマセン。

補足

すみません。この質問を除いた方。本当に基本的なことでした。調べたらわかりました。簡単なことでした。