vbexcel:Excel 的VB编程来源: 发布时间:星期四, 2009年2月12日 浏览:863次 评论:0
Excel编程碰到 ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() With Selection .HorizontalAlignment = xlCenter .VerticalAlignment = xlBottom .WrapText = False .Orientation = 0 .AddIndent = False .ShrinkToFit = False .MergeCells = False End With Selection.Merge ---- 而自己编程只要 ![]() ![]() ---- 表头形式定了 ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ………… ‘数据处理 Range(“a2:d4”).Value=Data ---- 这样可以 ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ---- 如果需要在结果中显示多个同样规格 ![]() ![]() ![]() ![]() Dim Data(3,4) ………… For I =1 to 40 ………… ‘数据处理 Set cell1=Worksheets(\"Sheet1\").Cells(5*I-4,1) Set cell2=Worksheets(\"Sheet1\").Cells(5*I-2,4) Worksheets(\"Sheet1\").Range(cell1,cell2).value=Data Next I ---- 表格填完了 ![]() ![]() ![]() With Worksheets(\"Sheet1\").Range(cell1,cell2).borders .LineStyle=xlContinuous .weight=xlThin End With 0
相关文章
读者评论发表评论 |