excelvba引用
『壹』 excel vba中如何實現單元格的絕對引用
一般都是絕對引用,因為在語句中已經明確指定了地址
使用相對引用,則使用.offset
或者 .formulaR1C1 樣式
『貳』 EXCEL VBA如何將路徑作為變數引用(路徑是自己設定)
寫在函數外面的dim 都是全局變數
一般都寫在 最最最上面的
比如
dim 全局變數1 as string '本模塊使用
public dim 全局變數2 as string '所有模塊通用
sub test()
全局變數1 ="你好"
全局變數2="我很好"
end sub
『叄』 Excel中vba如何定義絕對引用
大約你是想要這樣?
PublicFunctionCtoN(StringsAsString)AsInteger
DimSlAsLong,S1AsString,S2AsString
Strings=UCase(Strings)
Sl=Len(Strings)
IfSl=0Then
CtoN=0
ElseIfSl=1Then
CtoN=Asc(Strings)-64
ElseIfSl>1Then
S1=Mid(Strings,1,1)
S2=Mid(Strings,2,1)
CtoN=(Asc(S1)-64)*26+Asc(S2)-64
EndIf
EndFunction
PublicFunctionCtoN2(StringsAsString)AsInteger
DimSlAsLong,S1AsString,S2AsString,RngAsString
Rng=UCase(Range(Strings))
Sl=Len(Rng)
IfSl=0Then
CtoN2=0
ElseIfSl=1Then
CtoN2=Asc(Rng)-64
ElseIfSl>1Then
S1=Mid(Rng,1,1)
S2=Mid(Rng,2,1)
CtoN2=(Asc(S1)-64)*26+Asc(S2)-64
EndIf
EndFunction
兩個樣式的對比,自已比比看吧,注,第二個需引用字元串樣式,如(「A1」),缺點的不會實時運算,其實直接用絕對引用也挻好的……
『肆』 excel VBA中怎樣引用外部單元格
Sub test1()
Dim fPath, fName, fl As String
Dim ws As Worksheet
Set ws = Application.ThisWorkbook.Worksheets("sheet1")
fPath = Application.ThisWorkbook.Path & "\"
fName = "Test2.xlsm"
Workbooks.Open fPath & fName
ws.[A1] = Sheet1.[R51]
Workbooks(fName).Close savechanges:=False
End Sub
fPath和fName都換成你的目標文件所在的目錄和名稱就可以了
『伍』 excel vba引用數據到另表
Subs()
Dimarr(1To4)
WithApplication.Workbooks("qq.xlsx").Sheets("aw")
arr(1)=.[b9]
arr(2)=.[b33]
arr(3)=.[b57]
arr(4)=.[b81]
EndWith
WithWorkbooks("we.xlsx").Sheets("aa")
Fori=1To4
.Cells(.Rows.Count,i+1).End(3).Offset(1)=arr(i)
Next
EndWith
EndSub
『陸』 excel中vba引用問題
舉例:Excel2007
打開vba編輯器
依次單擊Office按鈕,然後選擇「Excel選項」:
『柒』 excel vba引用
VBA代碼,公式應該也可以的
Dim i, j, k As Integer
k = Range("c68").End(xlDown).Row
j = 3
For i = 69 To Range("c68").End(xlDown).Row
If j = 0 Then
Range("k" & k) = Range("c" & (Range("c68").End(xlDown).Row - i + 69))
k = k - 1
j = 3
Else
j = j - 1
End If
Next
『捌』 Excel VBA 中如何使用結構化引用
需要這樣的,那麼就要用Find查找其所在的行。
代碼如下:
Dim CutNb, InsNb
CutNb = Rows(1).Find("單位").Column
InsNb = Rows(1).Find("商品名稱").Column
Columns(CutNb).Cut
Columns(InsNb).Insert Shift:=xlToRight
1、第一句dim是定義變數;
2、查找單位在第一行裡面的位置並賦值給變數CutNb;
3、和第二句意思一樣的;
第四、五就是用Columns來進行剪切插入。