1. vba给单元格赋值
EXCEL表的单元格区域是一个二维数组dim arrarr=Sheet3.Range("D7:D9")'这时的arr得到的是二维数组'你要转换成1维数组，先声明一个动态数组再重定义为1维数组dim brr()redim brr(1 to ubound(arr))'再重新将二维转一维for i = 1 to ubound(arr) brr(i)=arr(i,1)next'如果你是要间隔写进去for i = 1 to ubound(arr) step 2 brr(i)=arr(i,1)
2. vba给单元格赋值给数组
VBA数组赋值方式：
字符串数组的定义：
Dim arr(1 to 3) as string
如此定义，但是不能直接给数组赋值
如果想直接给数组直接赋值，需要如下操作：
Dim arr() as Variant
arr=Array("a","b","c")
赋值格式：
例如，给变量a赋值一个数为12，则格式为：a = 12 [注意：变量（即a）只能是一字母，而赋予的值可以是一个式子，当它是式子时，a的值就是这个式子的结果。
3. vba给单元格赋值公式
Do While Not rs.EOF
sht.Cells(i, 3).value = sht.Cells(i, 3).value & vbCrLf & rs.fields(0)
rs.movenext
Loop
4. vba给单元格赋值日期
虽然你已解决格式问题,不过我还是想说一下,用FORMAT最简单,语法:文本框=Format(日期变量,"YYYYMMDD")或文本框=Format(日期变量,"YYYY-MM-DD")不过你不能再在文本框的属性中设置格式了,如果你要更变态的日期格式就用字符串变最来保存,然后,自己再写一个返回正常日期的函数,显示时转换为了字符串即可如:文本框=Cstr(Format(日期变量,"YYYYMMDD")
)接下来要实现的问题很简单在窗体中,右击空白处,选择“Tab键次序...”调整你所需要的次序即可，全用鼠标操作，选择一个或多个控件，然后就可以向下或向上移动他们了，重新排序的控件次序即是你所需的Tab键顺序，或Enter键后的次序，（声明：在文本框输入完后按Enter键，若TAB键顺序的下一个控件是按钮，会将焦点移动按钮上，但再按Enter键，焦点不会转移，因为会触发Click事件，只能用Tab键）
2、在A文本框的AfterUpdate事件中写入B文本框=Cstr(CDate(Trim(Me.A文本框））- 90）
5. vba给单元格赋值文本&另单元格值
材料/工具：Excel2010 1、打开一个Excel的文件，鼠标左键单击【开发工具】菜单标签。
2、接着，在表格中输入简单的表格，比如水果表格。
3、然后在VBA控件下拉菜单中，选择按钮控件。
4、接着在表格中绘制出按钮控件，并修改控件名称。
5、然后，鼠标左键单击【查看代码】按钮。
6、接着，在代码窗口中输入给单元格的赋值语句。
7、最后在设计窗口上，鼠标左键单击按钮，可以看到表格中的单元格中自动显示出数据了
6. vba给单元格赋值变量
w=cells(rows.count,1).end(xlup).row+1要表示你要的单元格区域，可以表示为range("A" &w &":K" & w+11)或者range(cells(w,1),cells(w+11,"K"))也可以直接取得这个区域，代码如下
7. vba给单元格赋值字符串
1、首先输入excle，打开VBA编辑器，并在编辑器中创建一个名为which day的新进程。 2、然后定义一些要使用的变量，这些变量都是字符串类型。 3、然后再给这些变量进行赋值。 4、要转换用户输入的日期格式，CDate是一个将字符串转换为日期的函数。 5、然后对mydate的值进行判断。 6、最后单击菜单栏上的“运行”按钮。
8. vba给单元格赋值报错9
Excel提示下标越界是VBA程序运行的一个错误提示，原因有以下几个：
1、引用了不存在的数组元素：下标比可能下标范围大或小，或是在应用程序中这一边的数组没有指定范围。
2、声明数组时没有指定元素的数目：引用了不存在的集合成员。
3、使用速写形式的下标，结果指定了错误的元素。
4、引用或操作的工作薄、工作表不存在。
9. vba给单元格赋值 汉字
第一、需要引用microsoftactivexdataobjects2.0或以上版本的控件
第二、你的写法好像有问题
1、赋值我一般会用cells(i,9)=rs("salesnum")
2、或者每个单元格的赋值不用，直接用range("g3").copyfromrecordsetrs这样你的代码从range("g3").select到wend这一部分都可以不要了。
10. vba给单元格赋值后再加减乘除代码怎么写
只能将矩形的计算分解成各个单元格的加减乘除。比如range("a5:b6")=range("a1:b2")+range("a3:b4")要写成for i =1 to 2 for ii=1 to 2 sheets(1) .cells(1+i,5+ii)=.cells(1+i,1+ii)+.cells(1+i,3+ii) nextnext
- 相关评论
- 我要评论
-