ubound函數(shù)vba，VBA函數(shù)

這篇文章給大家聊聊關(guān)于ubound函數(shù)vba，以及VBA函數(shù)對應(yīng)的知識點(diǎn)，希望對各位有所幫助，不要忘了收藏本站哦。

vbafilter函數(shù)怎么用

filter英文意思是過濾器。顧名思義，這個函數(shù)大致功能就是過濾篩選，它是一個針對于數(shù)組的函數(shù)。有4個參數(shù)，分別是：sourcearray(待篩選數(shù)組)，match(要查找的字符串)，include(布爾值，是否包含匹配項(xiàng))，compare(字符查找對比方式)。下面用一個例子說明用法：

Subtest() DimarrAsVariant,brrAsVariant,crrAsVariant arr=Array(2,1,2,4,3,2) brr=Filter(arr,2,False) crr=Filter(arr,2,True) MsgBox"過濾掉匹配項(xiàng)，保留其余項(xiàng)："&vbCrLf&Join(brr,"_") MsgBox"過濾掉不匹配項(xiàng)，保留匹配項(xiàng)目："&vbCrLf&Join(crr,"_") EndSub '執(zhí)行結(jié)果分別是： '過濾掉匹配項(xiàng)，保留其余項(xiàng)： '1_4_3 '過濾掉不匹配項(xiàng)，保留匹配項(xiàng)目： '2_2_2

從上面的例子brr數(shù)組是從arr數(shù)組中過濾掉了2，保留其他非匹配項(xiàng)目組成的一個新數(shù)組，crr是從arr中去掉了非匹配項(xiàng)，保留了是2的項(xiàng)組成的新數(shù)組。所以filter第三個參數(shù)是關(guān)鍵，如果是false就不保留匹配向，是true就只保留匹配項(xiàng)，我們一般用的是像brr那種，crr這種現(xiàn)實(shí)中沒什么意義，只是用ubound(crr)-lbound(crr)+1>0這種來確定某個字符在某個數(shù)組中是否存在!

excel vba換行函數(shù)

可以在Excel表格單元格中換行，快捷鍵alt+回車鍵。

1.打開電腦上的Excel選中一個單元格輸入數(shù)字。

2.按回車鍵換行的時候發(fā)現(xiàn)直接跳到下一個單元格中。

3.返回選中上一個單元格，同時按住alt和回車鍵即可在同個內(nèi)換行。

4.根據(jù)以上步驟就可以在單元格內(nèi)換行。

求一個簡單的vb小游戲制作代碼

