1 range() cells() 内容格式的调整

显示属性

debug.print range().address

设置属性

with range() /cells()

address 只读

font

.bold =true '加粗
.italic =true '斜体
.Name = "华文新魏"
.Size = 15
.ColorIndex = 3
.color=vbcolor ‘？
.underline=true

interior

color
colorindex

end with

试验代码

Sub test91()'使用range ,selection, activecell  cells 应该都一样Range("a1:b3").Select
With Selection.Font.Bold = True.Font.Italic = True.Font.Size = 30.Font.Color = vbcolor.Font.Underline = TrueWith .Interior.ColorIndex = 6.Color = 100   '不方便，interior.color的值是一个十进制数，范围是0-16777215. 属于long长整形范围End With
End WithWith Cells(7, 3)
'     .Address = "$c$8" 不能修改.Value = 11 + 22.Formula = 1 + 2.FormulaR1C1 = 0 + 1
End WithDebug.Print
Debug.Print Cells(7, 3).Value
Debug.Print Cells(7, 3).Address  '不能修改
Debug.Print Cells(7, 3).Formula
Debug.Print Cells(7, 3).FormulaR1C1Dim r1 As Object
Set r1 = Cells(7, 3).Resize(2, 2)
r1.Interior.ColorIndex = 5
Debug.Print r1.AddressDim r2 As Object
Set r2 = Cells(7, 3).Offset(5, 2)
r2.Interior.ColorIndex = 6
Debug.Print r2.AddressEnd Sub

2 .address属性

比如默认的 cells().address= "$c$8" 可以用 split() 转为一个array处理
address属性带参数，可以返回绝对地址，和相对地址
默认返回绝对地址，即锁定地址
address(0,0) 返回相对地址

Sub tt3()Debug.Print Cells(7, 3).Address
Debug.Print Cells(7, 3).Address(1, 1)
Debug.Print Cells(7, 3).Address(0, 0)
Debug.Print Cells(7, 3).Address(1, 0)
Debug.Print Cells(7, 3).Address(0, 1)End Sub

2 .formula 和 .formulaR1C1

如：选定单元格为C8
R[-1]C[-1]为B7单元格，行列都-1，R[1]C[2]为E9单元格，行+1，列+2
R1C1代表A1单元格，R5C6代表F5单元格
例：C1单元格为"=A1+B1"
Range("C1").FormulaR1C1 = "=RC[-2]+RC[-1]" '也就是R[1]C[-2] 可以写成RC[-2]
例：C1单元格为"=A2+E3"
Range("C1").FormulaR1C1 = "=R[1]C[-2]+R[2]C[2]"

Sub tt5()Debug.Print Cells(5, 6).Value
Debug.Print Cells(5, 6).Formula
Debug.Print Cells(5, 6).FormulaR1C1
Debug.PrintDebug.Print Cells(8, 6).Value
Debug.Print Cells(8, 6).Formula
Debug.Print Cells(8, 6).FormulaR1C1End Sub

VBA 对 range() 或 cells() 的内容格式的修改，如 range.address(0,0) cells().formulaR1C1相关推荐

如何将word一键导入PPT并对内容格式批量修改
*资料来源:秋叶PPT 一.调整word的大纲设置一个未作处理的word如下图所示,所有文字都是正文格式,没有区分一级标题二级标题等. 1.1 首先,点击"视图"下的" ...
如何利用VBA批量更改Excel文件的内容
心得(5):利用VBA批量更改Excel文件的内容问题:因为接受的所有Excel文件都是相同格式的,但是有个单元格的内容就是需要,主办方来更改,如下所示: 获奖级别,得由主办方来更改,但是如果一个一 ...
易语言 html对象,易语言ExceL对象内容格式使用方法附源代码
常见的单元格数据格式: Range("a1").NumberFormat = "0.00" '将数字设置为两位小数: Range("a1") ...
Excel VBA 入门demo，单元格json格式校验
需求才是学习的第一生产力,学习VBA是因为要帮测试同学解决excel中的值校验问题.具体来讲,需要对指定单元格做数据格式校验,必须是json,不是json或者格式不对的,要有提示. 解决问题的方案很多 ...
Excel VBA读取其它excel单元格内容详细案例
Excel VBA 读取其它excel单元格内容详细案例通过一个按钮读取其它excel表格的内容的方法: 创建一个按钮在excel表单插入按钮,进入design mode后双击按钮进入宏程序编辑 ...
java post xmll_HttpClient发送Post请求,内容格式为xml,并获取响应内容
ChannelDistributor.xml 内容如下: yisou abcd1234 10010000 00 1).HttpClient发送Post请求,内容格式为xml,并获取响应内容 impor ...
使用 jQuery Mobile 与 HTML5 开发 Web App (六) —— jQuery Mobile 内容格式
今天开始, "使用 jQuery Mobile 与 HTML5 开发 Web App" 的系列文章将会继续,这次要介绍的是 jQuery Mobile 的内容格式部分,这也是 jQ ...
html输入格式限制,jQuery输入框限制输入内容格式插件
jquery.mask.js是一款jQuery输入框限制输入内容格式插件.该插件可以通过指定的规则来限制用户在输入框中输入的内容,例如限制日期格式,限制电话号码格式等,非常实用. 安装可以通过Bow ...
CorelDRAW VBA - 读取XML文件，根据内容批量创建图形
目的这篇教程将教会你如何使用 CorelDRAW VBA 来读取 XML 文件,并通过读取的内容来动态创建指定宽度和高度的矩形. 准备一个XML文件打开记事本,粘贴以下内容,然后保存文件,文件名输 ...
关于短信内容格式及压缩方法
author: scruffybear release time: 29/08/2007 如有转载,请注明出处,并保持文章的完整性,谢谢! 七月份做警务通的项目,涉及到对已有的短信内容进行修改的问题, ...

VBA 对 range() 或 cells() 的内容格式的修改，如 range.address(0,0) cells().formulaR1C1

1 range() cells() 内容格式的调整

试验代码

2 .address属性

2 .formula 和 .formulaR1C1

VBA 对 range() 或 cells() 的内容格式的修改，如 range.address(0,0) cells().formulaR1C1相关推荐

最新文章

热门文章

VBA 对 range() 或 cells() 的内容格式的修改， 如 range.address(0,0) cells().formulaR1C1

1 range() cells() 内容格式的调整

试验代码

2 .address属性

2 .formula 和 .formulaR1C1

VBA 对 range() 或 cells() 的内容格式的修改， 如 range.address(0,0) cells().formulaR1C1相关推荐

最新文章

热门文章

VBA 对 range() 或 cells() 的内容格式的修改，如 range.address(0,0) cells().formulaR1C1

VBA 对 range() 或 cells() 的内容格式的修改，如 range.address(0,0) cells().formulaR1C1相关推荐