举个例子我要把Excle中A2、A3、A4三个单元格合并,并要其中写入eeff
xlsheet.Range("A2:A4").MergeCells = True
xlsheet.Range("A2") = "eeff"xlsheet为当前Excle的工作页
xlsheet.Range("A2:A4").MergeCells = True
xlsheet.Range("A2") = "eeff"xlsheet为当前Excle的工作页
解决方案 »
- 求助隐藏窗体例子
- 使用过mapx的朋友能给点代码吗关于mapx5控件怎么加载图片?
- 怎么样将treeview里的内容显示到listiew中
- 在vb中怎样用代码写excel2000->access2000 和access2000到excel2000的数据转换
- 远程连接SQL SERVER 问题
- Crystal Report.NET 问题,子报表 Supress 以后,露出大片空白
- 关于DataGrid控件的问题,无限郁闷中!我现在真的很急,明天就要演示了。
- *********高分求教Api问题***********[UP有分]
- 请问在数据库网格控件中,是VSFlexGridPro7.0好?还是TrueDBGrid7.0好用?
- 请教关于ActiveReport的简单问题?
- 当插入一个或多个记录后,我怎么样把myrs 还原到插入记录前的记录!
- 如何在vb中打开本机中存在的应用程序?
.Range("A1:F2").MergeCells = True '两个坐标所确定矩形
.Range("A1") = "你要的内容"
End With
xlSheet.Cells("A1")="anything"
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.MergeCells = False
End With
Selection.Merge