|
|
| Excel VBA Macro ・ セル制御 ・ FAQ |
|
アクティブセルを基点に2列2行のセル範囲を結合するには？
|
|
|
|
Question 72.10 |
Excel VBA Borad （掲示板）より |
 |
 |
|
|
こんにちは、いつも参考にさせて頂いており、お世話になっています。
ところで、初めての質問なのですが、アクティブセルを含む 2列 2行ほどを、ワンクリックボタンなどで結合させたいのですが、
どのようなVBAを組めばよろしいのでしょうか。セル固定ですとすぐ出来るのですが、アクティブセルになるとどうも変わるようで？？？です。 どうか宜しくお願いします。
|
|
Answer |
2005.4.20 Yoshioh Nagai |
|
|
あまり時間がないので結論だけです。
Sub アクティブセルを基点に2行2列のセル範囲を結合する()
列 = ActiveCell.Column 'アクティブセルの列番号
行 = ActiveCell.Row 'アクティブセルの行番号
Range(Cells(行, 列), Cells(行 + 1, 列 + 1)).Select 'セル範囲を選択する
Selection.MergeCells = True 'セルを結合する
End Sub
このような場合は、まず、マクロを自動記録して、それをどう修正すればよいかを考えるとよろしいかと思います。
自動記録されたマクロには不必要な部分が多いですので、関係部分を下記に示しておきます。
Sub セル結合()
Range("A1:B2").Select
With Selection
.MergeCells = True
End With
End Sub
|
|
|
いま、感動してます。 こんなに簡単にできるなんて！ 2週間以上も悩んでたのが、うそのようです。
ホントにありがとうございました。
|
|
|
|
| |
|
|
