www.softwaredevelopmentdeveloper.com
옥션 아이폰/아이팟 집에서 즐기기 롯데마트 11번가 주민등록번호 도용사실이 있는지 확인해 보세요! CJmall 회원가입 도메인 NO.1-호스팅 NO.1 든든한 웹파트너 가비아 ! 건담 전문몰 건담샵 No.1 중고차 쇼핑몰! SK엔카
아래출처는 http://ad.web2r.net/r.php?c=shop 입니다.Public Function ArrayCompact(ByRef InpArray() As String) As Integer Dim FstElmt As Integer, LstElmt As Integer, I As Integer, J As Integer Dim HiUsdElmt As Integer, qMoved As Boolean 'Continued lineFstElmt = LBound(InpArray, 1) LstElmt = UBound(InpArray, 1) ArrayCompact = 0 For I = FstElmt To LstElmt If InpArray(I) = "" Or IsNull(InpArray(I)) Then qMoved = False J = I + 1 Do While J "" And Not IsNull(InpArray(J)) Then InpArray(I) = InpArray(J) InpArray(J) = "" HiUsdElmt = I qMoved = True End If J = J + 1 Loop Else HiUsdElmt = I End If Next I ArrayCompact = HiUsdElmt End Function Private Sub Command82_Click() Dim TestArray(23 To 35) As String, ArrayLmt As Integer, I As Integer Me.List86.AddItem "'TestArray(24) = 95 Access Avenue'"Me.List86.AddItem "'TestArray(28) = Microsoftville'"Me.List86.AddItem "'TestArray(31) = Somewhereshire'"Me.List86.AddItem "'TestArray(32) = New Country'"Me.List86.AddItem "'TestArray(33) = MV1 6AC'"Me.List86.AddItem "'TestArray(34) = The Earth'"TestArray(24) = "95 Access Avenue"TestArray(28) = "Microsoftville"TestArray(31) = "Somewhereshire"TestArray(32) = "New Country"TestArray(33) = "MV1 6AC"TestArray(34) = "The Earth" ArrayLmt = ArrayCompact(TestArray) Debug.Print "Highest Occupied Element: " & ArrayLmtFor I = 23 To 35 Me.List88.AddItem "TestArray(" & I & ") =" & TestArray(I)Next I End Sub
