|
かみちゃん、回答ありがとうございます。
サンプル、ありがとうございます。
あれから色々やってみまして、一応、目的の動作を行えるようになりました。
かみちゃんさんのサンプルと見比べると、お恥ずかしい限りですが、一応、載せときます。 ポイントとして挙げて頂いたことが、ことごとく入っていませんでした。。。。
もっと勉強したいと思います。
今回は、本当にありがとうございました。
Private Sub CommandButton1_Click()
Dim FirstRowNum As Long
Dim LastRowNum As Long
Dim Str As String
With Selection
With .Cells(1, 1)
FirstRowNum = .Row
FirstColumnNum = .Column
End With
LastRowNum = FirstRowNum + .Rows.Count - 1
FirstColumnNum = FirstColumnNum + 1
End With
Str = "D" & FirstRowNum & ":D" & LastRowNum
Range(Str).Select
With Selection
.MergeCells = True
End With
Str = "E" & FirstRowNum & ":E" & LastRowNum
Range(Str).Select
With Selection
.MergeCells = True
End With
Str = "F" & FirstRowNum & ":F" & LastRowNum
Range(Str).Select
With Selection
.MergeCells = True
End With
End Sub
|
|