????? ??? ????? ?? ????? ??????

?????? ????????? ?????? ?????????
???? ???????: 152288 - ??? ???????? ???? ????? ????? ??? ???????.
????? ???? | ?? ????

?? ??? ??????

??????

?? ???? ??? ???? ????? ?????? ??? ??????? ?? ????? ???? ?? Microsoft Visual Basic for Applications. ?? ???? ????? ?????? ???? ?? ???? ????? ??????? ???? ??????? ???????? ????? ??????? ?? ?????? ??? ???????.

??????? ????

???? Microsoft ??????? ???????? ??? ??? ?? ???? ??????? ?? ?? ?????. ??? ????? ???? ?? ????? ??? ???????? ??????? ?????? ???????? ?? ???????? ???? ????. ????? ??? ??????? ???? ?????? ?? ??? ??????? ???? ??? ????? ?? ??????? ???? ??? ????????? ?????? ?????? ?????????. ???? ??????? ????? ??? Microsoft ??? ????? ????? ???? ???? ?? ?????? ?????? ??? ??????? ?????? ????? ?????? ?? ????? ??????? ?????? ??????? ?????. ?? ???? ????? ?????? ??? ??????? ?? Visual Basic for Applications ????? ?????? ?????? ??? ????? ?????? ???? ?? ?? ???. ????? ????? ?????? ??? ???? ??? ??????, ???? ????? ???. ???? ??????? ????? ??????? ?? ?????? ????? ???? ?? ?????? ??????? ???????. ????? ????? ??????? ??? ????? ???????? ?????? LBound. ?????? LBound ???? ????????? ????? ?????? ????? ????? ?????? ?????? ??????? ??? ?????. ??????? ??? ?????? ??? ??? ??? ????? ?????? ???. ???? ?? ????? ??????? ?? ???? ?? ?????? ??? ?????? ??? ???????.

????? Visual Basic ?????

????? ??? ??????? ?????? ?????? Xarray ?? ???? ?????? LBound ?? ???. ???????? ???? For...Next ? ????????? ??? ???? ??? ????? ?????? ???????? ??? 60000 ? ??? ??? ????? ???. ?? ???? ????? ??????? ?????? ?????? ???? ???? ?????? ??? ? ???? ??? (???? ??????? ??? ??? ???? ???) ? ????? ??????? ?? ???? ?????.
   Sub NumberOfDimensions()

      'Dimensions Xarray as an array.
      Dim Xarray(1 to 10, 5 to 20, 256 to 300, 8, -5 to 0)

      'Sets up the error handler.
      On Error GoTo FinalDimension

      'Visual Basic for Applications arrays can have up to 60000
      'dimensions; this allows for that.
      For DimNum = 1 to 60000

         'It is necessary to do something with the LBound to force it
         'to generate an error.
         ErrorCheck = LBound(Xarray, DimNum)

      Next DimNum

      Exit Sub

      ' The error routine.
   FinalDimension:

      MsgBox "The array has " & DimNum - 1 & " dimensions"

   End Sub
				

?????

?????? ??? ??????? ?????? ??? ?????? ??? ??????? Visual Basic for Applications ?????? ?????? ??????? ??????? ?? "????? ??????? ?? Microsoft:
163435VBA: ????? ????? Visual Basic ?????????

???????

???? ???????: 152288 - ????? ??? ??????: 18/?????/1427 - ??????: 2.3
????? ???
  • Microsoft Excel 97 Standard Edition
  • Microsoft Excel 95 Standard Edition
  • Microsoft Excel 5.0 Standard Edition
  • Microsoft Excel 98 ?? Macintosh
????? ??????: 
kbmt kbdtacode kbhowto kbprogramming KB152288 KbMtar
????? ????
???: ??? ????? ??? ?????? ???????? ?????? ????? ???? ????? ?????????? ????? ?? ????????? ?????? ????. ???? ???? ?????????? ???? ?? ???????? ???????? ?????? ????????? ????? ????????? ???????? ????? ???????? ?????? ?? ?????? ??? ?? ???????? ???????? ?? ????? ??????? ?????? ??? ??????? ?????? ??. ?????? ?? ???? ??? ??????? ???????? ????? ?? ???? ????? ?????? ??? ????? ??? ????? ??????? ?? ????? ?? ?????? ??? ??? ??????? ??????? ?? ????? ????? ????? ????? ?????. ?? ????? ???? ?????????? ??????? ??? ????? ?? ??????? ?? ????? ?????? ?? ??? ????? ?? ????? ??????? ?? ???????? ?? ??? ???????. ???? ???? ?????????? ???????? ??? ????? ?????? ??????? ??????
???? ??? ????? ??????? ?????? ??????????152288
????? ??????? ?? ????? ???? ?? ????? ???????
?? ????? ????? ?????? ???? ???? ???? ??? ??????? ??? ?? ? ?? ??? ??????? Microsoft ??? ????? ??? ??????? ????? ?????? ?????

????? ???????

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com