excel 用vba 怎么这样获取值

sub a()

    dim brr()

    arr=range([a2],[c65536]end(xlup))

    redim brr(1 to ubound(arr),1 to 1)

    for i=1 to ubound(arr)

        if sameStr(arr(i,1),arr(i,3))=2 then brr(i,1)=arr(i,3)

    next

    [b2]resize(ubound(brr,1),1)=brr

end sub

'function sameStr(str1 string,str2 as string)

'    set dic=createobject("scriptingdictionary")

'    for i=1 to len(str1)

'        dic(mid(str1,i,1))=""

'    next

'    sameStr=0

'    for i=1 to len(str2)

'        if dicexists(mid(str2,i,1))=true then sameStr=sameStr+1

'        if sameStr=2 then exit for

'    next

'end function

'上面的弄复杂了

function sameStr(str1 string,str2 as string)

    dim s as string

    for i=1 to len(str1)

        s=mid(str1,i,1)

        if instr(str2,s)<>0 then sameStr=sameStr+1

        if sameStr=2 then exit for

    next

end function

command button 的 click 事件编写代码，查找满足条件的数据，然后显示出来。主要考虑两个节目，条件如何获取，结果怎么表达。你先去试着写代码，遇到问题再针对性的提问，这样对你更有帮助。

代码：

Private Sub CommandButton1_Click()

Dim IE As Object

Dim i As Integer

i = 1

'打开网页：创建一个IE对象，然后给一些属性赋值。Visible是可见性，navigate是网页地址

Set IE = CreateObject('internetexplorerapplication')

With IE

Visible = True

navigate '>

以上就是关于excel 用vba 怎么这样获取值全部的内容，包括:excel 用vba 怎么这样获取值、excel vba如何使用commandbutton实现查询成绩、vba如何抓取网页上的数据等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！