可变单元格是

DataGridView单元格合并VB.NET实现

已封装成类，调用方便。 效果如下：

Public Class Form1

Private cmb As CmbDatagridbiew

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load '测试数据

DataGridView1.ColumnCount = 6 DataGridView1.Columns(0).Name = \ DataGridView1.Columns(1).Name = \ DataGridView1.Columns(2).Name = \ DataGridView1.Columns(3).Name = \ DataGridView1.Columns(4).Name = \ DataGridView1.Columns(5).Name = \

Dim row As String() = New String() {\,

DataGridView单元格合并VB.NET实现

已封装成类，调用方便。 效果如下：

Public Class Form1

Private cmb As CmbDatagridbiew

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load '测试数据

DataGridView1.ColumnCount = 6 DataGridView1.Columns(0).Name = \ DataGridView1.Columns(1).Name = \ DataGridView1.Columns(2).Name = \ DataGridView1.Columns(3).Name = \ DataGridView1.Columns(4).Name = \ DataGridView1.Columns(5).Name = \

Dim row As String() = New String() {\,

EXCEL从单元格提取汉字

北京   11天津   12河北   13山西   14内蒙古   15辽宁   21吉林   22黑龙江   23上海   31江苏   32浙江   33安徽   34福建   35江西   36山东   37河南   41湖北   42湖南   43广东   44广西   45海南   46重庆   50四川   51贵州   52云南   53西藏   54陕西   61甘肃   62青海   63宁夏   64新疆   65台湾   71香港   81澳门   82

国外   91北京天津河北山西内蒙古辽宁吉林黑龙江上海江苏浙江安徽福建江西山东河南湖北湖南广东广西海南重庆四川贵州云南西藏陕西甘肃青海宁夏新疆台湾香港澳门国外

excel单元格自定义格式 2009-05-20 20:30

代码结构组成代码码分为四个部分，中间用“；”号分隔，具体如下： 正数格式；负数格式；零格式；文本格式 各个参数的涵义

“G/通用格式”：以常规的数字显示，相当于“分类”列表中的“常规”选项。 例：代码：“G/通用格式”。10显示为10；10.1显示为10.1。

“0”：数字占位符。如果单元格的内容大于占位符，则显示实际数字，如果小于点位符的数量，则用0补足。

例：代码：“00000”。1234567显示为1234567；123显示为00123 代码：“00.000”。100.14显示为100.140；1.1显示为01.100

“#”：数字占位符。只显有意义的零而不显示无意义的零。小数点后数字如大于“#”的数量，则按“#” 的位数四舍五入。

例：代码：“###.##”,12.1显示为12.10;12.1263显示为：12.13

“？”：数字占位符。在小数点两边为无意义的零添加空格，以便当按固定宽度时，小数点可对齐，另外还用于对不等到长数字的分数

例：分别设置单元格格式为“??.??“和“???.???”,对齐结果如下：

例：设置单元格自定义格式“# ??/???”。“1.25”显示

如何在Excel单元格中调整行距

如何在Excel单元格中调整行距

经常在Excel表格中录入文字档案的人都知道，在Excel单元格中字体大小可以设置，但同一个单元格中的一段文字的行距是无法直接调整的，录入的文本内容行距都比较小，而且是软件默认的，这就使我们录入的文本视觉效果不好，不美观。Word中有非常强大的字体设置功能，可以任意设置字体的大小和行距，使文档看起来更美观，Excel没有这个功能，但我们可以采取下的的方法解决：

常见错误的方法：

1、设置行高法（对单元格内容多行无用）；

2、Alt + Enter法（每行之间都要多打一个空行）。

正确方法

1、格式—拼音指南—设置—字体——字号，输入或选中你希望的字号确定即可。通过调整拼音字号的大小可以调整行距。注意：只有设置中的“显示或隐藏”选中被选中，此法才有效。

2、如果你有一定的VBA常识，可以在你的Excel文档中导入下面的宏，使用下面的宏，然后调用“加大行距”的宏增大行距，使用“减小行距”的宏减小行距，可以逐级调整。如果在文档中插入两个按钮，指定这两个宏，使用起来会非常方便。

你也可以通过菜单中的“工具”——“宏”——“宏”调用需要的宏。

如何在Excel单元格中调整行距

Sub 加大行距()

'

Sele

如何在Excel单元格中调整行距

如何在Excel单元格中调整行距

经常在Excel表格中录入文字档案的人都知道，在Excel单元格中字体大小可以设置，但同一个单元格中的一段文字的行距是无法直接调整的，录入的文本内容行距都比较小，而且是软件默认的，这就使我们录入的文本视觉效果不好，不美观。Word中有非常强大的字体设置功能，可以任意设置字体的大小和行距，使文档看起来更美观，Excel没有这个功能，但我们可以采取下的的方法解决：

常见错误的方法：

1、设置行高法（对单元格内容多行无用）；

2、Alt + Enter法（每行之间都要多打一个空行）。

正确方法

1、格式—拼音指南—设置—字体——字号，输入或选中你希望的字号确定即可。通过调整拼音字号的大小可以调整行距。注意：只有设置中的“显示或隐藏”选中被选中，此法才有效。

2、如果你有一定的VBA常识，可以在你的Excel文档中导入下面的宏，使用下面的宏，然后调用“加大行距”的宏增大行距，使用“减小行距”的宏减小行距，可以逐级调整。如果在文档中插入两个按钮，指定这两个宏，使用起来会非常方便。

你也可以通过菜单中的“工具”——“宏”——“宏”调用需要的宏。

如何在Excel单元格中调整行距

Sub 加大行距()

'

Sele

设置

最近项目中一直在写XML、Table、Excel之间的转化。之前一直都是不考虑格式的导出，今天给出一个格式，让按照格式导出，还真把我这新手为难了一翻，网上给出的资料基本一样。为了一个单元格文字变色纠结了很久。下面把学习资料发出，希望对新手学习有所帮助： 下面是会用到的导出属性。

合并单元格属性：

worksheet.get_Range(worksheet.Cells[rowIndex, columnCount + 1], worksheet.Cells[rowIndex + 2, columnCount + 1]).MergeCells = true;

设置某一个单元格中字体的颜色：

worksheet.get_Range(worksheet.Cells[rowIndex, 5],

worksheet.Cells[rowIndex, 8]).Font.ColorIndex = 5;(这个在网上找的一直变不了色，后面自己试出来了)

字体颜色的index值：

选定区间设置字符串格式或数字格式：

设置

Microsoft.Office.Interop.Excel.Range range =

worksheet.get_Range(worksheet.Cells[r

技巧1 替换单元格内字符串

如果需要替换单元格内指定的字符串，那么使用Range对象的Replace方法，如下面的代码所示。

#001 Sub RngReplace()

#002 Range(\通州\南通\#003 End Sub

代码解析：

RngReplace过程将工作表A1:A5单元格中的“通州”字符串替换成“南通”字符串。 应用于Range对象的Replace方法替换指定区域内单元格中的字符，语法如下：

expression.Replace(What, Replacement, LookAt, SearchOrder, MatchCase, MatchByte, SearchFormat, ReplaceFormat)

其中参数expression是必需的，返回一个Range对象。 参数What是必需的，要搜索的字符串。 参数Replacement是必需的，替换的字符串。

运行RngReplace过程前工作表如图 1-1所示，运行RngReplace过程后结果如图 1-2所示。

图 1-1 替换前单元格

图 1-2 替换后单元格

★Excel服务器学习和下载园地★

[分享] 在Excel工作表的任意单元格中设置页码 [复制链接] 文章不当之处，请Excel VBA高手指教为谢！

转载于一片白云博客：http://blog.163.com/ycy_sdfc/

问：在Excel中设置第几页共几页，绝大部分人会想道用“页面设置”，但你是否想过将“第N页/总M页”放到任意单元格中？而不仅仅是置于页眉页脚中？ 答：实现方法一般有两种：使用VBA和使用宏表函数 方法一，用VBA

Public Function Page(x As Range, z As Byte)

'特别注意：当Z参数是0时，统计指定单元格所在页的页码（是以列分页符的值是1为前提条件的）

'由自定义函数的Z参数来确定是进行工作表选定单元格所在页数 '或是工作表总页数计算

'当Z参数是0时，统计指定单元格所在页的页码

'当Z参数是1至255任一个数值时，统计工作表总页数 If z = 0 Then ih = 0

For Each yh In ActiveSheet.HPageBreaks ih = ih + 1

技巧1 替换单元格内字符串

如果需要替换单元格内指定的字符串，那么使用Range对象的Replace方法，如下面的代码所示。

#001 Sub RngReplace()

#002 Range(\通州\南通\#003 End Sub

代码解析：

RngReplace过程将工作表A1:A5单元格中的“通州”字符串替换成“南通”字符串。 应用于Range对象的Replace方法替换指定区域内单元格中的字符，语法如下：

expression.Replace(What, Replacement, LookAt, SearchOrder, MatchCase, MatchByte, SearchFormat, ReplaceFormat)

其中参数expression是必需的，返回一个Range对象。 参数What是必需的，要搜索的字符串。 参数Replacement是必需的，替换的字符串。

运行RngReplace过程前工作表如图 1-1所示，运行RngReplace过程后结果如图 1-2所示。

图 1-1 替换前单元格

图 1-2 替换后单元格