A abchjb Unregistered / Unconfirmed GUEST, unregistred user! 1999-11-18 #1 再Excel 中跨欄居中可以很容易實現, 但在 VBA 中如何實現? 本人選擇了 RANGE(A1:F1) 可怎麼辦?有何方法或者屬性?
H hubdog Unregistered / Unconfirmed GUEST, unregistred user! 1999-11-18 #2 本示例设置 Sheet1 中区域 A1:A5 的对齐方式为左对齐。 Worksheets("Sheet1").Range("A1:A5").HorizontalAlignment = xlLeft
C cytown Unregistered / Unconfirmed GUEST, unregistred user! 1999-11-18 #3 ALIGNMENT(horiz_align, wrap, vert_align, orientation, add_indent) 其中horiz_align=7就是跨栏居中.
D DJ. Unregistered / Unconfirmed GUEST, unregistred user! 1999-11-18 #4 在Excel中选 工具-〉宏-〉录制新宏 选取多列-〉跨列举中 停止录制 工具-〉宏-〉编辑（刚才录制的宏） Excel的宏即VBA程序，看看Excel是怎么写的。
W woyeah Unregistered / Unconfirmed GUEST, unregistred user! 2000-02-17 #5 Worksheets("Sheet1").Range("A1:A5").merge; 合并单元格即可
A arm Unregistered / Unconfirmed GUEST, unregistred user! 2000-02-18 #6 const xlcenter=-4196(no sure ,find in vba help or vba object browser) MsExcel:= CreateOleObject('Excel.Application'); WBook:=MsExcel.Application; WBook.Visible:= True; WSheet:=WBook.ActiveSheet; WSHEET.RANGE['A1:L1'].MergeCells:=TRUE; WSHEET.RANGE['A1:L1'].MergeCells:=TRUE; wsheet.RANGE['A1:L1'].VerticalAlignment:=XLCENTER;
const xlcenter=-4196(no sure ,find in vba help or vba object browser) MsExcel:= CreateOleObject('Excel.Application'); WBook:=MsExcel.Application; WBook.Visible:= True; WSheet:=WBook.ActiveSheet; WSHEET.RANGE['A1:L1'].MergeCells:=TRUE; WSHEET.RANGE['A1:L1'].MergeCells:=TRUE; wsheet.RANGE['A1:L1'].VerticalAlignment:=XLCENTER;
