❶ 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
可以根據情況選擇使用