国产一级a片免费看高清,亚洲熟女中文字幕在线视频,黄三级高清在线播放,免费黄色视频在线看

　　這樣Application.WorksheetFunction.  “.”后面就能找到在excel中常用的函數(shù)

Sub tongji()
Dim k, l, m As Integer
For i = 2 To Sheets.Count
    k = k + Application.WorksheetFunction.CountA(Sheets(i).Range('a:a')) - 1
    l = l + Application.WorksheetFunction.CountA(Sheets(i).Range('f:f')) - 1
    m = m + Application.WorksheetFunction.CountA(Sheets(i).Range('f:f')) - 1
Next

Sheet1.Range('d26') = k
Sheet1.Range('d27') = l
Sheet1.Range('d28') = m
End Sub

Sub chaxun()
Sheet1.Range('d14') = Application.WorksheetFunction.VLookup(Sheet1.Range('d9'), Sheet2.Range('a:h'), 5, 0)
End Sub

Sub chaxun()
Dim i As Integer
On Error Resume Next
For i = 2 To Sheets.Count
    Sheet1.Range('d14') = Application.WorksheetFunction.VLookup(Sheet1.Range('d9'), Sheets(i).Range('a:h'), 5, 0)
Next
End Sub

sub ss()

dim l       #如果后面沒(méi)有定義具體的類型，這個(gè)l可以是任意類型

l = inputbox('第幾行分裂')    #這時(shí)候你輸入的數(shù)值  但是在 inputbox 接受的是文本 所以 l 在此是文本

l = val(l)    #這個(gè)意思是將文本轉(zhuǎn)化成數(shù)值   或者  l= l *1  這樣也可以

if l = isnumeric(l) =false then  #在vba中判斷是否是數(shù)值  vab.information.isnumeric

　　exit sub

endif

end sub

Sub ss()
Range('a1') = Application.WorksheetFunction.Find('@', Range('a2'))
Range('a1') = VBA.Strings.InStr(Range('a2'), '@')
End Sub

Sub ss()
Range('b2') = Split(Range('a2'), '-')(2)     
End Sub

本站僅提供存儲(chǔ)服務(wù)，所有內(nèi)容均由用戶發(fā)布，如發(fā)現(xiàn)有害或侵權(quán)內(nèi)容，請(qǐng)點(diǎn)擊舉報(bào)。