????? ??? ?? ??? ??????? ???????? ????????? ???????? ?? VBA ?? Excel ?? Mac

?????? ????????? ?????? ?????????
???? ???????: 288402 - ??? ???????? ???? ????? ????? ??? ???????.
????? ???? | ?? ????

?? ??? ??????

??????

????? ??????? Microsoft Visual Basic for Applications (VBA) ??? ???? ?? ??? ??????? ??? ???? ?? ??? ????????. ???? ???? ???? ??? ??? ??? ???? ?? ??? ?????? ?? ??????? ?? ????? ?? ??? ??? ???? ????? ??? ?????? ?? ??????.

???? ??? ??????? ????? ?? ????????? ???????? ?? VBA ?????? ??? ??????.

??????? ????

???? Microsoft ??????? ???????? ??? ??? ?? ???? ??????? ?? ?? ?????. ??? ????? ???? ?? ????? ??? ???????? ??????? ?????? ???????? ?? ???????? ???? ????. ????? ??? ??????? ???? ?????? ?? ??? ??????? ???? ??? ????? ?? ??????? ???? ??? ????????? ?????? ?????? ?????????. ???? ??????? ????? ??? Microsoft ??? ????? ????? ???? ???? ?? ?????? ?????? ??? ??????? ?????? ????? ?????? ?? ????? ??????? ?????? ??????? ?????. ?????? ?? Microsoft Excel 2001 ???????? ???? Microsoft Office 2001 ????? ??????? 1 ????? Mac ??? ???? ??? ????????? ???????? ?? ???? ????? ?? ??????? ??? ?????.

??? Excel ???????? ???? ????? ????? ???? ????????? ???????? ?? VBA ???? ??????? ?? ??? ?????? ??? ????? ??? ?????.

??? ?? ??? ??????? ?? ??????? 1 ????? ?? Microsoft Office 2001 ????? Mac. ?????? ??? ???? ?? ????????? ??? ??? ??????? ?? Excel 2001 ?? Mac ? ???? ??? ??? ??????? ?????? ?????? ?? "????? ??????? ?? Microsoft:
286266????? Excel ??? ?????? ??? ???? ????? ?? ??? ??????
:

????? "?????" ??? ??? ????? ?????

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

Sub Copier1()
    'Replace "Sheet1" with the name of the sheet to be copied.
    ActiveWorkbook.Sheets("Sheet1").Copy _
       after:=ActiveWorkbook.Sheets("Sheet1")
End Sub
				

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


Sub Copier2()
    Dim x As Integer
    
    x = InputBox("Enter number of times to copy Sheet1")
    For numtimes = 1 To x
        'Loop by using x as the index number to make x number copies.
        'Replace "Sheet1" with the name of the sheet to be copied.
        ActiveWorkbook.Sheets("Sheet1").Copy _
           After:=ActiveWorkbook.Sheets("Sheet1")
    Next
End Sub
				

??? ????? ?????? ActiveSheet

Sub Copier3()
   Dim x As Integer
   
   x = InputBox("Enter number of times to copy active sheet")
   For numtimes = 1 To x
      'Loop by using x as the index number to make x number copies.
      ActiveWorkbook.ActiveSheet.Copy _
         Before:=ActiveWorkbook.Sheets("Sheet1")
         'Put copies in front of Sheet1.
         'Replace "Sheet1" with sheet name that you want.
   Next
End Sub
				

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

Sub Copier4()
   Dim x As Integer

   For x = 1 To ActiveWorkbook.Sheets.Count
      'Loop through each of the sheets in the workbook
      'by using x as the sheet index number.
      ActiveWorkbook.Sheets(x).Copy _
         After:=ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count)
         'Puts all copies after the last existing sheet.
   Next
End Sub
				

????? "?????" ??? ??? ????? ?????

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

Sub Mover1()
    ActiveSheet.Move _
       After:=ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count)
       'Moves active sheet to end of active workbook.
End Sub
				

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

Sub Mover2()
    ActiveSheet.Move Before:=Workbooks("Test.xls").Sheets(1)
    'Moves active sheet to beginning of named workbook.
    'Replace Test.xls with the full name of the target workbook you want.
End Sub
				

??? ????? ?????? ?? ActiveWorkbook ??? ???? ???

