エクセルVBAについて

質問

エクセルVBAについて

下ような、最初に選択したセルに、次に選択したセルをコピーするマクロを使用しています。

Dim Frstcell As Range

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.MergeCells = False And Target.Count > 1 Then Exit Sub

On Error Resume Next 'エラーを無視

If Target.Column >= 5 And Target.Column <= 35 Then 'E:AIコピー先
Set Frstcell = Target.Cells(1)

ElseIf Target.Column >= 45 And Target.Column <= 46 Then 'AS:ATコピー元

If Target.Cells(1).Value = "" Then Exit Sub
Target.Copy Frstcell.MergeArea

End If

On Error GoTo 0 'エラートラップ終了

End Sub

この場合、コピー元の枠線の書式も、コピー先にコピーされてしまうのですが、
書式なしでコピーするにはどうしたらよいでしょうか？

よい方法がありましたら、よろしくお願いいたします。

回答No.2

myRange · ベストアンサー

手動でコピーするときにも、値のみ貼付けたい場合は
形式を選択して貼付け　＞　値のみ　とやりますね。

回答１にあるようにそれをマクロ記録すればいいのですが、
値のみ貼付けは、値の代入と同じことですから
わざわざCopyメソッドを使うことはありません。

　　Target.Copy Frstcell.MergeArea　
を
　　Frstcell.Value = Target.Cells(1).Value

としてやればいいでしょう。
以上です。

お礼

うまくいきました！迅速なご回答感謝いたします！

(1)の回答を下さった方も、マクロの記録、勉強になりました。

ありがとうございました。

回答No.1

0909union

まいど、まいど同じことを記載しています。いつになったら、この手の質問がでなくなるんだろう。

エクセルには、マクロを記録する機能があります。また、ヘルプも付いています。VBAのヘルプがないのなら追加インストールができますので、やってください。

＞書式なしでコピーするにはどうしたらよいでしょうか

マクロの記録。

これで、知りたい事を実際にやってから、

記録の停止。

これでマクロの編集でVBAがみれます。わからないメソッドなどはヘルプで検索。リファレンスに詳細な説明がでています。こんな事最初に習おうね。