How to write codes for merging cells (& wrap text) in Excel?

[Doraemon]

As I am trying to open an Excel for reporting from the Access database, I would like to set the format Excel using VBA.

I would like to know specifically what is the coding for mering cells(e.g. D3, D4, D5) into one and then check the "wrap text" property for it.

Thank you for help in advance.

 

[duncansancho]

Range("D3:F3&quot.Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.MergeCells = False
End With
Selection.Merge
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = True
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.MergeCells = True
End With

 

[duncansancho]

Sorry the above is not very clear - you can set whichever range of cells you want to merge in the first line of the code above, and then use just half of the following code setting whatever characteristics you want!

 

[robcarr]

another way to do this.

Range("d3:d5&quot.MergeCells = True
Range("d3:d5&quot.WrapText = True

if you wish to test for above use this.

Sub test()
Dim x As Range

Set x = Range("d3:d5&quot

If x.MergeCells = False Then
x.MergeCells = True
Else
MsgBox "cells already merged", vbInformation
End If
If x.WrapText = False Then
x.WrapText = True
Else
MsgBox "cells already wrapped", vbInformation
End If

End Sub


Thanks Rob.