? ????? ???? ?? ????? Excel ??? ???? ?????. ? ?? ???? ?? ? ??? ??? ?? ??? ??? ????, ?? ?? ??? ?? ??? ???? ?? ?????. ???? ??? ???? ?? ? ?? ??? ??? ????? ????? ?? ??? ?? ? ??????. ? ???? ????? ??????.

• ? ?? ??? ??? ??????
• ?? ??? ?????
• ?? Excel ??? ??? ??????
• ??? ???? ?????
• ? ?? ???? ??? ???? ????
• ?? ??? ?? ?? ??? ??????
• ?? ?? ???? ??? ?? ?? ??????
• ??? ?? ? ??????
• VBA? ???? Excel?? ??? ?????

Excel VBA ??? : ? ?? ??? ?? ??

? ??? ???? ?? ??? ??? ?? ??? ?????.

 ?? ?? ?? ?? ?? ? ()
    ActiveSheet.copy
?? ??

Excel VBA ??? : ?? ??? ?????

??? ?? ??? ?? ??? ???? ???? ? ?? ??? ??????.

 ?? ?? CopyselectedSheets ()
    ActiveWindow.SelectedSheets.copy
?? ??

Excel VBA ??? : ?? ?? ??? ??? ?????

? ???? ?? ??? ?? ?? ??? ???? ?? ??? ?????.

?? ?? ??? ?? ??? ?? : ? ???? ?? ?? ??? ? ?? ?? ?? ?? ? ??? ????? ( "Book1.xlsx" - ?? ??? ??).

 ?? ?? ?? ?? Tobeginninganotherworkbook ()
    ActiveSheet.copy ?? : = Workbooks ( "Book1.xlsx"). Sheets (1)
?? ??

?? ?? ??? ?? ?? : ? ???? ?? ? ??? ?? ?? ?? ?? ????? ( "Book1.xlsx" - ?? ??? ??).

 ?? ?? ?? ?? ? ?? ?? ?? ? ()
    ActiveSheet.copy ?? : = Workbooks ( "Book1.xlsx"). Sheets (Workbooks ( "Book1.xlsx"). Worksheets.count)
?? ??

?? : ?? ?? ??? ??????.

??? ?? ??? ?? : ??? ListBox (ListBox1)? ?? ??? form (userform1)? ???? Open Workbooks?? ?? ?? ??? ?????. ? ?? ??? ???? ???.

userform ?? :

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

private sub user form_initialize ()
    selectedWorkBook = ""
    Listbox1. Clear
    Application.workbooks? ? WBK? ??
        listbox1.additem (wbk.name)
    ??
?? ??

Private Sub CommandButton1_Click ()
    ListBox1.listIndex> -1 ? ??
        selectedwork = listbox1.list (listbox1.listindex)
    ? If
    ?
?? ??

Private Sub CommandButton2_click ()
    selectedWorkBook = ""
    ?
?? ??

userform? ?? ??? ??? :

??? ?? ??? ?? ??? ??????.

 ?? ?? ?? TobeGinningselectedWorkbook ()
    ROAD USERFORM1
    userform1.show
    if (userform1.selectedWorkbook  "")
        ActiveSheet.copy ?? : = Workbooks (userForm1.SelectedWorkbook) .sheets (1)
    ? If
    ??? userform1
?? ??

??? ?? ?? ?? ??????.

 ?? ?? ?? ??? elselectedWorkBook ()
    ROAD USERFORM1
    userform1.show
    if (userform1.selectedWorkbook  "")
        ActiveSheet.copy ?? : = Workbooks (userform1.selectedWorkbook) .sheets (Workbooks (userform1.SelectedWorkbook) .WorkSheets.Count)
    ? If
    ??? userform1
?? ??

????? ??? ??? ?? ?? ?? ??? ?????.

Excel ??? : ?? ?? ? ?? ??

? ???? ?? ? ?? ??? ??????.

? ???? ?? ??? ???? "??? ??"(??? ?? ??)? ??? ???? ?? ?????.

 ?? ?? ?? ?? andrenamepredefined ()
    ActiveSheet.copy ?? : = ?? ?? (Sheets.count)
    ??? ??? ?????
    ActiveSheet.name = "??? ??"
