Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Merge cells
I'm updating an excel spreadsheet from Access 2000 and is
trying to format and merge the header across columns. Whenever the mergecells property is encountered the message "The selection contains multiple data values. Merge into cells will keep the upper-left most data only". Following is a sample of the code: Is there a more efficient way to do this? Set oRange = oSheet.Range("b1:d1") With oRange .Value = "Negotiated Current" .MergeCells = True .HorizontalAlignment = xlCenter .Font.Bold = True End With Set oRange = oSheet.Range("e1:g1") With oRange .Value = "Actual Current" .MergeCells = True .HorizontalAlignment = xlCenter .Font.Bold = True end With Set oRange = oSheet.Range("h1:j1") With oRange .Value = "Negotiated ITD" .MergeCells = True .HorizontalAlignment = xlCenter .Font.Bold = True end With Set oRange = oSheet.Range("k1:m1") With oRange .Value = "Actual ITD" .MergeCells = True .HorizontalAlignment = xlCenter .Font.Bold = True end With |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Merge cells
Try the following:
Sub FormatHeadings() Dim oRange As Range, oSheet As Worksheet Dim i As Integer, HeadingArr As Variant Set oSheet = ActiveSheet HeadingArr = Array("Negotiated Current", _ "Actual Current","Negotiated ITD", "Actual ITD") For i = 2 To 11 Step 3 Set oRange = oSheet.Range(Cells(1, i), Cells(1, i + 2)) With oRange .MergeCells = True .Value = HeadingArr(Int((i + 1) / 3)) .HorizontalAlignment = xlCenter .Font.Bold = True End With Next End Sub Regards, Greg -----Original Message----- I'm updating an excel spreadsheet from Access 2000 and is trying to format and merge the header across columns. Whenever the mergecells property is encountered the message "The selection contains multiple data values. Merge into cells will keep the upper-left most data only". Following is a sample of the code: Is there a more efficient way to do this? Set oRange = oSheet.Range("b1:d1") With oRange .Value = "Negotiated Current" .MergeCells = True .HorizontalAlignment = xlCenter .Font.Bold = True End With Set oRange = oSheet.Range("e1:g1") With oRange .Value = "Actual Current" .MergeCells = True .HorizontalAlignment = xlCenter .Font.Bold = True end With Set oRange = oSheet.Range("h1:j1") With oRange .Value = "Negotiated ITD" .MergeCells = True .HorizontalAlignment = xlCenter .Font.Bold = True end With Set oRange = oSheet.Range("k1:m1") With oRange .Value = "Actual ITD" .MergeCells = True .HorizontalAlignment = xlCenter .Font.Bold = True end With . |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Merge cells
I forgot the Option Base 1 declartion at the top of the
module. This is twice now. Sorry, I'm just not a meticulous person. Regards, Greg -----Original Message----- Try the following: Sub FormatHeadings() Dim oRange As Range, oSheet As Worksheet Dim i As Integer, HeadingArr As Variant Set oSheet = ActiveSheet HeadingArr = Array("Negotiated Current", _ "Actual Current","Negotiated ITD", "Actual ITD") For i = 2 To 11 Step 3 Set oRange = oSheet.Range(Cells(1, i), Cells(1, i + 2)) With oRange .MergeCells = True .Value = HeadingArr(Int((i + 1) / 3)) .HorizontalAlignment = xlCenter .Font.Bold = True End With Next End Sub Regards, Greg -----Original Message----- I'm updating an excel spreadsheet from Access 2000 and is trying to format and merge the header across columns. Whenever the mergecells property is encountered the message "The selection contains multiple data values. Merge into cells will keep the upper-left most data only". Following is a sample of the code: Is there a more efficient way to do this? Set oRange = oSheet.Range("b1:d1") With oRange .Value = "Negotiated Current" .MergeCells = True .HorizontalAlignment = xlCenter .Font.Bold = True End With Set oRange = oSheet.Range("e1:g1") With oRange .Value = "Actual Current" .MergeCells = True .HorizontalAlignment = xlCenter .Font.Bold = True end With Set oRange = oSheet.Range("h1:j1") With oRange .Value = "Negotiated ITD" .MergeCells = True .HorizontalAlignment = xlCenter .Font.Bold = True end With Set oRange = oSheet.Range("k1:m1") With oRange .Value = "Actual ITD" .MergeCells = True .HorizontalAlignment = xlCenter .Font.Bold = True end With . . |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Automatically merge mulitiple cells to one cells | Excel Worksheet Functions | |||
how do I merge cells into one then delete the original cells? | Excel Worksheet Functions | |||
Merge Cells | Excel Discussion (Misc queries) | |||
merge two cells | Excel Discussion (Misc queries) | |||
How do I merge cells in Excel, like just 2 cells to make one big . | Excel Discussion (Misc queries) |