使用vba为excel文字添加下划线
2013-08-11 15:13
926 查看
Sub city() Dim a As String Dim b1 As String Dim b2 As String Dim b3 As String For i = 2 To 45 For j = 2 To 13 a = Worksheets("city").Cells(i, j) b1 = Mid(a, 1, 1) If (b1 = "b" Or b1 = "A" Or b1 = "B" Or b1 = "C") Then b2 = Mid(a, 2, 1) If (b2 = "b" Or b2 = "A" Or b2 = "B" Or b2 = "C") Then b3 = Mid(a, 3, 1) If (b3 = "b" Or b3 = "A" Or b3 = "B" Or b3 = "C") Then Worksheets("city").Cells(i, j).Characters(1, 3).Font.Underline = xlUnderlineStyleSingle End If End If End If Next j Next i End Sub
使用vba为excel文字添加下划线,示例代码
相关文章推荐
- PDF文字下划线使用什么软件可以快速添加?
- 使用xib给label等文字显示控件添加attributed属性
- 使用VBA实现Excel合并相同内容的相邻单元格
- 在Excel中使用VBA来筛选数据
- VBA添加Excel工具栏按钮
- 使用 Excel 2003 对象模型添加 XML 数据集成 (From MSDN)
- 使用VBA将Excel工作表分割成多个文件
- UILabel,文字添加下划线,中划线
- 使用word,excel等组件时添加引用问题
- 在EXCEL中如何使用VBA进行格式转化
- 对“在EXCEL中如何使用VBA进行格式转化”的改进算法
- 把TextView中的文字添加阴影效果及Style的使用 mono版
- UILabel,文字添加下划线,中划线
- 学以致用——Excel连接Oracle生成iKB报告——Part1(使用VBA从数据库提取汇总数据)
- 【EXCEL】 EXCEL VBA SQL UPDATE:操作必须使用一个可更新的查询
- 使用 Excel 2003 工作表的 VBA 示例
- 把TextView中的文字添加阴影效果及Style的使用
- 第IV部分 高级编程技巧 第14章 使用VBA开发Excel实用程序
- Android之 ListActivity 的使用和在 ListView中添加图片文字
- NPOI导入excel文件为DataTable,使用SqlBulkCopy添加到数据库表