Excel.Range range中的设置如font.Merge等

最新推荐文章于 2022-06-03 20:10:52 发布
最新推荐文章于 2022-06-03 20:10:52 发布
阅读量1.5k 收藏 1
点赞数
分类专栏： C#操作Excel
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/llxlett/article/details/8512898
版权
Excel.Range range;
           range = (Excel.Range)oSheets.Rows[5,missing];//獲取行。
           range.Insert(Excel.XlInsertShiftDirection.xlShiftDown,missing);//在此行前插入行。
           range = (Excel.Range)oSheets.Rows[5,missing];
           range.Font.Bold=false;//字體不為粗體
           range.Font.Color="000000";//字體顏色。
           range = oSheets.get_Range("E5", "F5");//獲得第五行多列.
           range.Merge(missing);//合並蓋多列。
           range.Interior.ColorIndex=2;//填充色。
           range = oSheets.get_Range("G5", "H5");
           range.Merge(missing);
           range.Interior.ColorIndex=2;
           range = oSheets.get_Range("I5", "J5");
           range.Merge(missing);
           range.Interior.ColorIndex=2;
           range = oSheets.get_Range("K5", "L5");
           range.Merge(missing);
           range.Interior.ColorIndex=2;
           range = oSheets.get_Range("M5", "N5");
           range.Merge(missing);
           range.Interior.ColorIndex=2;
           range = oSheets.get_Range("O5", "P5");
           range.Merge(missing);
           range.Interior.ColorIndex=2; 
张家可
关注
  • 0
    点赞
  • 踩
  • 1
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
Excel 2010 VBA 入门 033 批量合并相同的单元格
复行数十步
04-08 1739
目录 Range的Merge方法合并单元格 VBA运行时关闭警告 多行中相同的内容处理 示例： Range的Merge方法合并单元格 单元格对象的Merge方法可以用来合并相邻的单元格区域，使之成为一个更大的矩形单元格区域。其语法为 Range.Merge 当需要取消合并单元格时，则使用UnMerge方法。 可以使用循环结构，不断判断是否与之前的部门相同，若相同，则利用Union方法将其添加至所需合并的单元格区域的并集中来。若不相同，则先用Merge将之前的单元格进行合并，...
【xlwings api语言参考】Range.Font 属性
DataLab的博客
05-08 216
功能： 返回一 个 Font 对象，该对象代表指定单元格或单元格区域中文本的字体。 语法： rng.Font rng是一个表示 Range 对象的变量。 示例： 本示例确定单元格 A1 的字体名称是否为 Arial，颜色为红色。 import xlwings as xw app=xw.App() bk=app.books.active sht=bk.sheets.active rng=sht.api.Range('A1') rng.Font.Name='Arial' rng.Font.ColorIndex
【xlwings api语言参考】Range.Merge 方法
DataLab的博客
06-03 1267
功能： 从指定的 Range 对象创建合并的单元格。语法： rng.Merge(Across) rng是一个表示 Range 对象的变量。参数： 名称 必需/可选 数据类型 说明 Across 可选 布尔值 如果设置为 True，则将指定区域中每一行的单元格合并为一个单独的合并单元格。 默认值为 False。注解： 合并区域的值在该区域左上角的单元格中指定。示例： 本例合并指定单元格区域。...
Excel操作——合并单元格的相关信息
冷秋魂的专栏
07-07 2142
        对于合并单元格的内容和备注等信息，只有通过合并前左上角的单元格坐标才能获得，所以本文介绍怎样获得合并单元格相关信息。1.       判定是否是合并单元格       之前提到了判断一个单元格是否是合并单元格的方法，这里再叙述一遍。       先获得一个单元格实例：         Range oCurCell;           // 定义的当前单元格实例