?? ??

? ???? ????? ??? ?? ?? ??? ?????.

 ?? ?? ?? ?? ?? ?? ()
    NewName? ???? ?????
    ??? ??? ?????
    newName = inputbox ( "?? ? ?? ??? ??? ??")
    NewName  ""??
        ActiveSheet.copy ?? : = ?? ?? (Sheets.count)
        ??? ??? ?????
        activeSheet.name = newName
    ? If
?? ??

????? ?? ??? ?? ?? ??? ?????.

Excel ??? : ? ?? ???? ?? ? ??

? ???? ?? ?? ???? ?? ? ??? ??? ????.

? ???? ? ?? ??? ?? ?? ??? ?? ?? ?????.

 ?? ?? ?? ?? ?? bycell ()
    NewName? ???? ?????
    ??? ??? ?????
    newName = inputbox ( "?? ? ?? ??? ??? ??", "?? ?? ??", activecell.value)
    NewName  ""??
        ActiveSheet.copy ?? : = ?? ?? (Sheets.count)
        ??? ??? ?????
        activeSheet.name = newName
    ? If
?? ??

? ???? ? ?? ??? ? A1 (?? ???)? ?? ?????.

 ?? ?? ?? ?? ?? ?? BYCELL2 ()
    ?? ????? ???
    wks = activesheet? ?????
    ActiveSheet.copy ?? : = ?? ?? (Sheets.count)
    wks.range ( "a1"). value  ""?? ??
        ??? ??? ?????
        activeSheet.name = wks.range ( "a1"). ?
    ? If
    wks.Activate
?? ?? 

Excel ??? : ?? ? ?? ??? ??

? ???? ?? ??? ?? ?? ??? ?? ??? ?? ?? ??? ?????.

 ?? ?? ?? ToclosedWorkbook ()
    ??? ?? ??
    Dim Closedbook? ?? ???
    ?? ??? ?? ??? ???????
    filename = application.getOpenFilename ( "Excel files ( *.xlsx), *.xlsx")
    Filename  False??
        application.screenupdating = false
        currentsheet = application.activesheet? ?????
        set closedbook = workbooks.open (filename)
        currentsheet.copy apj
        closedbook.close (true)
        application.screenupdating = true
    ? If
?? ??

Excel VBA ??? : ?? ? ?? ???? ??

? ???? ??? ?? ?? ?? (???? ?? ? ?? ??)?? ??? ?????.

 ?? ?? ?? ??? Clossworkbook ()
    ?? ????? ??? ?? ?
    application.screenupdating = false
    SET SOURCEBOOK = WARKBOOKS.OPEN ( "C : \\ Users \\ XXX \\ Documents \\ Target_Book.xlsx") '???? ??
    sourcebook.sheets ( "sheet1"). ?? : = thisworkbook.sheets (thisworkbook.sheets.count) '???? ?? ??
    sourcebook.close
    application.screenupdating = true
?? ??

Excel VBA ??? : ??? ?? ? ?????

? ???? ?? ??? ?? ??? ????.

 ?? ?? ??? ?? multipletimes ()
    ??? Dim N
    ??? ??? ?????
    n = ?? ?? ( "?? ??? ? ?? ??? ?????")
    n> = 1??
        numtimes = 1 ~ n? ??
            ActiveSheet.copy ?? : = ActiveWorkbook.sheets (Worksheets.count)
        ??
    ? If
?? ??

????? ?? ?? ?? ?? ??? ?????.

?? ??? ??? ?? :

1. Excel ?? ??? ?? ?.
2. Alt F11? ?? VBA ???? ?? ?.
3. "thisworkbook,"?? ">"??? ??? ??? ???? ??????.
4. ??? ??? ??? ?? ????.
5. F5? ?? ??????.

?? ?? ???? ??? ?? : (??? ???? ?? ? ?? ?? ??? ????). ?? ?? ??? ?? ?? ??? ?? ???? Alt F8? ??? ???? ??? ?? "??"? ??????.

? ??? VBA? Excel?? ??? ???? ??? ?? ?????. ??? ??? PHP ??? ????? ?? ?? ??? ?????!