UC知道用VBA 选取不确定单元格并给与添加颜色
来源：百度知道 编辑：UC知道 时间：2024/06/11 04:03:06
初学VBA，请高手指教。情况介绍：
1、我需要把一excel工作簿的一表sheet1中的某一行选中，如a3：h3，再给该行加上指定颜色（这个知道怎么加），其中行数是变动的，在怎样才能选中某一行几个连续的单元格？
2、我录制几个宏，可否在调用执行时，可否给一个变量，改变宏的执行方法，如：Range("E2").Select
ActiveCell.FormulaR1C1 = "=RC[-1]*0.05"
注：该段代码为录制宏中的一部分，
请问：（1）代码中的R1C1是什么意思，我本是给E2负值，让E2=d2*0.05，
（2）怎样才能让这部分在程序执行过程中，以一个变量变化而变化。即想实现E3=D3*0.05.
今晚在线等！请勿复制粘贴网上其他人的回答，已看过。不知为啥只能悬赏100，答案可行，能再加分的话再加100，谢先！
1、我需要把一excel工作簿的一表sheet1中的某一行选中，如a3：h3，再给该行加上指定颜色（这个知道怎么加），其中行数是变动的，在怎样才能选中某一行几个连续的单元格？
2、我录制几个宏，可否在调用执行时，可否给一个变量，改变宏的执行方法，如：Range("E2").Select
ActiveCell.FormulaR1C1 = "=RC[-1]*0.05"
注：该段代码为录制宏中的一部分，
请问：（1）代码中的R1C1是什么意思，我本是给E2负值，让E2=d2*0.05，
（2）怎样才能让这部分在程序执行过程中，以一个变量变化而变化。即想实现E3=D3*0.05.
今晚在线等！请勿复制粘贴网上其他人的回答，已看过。不知为啥只能悬赏100，答案可行，能再加分的话再加100，谢先！
1、选中某一行几个连续的单元格:(选中r行的第1列至第10列)
range(cells(r,1),cells(r,10)).select
2、（1）“FormulaR1C1”为excel关键字，
表示返回或设置指定对象的公式，用宏语言的 R1C1-样式符号表示
（2）、可用填充公式办法（将E2公式填充到E3:E10）
Range("E2").Select
ActiveCell.FormulaR1C1 = "=RC[-1]*0.05"
Selection.AutoFill Destination:=Range("E2:E10"), Type:=xlFillDefault