Python XlsxWriter module 使用之单元格合并 worksheet.merge_range()
Lockey23的博客
07-11 2万+
merge_range(first_row, first_col, last_row, last_col, data[, cell_format]) Merge a range of cells. Parameters: first_row (int) – The first row of the range. (All zero indexed.) first_col (int) – T...
Excel VBA Range对象等基本操作应用示例
08-07
在Excel VBA编程中，Range对象是核心概念之一，它代表了Excel工作表中的一个或多个单元格。本文将深入探讨Range对象的基本操作及其在实际应用中的示例，旨在帮助初学者快速掌握这一重要工具。 一、Range对象的定义...
c-操作excel总结.doc
12-21
以上是C#操作Excel的基础操作，除此之外，还可以进行数据读取、格式设置、图表操作、数据验证等更多复杂的操作。在实际应用中，需要注意处理异常、关闭Excel应用以及释放COM对象，以避免资源泄漏。例如，关闭工作簿...
Excel-VBA实用技巧范例-操作单元格.zip
03-18
例如，`Offset`方法可以用来偏移指定单元格的位置，`Merge`方法可以合并单元格，`ClearContents`清除单元格内容，`Font`属性可以改变字体样式等： ```vba Sub 格式化单元格() With Range("A1") .Offset(1, 0)....
Spire_XLS_Demo.zip
04-30
sheet1.Range[2, 2, 2, 4].Merge(); sheet1.Range[2, 2, 2, 4].Style.Font.Size = 16; sheet1.Range[2, 2, 2, 4].Style.Font.IsBold = true; sheet1.Range[2, 2, 2, 4].Style.Font.IsItalic = true; sheet1.Range[2,...
VC开发EXCEL源代码.rar
07-07
5. **单元格设置公式**：设置单元格为公式，直接在`Range`对象的`Formula`属性中输入公式即可，如`range->Formula = _T("=A1+B1");` 6. **与数据库（Access, SQL Server）交互**：通过`ADODB`库，可以实现Excel与...
c#操作excel封装的类
程序猿
04-28 520
using System; using System.Collections.Generic; using System.Text; using Excel = Microsoft.Office.Interop.Excel; using System.Diagnostics; using System.Windows.Forms; namespace OfficeManager {
LabWindows 读写 Excel
weixin_41960804的博客
04-22 589
LabWindows 读写 Excel分为7个操作方法. 1 And cells CA_VariantSetCString (&MyCellRangeV, "A1:F2"); Excel_WorksheetRange (worksheetHandle, NULL, MyCellRangeV, CA_DEFAULT_VAL, &ExcelRangeHandle); Excel_RangeMerge (ExcelRangeHandle, NULL, CA_DEFAULT_VAL); .
EXCEL——Interior.ColorIndex 色彩列表
weixin_34202952的博客
11-11 1084
无色 0 　 19 　 38 　 1 　 20 　 39 白色 2 　 21 　 40 　 3 　 22 　 41 　 4 　 23 　 42 　 5 　 24 　 43 　 6 　 25 　 44 　 7 　 26 　 45 ...
.net导出Excel设置颜色font.ColorIndex 各颜色编号
ruirui
08-31 9890
无色 = -4142,    自动 = -4105,    黑色 = 1,    白色 = 2    红色 = 3,    鲜绿 = 4,      蓝色 = 5,  黄色 = 6,    粉红 = 7,    青绿 = 8,    深红 = 9,   绿色 = 10,    深蓝 = 11,  深黄 = 12,    紫罗兰 = 13,
判断Range 使字符串 本别显示不同颜色
Yngiew的博客
06-30 709
UILabel *coutentLabel = [[UILabel alloc] initWithFrame:CGRectMake(view.frame.size.width / 2, 0, view.frame.size.width / 2 - 10, view.frame.size.height)];          coutentLabel.font = [UIFont
【VBA研究】关于单元格颜色值的十六进制赋值
驽马十驾 才定不舍
09-02 8769
作者：iamlaosong 1、单元格颜色的设置 背景颜色用属性Interior，字体颜色用属性Font。颜色的值，可以用Colorindex，这种方法只有Excel规定的56中颜色，如下图所示： 也可以用RGB()函数，这样就可以设置成任何颜色。RGB()函数函数实际是返回一个颜色值，因此，也可以直接赋值，只是这个值不直观而已。其实这个值就是RGB()函数的值，用十六进制表示就非常直观了，只是最低两位表示红色，最高两位表示蓝色，中间两位表示绿色，即： &HBBGGRR 如红色（Col
【python】xlwings如何设置字体、颜色等属性
Weiming Chen's blog
04-06 2万+
解决了使用xlwings导致xlsx文件被锁定的问题。深入讨论了xlwings模块如何设置字体、颜色、加粗等属性。
VBA中的颜色，colorIndex 或color 或backcolor
热门推荐
奔跑的犀牛先生
12-20 3万+
代码1： 哄孩子的EXCEL变颜色代码 Sub ponyma1() 'For i = 1 To 101 Step 2 ' Cells(i, 2).Interior.ColorIndex = 6 'Next ' ' 'For i = 2 To 100 Step 2 ' Cells(i, 2).Interior.ColorIndex = 1 'Next k = 10 For i...
通过程序增删excel行
weixin_30724853的博客
12-07 118
首先要引用 Microsoft.Office.Interop.Excel 然后写程序 1、添加行过程 当前工作表 /// 欲插入的行索引 private void InsertRows(Excel.Worksheet sheet, int rowIndex) { range = (...
Dim worksheet As Excel.Worksheet = CType(workbook.Sheets(i + 1), Excel.Worksheet) worksheet.Name = result(i).Key & "钢网架" worksheet.Cells.VerticalAlignment = Excel.Constants.xlCenter worksheet.Cells.HorizontalAlignment = Excel.Constants.xlCenter worksheet.Cells.Font.Name = "宋体" worksheet.Cells.Font.Color = Color.Black '设置标题 Dim logoRange As Excel.Range = worksheet.Range(worksheet.Cells(1, 1), worksheet.Cells(1, 1)) '选取单元格 logoRange.Value2 = "深圳斯坦雷电气有限公司" logoRange.HorizontalAlignment = Excel.Constants.xlLeft logoRange.Font.Size = 14 logoRange.EntireRow.RowHeight = 18.75 '设置标题 Dim titleRange As Excel.Range = worksheet.Range(worksheet.Cells(2, 1), worksheet.Cells(2, 8)) '选取单元格 titleRange.Merge(True) '合并单元格 titleRange.Value2 = resultWorkshop(w).Key & "钢网放置架记录表" titleRange.Font.Size = 23 titleRange.Font.Bold = True titleRange.EntireRow.RowHeight = 32.25 '副标题 Dim tipRange1 As Excel.Range = worksheet.Range(worksheet.Cells(3, 1), worksheet.Cells(3, 4)) worksheet.Range("A3:D3").Merge(0) '合并单元格 tipRange1.Value2 = "第一层" tipRange1.Font.Size = 20 tipRange1.Font.Bold = True '副标题 Dim tipRange2 As Excel.Range = worksheet.Range(worksheet.Cells(3, 4), worksheet.Cells(3, 8)) worksheet.Range("E3:H3").Merge(0) '合并单元格 tipRange2.Value2 = "第二层" tipRange2.Font.Size = 20 tipRange2.Font.Bold = True '列标题 Dim headerStr As String() = {"序号", "机种名", "使用次数", "备注", "序号", "机种名", "使用次数", "备注"} For j = 0 To headerStr.Length - 1 worksheet.Cells(4, j + 1) = headerStr(j) worksheet.Range(worksheet.Cells(4, j + 1), worksheet.Cells(4, j + 1)).RowHeight = 29.25 Select Case j Case 0, 4 worksheet.Range(worksheet.Cells(4, j + 1), worksheet.Cells(4, j + 1)).ColumnWidth = 5.38 Case 1, 5 worksheet.Range(worksheet.Cells(4, j + 1), worksheet.Cells(4, j + 1)).ColumnWidth = 27 worksheet.Range(worksheet.Cells(4, j + 1), worksheet.Cells(4, j + 1)).EntireColumn.WrapText = True Case 2, 6 worksheet.Range(worksheet.Cells(4, j + 1), worksheet.Cells(4, j + 1)).ColumnWidth = 10.75 Case 3, 7 worksheet.Range(worksheet.Cells(4, j + 1), worksheet.Cells(4, j + 1)).ColumnWidth = 12.13 worksheet.Range(worksheet.Cells(4, j + 1), worksheet.Cells(4, j + 1)).EntireColumn.Font.Size = 10 worksheet.Range(worksheet.Cells(4, j + 1), worksheet.Cells(4, j + 1)).EntireColumn.WrapText = True End Select Next 保持原有逻辑进行优化，让代码有更好的可读性，可维护性，提高性能，并说明理由
最新发布
06-09
其次，可以采用一些技巧来提高代码的性能，例如使用数组代替列表，使用StringBuilder代替字符串拼接等。 另外，建议使用常量代替魔法数字，使用枚举类型代替字符串常量，增加代码的可读性和可维护性。 最后，可以...

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值