❶ VBA，如何取单元格的值
VBA中表示单元格的值有很多种，比如A1单元格的值
range("A1")
cells(1,1) 或cells(1,"A")
[A1]
VBA中单元格属性默认是值，但如果指定为value属性，可以提高代码运行速度
上述的表示方式为：
range("A1").value
cells(1,1).value 或cells(1,"A").value
[A1].value
❷ vba 从单元格取值问题
方法一：Range.Value2（使用该方法需要预先设置好单元格的日期格式，然后写入单元格）
ThisWorkbook.Sheets("Sheet1").Cells(1,2).Value2
返回：41691.3333506944方法二：Range.Text
ThisWorkbook.Sheets("Sheet1").Cells(1,2).Text
返回1：当列宽不足以显示完整值时返回若干个连续的#
返回2：当列宽足以显示完整值时返回该单元格内的值2014/02/2108:00:01.5
❸ excel vba 获取文本框的值 怎么获取啊
下面这段代来码的意思是应该源能看懂吧，意思是当您单击窗体上的命令按钮CommandButton1时，Sheet1这个工作表A1单元格的值来自窗体上的文本框TextBox1
Private Sub CommandButton1_Click()
Sheet1.Range("A1") = TextBox1.Text
End Sub
❹ EXCEL VBA编写代码提取的数据
1
2
3
4
5
6
7
Sub Macro1()
dim years as string
years ="2000"
Rows("1:1").Select
Selection.AutoFilter
ActiveSheet.cells.AutoFilter Field:=4, Criteria1:=years
End Sub
以上代码定于years 变量，可根据设置年份
然后选择第一行，生成高级筛选，筛选条件是第四列，筛选内容是变量years
❺ VBA代码提取指定字段数据
用VLOOKUP函数 不用VBA也行。
VBA的话写起来有点小复杂。你这也没分，试试VLOOKUP函数很简单。
❻ VBA取单元格值（单元格是变量）
i 与 i1 是两个不同的变量
请试试 t1 = Cells(i - 1, j + k - 1)
❼ VBA如何用代码赋值
Subaa()
Dimarr()
arr=Array("78","64","good","100","hello","tt","85")
Range("A1:A"&UBound(arr)+1)=WorksheetFunction.Transpose(arr)
EndSub
一维数组使用WorksheetFunction.Transpose转置为纵向即可，比循环赋值方便。
❽ 用VBA代码获取一个文本内的指定列的数据
Sub macro1()
Dim arr(2), i As Long, j As Long, s() As String
arr(0) = [c1].CurrentRegion
arr(1) = [q1].CurrentRegion
arr(2) = [ai1].CurrentRegion
For i = 0 To 2
ReDim s(1 To UBound(arr(i)))
For j = 1 To UBound(arr(i))
s(j) = Join(Application.Index(arr(i), j, 0), " ")
Next
Open "d:\" & i & ".txt" For Binary As #1
Put #1, , Join(s, vbCrLf)
Close #1
Shell "notepad d:\" & i & ".txt", vbNormalFocus
Next
MsgBox "ok"
End Sub
❾ VBA代码 提取数字
if (Mid(Cells(i, 3), j, 2)) > 5 Then '提取该单元格内的数字，如果它大于5
if (Mid(Cells(i, 3), j, 1)) > 5 Then '提取该单元格内的数字，如果它大于5
！！把2改为1！！
另外：
……
For j = 1 To Len(Cells(i, 3)) 'j是第i行3列单元格的第j个字符
if (Mid(Cells(i, 3), j, 2)) > 5 Then '提取该单元格内的数字，如果它大于5
Rows(i).Delete '那么删除该行
End If
Exit For ’应该加上此句，要不会出错！！！！
Next j
……
========================================
= 您的问题==我的课题 奉献知识==辉煌生命 =
= 黑龙江省 张志晨 =
========================================
❿ excel vba 循环取值
excel vba一般有下面几种循环语句：
1、For ... Next
for i=1 to 100
Cells(i,1)=i
Next
2、Do Until ... Loop
i=1
Do until i=100
Cells(i,1)=1
i=i+1
Loop
3、Do While ... Loop
i=1
Do While i<=100
Cells(i,1)=1
i=i+1
Loop
可以根据情况选择使用