excel vba怎样指向单元格并把单元格的值赋值给一个变量?

如题所述

假设把 sheet1 中A1单元格赋值给X变量,语句如下:
X = sheets(1).range("A1")
假设X经过计算后,得到一个变量值Y,那么把Y赋值给A1,语句为:
sheets(1).range("A1")=Y
这样就实现了单元格与变量之间的相互赋值

关于此例中涉及到的VBA中变量的相关知识:
1、什么是变量

变量是一个命名的内存位置。是在程序或代码运行过程中,用于临时存储数据,并且其存储的数据可以根据需要发生改变的一个命名项目。
变量由名称(变量名)和数据类型指定:
变量名——用来引用变量
数据类型——确定变量所能存储信息的种类以及所占存储空间的大小
2、变量的命名规则
(1)名称是由字母(A-Z,a-z)或数字和下划线“_”的任意组合。(在Excel 2002以后的版本中也可以包含中文);最后一个字符可以是类型说明符;
(2)变量名的长度不得超过255个字符
(3)变量名在有效的范围内必须是唯一的。有效的范围就是引用变量可以被程序识别的作用范围 例如一个过程、一个窗体等等;
(4)变量名不能是VBA中的保留字(关键字),也不能是末尾带类型说明符的保留字,但可以把保留字嵌入变量名。
说明:
(1)变量名是不区分大小写的。如ABC、aBc、abc等都是一样的;
(2)定义和使用变量时,通常要把变量名定义为容易使用阅读和能够描述所含数据用处的名称;
(3)根据需要混合使用大小写字母和数字。如果需要使用多单词组,变量中每个单词的第一个字母大写,例如:DataTemp表示临时数据,也可以两个单词中下划线分隔,例如:Last_Num;
(4)对于变量名也有更好的建议,每个变量名以两个或三个字符缩写开始,这些字符缩写对应于变量要存储数据的数据类型。例如strWorksheet as string表用来示工作表名,前缀str表示当前变量的类型。
温馨提示:内容为网友见解,仅供参考
无其他回答

excel vba怎样指向单元格并把单元格的值赋值给一个变量?
假设把 sheet1 中A1单元格赋值给X变量,语句如下:\\x0d\\x0aX = sheets(1).range("A1")\\x0d\\x0a假设X经过计算后,得到一个变量值Y,那么把Y赋值给A1,语句为:\\x0d\\x0asheets(1).range("A1")=Y\\x0d\\x0a这样就实现了单元格与变量之间的相互赋值\\x0d\\x0a\\x0d\\x0a关于此例...

用vba给Excel单元格赋值vba单元格数值格式赋值给变量
材料\/工具:Excel2010 1、打开一个Excel的文件,鼠标左键单击【开发工具】菜单标签。2、接着,在表格中输入简单的表格,比如水果表格。3、然后在VBA控件下拉菜单中,选择按钮控件。4、接着在表格中绘制出按钮控件,并修改控件名称。5、然后,鼠标左键单击【查看代码】按钮。6、接着,在代码窗口中输入给...

Excel VBA 怎么把一个单元格里面的值存到一个变量里面 代码怎么写...
a=cells(1,1)a=[a1]a=range("a1")以上三种方法就可以将[a1]单元格里的值赋值给变量a

excel vba 如何提取单元格中的部分字符串赋值给某个变量,如单元格中有...
1.A1中有如下字符串 2.Alt+F11,打开VBE,输入如下代码 3.字符串部分就留赋予变量s了

vba怎样把一个单元格中的值赋给另一个单元格
1、首先点击EXCEL打开EXCEL工作薄,工作簿的名称为“给单元格赋值.xls”。2、进入EXCEL界面后点击开发工具选项卡,点击上面的VIUAL BASIC按钮打开VBA编辑器。3、进入VBA编辑器后再代码输入窗口输入如下代码。Sub 给单元格赋值()Workbooks("给单元格赋值.xls").Worksheets("数据").Range("A1").Value = ...

excel宏中如何将剪贴板的数据赋值给变量
可以使用VBA代码。1、首先,需要将剪贴板上的内容粘贴到一个单元格中,例如A1单元格。2、然后,需要将这个单元格的值赋给一个变量。可以使用Range对象来读取单元格的值,并将其赋值给一个变量。3、最后,可以使用这个变量来操作剪贴板的内容。

excel vba 如何定义单元格变量,并赋值
这个不同于为integer等类型的一般变量赋值,要先用set 关键字将变量赋为特定对象,创建该对象的一个引用,然后可赋值。Public Sub 测试()Dim dyg As Range '如下语句正确,但意义不大 Set dyg = Range("B2")'常用形式 set dyg=Range("A1") ‘A1可换成你想引用的单元格 dyg= Range("B2")...

使用excel VBA将一个单元格内输入的数据赋给另一个单元格
选“查看代码”打开代码编辑窗口,如果窗口有任何代码,都把它删除,然后复制》粘贴下面的代码进去,保存 Private Sub Worksheet_Change(ByVal Target As Range)If Target.Row = 1 And Target.Column = 1 Then Range("b1").Value = Range("a1").Value End If End Sub ...

...获取选中区域的值,并将选中的值导出到一个Excel中
如果 sheet2 的 a1:a6 是合并单元格,把它 a2 的值赋给 sheet1 的 a1:Worksheets(1).Cells(1, 1) = Worksheets(2).Range("a2").MergeArea.Cells(1, 1)

想用VBA实现如下功能,EXCEL中的B单元格内容一旦修改,则将B.value赋给A...
Change事件就可以 Private Sub Worksheet_Change(ByVal Target As Range)……end sub 没看懂你with语句问的是什么 给你举个with语句的例子吧 sheet1.cells(1,1).value=1 sheet1.cells(1,2).value=2 用with可以写成 with sheet1 .cells(1,1).value=1 .cells(1,2).value=2 end with ...

相似回答