貪吃蛇PrivateSubForm_KeyDown(KeyCodeAsInteger,ShiftAsInteger)DimCAsLongIfKeyCode=27ThenEndIfKeyCode=32ThenIfTimer1.Enabled=TrueThenTimer1.Enabled=FalseLabel1.Visible=TrueElseTimer1.Enabled=TrueLabel1.Visible=FalseEndIfEndIfC=UBound(She)IfGFangXiang=TrueThenExitSubSelectCaseKeyCodeCase37IfShe(C).F=2ThenExitSubShe(C).F=0GFangXiang=TrueCase38IfShe(C).F=3ThenExitSubShe(C).F=1GFangXiang=TrueCase39IfShe(C).F=0ThenExitSubShe(C).F=2GFangXiang=TrueCase40IfShe(C).F=1ThenExitSubShe(C).F=3GFangXiang=TrueEndSelectEndSubPrivateSubForm_Load()Me.AutoRedraw=TrueMe.BackColor=&HC000&Me.FillColor=255Me.FillStyle=0Me.ScaleWidth=24Me.ScaleHeight=24Me.WindowState=2SetTimer1=Controls.Add("VB.Timer","Timer1")SetLabel1=Controls.Add("VB.Label","Label1")Label1.AutoSize=TrueLabel1.BackStyle=0Label1="暫停"Label1.ForeColor=RGB(255,255,0)Label1.FontSize=50ChuShiHuaEndSubPrivateSubForm_Resize()OnErrorGoTo1:WithMeIf.WindowState<>1Then.Cls.ScaleMode=3HWB=.ScaleHeight/.ScaleWidth.ScaleWidth=24.ScaleHeight=24Label1.Move(Me.ScaleWidth-Label1.Width)/2,(Me.ScaleHeight-Label1.Height)/2HuaTuMe.Line(X,Y)-(X+1,Y+1),RGB(255,255,0),BFEndIfEndWith1:EndSubPrivateSubTimer1_Timer()DimCAsLong,IAsLongOnErrorGoTo2:QingChuC=UBound(She)SelectCaseShe(C).FCase0IfZhuangTai(She(C).X-1,She(C).Y)=2ThenC=C+1ReDimPreserveShe(C)She(C).F=She(C-1).FShe(C).X=She(C-1).X-1She(C).Y=She(C-1).YChanShengShiWuGoTo1:ElseIfZhuangTai(She(C).X-1,She(C).Y)=1ThenGoTo2:EndIfCase1IfZhuangTai(She(C).X,She(C).Y-1)=2ThenC=C+1ReDimPreserveShe(C)She(C).F=She(C-1).FShe(C).X=She(C-1).XShe(C).Y=She(C-1).Y-1ChanShengShiWuGoTo1:ElseIfZhuangTai(She(C).X,She(C).Y-1)=1ThenGoTo2:EndIfCase2IfZhuangTai(She(C).X+1,She(C).Y)=2ThenC=C+1ReDimPreserveShe(C)She(C).F=She(C-1).FShe(C).X=She(C-1).X+1She(C).Y=She(C-1).YChanShengShiWuGoTo1:ElseIfZhuangTai(She(C).X+1,She(C).Y)=1ThenGoTo2:EndIfCase3IfZhuangTai(She(C).X,She(C).Y+1)=2ThenC=C+1ReDimPreserveShe(C)She(C).F=She(C-1).FShe(C).X=She(C-1).XShe(C).Y=She(C-1).Y+1ChanShengShiWuGoTo1:ElseIfZhuangTai(She(C).X,She(C).Y+1)=1ThenGoTo2:EndIfEndSelectZhuangTai(She(0).X,She(0).Y)=0ForI=0ToCSelectCaseShe(I).FCase0She(I).X=She(I).X-1Case1She(I).Y=She(I).Y-1Case2She(I).X=She(I).X+1Case3She(I).Y=She(I).Y+1EndSelectNextTiaoZheng1:GFangXiang=FalseZhuangTai(She(C).X,She(C).Y)=1HuaTuExitSub2:IfMsgBox("游戲結(jié)束，點(diǎn)“是”重新開始游戲，點(diǎn)“否”",vbYesNo,"貪吃蛇")=vbYesThenChuShiHuaElseEndEndIfEndSubPrivateSubChuShiHua()Me.ClsTimer1.Enabled=TrueTimer1.Interval=200EraseZhuangTaiReDimShe(2)She(0).F=2She(0).X=9She(0).Y=11ZhuangTai(9,11)=1She(1).F=2She(1).X=10She(1).Y=11ZhuangTai(10,11)=1She(2).F=2She(2).X=11She(2).Y=11ZhuangTai(11,11)=1HuaTuChanShengShiWuEndSubPrivateSubQingChu()DimIAsLongForI=0ToUBound(She)Me.Line(She(I).X,She(I).Y)-(She(I).X+1,She(I).Y+1),Me.BackColor,BFNextEndSubPrivateSubHuaTu()DimIAsLongForI=0ToUBound(She)Me.Circle(She(I).X+0.5,She(I).Y+0.5),0.49,RGB(255,255,0),,,HWBNextEndSubPrivateSubTiaoZheng()DimIAsLongForI=0ToUBound(She)-1She(I).F=She(I+1).FNextEndSubPrivateSubChanShengShiWu()RandomizeTimer1:X=Int(Rnd*24)Y=Int(Rnd*24)IfZhuangTai(X,Y)>0ThenGoTo1:ZhuangTai(X,Y)=2Me.Line(X,Y)-(X+1,Y+1),RGB(255,255,0),BFEndSub