Sub Mover3()
   Dim BkName As String
   Dim NumSht As Integer
   Dim BegSht As Integer

   'Starts with second sheet - replace with index number of starting sheet.
   BegSht = 2
   'Moves two sheets - replace with number of sheets to move.
   NumSht = 2
   BkName = ActiveWorkbook.Name
    
    For x = 1 To NumSht
      'Moves second sheet in source to front of designated workbook.
      Workbooks(BkName).Sheets(BegSht).Move _
         Before:=Workbooks("Test.xls").Sheets(1)
         'In each loop, the next sheet in line becomes indexed as number 2.
      'Replace Test.xls with the full name of the target workbook you want.
    Next
End Sub
				

?????

Microsoft Excel X ?? Mac ?????????? ??????

?????? ??? ???? ?? ????????? ??? ????? ??? ?? ???? Visual Basic? ???? ??? "??????? Visual Basic Microsoft ???" ?? ??????? ??????? ? ???? ????? ? ???? ??? ??? ? ?? ???? ??? ??? "??? ?????." ??? ??? ???????? ???????. ???? ???? ????? ??? ????? ?????.

?????? ??? ???? ?? ????????? ??? ????? ??? ?? ???? Visual Basic? ???? ??? "??????? Visual Basic Microsoft ???" ?? ??????? ??????? ? ???? ??? ????? ? ???? ??? ??? ? ?? ???? ??? ???? "???" ?????. ??? ??? ???????? ???????. ???? ???? ????? ??? ????? ?????.

??? Excel ????????

?????? ??? ???? ?? ????????? ??? ????? ??? ?? ???? Visual Basic? ???? ??? "????? Office" ? ???? ????? ? ???? ??? ??? ? ?? ???? ??? ???? "??? ??????? (MS Excel VBA)."

?????? ??? ???? ?? ????????? ??? ????? ??? ?? ???? Visual Basic? ???? ??? ????? Office ? ???? ??? ????? ? ???? ??? ??? ? ?? ???? ??? ???? "????? ??????? (MS Excel VBA)."

?????? ??? ??????? ?????? ??? ???????? ???? ???? ?? ??? ????? ????? ???? ????? ??? ??????? ?????? ?? ??? ??????? ???? ??? ??? ??????? ????? ?????? ?? "????? ??????? ?? Microsoft:
286266XL2001: ???? ????? Excel ??? ?????? ??? ???? ??? ?? ?????? ????

??????? Microsoft Excel 98 ????????

?????? ??? ???? ?? ????????? ??? ????? ??? ?? ???? Visual Basic? ???? ??? ????? Office ? ??? ?????, ???? ??? ??? ?? ???? ??? ??? "??? ??????? (Excel 97)."

?????? ??? ???? ?? ????????? ??? ????? ??? ?? ???? Visual Basic? ???? ??? ????? Office ? ???? ??? ????? ? ???? ??? ??? ? ?? ???? ??? ???? "????? ??? (Excel 97)."

???????

???? ???????: 288402 - ????? ??? ??????: 12/????/1428 - ??????: 5.4
????? ???
  • Microsoft Excel 2004 for Mac
  • Microsoft Excel X ?? Mac
  • Microsoft Excel 2001 ?? Macintosh
  • Microsoft Excel 98 ?? Macintosh
????? ??????: 
kbmt kbinfo KB288402 KbMtar
????? ????
???: ??? ????? ??? ?????? ???????? ?????? ????? ???? ????? ?????????? ????? ?? ????????? ?????? ????. ???? ???? ?????????? ???? ?? ???????? ???????? ?????? ????????? ????? ????????? ???????? ????? ???????? ?????? ?? ?????? ??? ?? ???????? ???????? ?? ????? ??????? ?????? ??? ??????? ?????? ??. ?????? ?? ???? ??? ??????? ???????? ????? ?? ???? ????? ?????? ??? ????? ??? ????? ??????? ?? ????? ?? ?????? ??? ??? ??????? ??????? ?? ????? ????? ????? ????? ?????. ?? ????? ???? ?????????? ??????? ??? ????? ?? ??????? ?? ????? ?????? ?? ??? ????? ?? ????? ??????? ?? ???????? ?? ??? ???????. ???? ???? ?????????? ???????? ??? ????? ?????? ??????? ??????
???? ??? ????? ??????? ?????? ??????????288402

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

 

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