ΠΠΊΡΠΈΠ²ΠΈΡΠΎΠ²Π°ΡΡ ΠΊΠ½ΠΈΠ³Ρ excel vba: ΠΠ΅ΡΠΎΠ΄ Workbook. Activate (Excel) | Microsoft Docs
ΠΠ΅ΡΠΎΠ΄ Workbook. Activate (Excel) | Microsoft Docs
-
- Π§ΡΠ΅Π½ΠΈΠ΅ Π·Π°Π½ΠΈΠΌΠ°Π΅Ρ 2Β ΠΌΠΈΠ½
Π ΡΡΠΎΠΉ ΡΡΠ°ΡΡΠ΅
ΠΠΊΡΠΈΠ²ΠΈΠ·ΠΈΡΡΠ΅Ρ ΠΏΠ΅ΡΠ²ΠΎΠ΅ ΠΎΠΊΠ½ΠΎ, ΡΠ²ΡΠ·Π°Π½Π½ΠΎΠ΅ Ρ ΠΊΠ½ΠΈΠ³ΠΎΠΉ.Activates the first window associated with the workbook.
Π‘ΠΈΠ½ΡΠ°ΠΊΡΠΈΡSyntax
Expression. ΠΠΊΡΠΈΠ²Π°ΡΠΈΡexpression.Activate
Expression (Π²ΡΡΠ°ΠΆΠ΅Π½ΠΈΠ΅ ) ΠΠ΅ΡΠ΅ΠΌΠ΅Π½Π½Π°Ρ, ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»ΡΡΡΠ°Ρ ΠΎΠ±ΡΠ΅ΠΊΡ Workbook .expression A variable that represents a Workbook object.
ΠΡΠΈΠΌΠ΅ΡΠ°Π½ΠΈΡRemarks
ΠΡΠΎΡ ΠΌΠ΅ΡΠΎΠ΄ Π½Π΅ Π²ΡΠΏΠΎΠ»Π½ΡΠ΅Ρ Π½ΠΈΠΊΠ°ΠΊΠΈΠ΅ Auto_Activate ΠΈΠ»ΠΈ Auto_Deactivate ΠΌΠ°ΠΊΡΠΎΡΡ, ΠΊΠΎΡΠΎΡΡΠ΅ ΠΌΠΎΠ³ΡΡ Π±ΡΡΡ ΠΏΡΠΈΡΠΎΠ΅Π΄ΠΈΠ½Π΅Π½Ρ ΠΊ ΠΊΠ½ΠΈΠ³Π΅ (ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠΉΡΠ΅ ΠΌΠ΅ΡΠΎΠ΄ ΡΡΠ½Π°ΡΡΠΎΠΌΠ°ΠΊΡΠΎΡ Π΄Π»Ρ Π·Π°ΠΏΡΡΠΊΠ° ΡΡΠΈΡ ΠΌΠ°ΠΊΡΠΎΡΠΎΠ²).This method won’t run any Auto_Activate or Auto_Deactivate macros that might be attached to the workbook (use the RunAutoMacros method to run those macros).
ΠΡΠΈΠΌΠ΅ΡExample
Π ΡΡΠΎΠΌ ΠΏΡΠΈΠΌΠ΅ΡΠ΅ Π°ΠΊΡΠΈΠ²ΠΈΡΡΠ΅ΡΡΡ Book4. xls.This example activates Book4.xls. ΠΡΠ»ΠΈ Book4. xls ΡΠΎΠ΄Π΅ΡΠΆΠΈΡ Π½Π΅ΡΠΊΠΎΠ»ΡΠΊΠΎ ΠΎΠΊΠΎΠ½, Π² ΠΏΡΠΈΠΌΠ΅ΡΠ΅ Π°ΠΊΡΠΈΠ²ΠΈΡΡΠ΅ΡΡΡ ΠΏΠ΅ΡΠ²ΠΎΠ΅ ΠΎΠΊΠ½ΠΎ, Book4. xls: 1.If Book4.xls has multiple windows, the example activates the first window, Book4.xls:1.
Workbooks("BOOK4.XLS").Activate
ΠΠΎΠ΄Π΄Π΅ΡΠΆΠΊΠ° ΠΈ ΠΎΠ±ΡΠ°ΡΠ½Π°Ρ ΡΠ²ΡΠ·ΡSupport and feedback
ΠΡΡΡ Π²ΠΎΠΏΡΠΎΡΡ ΠΈΠ»ΠΈ ΠΎΡΠ·ΡΠ²Ρ, ΠΊΠ°ΡΠ°ΡΡΠΈΠ΅ΡΡ Office VBA ΠΈΠ»ΠΈ ΡΡΠΎΠΉ ΡΡΠ°ΡΡΠΈ?Have questions or feedback about Office VBA or this documentation? Π ΡΠΊΠΎΠ²ΠΎΠ΄ΡΡΠ²ΠΎ ΠΏΠΎ Π΄ΡΡΠ³ΠΈΠΌ ΡΠΏΠΎΡΠΎΠ±Π°ΠΌ ΠΏΠΎΠ»ΡΡΠ΅Π½ΠΈΡ ΠΏΠΎΠ΄Π΄Π΅ΡΠΆΠΊΠΈ ΠΈ ΠΎΡΠΏΡΠ°Π²ΠΊΠΈ ΠΎΡΠ·ΡΠ²ΠΎΠ² ΡΠΌ. Π² ΡΡΠ°ΡΡΠ΅ ΠΠΎΠ΄Π΄Π΅ΡΠΆΠΊΠ° Office VBA ΠΈ ΠΎΠ±ΡΠ°ΡΠ½Π°Ρ ΡΠ²ΡΠ·Ρ.Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.
ΠΠ°ΠΊ ΡΠ΄Π΅Π»Π°ΡΡ Π°ΠΊΡΠΈΠ²Π½ΠΎΠΉ ΠΊΠ½ΠΈΠ³Ρ excel vba?
ΠΡΠΊΡΡΡΠΈΠ΅ ΠΊΠ½ΠΈΠ³ΠΈ Excel ΠΈΠ· ΠΊΠΎΠ΄Π° VBA. Π‘ΠΎΠ·Π΄Π°Π½ΠΈΠ΅ Π½ΠΎΠ²ΠΎΠΉ ΠΊΠ½ΠΈΠ³ΠΈ, ΠΏΡΠΈΡΠ²ΠΎΠ΅Π½ΠΈΠ΅ Π΅ΠΉ ΠΈΠΌΠ΅Π½ΠΈ. ΠΠ±ΡΠ°ΡΠ΅Π½ΠΈΠ΅ ΠΊ ΠΎΡΠΊΡΡΡΠΎΠΉ ΠΊΠ½ΠΈΠ³Π΅ ΠΈ Π·Π°ΠΊΡΡΡΠΈΠ΅. ΠΠ΅ΡΠΎΠ΄Ρ Open, Add ΠΈ Close ΠΎΠ±ΡΠ΅ΠΊΡΠ° Workbooks.
- ΠΡΠΊΡΡΡΠΈΠ΅ ΡΡΡΠ΅ΡΡΠ²ΡΡΡΠ΅ΠΉ ΠΊΠ½ΠΈΠ³ΠΈ
- Π‘ΠΎΠ·Π΄Π°Π½ΠΈΠ΅ Π½ΠΎΠ²ΠΎΠΉ ΠΊΠ½ΠΈΠ³ΠΈ
- ΠΠ±ΡΠ°ΡΠ΅Π½ΠΈΠ΅ ΠΊ ΠΎΡΠΊΡΡΡΠΎΠΉ ΠΊΠ½ΠΈΠ³Π΅
- ΠΠ°ΠΊ Π·Π°ΠΊΡΡΡΡ ΠΊΠ½ΠΈΠ³Ρ Excel ΠΈΠ· ΠΊΠΎΠ΄Π° VBA
ΠΡΠΊΡΡΡΠΈΠ΅ ΡΡΡΠ΅ΡΡΠ²ΡΡΡΠ΅ΠΉ ΠΊΠ½ΠΈΠ³ΠΈ
Π‘ΡΡΠ΅ΡΡΠ²ΡΡΡΠ°Ρ ΠΊΠ½ΠΈΠ³Π° ΠΎΡΠΊΡΡΠ²Π°Π΅ΡΡΡ ΠΈΠ· ΠΊΠΎΠ΄Π° VBA Excel Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΠΌΠ΅ΡΠΎΠ΄Π° Open:
Workbooks.Open Filename:="D:test1.xls"
ΠΈΠ»ΠΈ
Workbooks.Open ("D:test1.xls")
Π ΠΊΠ°Π²ΡΡΠΊΠ°Ρ
ΡΠΊΠ°Π·ΡΠ²Π°Π΅ΡΡΡ ΠΏΠΎΠ»Π½ΡΠΉ ΠΏΡΡΡ ΠΊ ΠΎΡΠΊΡΡΠ²Π°Π΅ΠΌΠΎΠΌΡ ΡΠ°ΠΉΠ»Ρ Excel. ΠΡΠ»ΠΈ ΡΠ°ΠΊΠΎΠΉ ΡΠ°ΠΉΠ» Π½Π΅ ΡΡΡΠ΅ΡΡΠ²ΡΠ΅Ρ, ΠΏΡΠΎΠΈΠ·ΠΎΠΉΠ΄Π΅Ρ ΠΎΡΠΈΠ±ΠΊΠ°.
ΠΡΠΎΠ²Π΅ΡΠΈΡΡ ΡΡΡΠ΅ΡΡΠ²ΠΎΠ²Π°Π½ΠΈΠ΅ ΡΠ°ΠΉΠ»Π° ΠΌΠΎΠΆΠ½ΠΎ Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΡΡΠ½ΠΊΡΠΈΠΈΒ Dir:
If Dir("D:test1.xls") = "" Then MsgBox "Π€Π°ΠΉΠ» Π½Π΅ ΡΡΡΠ΅ΡΡΠ²ΡΠ΅Ρ" Else MsgBox "Π€Π°ΠΉΠ» ΡΡΡΠ΅ΡΡΠ²ΡΠ΅Ρ" End If
ΠΠ»ΠΈ, Π΅ΡΠ»ΠΈ ΡΠ°ΠΉΠ» ΡΡΡΠ΅ΡΡΠ²ΡΠ΅Ρ, ΠΌΠΎΠΆΠ½ΠΎ ΡΡΠ°Π·Ρ Π΅Π³ΠΎ ΠΎΡΠΊΡΡΡΡ:
If Dir("D:test1.xls") = "" Then MsgBox "Π€Π°ΠΉΠ» Π½Π΅ ΡΡΡΠ΅ΡΡΠ²ΡΠ΅Ρ" Else Workbooks.Open Filename:="D:test1.xls" End If
Π‘ΠΎΠ·Π΄Π°Π½ΠΈΠ΅ Π½ΠΎΠ²ΠΎΠΉ ΠΊΠ½ΠΈΠ³ΠΈ
ΠΠΎΠ²Π°Ρ ΡΠ°Π±ΠΎΡΠ°Ρ ΠΊΠ½ΠΈΠ³Π° Excel ΡΠΎΠ·Π΄Π°Π΅ΡΡΡ Π² VBA Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΠΌΠ΅ΡΠΎΠ΄Π° Add:
Workbooks.Add
Π‘ΠΎΠ·Π΄Π°Π½Π½ΡΡ ΠΊΠ½ΠΈΠ³Ρ, Π΅ΡΠ»ΠΈ ΠΎΠ½Π° Π½Π΅ Π±ΡΠ΄Π΅Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡΡΡ ΠΊΠ°ΠΊ Π²ΡΠ΅ΠΌΠ΅Π½Π½Π°Ρ, Π»ΡΡΡΠ΅ ΡΡΠ°Π·Ρ ΡΠΎΡ ΡΠ°Π½ΠΈΡΡ:
Workbooks.Add ActiveWorkbook.SaveAs Filename:="D:test2.xls"
Π ΠΊΠ°Π²ΡΡΠΊΠ°Ρ ΡΠΊΠ°Π·ΡΠ²Π°Π΅ΡΡΡ ΠΏΠΎΠ»Π½ΡΠΉ ΠΏΡΡΡ ΡΠΎΡ ΡΠ°Π½ΡΠ΅ΠΌΠΎΠ³ΠΎ ΡΠ°ΠΉΠ»Π° Excel, Π²ΠΊΠ»ΡΡΠ°Ρ ΠΏΡΠΈΡΠ²Π°ΠΈΠ²Π°Π΅ΠΌΠΎΠ΅ ΠΈΠΌΡ, Π² ΠΏΡΠΈΠΌΠ΅ΡΠ΅ β ΡΡΠΎ Β«test2.xlsΒ».
ΠΠ±ΡΠ°ΡΠ΅Π½ΠΈΠ΅ ΠΊ ΠΎΡΠΊΡΡΡΠΎΠΉ ΠΊΠ½ΠΈΠ³Π΅
ΠΠ±ΡΠ°ΡΠ΅Π½ΠΈΠ΅ ΠΊ Π°ΠΊΡΠΈΠ²Π½ΠΎΠΉ ΠΊΠ½ΠΈΠ³Π΅:
ActiveWorkbook
ΠΠ±ΡΠ°ΡΠ΅Π½ΠΈΠ΅ ΠΊ ΠΊΠ½ΠΈΠ³Π΅ Ρ Π²ΡΠΏΠΎΠ»Π½ΡΠ΅ΠΌΡΠΌ ΠΊΠΎΠ΄ΠΎΠΌ:
ThisWorkbook
ΠΠ±ΡΠ°ΡΠ΅Π½ΠΈΠ΅ ΠΊ ΠΊΠ½ΠΈΠ³Π΅ ΠΏΠΎ ΠΈΠΌΠ΅Π½ΠΈ:
Workbooks("test1.xls") Workbooks("test2.xls")
ΠΠ±ΡΠ°ΡΠΈΡΡΡΡ ΠΏΠΎ ΠΈΠΌΠ΅Π½ΠΈ ΠΌΠΎΠΆΠ½ΠΎ ΡΠΎΠ»ΡΠΊΠΎ ΠΊ ΡΠΆΠ΅ ΠΎΡΠΊΡΡΡΠΎΠΉ ΠΊΠ½ΠΈΠ³Π΅, Π° ΡΡΠΎΠ±Ρ ΠΈΠ· ΠΊΠΎΠ΄Π° VBA Excel ΠΊΠ½ΠΈΠ³Ρ ΠΎΡΠΊΡΡΡΡ, Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ ΡΠΊΠ°Π·Π°ΡΡ ΠΏΠΎΠ»Π½ΡΠΉ ΠΏΡΡΡ ΠΊ ΡΠ°ΠΉΠ»Ρ.
ΠΠ°ΠΊ Π·Π°ΠΊΡΡΡΡ ΠΊΠ½ΠΈΠ³Ρ Excel ΠΈΠ· ΠΊΠΎΠ΄Π° VBA
ΠΡΠΊΡΡΡΠ°Ρ ΡΠ°Π±ΠΎΡΠ°Ρ ΠΊΠ½ΠΈΠ³Π° Π·Π°ΠΊΡΡΠ²Π°Π΅ΡΡΡ ΠΈΠ· ΠΊΠΎΠ΄Π° VBA Excel Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΠΌΠ΅ΡΠΎΠ΄Π° Close:
Workbooks("test1.xlsx").Close
ΠΡΠ»ΠΈ Π·Π°ΠΊΡΡΠ²Π°Π΅ΠΌΠ°Ρ ΠΊΠ½ΠΈΠ³Π° ΡΠ΅Π΄Π°ΠΊΡΠΈΡΠΎΠ²Π°Π»Π°ΡΡ, Π° Π²Π½Π΅ΡΠ΅Π½Π½ΡΠ΅ ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΡ Π½Π΅ Π±ΡΠ»ΠΈ ΡΠΎΡ ΡΠ°Π½Π΅Π½Ρ, ΡΠΎΠ³Π΄Π° ΠΏΡΠΈ Π΅Π΅ Π·Π°ΠΊΡΡΡΠΈΠΈ Excel ΠΎΡΠΎΠ±ΡΠ°Π·ΠΈΡ Π΄ΠΈΠ°Π»ΠΎΠ³ΠΎΠ²ΠΎΠ΅ ΠΎΠΊΠ½ΠΎ Ρ Π²ΠΎΠΏΡΠΎΡΠΎΠΌ: ΠΡ Ρ ΠΎΡΠΈΡΠ΅ ΡΠΎΡ ΡΠ°Π½ΠΈΡΡ ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΡ Π² ΡΠ°ΠΉΠ»Π΅ test1.xlsx? Π§ΡΠΎΠ±Ρ ΡΠ°ΠΉΠ» Π±ΡΠ» Π·Π°ΠΊΡΡΡ Π±Π΅Π· ΡΠΎΡ ΡΠ°Π½Π΅Π½ΠΈΡ ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΠΉ ΠΈ Π²ΡΠ²ΠΎΠ΄Π° Π΄ΠΈΠ°Π»ΠΎΠ³ΠΎΠ²ΠΎΠ³ΠΎ ΠΎΠΊΠ½Π°, ΠΌΠΎΠΆΠ½ΠΎ Π²ΠΎΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡΡΡ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΠΎΠΌ ΠΌΠ΅ΡΠΎΠ΄Π° Close β SaveChanges:
Workbooks("test1.xlsx").Close SaveChanges:=False
ΠΈΠ»ΠΈ
Workbooks("test1.xlsx").Close (False)
ΠΠ°ΠΊΡΡΡΡ ΠΊΠ½ΠΈΠ³Ρ Excel ΠΈΠ· ΠΊΠΎΠ΄Π° VBA Ρ ΡΠΎΡ ΡΠ°Π½Π΅Π½ΠΈΠ΅ΠΌ Π²Π½Π΅ΡΠ΅Π½Π½ΡΡ ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΠΉ ΠΌΠΎΠΆΠ½ΠΎ ΡΠ°ΠΊΠΆΠ΅ Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΠ° SaveChanges:
Workbooks("test1.xlsx").Close SaveChanges:=True
ΠΈΠ»ΠΈ
Workbooks("test1.xlsx").Close (True)
ΠΠ°ΡΡΠΎΡΡΠ°Ρ Π·Π°ΠΌΠ΅ΡΠΊΠ° ΠΏΡΠΎΠ΄ΠΎΠ»ΠΆΠ°Π΅Ρ Π·Π½Π°ΠΊΠΎΠΌΡΡΠ²ΠΎ Ρ VBA, Π² Π½Π΅ΠΉ ΠΏΡΠΈΠ²ΠΎΠ΄ΡΡΡΡ ΠΏΡΠΈΠΌΠ΅ΡΡ ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ ΡΠ°Π±ΠΎΡΠΈΠΌΠΈ ΠΊΠ½ΠΈΠ³Π°ΠΌΠΈ ΠΈ Π»ΠΈΡΡΠ°ΠΌΠΈ Excel Ρ ΠΏΠΎΠΌΠΎΡΡΡ VBA.
Π ΠΈΡ. 1. Π‘ΡΠΎΠ»Π±ΡΡ ΠΈ ΡΡΡΠΎΠΊΠΈ ΡΠΊΡΡΡΡ Π·Π° ΠΈΡΠΊΠ»ΡΡΠ΅Π½ΠΈΠ΅ΠΌ ΡΠ°Π±ΠΎΡΠ΅Π³ΠΎ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½Π°
Π‘ΠΊΠ°ΡΠ°ΡΡ Π·Π°ΠΌΠ΅ΡΠΊΡ Π² ΡΠΎΡΠΌΠ°ΡΠ΅ Word ΠΈΠ»ΠΈ pdf, ΠΏΡΠΈΠΌΠ΅ΡΡ Π² Π°ΡΡ ΠΈΠ²Π΅Β (ΠΏΠΎΠ»ΠΈΡΠΈΠΊΠ° Π±Π΅Π·ΠΎΠΏΠ°ΡΠ½ΠΎΡΡΠΈ ΠΏΡΠΎΠ²Π°ΠΉΠ΄Π΅ΡΠ° Π½Π΅ ΠΏΠΎΠ·Π²ΠΎΠ»ΡΠ΅Ρ Π·Π°Π³ΡΡΠΆΠ°ΡΡ ΡΠ°ΠΉΠ»Ρ Excel Ρ ΠΏΠΎΠ΄Π΄Π΅ΡΠΆΠΊΠΎΠΉ ΠΌΠ°ΠΊΡΠΎΡΠΎΠ²)
Π‘ΠΎΡ ΡΠ°Π½Π΅Π½ΠΈΠ΅ Π²ΡΠ΅Ρ ΡΠ°Π±ΠΎΡΠΈΡ ΠΊΠ½ΠΈΠ³
Π‘Π»Π΅Π΄ΡΡΡΠ°Ρ ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ° ΡΠΈΠΊΠ»ΠΈΡΠ΅ΡΠΊΠΈ ΠΏΡΠΎΡΠΌΠ°ΡΡΠΈΠ²Π°Π΅Ρ Π²ΡΠ΅ ΡΠ°Π±ΠΎΡΠΈΠ΅ ΠΊΠ½ΠΈΠ³ΠΈ Π² ΠΊΠΎΠ»Π»Π΅ΠΊΡΠΈΠΈ Workbooks ΠΈ ΡΠΎΡ ΡΠ°Π½ΡΠ΅Ρ ΠΊΠ°ΠΆΠ΄ΡΠΉ ΡΠ°ΠΉΠ», ΠΊΠΎΡΠΎΡΡΠΉ ΡΠΎΡ ΡΠ°Π½ΡΠ»ΡΡ ΡΠ°Π½Π΅Π΅.
Public Sub SaveAllWorkbooks()
Β Β Β Β Dim Book As Workbook
Β Β Β Β For Each Book In Workbooks
Β Β Β Β Β Β Β Β If Book.Path "
"
Then Book.Save
Β Β Β Β Next Book
End Sub
ΠΠ±ΡΠ°ΡΠΈΡΠ΅ Π²Π½ΠΈΠΌΠ°Π½ΠΈΠ΅ Π½Π° ΡΠΎ, ΠΊΠ°ΠΊ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ ΡΠ²ΠΎΠΉΡΡΠ²ΠΎ Path. ΠΡΠ»ΠΈ Π΄Π»Ρ ΠΊΠ°ΠΊΠΎΠΉ-Π»ΠΈΠ±ΠΎ ΡΠ°Π±ΠΎΡΠ΅ΠΉ ΠΊΠ½ΠΈΠ³ΠΈ ΡΠ²ΠΎΠΉΡΡΠ²ΠΎ Path Π½Π΅ Π·Π°Π΄Π°Π½ΠΎ, Π·Π½Π°ΡΠΈΡ, ΡΠ°ΠΉΠ» Π΅ΡΠ΅ Π½Π΅ ΡΠΎΡ ΡΠ°Π½ΡΠ»ΡΡ (ΡΡΠΎ Π½ΠΎΠ²Π°Ρ ΡΠ°Π±ΠΎΡΠ°Ρ ΠΊΠ½ΠΈΠ³Π°). ΠΠ°Π½Π½Π°Ρ ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ° ΠΈΠ³Π½ΠΎΡΠΈΡΡΠ΅Ρ ΡΠ°ΠΊΠΈΠ΅ ΡΠ°Π±ΠΎΡΠΈΠ΅ ΠΊΠ½ΠΈΠ³ΠΈ ΠΈ ΡΠΎΡ ΡΠ°Π½ΡΠ΅Ρ ΡΠΎΠ»ΡΠΊΠΎ ΡΠ΅ ΠΈΠ· Π½ΠΈΡ , ΡΠ²ΠΎΠΉΡΡΠ²ΠΎ Path ΠΊΠΎΡΠΎΡΡΡ ΠΈΠΌΠ΅Π΅Ρ Π½Π΅Π½ΡΠ»Π΅Π²ΠΎΠ΅ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅.
Π‘ΠΎΡ ΡΠ°Π½Π΅Π½ΠΈΠ΅ ΠΈ Π·Π°ΠΊΡΡΡΠΈΠ΅ Π²ΡΠ΅Ρ ΡΠ°Π±ΠΎΡΠΈΡ ΠΊΠ½ΠΈΠ³
Π‘Π»Π΅Π΄ΡΡΡΠ°Ρ ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ° ΡΠΈΠΊΠ»ΠΈΡΠ΅ΡΠΊΠΈ ΠΏΡΠΎΡΠΌΠ°ΡΡΠΈΠ²Π°Π΅Ρ ΠΊΠΎΠ»Π»Π΅ΠΊΡΠΈΡ Workbooks. ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° ΡΠΎΡ ΡΠ°Π½ΡΠ΅Ρ ΠΈ Π·Π°ΠΊΡΡΠ²Π°Π΅Ρ Π²ΡΠ΅ ΡΠ°Π±ΠΎΡΠΈΠ΅ ΠΊΠ½ΠΈΠ³ΠΈ.
Sub CloseAllWorkbooks()
Β Β Β Β Dim Book As Workbook
Β Β Β Β For Each Book In Workbooks
Β Β Β Β Β Β Β Β If Book.Name ThisWorkbook.Name Then
Β Β Β Β Β Β Β Β Β Β Β Β Book.Close savechanges:=True
Β Β Β Β Β Β Β Β End If
Β Β Β Β Next Book
Β Β Β Β ThisWorkbook.Close savechanges:=True
End Sub
ΠΠ±ΡΠ°ΡΠΈΡΠ΅ Π²Π½ΠΈΠΌΠ°Π½ΠΈΠ΅, ΡΡΠΎ ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ° ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅Ρ ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡ If, ΡΡΠΎΠ±Ρ ΠΎΠΏΡΠ΅Π΄Π΅Π»ΠΈΡΡ, ΡΠΎΠ΄Π΅ΡΠΆΠΈΡ Π»ΠΈ Π΄Π°Π½Π½Π°Ρ ΡΠ°Π±ΠΎΡΠ°Ρ ΠΊΠ½ΠΈΠ³Π° ΡΠ΅ΠΊΡΡΠΈΠΉ Π²ΡΠΏΠΎΠ»Π½ΡΠ΅ΠΌΡΠΉ ΠΊΠΎΠ΄. ΠΡΠΎ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ, ΡΠ°ΠΊ ΠΊΠ°ΠΊ ΠΏΡΠΈ Π·Π°ΠΊΡΡΡΠΈΠΈ ΡΠ°Π±ΠΎΡΠ΅ΠΉ ΠΊΠ½ΠΈΠ³ΠΈ, ΡΠΎΠ΄Π΅ΡΠΆΠ°ΡΠ΅ΠΉ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ, ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° Π°Π²ΡΠΎΠΌΠ°ΡΠΈΡΠ΅ΡΠΊΠΈ Π·Π°Π²Π΅ΡΡΠ°Π΅Ρ ΡΠ²ΠΎΠ΅ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΠ΅, ΠΏΡΠΈΡΠ΅ΠΌ ΠΎΡΡΠ°Π»ΡΠ½ΡΠ΅ ΡΠ°Π±ΠΎΡΠΈΠ΅ ΠΊΠ½ΠΈΠ³ΠΈ Π½Π΅ Π±ΡΠ΄ΡΡ ΡΠΎΡ ΡΠ°Π½Π΅Π½Ρ ΠΈ Π·Π°ΠΊΡΡΡΡ.
Π§Π°ΡΡΠΈΡΠ½ΠΎΠ΅ ΡΠΎΠΊΡΡΡΠΈΠ΅ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠΎΠ² ΡΠ°Π±ΠΎΡΠ΅Π³ΠΎ Π»ΠΈΡΡΠ°
Π ΠΏΡΠΈΠΌΠ΅ΡΠ΅ ΠΈΠ· ΡΡΠΎΠ³ΠΎ ΡΠ°Π·Π΄Π΅Π»Π° ΡΠΊΡΡΠ²Π°ΡΡΡΡ Π²ΡΠ΅ ΡΡΡΠΎΠΊΠΈ ΠΈ ΡΡΠΎΠ»Π±ΡΡ ΡΠ°Π±ΠΎΡΠ΅Π³ΠΎ Π»ΠΈΡΡΠ° Π·Π° ΠΈΡΠΊΠ»ΡΡΠ΅Π½ΠΈΠ΅ΠΌ ΡΠ΅Ρ ΠΈΠ· Π½ΠΈΡ , ΠΊΠΎΡΠΎΡΡΠ΅ Π½Π°Ρ ΠΎΠ΄ΡΡΡΡ Π² ΡΠ΅ΠΊΡΡΠ΅ΠΌ Π²ΡΠ΄Π΅Π»Π΅Π½Π½ΠΎΠΌ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½Π΅ (ΡΠΈΡ. 1).
Sub HideRowsAndColumns()
Β Β Β Β Dim row1 As Long, row2 As Long
Β Β Β Β Dim col1 As Long, col2 As Long
Β Β Β Β If TypeName(Selection) "
Range"
Then Exit Sub'
Β Β ΠΡΠ»ΠΈ ΠΏΠΎΡΠ»Π΅Π΄Π½ΡΡ ΡΡΡΠΎΠΊΠ° Π»ΠΈΠ±ΠΎ ΠΏΠΎΡΠ»Π΅Π΄Π½ΠΈΠΉ ΡΡΠΎΠ»Π±Π΅Ρ ΡΠΊΡΡΡΡ,'
Β Β ΠΎΡΠΎΠ±ΡΠ°Π·ΠΈΡΡ Π²ΡΠ΅ ΠΈ Π²ΡΠΉΡΠΈ
Β Β Β Β If Rows(Rows.Count).EntireRow.Hidden Or _
Β Β Β Β Β Β Β Β Columns(Columns.Count).EntireColumn.Hidden Then
Β Β Β Β Β Β Β Β Cells.EntireColumn.Hidden = False
Β Β Β Β Β Β Β Β Cells.EntireRow.Hidden = False
Β Β Β Β Β Β Β Β Exit Sub
Β Β Β Β End If
Β Β Β Β row1 = Selection.Rows(1).Row
Β Β Β Β row2 = row1 + Selection.Rows.Count β 1
Β Β Β Β col1 = Selection.Columns(1).Column
Β Β Β Β col2 = col1 + Selection.Columns.Count β 1
Β Β Β Β Application.ScreenUpdating = False
Β Β Β Β On Error Resume Next'
Β Β Π‘ΠΊΡΡΡΡ ΡΡΡΠΎΠΊΠΈ
Β Β Β Β Range(Cells(1, 1), Cells(row1 β 1, 1)).EntireRow.Hidden = True
Β Β Β Β Range(Cells(row2 + 1, 1), Cells(Rows.Count, _
Β Β Β Β Β Β Β Β 1)).EntireRow.Hidden = True'
Β Β Π‘ΠΊΡΡΡΡ ΡΡΠΎΠ»Π±ΡΡ
Β Β Β Β Range(Cells(1, 1), Cells(1, col1 β 1)).EntireColumn.Hidden = True
Β Β Β Β Range(Cells(1, col2 + 1), Cells(1, _
Β Β Β Β Β Β Β Β Columns.Count)).EntireColumn.Hidden = True
End Sub
Π§ΡΠΎΠ±Ρ ΠΏΠΎΠΊΠ°Π·Π°ΡΡ Π²ΡΠ΅ ΡΡΡΠΎΠΊΠΈ ΠΈ ΡΡΠΎΠ»Π±ΡΡ, Π²ΡΡΠ°Π½ΡΡΠ΅ Π½Π° ΠΏΠ΅ΡΠ΅ΠΊΡΠ΅ΡΡΠΈΠ΅ ΡΡΡΠΎΠΊ ΠΈ ΡΡΠΎΠ»Π±ΡΠΎΠ² (Π²ΡΠ΄Π΅Π»Π΅Π½ΠΎ ΠΊΡΠ°ΡΠ½ΡΠΌ Π½Π° ΡΠΈΡ. 1), ΠΈ ΠΏΡΠΎΠΉΠ΄ΠΈΡΠ΅ ΠΏΠΎ ΠΌΠ΅Π½Ρ: ΠΠ»Π°Π²Π½Π°Ρ β> Π―ΡΠ΅ΠΉΠΊΠΈ β> Π€ΠΎΡΠΌΠ°Ρ β> Π‘ΠΊΡΡΡΡ ΠΈΠ»ΠΈ ΠΎΡΠΎΠ±ΡΠ°Π·ΠΈΡΡ β> ΠΡΠΎΠ±ΡΠ°Π·ΠΈΡΡ ΡΡΡΠΎΠΊΠΈ. ΠΠΎΠ²ΡΠΎΡΠΈΡΠ΅ ΡΡΠΎΡ ΠΏΡΡΡ, ΡΡΠΎΠ±Ρ ΠΎΡΠΎΠ±ΡΠ°Π·ΠΈΡΡ ΡΡΠΎΠ»Π±ΡΡ (ΡΠΈΡ. 2).
Π ΠΈΡ. 2. ΠΠΎΠΊΠ°Π·Π°ΡΡ Π²ΡΠ΅ ΡΡΡΠΎΠΊΠΈ ΠΈ ΡΡΠΎΠ»Π±ΡΡ
ΠΡΠ»ΠΈ Π²ΡΠ΄Π΅Π»Π΅Π½Π½ΡΠΉ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ Π²ΠΊΠ»ΡΡΠ°Π΅Ρ Π½Π΅ΡΠ²ΡΠ·Π°Π½Π½ΡΠ΅ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½Ρ, Π²ΠΈΠ΄ΠΈΠΌΡΠΌ ΠΎΡΡΠ°Π½Π΅ΡΡΡ ΡΠΎΠ»ΡΠΊΠΎ ΠΏΠ΅ΡΠ²ΡΠΉ ΠΈΠ· Π½ΠΈΡ .
Π‘ΠΈΠ½Ρ ΡΠΎΠ½ΠΈΠ·Π°ΡΠΈΡ Π²ΡΠ΄Π΅Π»Π΅Π½Π½ΠΎΠ³ΠΎ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½Π° Π½Π° Π»ΠΈΡΡΠ°Ρ ΡΠ°Π±ΠΎΡΠ΅ΠΉ ΠΊΠ½ΠΈΠ³ΠΈ
ΠΡΠ»ΠΈ Π²Ρ ΡΠ°Π±ΠΎΡΠ°Π΅ΡΠ΅ Ρ ΡΠ°Π±ΠΎΡΠΈΠΌΠΈ ΠΊΠ½ΠΈΠ³Π°ΠΌΠΈ, ΡΠΎΡΡΠΎΡΡΠΈΠΌΠΈ ΠΈΠ· Π½Π΅ΡΠΊΠΎΠ»ΡΠΊΠΈΡ Π»ΠΈΡΡΠΎΠ², ΡΠΎ, Π²Π΅ΡΠΎΡΡΠ½ΠΎ, Π·Π½Π°Π΅ΡΠ΅, ΡΡΠΎ Excel Π½Π΅ ΠΌΠΎΠΆΠ΅Ρ Β«ΡΠΈΠ½Ρ ΡΠΎΠ½ΠΈΠ·ΠΈΡΠΎΠ²Π°ΡΡΒ» Π»ΠΈΡΡΡ Π² ΡΠ°Π±ΠΎΡΠ΅ΠΉ ΠΊΠ½ΠΈΠ³Π΅. ΠΡΡΠ³ΠΈΠΌΠΈ ΡΠ»ΠΎΠ²Π°ΠΌΠΈ, Π½Π΅ ΡΡΡΠ΅ΡΡΠ²ΡΠ΅Ρ Π°Π²ΡΠΎΠΌΠ°ΡΠΈΡΠ΅ΡΠΊΠΎΠ³ΠΎ ΡΠΏΠΎΡΠΎΠ±Π° ΡΠ΄Π΅Π»Π°ΡΡ ΡΠ°ΠΊ, ΡΡΠΎΠ±Ρ Π²ΡΠ΅ Π»ΠΈΡΡΡ ΠΈΠΌΠ΅Π»ΠΈ ΠΎΠ΄ΠΈΠ½Π°ΠΊΠΎΠ²ΡΠ΅ Π²ΡΠ΄Π΅Π»Π΅Π½Π½ΡΠ΅ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½Ρ ΠΈ Π²Π΅ΡΡ Π½ΠΈΠ΅ Π»Π΅Π²ΡΠ΅ ΡΡΠ΅ΠΉΠΊΠΈ. ΠΠ°ΠΊΡΠΎΡ VBA, ΠΏΠΎΠΊΠ°Π·Π°Π½Π½ΡΠΉ Π½ΠΈΠΆΠ΅, Π±Π΅ΡΠ΅Ρ Π·Π° ΠΎΡΠ½ΠΎΠ²Ρ Π°ΠΊΡΠΈΠ²Π½ΡΠΉ ΡΠ°Π±ΠΎΡΠΈΠΉ Π»ΠΈΡΡ ΠΈ Π²ΡΠΏΠΎΠ»Π½ΡΠ΅Ρ ΡΠ»Π΅Π΄ΡΡΡΠΈΠ΅ Π΄Π΅ΠΉΡΡΠ²ΠΈΡ ΡΠΎ Π²ΡΠ΅ΠΌΠΈ ΠΎΡΡΠ°Π»ΡΠ½ΡΠΌΠΈ ΡΠ°Π±ΠΎΡΠΈΠΌΠΈ Π»ΠΈΡΡΠ°ΠΌΠΈ Π² ΠΊΠ½ΠΈΠ³Π΅:
- Π²ΡΠ΄Π΅Π»ΡΠ΅Ρ ΡΠΎΡ ΠΆΠ΅ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½, ΡΡΠΎ ΠΈ Π² Π°ΠΊΡΠΈΠ²Π½ΠΎΠΌ Π»ΠΈΡΡΠ΅;
- Π·Π°Π΄Π°Π΅Ρ ΡΡ ΠΆΠ΅ Π»Π΅Π²ΡΡ Π²Π΅ΡΡ Π½ΡΡ ΡΡΠ΅ΠΉΠΊΡ, ΡΡΠΎ ΠΈ Π½Π° Π°ΠΊΡΠΈΠ²Π½ΠΎΠΌ Π»ΠΈΡΡΠ΅ (ΡΠΈΡ. 3).
Π ΠΈΡ. 3. Π‘ΠΈΠ½Ρ ΡΠΎΠ½ΠΈΠ·Π°ΡΠΈΡ Π²ΡΠ΄Π΅Π»Π΅Π½Π½ΠΎΠ³ΠΎ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½Π° Π½Π° Π»ΠΈΡΡΠ°Ρ ΡΠ°Π±ΠΎΡΠ΅ΠΉ ΠΊΠ½ΠΈΠ³ΠΈ
Sub SynchSheets()'
Β Β ΠΡΠ±Π»ΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ Π²ΡΠ΄Π΅Π»Π΅Π½Π½ΠΎΠ³ΠΎ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½Π° Π°ΠΊΡΠΈΠ²Π½ΠΎΠ³ΠΎ Π»ΠΈΡΡΠ°'
Β Β ΠΈ Π²Π΅ΡΡ
Π½Π΅ΠΉ Π»Π΅Π²ΠΎΠΉ ΡΡΠ΅ΠΉΠΊΠΈ Π°ΠΊΡΠΈΠ²Π½ΠΎΠ³ΠΎ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½Π° Π½Π° Π²ΡΠ΅Ρ
Π»ΠΈΡΡΠ°Ρ
Β Β Β Β If TypeName(ActiveSheet) "
Worksheet"
Then Exit Sub
Β Β Β Β Dim UserSheet As Worksheet, sht As Worksheet
Β Β Β Β Dim TopRow As Long, LeftCol As Integer
Β Β Β Β Dim UserSel As String
Β Β Β Β Application.ScreenUpdating = False'
Β Β ΠΠ°ΠΏΠΎΠΌΠΈΠ½Π°Π½ΠΈΠ΅ ΡΠ΅ΠΊΡΡΠ΅Π³ΠΎ Π»ΠΈΡΡΠ°
Β Β Β Β Set UserSheet = ActiveSheet'
Β Β Π‘ΠΎΡ
ΡΠ°Π½Π΅Π½ΠΈΠ΅ ΡΠ²Π΅Π΄Π΅Π½ΠΈΠΉ ΠΎΠ± Π°ΠΊΡΠΈΠ²Π½ΠΎΠΉ ΡΡΠ΅ΠΉΠΊΠ΅
Β Β Β Β TopRow = ActiveWindow.ScrollRow
Β Β Β Β LeftCol = ActiveWindow.ScrollColumn
Β Β Β Β UserSel = ActiveWindow.RangeSelection.Address'
Β Β Π¦ΠΈΠΊΠ»ΠΈΡΠ΅ΡΠΊΠΈΠΉ ΠΎΠ±Ρ
ΠΎΠ΄ ΡΠ°Π±ΠΎΡΠΈΡ
Π»ΠΈΡΡΠΎΠ²
Β Β Β Β For Each sht In ActiveWorkbook.Worksheets
Β Β Β Β Β Β Β Β If sht.Visible Then '
ΠΏΡΠΎΠΏΡΡΠΊ ΡΠΊΡΡΡΡΡ
Π»ΠΈΡΡΠΎΠ²
Β Β Β Β Β Β Β Β Β Β Β Β sht.Activate
Β Β Β Β Β Β Β Β Β Β Β Β Range(UserSel).Select
Β Β Β Β Β Β Β Β Β Β Β Β ActiveWindow.ScrollRow = TopRow
Β Β Β Β Β Β Β Β Β Β Β Β ActiveWindow.ScrollColumn = LeftCol
Β Β Β Β Β Β Β Β End If
Β Β Β Β Next sht'
Β Β ΠΠΎΡΡΡΠ°Π½ΠΎΠ²Π»Π΅Π½ΠΈΠ΅ ΠΈΡΡ
ΠΎΠ΄Π½ΠΎΠ³ΠΎ ΠΏΠΎΠ»ΠΎΠΆΠ΅Π½ΠΈΡ
Β Β Β Β UserSheet.Activate
Β Β Β Β Application.ScreenUpdating = True
End Sub
ΠΠΎ ΠΌΠ°ΡΠ΅ΡΠΈΠ°Π»Π°ΠΌ ΠΊΠ½ΠΈΠ³ΠΈ ΠΠΆΠΎΠ½ Π£ΠΎΠΊΠ΅Π½Π±Π°Ρ . Excel 2010. ΠΡΠΎΡΠ΅ΡΡΠΈΠΎΠ½Π°Π»ΡΠ½ΠΎΠ΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ Π½Π° VBA. β Π: ΠΠΈΠ°Π»Π΅ΠΊΡΠΈΠΊΠ°, 2013. β Π‘. 348β351.
ΠΠ°Π΄Π°ΡΠ° ΡΠΎΡΡΠΎΠΈΡ Π² ΡΠΎΠΌ, ΡΡΠΎΠ±Ρ ΡΠΊΠΎΠΏΠΈΡΠΎΠ²Π°ΡΡ ΠΎΠΏΡΠ΅Π΄Π΅Π»Π΅Π½Π½ΡΠΉ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ ΡΠ΅ΠΊΡΡΠ΅Π³ΠΎ Π»ΠΈΡΡΠ°, ΠΎΡΠΊΡΡΡΡ Π΄ΡΡΠ³ΡΡ ΠΊΠ½ΠΈΠ³Ρ, ΠΈ Π²ΡΡΠ°Π²ΠΈΡΡ ΡΡΠΈ ΡΠΊΠΎΠΏΠΈΡΠΎΠ²Π°Π½Π½ΡΠ΅ Π΄Π°Π½Π½ΡΠ΅ Π² ΠΎΠΏΡΠ΅Π΄Π΅Π»Π΅Π½Π½ΡΡ ΡΡΠ΅ΠΉΠΊΡ, ΡΠΎΡ ΡΠ°Π½ΠΈΡΡ ΡΡΠΎΡ ΡΠ°ΠΉΠ» ΠΈ Π·Π°ΠΊΡΡΡΡ. ΠΠΈΠΆΠ΅ ΠΏΡΠΈΠ²Π΅Π΄Π΅Π½ ΠΊΠΎΠ΄Β VBA.
Sub ΠΠ°Π·Π²Π°Π½ΠΈΠ΅_ΠΠ°ΠΊΡΠΎΡΠ°() 'ΠΡΠ΄Π΅Π»ΠΈΡΡ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ ΠΊΠΎΡΠΎΡΡΠΉ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ ΡΠΊΠΎΠΏΠΈΡΠΎΠ²Π°ΡΡ Range("A1:F52").Select 'Π‘ΠΊΠΎΠΏΠΈΡΠΎΠ²Π°ΡΡ ΡΠΎ, ΡΡΠΎ Π²ΡΠ΄Π΅Π»Π΅Π½ΠΎ Selection.Copy ChDir "ΠΏΡΡΡ ΠΊ ΠΏΠ°ΠΏΠΊΠ΅ Π³Π΄Π΅ Π»Π΅ΠΆΠΈΡ ΡΠ°ΠΉΠ» Π² ΠΊΠΎΡΠΎΡΡΠΉ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ ΡΠΊΠΎΠΏΠΈΡΠΎΠ²Π°ΡΡ" Workbooks.Open Filename:= "ΠΠ°Π·Π²Π°Π½ΠΈΠ΅ ΡΠ°ΠΉΠ»Π°, ΠΊΠΎΡΠΎΡΡΠΉ Π½Π°Ρ ΠΎΠ΄ΠΈΡΡΡ Π² ΠΏΠ°ΠΏΠΊΠ΅, ΠΏΡΡΡ ΠΊ ΠΊΠΎΡΠΎΡΠΎΠΉ ΡΠΊΠ°Π·Π°Π½ Π²ΡΡΠ΅" 'ΠΡΠ΄Π΅Π»ΠΈΡΡ Π½Π°ΡΠ°Π»ΡΠ½ΡΡ ΡΡΠ΅ΠΉΠΊΡ Π² ΠΊΠΎΡΠΎΡΡΡ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ Π²ΡΡΠ°Π²ΠΈΡΡ ΡΠΊΠΎΠΏΠΈΡΠΎΠ²Π°Π½Π½ΡΠ΅ Π΄Π°Π½Π½ΡΠ΅ Range("A6").Select 'ΠΡΡΠ°Π²ΠΈΡΡ Π΄Π°Π½Π½ΡΠ΅ ActiveSheet.Paste 'ΡΠΎΡ ΡΠ°Π½ΠΈΡΡ ΡΠ΅ΠΊΡΡΡΡ ΠΊΠ½ΠΈΠ³Ρ ActiveWorkbook.Save 'ΠΠ°ΠΊΡΡΡΡ ΠΊΠ½ΠΈΠ³Ρ ActiveWorkbook.Close End Sub
ΠΠ°ΡΠΈΠ°Π½Ρ 2: Π ΠΎΡΠΊΡΡΠ²ΡΠ΅ΠΉΡΡ ΠΊΠ½ΠΈΠ³Π΅ Π·Π°ΠΏΡΡΠΊΠ°Π΅ΠΌ ΠΌΠ°ΠΊΡΠΎΡ, ΡΡΠΎΠ±Ρ ΠΎΠ½ ΠΎΡΠΊΡΡΠ» Π½ΡΠΆΠ½ΡΡ Π½Π°ΠΌ ΠΊΠ½ΠΈΠ³Ρ, ΡΠΊΠΎΠΏΠΈΡΠΎΠ²Π°Π» ΠΎΡ ΡΡΠ΄Π° Π½ΡΠΆΠ½ΡΠ΅ Π½Π°ΠΌ Π΄Π°Π½Π½ΡΠ΅ ΠΈ Π²ΡΡΠ°Π²ΠΈΠ» Π² Π½Π°ΡΡ ΠΎΡΠΊΡΡΡΡΡ ΠΊΠ½ΠΈΠ³Ρ, Π·Π°ΠΊΡΡΠ² ΡΠ°ΠΉΠ» ΠΈΠ· ΠΊΠΎΡΠΎΡΠΎΠ³ΠΎ ΡΡΠΈ Π΄Π°Π½Π½ΡΠ΅ Π±ΡΠ»ΠΈΒ ΡΠΊΠΎΠΏΠΈΡΠΎΠ²Π°Π½Ρ
Sub ΠΠ°Π·Π²Π°Π½ΠΈΠ΅_ΠΠ°ΠΊΡΠΎΡΠ°2() 'ΠΡΠΊΡΡΠ²Π°Π΅ΠΌ ΡΠ°ΠΉΠ» Ρ ΠΊΠΎΡΠΎΡΠΎΠ³ΠΎ Π½ΡΠΆΠ½ΠΎ ΡΠΊΠΎΠΏΠΈΡΠΎΠ²Π°ΡΡ Π΄Π°Π½Π½ΡΠ΅ Workbooks.Open Filename:="C:ΠΠ°Π½Π½ΡΠ΅.xlsx" 'Π‘ΠΊΠΎΠΏΠΈΡΠΎΠ²Π°ΡΡ Π½ΡΠΆΠ½ΡΠΉ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ Π² ΠΎΡΠΊΡΡΠ²ΡΠ΅ΠΉΡΡ ΠΊΠ½ΠΈΠ³Π΅ Π½Π° Π»ΠΈΡΡΠ΅ 1 Workbooks("ΠΠ°Π½Π½ΡΠ΅.xlsx").Worksheets("ΠΠΈΡΡ1").Range("A16:E16").Copy 'ΠΠΊΡΠΈΠ²ΠΈΡΡΠ΅ΠΌ Π½ΡΠΆΠ½ΡΡ Π½Π°ΠΌ ΠΊΠ½ΠΈΠ³Ρ Workbooks("ΠΠ½ΠΈΠ³Π°1.xlsm").Activate 'ΠΡΠ΄Π΅Π»ΡΠ΅ΠΌ ΠΈ Π²ΡΡΠ°Π²Π»ΡΠ΅ΠΌ ΡΠΊΠΎΠΏΠΈΡΠΎΠ²Π°Π½Π½ΡΠ΅ Π΄Π°Π½Π½ΡΠ΅ Π² ΡΡΠ΅ΠΉΠΊΡ Π1 ActiveWorkbook.Worksheets("ΠΠΈΡΡ1").Range("A1").Select ActiveSheet.Paste 'ΠΠ°ΠΊΡΡΠ²Π°Π΅ΠΌ ΠΊΠ½ΠΈΠ³Ρ ΠΎΡΠΊΡΠ΄Π° ΠΌΡ ΡΠΊΠΎΠΏΠΈΡΠΎΠ²Π°Π»ΠΈ Π΄Π°Π½Π½ΡΠ΅ Workbooks("ΠΠ°Π½Π½ΡΠ΅.xlsx").Close End Sub
ΠΡΠ΅ ΠΏΡΠΈΠΌΠ΅ΡΒ β Π‘ΠΊΠΎΠΏΠΈΡΠΎΠ²Π°ΡΡ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½Ρ Π΄Π°Π½Π½ΡΡ ΠΈΠ· Π°ΠΊΡΠΈΠ²Π½ΠΎΠΉ ΠΎΡΠΊΡΡΡΠΎΠΉ ΠΊΠ½ΠΈΠ³ΠΈ Excel Π½Π΅ΡΠΊΠΎΠ»ΡΠΊΠΈΡ Π»ΠΈΡΡΠΎΠ² (Π² Π½Π°ΡΠ΅ΠΌ ΠΏΡΠΈΠΌΠ΅ΡΠ΅ 3-Ρ Π»ΠΈΡΡΠΎΠ²) Π² Π΄ΡΡΠ³ΡΡ ΠΊΠ½ΠΈΠ³Ρ, ΠΊΠΎΡΠΎΡΠ°Ρ Ρ ΡΠ°Π½ΠΈΡΡΡ Π² ΠΎΠΏΡΠ΅Π΄Π΅Π»Π΅Π½Π½ΠΎΠΌ ΠΌΠ΅ΡΡΠ΅. ΠΠ°Π½Π½ΡΠ΅ Π±ΡΠ΄ΡΡ Π²ΡΡΠ°Π²Π»Π΅Π½Ρ ΠΊΠ°ΠΊ Π·Π½Π°ΡΠ΅Π½ΠΈΡ, ΠΏΠ»ΡΡ Π±ΡΠ΄ΡΡ ΠΏΠ΅ΡΠ΅Π½Π΅ΡΠ΅Π½Ρ ΡΠΎΡΠΌΠ°ΡΡΒ ΡΡΠ΅Π΅ΠΊ.
Sub ΠΠΎΠΏΠΈΡΡΠ΅ΠΌ_Π»ΠΈΡΡΡ_Π²_Π΄ΡΡΠ³ΡΡ_ΠΊΠ½ΠΈΠ³Ρ() Dim bookconst As Workbook Dim abook As Workbook Set abook = ActiveWorkbook 'ΠΏΡΠΈΡΠ²Π°ΠΈΠ²Π°Π΅ΠΌ ΠΏΠ΅ΡΠΌΠ΅Π½Π½ΡΡ Π°ΠΊΡΠΈΠ²Π½ΠΎΠΉ ΠΊΠ½ΠΈΠ³Π΅ Set bookconst = Workbooks.Open("C:UsersUserDesktop1.xlsx") 'ΠΏΡΠΈΡΠ²Π°ΠΈΠ²Π°Π΅ΠΌ ΠΏΠ΅ΡΠΌΠ΅Π½Π½ΡΡ ΠΊΠ½ΠΈΠ³Π΅ ΠΊΡΠ΄Π° Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ ΠΊΠΎΠΏΠΈΡΠΎΠ²Π°ΡΡ Π΄Π°Π½Π½ΡΠ΅ 'ΠΏΠ΅ΡΠ΅Ρ ΠΎΠ΄ΠΈΠΌ Π² Π°ΠΊΡΠΈΠ²Π½ΡΡ ΠΊΠ½ΠΈΠ³Ρ ΠΎΡΠΊΡΠ΄Π° Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ ΡΠΊΠΎΠΏΠΈΡΠΎΠ²Π°ΡΡ Π΄Π°Π½Π½ΡΠ΅ abook.Worksheets("ΠΠΈΡΡ1").Activate Range("A1:I23").Copy 'ΠΊΠΎΠΏΠΈΡΡΠ΅ΠΌ ΠΎΠΏΡΠ΅Π΄Π΅Π»Π΅Π½Π½ΡΠΉ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ Π»ΠΈΡΡΠ°, ΡΠΊΠ°ΠΆΠΈΡΠ΅ ΡΠ²ΠΎΠΉ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ bookconst.Worksheets("ΠΠΈΡΡ1").Activate 'Π°ΠΊΡΠΈΠ²ΠΈΡΡΠ΅ΠΌ Π»ΠΈΡΡ ΠΊΡΠ΄Π° Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ Π²ΡΡΠ°Π²ΠΈΡΡ Π΄Π°Π½Π½ΡΠ΅ Range("A1:I23").Select 'Π²ΡΡΠ°Π΅ΠΌ Π½Π° ΡΡΠ΅ΠΉΠΊΡ Π1 Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False 'Π²ΡΡΠ°Π²Π»ΡΠ΅ΠΌ ΡΠΎΠ»ΡΠΊΠΎ ΡΠΎΡΠΌΠ°ΡΡ ΡΡΠ΅Π΅ΠΊ Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False 'Π²ΡΠΎΡΠΎΠΉ Π»ΠΈΡΡ abook.Worksheets("ΠΠΈΡΡ2").Activate Range("A1:I23").Copy bookconst.Worksheets("ΠΠΈΡΡ2").Activate Range("A1:I23").Select 'Π²ΡΠ΄Π΅Π»ΡΠ΅ΠΌ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False 'Π²ΡΡΠ°Π²Π»ΡΠ΅ΠΌ ΡΠΎΠ»ΡΠΊΠΎ ΡΠΎΡΠΌΠ°ΡΡ ΡΡΠ΅Π΅ΠΊ Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False 'ΡΡΠ΅ΡΠΈΠΉ Π»ΠΈΡΡ abook.Worksheets("ΠΠΈΡΡ3").Activate Range("A1:I23").Copy bookconst.Worksheets("ΠΠΈΡΡ3").Activate Range("A1:I23").Select 'Π²ΡΠ΄Π΅Π»ΡΠ΅ΠΌ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False 'Π²ΡΡΠ°Π²Π»ΡΠ΅ΠΌ ΡΠΎΠ»ΡΠΊΠΎ ΡΠΎΡΠΌΠ°ΡΡ ΡΡΠ΅Π΅ΠΊ Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False 'ΡΠΎΡ ΡΠ°Π½ΠΈΡΡ ΡΠ΅ΠΊΡΡΡΡ ΠΊΠ½ΠΈΠ³Ρ bookconst.Save 'ΠΠ°ΠΊΡΡΡΡ ΠΊΠ½ΠΈΠ³Ρ bookconst.Close abook.Activate End Sub
ΠΡΠ»ΠΈ ΡΡΠ°ΡΡΡ Π±ΡΠ»Π° Π²Π°ΠΌ ΠΏΠΎΠ»Π΅Π·Π½Π°, ΡΠΎ Π±ΡΠ΄Ρ Π±Π»Π°Π³ΠΎΠ΄Π°ΡΠ΅Π½, Π΅ΡΠ»ΠΈ Π²Ρ ΠΏΠΎΠ΄Π΅Π»ΠΈΡΠ΅ΡΡ Π΅ΠΉ ΡΠΎ ΡΠ²ΠΎΠΈΠΌΠΈ Π΄ΡΡΠ·ΡΡΠΌΠΈ Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΠΊΠ½ΠΎΠΏΠΎΠΊ ΡΠ°ΡΠΏΠΎΠ»ΠΎΠΆΠ΅Π½Π½ΡΡ Β Π½ΠΈΠΆΠ΅.
Π‘ΠΏΠ°ΡΠΈΠ±ΠΎ Π·Π°Β Π²Π½ΠΈΠΌΠ°Π½ΠΈΠ΅.
ΠΠ½ΠΎΠ³Π΄Π° ΠΌΡ ΠΌΠΎΠΆΠ΅ΠΌ Π·Π°Ρ ΠΎΡΠ΅ΡΡ ΠΎΡΠΊΡΡΡΡ ΠΈΠ»ΠΈ ΡΠΎΠ·Π΄Π°ΡΡ Π½ΠΎΠ²ΡΡ ΠΊΠ½ΠΈΠ³Ρ Ρ ΠΏΠΎΠΌΠΎΡΡΡ VBA. ΠΡ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΡΡΡΠ°Π½ΠΎΠ²ΠΈΡΡ Π½ΠΎΠ²ΡΡ ΡΠΎΠ·Π΄Π°Π½Π½ΡΡ ΠΊΠ½ΠΈΠ³Ρ Π½Π° ΠΎΠ±ΡΠ΅ΠΊΡ, ΡΡΠΎΠ±Ρ Π±ΡΠ»ΠΎ Π»Π΅Π³ΠΊΠΎ ΡΠΎΡΠ»Π°ΡΡΡΡ Π½Π° Π²Π°ΡΡ ΠΊΠ½ΠΈΠ³Ρ Π΄Π»Ρ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΡ Π΄Π°Π»ΡΠ½Π΅ΠΉΡΠΈΡ Π·Π°Π΄Π°Ρ.
Π Π΅ΡΠ΅Π½ΠΈΠ΅(ΠΈΡ):
Β Π‘Π»Π΅Π΄ΡΡΡΠΈΠ΅ ΠΌΠ°ΠΊΡΠΎΡΡ ΠΏΠΎΠ·Π²ΠΎΠ»ΡΡ ΠΎΡΠΊΡΡΡΡ ΠΈΠ»ΠΈ ΡΠΎΠ·Π΄Π°ΡΡ Π½ΠΎΠ²ΡΡ ΠΊΠ½ΠΈΠ³Ρ Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΠΌΠ΅ΡΠΎΠ΄Π° ΠΠΎΠ±Π°Π²ΠΈΡΡ.
Π‘ΠΎΠ·Π΄Π°ΡΡ Π½ΠΎΠ²ΡΡ ΠΊΠ½ΠΈΠ³Ρ Π² Excel VBA β ΠΏΡΠΈΠΌΠ΅ΡΡ:
- Π‘ΠΎΠ·Π΄Π°ΡΡ Π½ΠΎΠ²ΡΡ ΠΊΠ½ΠΈΠ³Ρ
- Π‘ΠΎΠ·Π΄Π°Π½ΠΈΠ΅ ΠΎΠ±ΡΠ΅ΠΊΡΠ° Π΄Π»Ρ Π²Π½ΠΎΠ²Ρ ΡΠΎΠ·Π΄Π°Π½Π½ΠΎΠΉ ΡΠ°Π±ΠΎΡΠ΅ΠΉ ΠΊΠ½ΠΈΠ³ΠΈ
Π‘ΠΎΠ·Π΄Π°ΡΡ Π½ΠΎΠ²ΡΡ ΠΊΠ½ΠΈΠ³Ρ
Β ΠΡ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΡΠ»Π΅Π΄ΡΡΡΠΈΠΉ ΠΊΠΎΠ΄ Π΄Π»Ρ ΡΠΎΠ·Π΄Π°Π½ΠΈΡ Π½ΠΎΠ²ΠΎΠΉ ΠΊΠ½ΠΈΠ³ΠΈ ΠΈ ΡΠΎΡ ΡΠ°Π½Π΅Π½ΠΈΡ Π½Π° Π΄ΠΈΡΠΊΠ΅ C Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΠΌΠ΅ΡΠΎΠ΄Π° Β«ΠΠΎΠ±Π°Π²ΠΈΡΡΒ».
ΠΠΎΠ΄:
Sub AddNewWorkbook1() 'ΠΠΎΠ±Π°Π²Π»Π΅Π½ΠΈΠ΅ Π½ΠΎΠ²ΠΎΠΉ ΡΠ°Π±ΠΎΡΠ΅ΠΉ ΠΊΠ½ΠΈΠ³ΠΈ Workbooks.Add 'Π‘ΠΎΡ ΡΠ°Π½Π΅Π½ΠΈΠ΅ ΡΠ°Π±ΠΎΡΠ΅ΠΉ ΠΊΠ½ΠΈΠ³ΠΈ ActiveWorkbook.SaveAs "C:WorkbookName.xls" 'OR ActiveWorkbook.SaveAs Filename:="C:WorkbookName1.xls" End Sub
ΠΠ±ΡΡΡΠ½Π΅Π½ΠΈΠ΅:
- ΠΠ΅ΡΠΎΠ΄ Π΄ΠΎΠ±Π°Π²Π»Π΅Π½ΠΈΡ ΡΠ°Π±ΠΎΡΠ΅ΠΉ ΠΊΠ½ΠΈΠ³ΠΈΒ Π΄ΠΎΠ±Π°Π²ΠΈΡ Π½ΠΎΠ²ΡΡ ΠΊΠ½ΠΈΠ³Ρ
- Π‘ΠΎΡ ΡΠ°Π½ΠΈΡΡ ΠΊΠ°ΠΊ ΡΠ°Π±ΠΎΡΡΡ ΠΊΠ½ΠΈΠ³ΡΒ ΠΌΠ΅ΡΠΎΠ΄ ΡΠΎΡ ΡΠ°Π½ΠΈΡ Π°ΠΊΡΠΈΠ²Π½ΡΡ ΠΊΠ½ΠΈΠ³Ρ Π² ΠΎΠΏΡΠ΅Π΄Π΅Π»Π΅Π½Π½ΠΎΠΌ ΠΌΠ΅ΡΡΠ΅ Ρ ΡΠΊΠ°Π·Π°Π½Π½ΡΠΌ ΠΈΠΌΠ΅Π½Π΅ΠΌ ΡΠ°ΠΉΠ»Π°
ΠΡΠ²ΠΎΠ΄: ΠΡ Π΄ΠΎΠ»ΠΆΠ½Ρ ΡΠ²ΠΈΠ΄Π΅ΡΡ Π½Π΅Π΄Π°Π²Π½ΠΎ ΠΎΡΠΊΡΡΡΡΡ ΠΊΠ½ΠΈΠ³Ρ Π²ΠΌΠ΅ΡΡΠ΅ Ρ ΡΡΡΠ΅ΡΡΠ²ΡΡΡΠ΅ΠΉ ΠΊΠ½ΠΈΠ³ΠΎΠΉ.
ΠΠ½ΡΡΡΡΠΊΡΠΈΠΈ:
- ΠΡΠΊΡΠΎΠΉΡΠ΅ ΡΠ°Π±ΠΎΡΡΡ ΠΊΠ½ΠΈΠ³Ρ Excel
- ΠΠ°ΠΆΠΌΠΈΡΠ΅ Alt + F11, ΡΡΠΎΠ±Ρ ΠΎΡΠΊΡΡΡΡ ΡΠ΅Π΄Π°ΠΊΡΠΎΡ VBA.
- ΠΡΡΠ°Π²ΡΡΠ΅ Π½ΠΎΠ²ΡΠΉ ΠΌΠΎΠ΄ΡΠ»Ρ ΠΈΠ· ΠΌΠ΅Π½Ρ Β«ΠΡΡΠ°Π²ΠΊΠ°Β»
- Π‘ΠΎΠ·Π΄Π°ΠΉΡΠ΅ ΠΏΡΠΈΠ²Π΅Π΄Π΅Π½Π½ΡΠΉ Π²ΡΡΠ΅ ΠΊΠΎΠ΄ ΠΈ Π²ΡΡΠ°Π²ΡΡΠ΅ Π² ΠΎΠΊΠ½ΠΎ ΠΊΠΎΠ΄Π°
- ΠΠ°ΠΆΠΌΠΈΡΠ΅ F5, ΡΡΠΎΠ±Ρ ΡΠ²ΠΈΠ΄Π΅ΡΡ Π²ΡΡ ΠΎΠ΄
- ΠΡ Π΄ΠΎΠ»ΠΆΠ½Ρ ΡΠ²ΠΈΠ΄Π΅ΡΡ Π½Π΅Π΄Π°Π²Π½ΠΎ ΠΎΡΠΊΡΡΡΡΡ ΠΊΠ½ΠΈΠ³Ρ, ΠΊΠ°ΠΊ ΠΏΠΎΠΊΠ°Π·Π°Π½ΠΎ Π²ΡΡΠ΅.
- Π‘ΠΎΡ ΡΠ°Π½ΠΈΡΠ΅ ΡΠ°ΠΉΠ» Π² Π²ΠΈΠ΄Π΅ ΠΌΠ°ΠΊΡΠΎΡΡΠ΅ΠΌΠΊΠΈ
Π‘ΠΎΠ·Π΄Π°Π½ΠΈΠ΅ ΠΎΠ±ΡΠ΅ΠΊΡΠ° Π΄Π»Ρ Π²Π½ΠΎΠ²Ρ ΡΠΎΠ·Π΄Π°Π½Π½ΠΎΠΉ ΠΊΠ½ΠΈΠ³ΠΈ
Β ΠΡ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΡΡΡΠ°Π½ΠΎΠ²ΠΈΡΡ Π²Π½ΠΎΠ²Ρ ΡΠΎΠ·Π΄Π°Π½Π½ΡΡ ΠΊΠ½ΠΈΠ³Ρ Π½Π° ΠΎΠ±ΡΠ΅ΠΊΡ, ΡΠ°ΠΊ ΡΡΠΎ Π²Π°ΠΌ Π»Π΅Π³ΠΊΠΎ ΠΎΠ±ΡΠ°ΡΠΈΡΡΡΡ ΠΊ Π²Π°ΡΠ΅ΠΉ ΠΊΠ½ΠΈΠ³Π΅ Π΄Π»Ρ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΡ Π΄Π°Π»ΡΠ½Π΅ΠΉΡΠΈΡ Π·Π°Π΄Π°Ρ.
ΠΠΎΠ΄:
sub AddNewWorkbook2() Dim wkb as Workbook 'ΠΠΎΠ±Π°Π²Π»Π΅Π½ΠΈΠ΅ Π½ΠΎΠ²ΠΎΠΉ ΡΠ°Π±ΠΎΡΠ΅ΠΉ ΠΊΠ½ΠΈΠ³ΠΈ Set wkb = Workbooks.Add 'Π‘ΠΎΡ ΡΠ°Π½Π΅Π½ΠΈΠ΅ ΡΠ°Π±ΠΎΡΠ΅ΠΉ ΠΊΠ½ΠΈΠ³ΠΈ wkb.SaveAs "C:WorkbookName.xls" 'OR wkb.SaveAs Filename:="C:WorkbookName1.xls" End Sub
ΠΡΠ²ΠΎΠ΄:
Β ΠΡ Π΄ΠΎΠ»ΠΆΠ½Ρ ΡΠ²ΠΈΠ΄Π΅ΡΡ Π½Π΅Π΄Π°Π²Π½ΠΎ ΠΎΡΠΊΡΡΡΡΡ ΠΊΠ½ΠΈΠ³Ρ Π²ΠΌΠ΅ΡΡΠ΅ Ρ ΡΡΡΠ΅ΡΡΠ²ΡΡΡΠ΅ΠΉ ΠΊΠ½ΠΈΠ³ΠΎΠΉ.
ΠΠ½ΡΡΡΡΠΊΡΠΈΠΈ:
- ΠΡΠΊΡΠΎΠΉΡΠ΅ ΡΠ°Π±ΠΎΡΡΡ ΠΊΠ½ΠΈΠ³Ρ Excel
- ΠΠ°ΠΆΠΌΠΈΡΠ΅ Alt + F11, ΡΡΠΎΠ±Ρ ΠΎΡΠΊΡΡΡΡ ΡΠ΅Π΄Π°ΠΊΡΠΎΡ VBA.
- ΠΡΡΠ°Π²ΡΡΠ΅ Π½ΠΎΠ²ΡΠΉ ΠΌΠΎΠ΄ΡΠ»Ρ ΠΈΠ· ΠΌΠ΅Π½Ρ Β«ΠΡΡΠ°Π²ΠΊΠ°Β»
- Π‘ΠΎΠ·Π΄Π°ΠΉΡΠ΅ ΠΏΡΠΈΠ²Π΅Π΄Π΅Π½Π½ΡΠΉ Π²ΡΡΠ΅ ΠΊΠΎΠ΄ ΠΈ Π²ΡΡΠ°Π²ΡΡΠ΅ Π² ΠΎΠΊΠ½ΠΎ ΠΊΠΎΠ΄Π°
- ΠΠ°ΠΆΠΌΠΈΡΠ΅ F5, ΡΡΠΎΠ±Ρ ΡΠ²ΠΈΠ΄Π΅ΡΡ Π²ΡΡ ΠΎΠ΄
- ΠΡ Π΄ΠΎΠ»ΠΆΠ½Ρ ΡΠ²ΠΈΠ΄Π΅ΡΡ Π½Π΅Π΄Π°Π²Π½ΠΎ ΠΎΡΠΊΡΡΡΡΡ ΠΊΠ½ΠΈΠ³Ρ, ΠΊΠ°ΠΊ ΠΏΠΎΠΊΠ°Π·Π°Π½ΠΎ Π²ΡΡΠ΅.
- Π‘ΠΎΡ ΡΠ°Π½ΠΈΡΠ΅ ΡΠ°ΠΉΠ» Π² Π²ΠΈΠ΄Π΅ ΠΌΠ°ΠΊΡΠΎΡΡΠ΅ΠΌΠΊΠΈ
Π‘ΠΎΠ±ΡΡΠΈΠ΅ Π»ΠΈΡΡΠ°. Activate (Excel) | Microsoft Docs
-
- Π§ΡΠ΅Π½ΠΈΠ΅ Π·Π°Π½ΠΈΠΌΠ°Π΅Ρ 2Β ΠΌΠΈΠ½
Π ΡΡΠΎΠΉ ΡΡΠ°ΡΡΠ΅
ΠΠΎΠ·Π½ΠΈΠΊΠ°Π΅Ρ ΠΏΡΠΈ Π°ΠΊΡΠΈΠ²Π°ΡΠΈΠΈ ΠΊΠ½ΠΈΠ³ΠΈ, Π»ΠΈΡΡΠ°, Π΄ΠΈΠ°Π³ΡΠ°ΠΌΠΌΡ ΠΈΠ»ΠΈ Π²ΡΡΡΠΎΠ΅Π½Π½ΠΎΠΉ Π΄ΠΈΠ°Π³ΡΠ°ΠΌΠΌΡ.Occurs when a workbook, worksheet, chart sheet, or embedded chart is activated.
Π‘ΠΈΠ½ΡΠ°ΠΊΡΠΈΡSyntax
Expression. ΠΠΊΡΠΈΠ²Π°ΡΠΈΡexpression.Activate
Expression (Π²ΡΡΠ°ΠΆΠ΅Π½ΠΈΠ΅ ) ΠΠ΅ΡΠ΅ΠΌΠ΅Π½Π½Π°Ρ, ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»ΡΡΡΠ°Ρ ΠΎΠ±ΡΠ΅ΠΊΡ Π»ΠΈΡΡΠ° .expression A variable that represents a Worksheet object.
ΠΠΎΠ·Π²ΡΠ°ΡΠ°Π΅ΠΌΠΎΠ΅ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅Return value
NothingNothing
ΠΡΠΈΠΌΠ΅ΡΠ°Π½ΠΈΡRemarks
ΠΡΠΎ ΡΠΎΠ±ΡΡΠΈΠ΅ Π½Π΅ Π²ΠΎΠ·Π½ΠΈΠΊΠ°Π΅Ρ ΠΏΡΠΈ ΡΠΎΠ·Π΄Π°Π½ΠΈΠΈ Π½ΠΎΠ²ΠΎΠ³ΠΎ ΠΎΠΊΠ½Π°.This event doesn’t occur when you create a new window.
ΠΡΠΈ ΠΏΠ΅ΡΠ΅ΠΊΠ»ΡΡΠ΅Π½ΠΈΠΈ ΠΌΠ΅ΠΆΠ΄Ρ Π΄Π²ΡΠΌΡ ΠΎΠΊΠ½Π°ΠΌΠΈ, ΠΊΠΎΡΠΎΡΡΠ΅ ΠΏΠΎΠΊΠ°Π·ΡΠ²Π°ΡΡ ΠΎΠ΄Π½Ρ ΠΊΠ½ΠΈΠ³Ρ, Π²ΠΎΠ·Π½ΠΈΠΊΠ°Π΅Ρ ΡΠΎΠ±ΡΡΠΈΠ΅ WindowActivate , Π½ΠΎ ΡΠΎΠ±ΡΡΠΈΠ΅ Activate Π΄Π»Ρ ΠΊΠ½ΠΈΠ³ΠΈ Π½Π΅ ΠΏΡΠΎΠΈΡΡ ΠΎΠ΄ΠΈΡ.When you switch between two windows showing the same workbook, the WindowActivate event occurs, but the Activate event for the workbook doesn’t occur.
ΠΡΠΈΠΌΠ΅ΡExample
Π ΡΡΠΎΠΌ ΠΏΡΠΈΠΌΠ΅ΡΠ΅ Π²ΡΠΏΠΎΠ»Π½ΡΠ΅ΡΡΡ ΡΠΎΡΡΠΈΡΠΎΠ²ΠΊΠ° Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½Π° a1: A10 ΠΏΡΠΈ Π°ΠΊΡΠΈΠ²Π°ΡΠΈΠΈ Π»ΠΈΡΡΠ°.This example sorts the range A1:A10 when the worksheet is activated.
Private Sub Worksheet_Activate()
Me.Range("a1:a10").Sort Key1:=Range("a1"), Order1:=xlAscending
End Sub
ΠΠΎΠ΄Π΄Π΅ΡΠΆΠΊΠ° ΠΈ ΠΎΠ±ΡΠ°ΡΠ½Π°Ρ ΡΠ²ΡΠ·ΡSupport and feedback
ΠΡΡΡ Π²ΠΎΠΏΡΠΎΡΡ ΠΈΠ»ΠΈ ΠΎΡΠ·ΡΠ²Ρ, ΠΊΠ°ΡΠ°ΡΡΠΈΠ΅ΡΡ Office VBA ΠΈΠ»ΠΈ ΡΡΠΎΠΉ ΡΡΠ°ΡΡΠΈ?Have questions or feedback about Office VBA or this documentation? Π ΡΠΊΠΎΠ²ΠΎΠ΄ΡΡΠ²ΠΎ ΠΏΠΎ Π΄ΡΡΠ³ΠΈΠΌ ΡΠΏΠΎΡΠΎΠ±Π°ΠΌ ΠΏΠΎΠ»ΡΡΠ΅Π½ΠΈΡ ΠΏΠΎΠ΄Π΄Π΅ΡΠΆΠΊΠΈ ΠΈ ΠΎΡΠΏΡΠ°Π²ΠΊΠΈ ΠΎΡΠ·ΡΠ²ΠΎΠ² ΡΠΌ. Π² ΡΡΠ°ΡΡΠ΅ ΠΠΎΠ΄Π΄Π΅ΡΠΆΠΊΠ° Office VBA ΠΈ ΠΎΠ±ΡΠ°ΡΠ½Π°Ρ ΡΠ²ΡΠ·Ρ.Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.
VBA Excel. ΠΡΠΎΠ²Π΅ΡΠΊΠ° ΡΠΎΡΡΠΎΡΠ½ΠΈΡ ΠΊΠ½ΠΈΠ³ΠΈ (ΠΎΡΠΊΡΡΡΠ° ΠΈΠ»ΠΈ Π·Π°ΠΊΡΡΡΠ°)
ΠΡΠΊΡΡΡΠ° ΠΈΠ»ΠΈ Π·Π°ΠΊΡΡΡΠ° ΠΊΠ½ΠΈΠ³Π° Excel? ΠΡΠΎΠ²Π΅ΡΡΠ΅ΠΌ Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΠΊΠΎΠ΄Π° VBA ΠΏΠΎ ΠΊΡΠ°ΡΠΊΠΎΠΌΡ ΠΈΠ»ΠΈ ΠΏΠΎΠ»Π½ΠΎΠΌΡ ΠΈΠΌΠ΅Π½ΠΈ ΡΠ°ΠΉΠ»Π°, ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΡ ΠΎΠ±ΡΠ΅ΠΊΡΠ½ΡΡ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ, ΡΠΈΠΊΠ» ΠΈΠ»ΠΈ ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡ Open.
ΠΡΠΎΠ²Π΅ΡΠΊΠ° ΠΏΠΎ ΠΊΡΠ°ΡΠΊΠΎΠΌΡ ΠΈΠΌΠ΅Π½ΠΈ
Π‘ΠΏΠΎΡΠΎΠ± ΠΏΡΠΎΠ²Π΅ΡΠΊΠΈ ΠΏΠΎ ΠΊΡΠ°ΡΠΊΠΎΠΌΡ ΠΈΠΌΠ΅Π½ΠΈ, ΠΎΡΠΊΡΡΡΠ° Π»ΠΈ ΡΠ°Π±ΠΎΡΠ°Ρ ΠΊΠ½ΠΈΠ³Π°, ΠΏΠΎΠ·Π²ΠΎΠ»ΡΠ΅Ρ ΠΎΠΏΡΠ΅Π΄Π΅Π»ΠΈΡΡ ΡΠΎΡΡΠΎΡΠ½ΠΈΠ΅ ΠΏΡΠΎΠ²Π΅ΡΡΠ΅ΠΌΠΎΠΉ ΠΊΠ½ΠΈΠ³ΠΈ Π² ΡΠΎΠΌ ΠΆΠ΅ ΡΠΊΠ·Π΅ΠΌΠΏΠ»ΡΡΠ΅ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΡ Excel, Π² ΠΊΠΎΡΠΎΡΠΎΠΌ ΠΎΡΠΊΡΡΡΠ° ΠΊΠ½ΠΈΠ³Π° Ρ ΠΏΡΠΎΠ²Π΅ΡΡΡΡΠΈΠΌ ΠΊΠΎΠ΄ΠΎΠΌ.
ΠΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ ΠΎΠ±ΡΠ΅ΠΊΡΠ½ΠΎΠΉ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ
ΠΠ°ΡΠΈΠ°Π½Ρ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»ΡΡΠΊΠΎΠΉ ΡΡΠ½ΠΊΡΠΈΡ VBA Excel, ΠΏΡΠ΅Π΄Π½Π°Π·Π½Π°ΡΠ΅Π½Π½ΠΎΠΉ Π΄Π»Ρ ΠΏΡΠΎΠ²Π΅ΡΠΊΠΈ, ΠΎΡΠΊΡΡΡΠ° ΠΈΠ»ΠΈ Π·Π°ΠΊΡΡΡΠ° ΡΠ°Π±ΠΎΡΠ°Ρ ΠΊΠ½ΠΈΠ³Π°, ΠΏΡΡΠ΅ΠΌ ΠΎΠΏΡΠ΅Π΄Π΅Π»Π΅Π½ΠΈΡ ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΠ° ΠΏΡΠΈΡΠ²ΠΎΠ΅Π½ΠΈΡ ΡΡΡΠ»ΠΊΠΈ Π½Π° Π½Π΅Π΅ ΠΎΠ±ΡΠ΅ΠΊΡΠ½ΠΎΠΉ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ. ΠΡΠΈΡΠ²ΠΎΠ΅Π½ΠΈΠ΅ ΡΠΎΡΡΠΎΡΠ»ΠΎΡΡ (BookOpenClosed = True) β ΠΊΠ½ΠΈΠ³Π° ΠΎΡΠΊΡΡΡΠ°, ΠΏΡΠΎΠΈΠ·ΠΎΡΠ»Π° ΠΎΡΠΈΠ±ΠΊΠ° ΠΈ ΠΏΡΠΈΡΠ²ΠΎΠ΅Π½ΠΈΠ΅ Π½Π΅ ΡΠΎΡΡΠΎΡΠ»ΠΎΡΡ (BookOpenClosed = False) β ΠΊΠ½ΠΈΠ³Π° Π·Π°ΠΊΡΡΡΠ°.
Function BookOpenClosed(wbName As String) As Boolean Β Β Β Β Dim myBook As Workbook Β Β Β Β On Error Resume Next Β Β Β Β Β Β Β Β Set myBook = Workbooks(wbName) Β Β Β Β BookOpenClosed = Not myBook Is Nothing End Function |
ΠΡΠ³ΡΠΌΠ΅Π½Ρ ΡΡΠ½ΠΊΡΠΈΠΈ:
- WbName β ΠΊΡΠ°ΡΠΊΠΎΠ΅ ΠΈΠΌΡ ΠΏΡΠΎΠ²Π΅ΡΡΠ΅ΠΌΠΎΠΉ ΡΠ°Π±ΠΎΡΠ΅ΠΉ ΠΊΠ½ΠΈΠ³ΠΈ.
ΠΠ΅ΡΠ΅Π±ΠΎΡ ΠΎΡΠΊΡΡΡΡΡ ΠΊΠ½ΠΈΠ³ ΡΠΈΠΊΠ»ΠΎΠΌ
ΠΡΠΎΡ Π²Π°ΡΠΈΠ°Π½Ρ ΡΡΠ½ΠΊΡΠΈΠΈ BookOpenClosed ΠΏΠ΅ΡΠ΅Π±ΠΈΡΠ°Π΅Ρ Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΡΠΈΠΊΠ»Π° Π²ΡΠ΅ ΠΎΡΠΊΡΡΡΡΠ΅ ΠΊΠ½ΠΈΠ³ΠΈ Excel ΠΈ ΠΏΡΠΎΠ²Π΅ΡΡΠ΅Ρ ΠΈΡ ΠΊΡΠ°ΡΠΊΠΈΠ΅ ΠΈΠΌΠ΅Π½Π° Π½Π° ΡΠΎΠ²ΠΏΠ°Π΄Π΅Π½ΠΈΠ΅ Ρ ΠΊΡΠ°ΡΠΊΠΈΠΌ ΠΈΠΌΠ΅Π½Π΅ΠΌ ΠΏΡΠΎΠ²Π΅ΡΡΠ΅ΠΌΠΎΠΉ ΠΊΠ½ΠΈΠ³ΠΈ. Π‘ΠΎΠ²ΠΏΠ°Π΄Π΅Π½ΠΈΠ΅ Π½Π°ΠΉΠ΄Π΅Π½ΠΎ (BookOpenClosed = True) β ΠΊΠ½ΠΈΠ³Π° ΠΎΡΠΊΡΡΡΠ°, ΡΠΎΠ²ΠΏΠ°Π΄Π΅Π½ΠΈΠ΅ Π½Π΅ Π½Π°ΠΉΠ΄Π΅Π½ΠΎ (BookOpenClosed = False) β ΠΊΠ½ΠΈΠ³Π° Π·Π°ΠΊΡΡΡΠ°.
Function BookOpenClosed(wbName As String) As Boolean Β Β Β Β Dim myBook As Workbook Β Β Β Β For Each myBook In Workbooks Β Β Β Β Β Β Β Β If myBook.Name = wbName Then Β Β Β Β Β Β Β Β Β Β Β Β BookOpenClosed = True Β Β Β Β Β Β Β Β Β Β Β Β Exit For Β Β Β Β Β Β Β Β End If Β Β Β Β Next End Function |
Π ΠΊΠΎΠ»Π»Π΅ΠΊΡΠΈΡ Workbooks Π²Ρ ΠΎΠ΄ΡΡ ΠΈ ΡΠΊΡΡΡΡΠ΅ ΠΊΠ½ΠΈΠ³ΠΈ, Π² ΡΠΎΠΌ ΡΠΈΡΠ»Π΅ ΠΠΈΡΠ½Π°Ρ ΠΊΠ½ΠΈΠ³Π° ΠΌΠ°ΠΊΡΠΎΡΠΎΠ², ΠΈ ΠΊΠ½ΠΈΠ³Π° Ρ ΡΡΠ½ΠΊΡΠΈΠ΅ΠΉ.
ΠΡΠΎΠ²Π΅ΡΠΊΠ° ΠΏΠΎ ΠΏΠΎΠ»Π½ΠΎΠΌΡ ΠΈΠΌΠ΅Π½ΠΈ
ΠΡΠΎΠ²Π΅ΡΠΊΠ° ΠΏΠΎ ΠΏΠΎΠ»Π½ΠΎΠΌΡ ΠΈΠΌΠ΅Π½ΠΈ Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡΠ° Open ΠΏΠΎΠ·Π²ΠΎΠ»ΡΠ΅Ρ ΡΠ·Π½Π°ΡΡ, ΠΎΡΠΊΡΡΡΠ° Π»ΠΈ ΡΠ°Π±ΠΎΡΠ°Ρ ΠΊΠ½ΠΈΠ³Π° ΠΊΠ°ΠΊΠΈΠΌ-Π»ΠΈΠ±ΠΎ Π΄ΡΡΠ³ΠΈΠΌ ΠΏΡΠΎΡΠ΅ΡΡΠΎΠΌ: ΡΠ΅ΠΊΡΡΠΈΠΌ ΡΠΊΠ·Π΅ΠΌΠΏΠ»ΡΡΠΎΠΌ Excel, Π² ΠΊΠΎΡΠΎΡΠΎΠΌ ΠΎΡΠΊΡΡΡΠ° ΠΊΠ½ΠΈΠ³Π° Ρ ΠΏΡΠΎΠ²Π΅ΡΡΡΡΠΈΠΌ ΠΊΠΎΠ΄ΠΎΠΌ, Π΄ΡΡΠ³ΠΈΠΌ ΡΠΊΠ·Π΅ΠΌΠΏΠ»ΡΡΠΎΠΌ Excel ΠΈΠ»ΠΈ ΡΡΠΎΡΠΎΠ½Π½ΠΈΠΌ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅ΠΌ.
Function BookOpenClosed(wbFullName As String) As Boolean Β Β Β Β Dim ff As Integer Β Β Β Β ff = FreeFile Β Β Β Β Β Β Β Β On Error Resume Next Β Β Β Β Β Β Β Β Open wbFullName For Random Access Read Write Lock Read Write As #ff Β Β Β Β Β Β Β Β Close #ff Β Β Β Β BookOpenClosed = (Err.Number <> 0) End Function |
ΠΡΠ³ΡΠΌΠ΅Π½Ρ ΡΡΠ½ΠΊΡΠΈΠΈ:
- wbFullName β ΠΏΠΎΠ»Π½ΠΎΠ΅ ΠΈΠΌΡ ΠΏΡΠΎΠ²Π΅ΡΡΠ΅ΠΌΠΎΠΉ ΡΠ°Π±ΠΎΡΠ΅ΠΉ ΠΊΠ½ΠΈΠ³ΠΈ.
ΠΡΠ° ΡΡΠ½ΠΊΡΠΈΡ ΠΎΡΠΊΡΡΠ²Π°Π΅Ρ Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡΠ° Open ΡΠ°ΠΉΠ» ΠΏΡΠΎΠ²Π΅ΡΡΠ΅ΠΌΠΎΠΉ ΠΊΠ½ΠΈΠ³ΠΈ Ρ ΡΠ°Π·ΡΠ΅ΡΠ΅Π½ΠΈΠ΅ΠΌ ΡΡΠ΅Π½ΠΈΡ ΠΈ Π·Π°ΠΏΠΈΡΠΈ (ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡ access) ΠΈ Π·Π°ΠΏΡΠ΅ΡΠΎΠΌ ΡΡΠ΅Π½ΠΈΡ ΠΈ Π·Π°ΠΏΠΈΡΠΈ, Π΅ΡΠ»ΠΈ ΡΡΠΎΡ ΡΠ°ΠΉΠ» ΡΠΆΠ΅ ΠΎΡΠΊΡΡΡ Π΄ΡΡΠ³ΠΈΠΌ ΠΏΡΠΎΡΠ΅ΡΡΠΎΠΌ (ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡ lock).
ΠΡΠ»ΠΈ ΡΠ°ΠΉΠ» ΡΠΆΠ΅ ΠΎΡΠΊΡΡΡ Π΄ΡΡΠ³ΠΈΠΌ ΠΏΡΠΎΡΠ΅ΡΡΠΎΠΌ, Π° ΡΠΊΠ°Π·Π°Π½Π½ΡΠΉ ΡΠΈΠΏ Π΄ΠΎΡΡΡΠΏΠ° (ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡ access) Π½Π΅ ΡΠ°Π·ΡΠ΅ΡΠ΅Π½ (ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡ lock), ΠΎΠΏΠ΅ΡΠ°ΡΠΈΡ ΠΎΡΠΊΡΡΡΠΈΡ Π·Π°Π²Π΅ΡΡΠΈΡΡΡ Ρ ΠΎΡΠΈΠ±ΠΊΠΎΠΉ, Π° Π²ΡΡΠ°ΠΆΠ΅Π½ΠΈΠ΅ (Err.Number 0) Π²ΠΎΠ·Π²ΡΠ°ΡΠΈΡ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ True.
ΠΡΠΈΠΌΠ΅ΡΡ ΠΏΡΠΎΠ²Π΅ΡΠΊΠΈ ΡΠΎΡΡΠΎΡΠ½ΠΈΡ ΠΊΠ½ΠΈΠ³ΠΈ
ΠΠΎ ΠΊΡΠ°ΡΠΊΠΎΠΌΡ ΠΈΠΌΠ΅Π½ΠΈ
Sub Primer1() Β Β Β Β If BookOpenClosed(«ΠΠ½ΠΈΠ³Π°1.xlsx») Then Β Β Β Β Β Β Β Β MsgBox «ΠΠ½ΠΈΠ³Π° ΠΎΡΠΊΡΡΡΠ°» Β Β Β Β Else Β Β Β Β Β Β Β Β MsgBox «ΠΠ½ΠΈΠ³Π° Π·Π°ΠΊΡΡΡΠ°» Β Β Β Β End If End Sub |
ΠΠΎ ΠΏΠΎΠ»Π½ΠΎΠΌΡ ΠΈΠΌΠ΅Π½ΠΈ
Sub Primer2() Β Β Β Β If BookOpenClosed(«C:\ΠΠ°ΠΏΠΊΠ°1\ΠΠ°ΠΏΠΊΠ°2\ΠΠ°ΠΏΠΊΠ°3\ΠΠ½ΠΈΠ³Π°1.xlsx») Then Β Β Β Β Β Β Β Β MsgBox «ΠΠ½ΠΈΠ³Π° ΠΎΡΠΊΡΡΡΠ°» Β Β Β Β Else Β Β Β Β Β Β Β Β MsgBox «ΠΠ½ΠΈΠ³Π° Π·Π°ΠΊΡΡΡΠ°» Β Β Β Β End If End Sub |
excel-vba — ΠΠ·Π±Π΅Π³Π°ΠΉΡΠ΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΡ SELECT ΠΈΠ»ΠΈ ACTIVATE
ΠΏΡΠΈΠΌΠ΅Ρ
ΠΡΠ΅Π½Ρ ΡΠ΅Π΄ΠΊΠΎ Π²Ρ ΠΊΠΎΠ³Π΄Π°-Π»ΠΈΠ±ΠΎ Π·Π°Ρ
ΠΎΡΠΈΡΠ΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ Select
ΠΈΠ»ΠΈ Activate
Π² ΡΠ²ΠΎΠ΅ΠΌ ΠΊΠΎΠ΄Π΅, Π½ΠΎ Π½Π΅ΠΊΠΎΡΠΎΡΡΠ΅ ΠΌΠ΅ΡΠΎΠ΄Ρ Excel ΡΡΠ΅Π±ΡΡΡ, ΡΡΠΎΠ±Ρ ΡΠ°Π±ΠΎΡΠΈΠΉ Π»ΠΈΡΡ ΠΈΠ»ΠΈ ΡΠ°Π±ΠΎΡΠ°Ρ ΠΊΠ½ΠΈΠ³Π° Π±ΡΠ»ΠΈ Π°ΠΊΡΠΈΠ²ΠΈΡΠΎΠ²Π°Π½Ρ Π΄ΠΎ ΡΠΎΠ³ΠΎ, ΠΊΠ°ΠΊ ΠΎΠ½ΠΈ Π±ΡΠ΄ΡΡ ΡΠ°Π±ΠΎΡΠ°ΡΡ Π΄ΠΎΠ»ΠΆΠ½ΡΠΌ ΠΎΠ±ΡΠ°Π·ΠΎΠΌ.
ΠΡΠ»ΠΈ Π²Ρ ΡΠΎΠ»ΡΠΊΠΎ Π½Π°ΡΠΈΠ½Π°Π΅ΡΠ΅ ΠΈΠ·ΡΡΠ°ΡΡ VBA, Π²Π°ΠΌ ΡΠ°ΡΡΠΎ ΠΏΡΠ΅Π΄Π»Π°Π³Π°Π΅ΡΡΡ Π·Π°ΠΏΠΈΡΠ°ΡΡ Π²Π°ΡΠΈ Π΄Π΅ΠΉΡΡΠ²ΠΈΡ Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΠΌΠ°ΠΊΡΠΎΡΡΠ΅ΠΌΡΠΈΠΊΠ°, Π° Π·Π°ΡΠ΅ΠΌ Π²Π·Π³Π»ΡΠ½ΡΡΡ Π½Π° ΠΊΠΎΠ΄. ΠΠ°ΠΏΡΠΈΠΌΠ΅Ρ, Ρ Π·Π°ΠΏΠΈΡΠ°Π» Π΄Π΅ΠΉΡΡΠ²ΠΈΡ, ΠΏΡΠ΅Π΄ΠΏΡΠΈΠ½ΡΡΡΠ΅ Π΄Π»Ρ Π²Π²ΠΎΠ΄Π° Π·Π½Π°ΡΠ΅Π½ΠΈΡ Π² ΡΡΠ΅ΠΉΠΊΠ΅ D3 Π½Π° Sheet2, ΠΈ ΠΌΠ°ΠΊΡΠΎΠΊΠΎΠΌΠ°Π½Π΄Π° Π²ΡΠ³Π»ΡΠ΄ΠΈΡ ΡΠ»Π΅Π΄ΡΡΡΠΈΠΌ ΠΎΠ±ΡΠ°Π·ΠΎΠΌ:
Option Explicit
Sub Macro1()
'
' Macro1 Macro
'
'
Sheets("Sheet2").Select
Range("D3").Select
ActiveCell.FormulaR1C1 = "3.1415" '(see **note below)
Range("D4").Select
End Sub
ΠΠΎΠΌΠ½ΠΈΡΠ΅, ΠΎΠ΄Π½Π°ΠΊΠΎ, ΠΌΠ°ΠΊΡΠΎΡΠ΅ΠΊΠΎΡΠ΄Π΅Ρ ΡΠΎΠ·Π΄Π°Π΅Ρ ΡΡΡΠΎΠΊΡ ΠΊΠΎΠ΄Π° Π΄Π»Ρ ΠΠΠΠΠΠΠ ΠΈΠ· Π²Π°ΡΠΈΡ
(ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»ΡΡΠΊΠΈΡ
) Π΄Π΅ΠΉΡΡΠ²ΠΈΠΉ. ΠΡΠΎ Π²ΠΊΠ»ΡΡΠ°Π΅Ρ Π² ΡΠ΅Π±Ρ ΡΠ΅Π»ΡΠΎΠΊ Π½Π° Π²ΠΊΠ»Π°Π΄ΠΊΠ΅ ΡΠ°Π±ΠΎΡΠ΅Π³ΠΎ Π»ΠΈΡΡΠ°, ΡΡΠΎΠ±Ρ Π²ΡΠ±ΡΠ°ΡΡ Sheet2 ( Sheets("Sheet2").Select
), ΡΠ΅Π»ΠΊΠ½ΡΠ² ΠΏΠΎ ΡΡΠ΅ΠΉΠΊΠ΅ D3 ΠΏΠ΅ΡΠ΅Π΄ Π²Π²ΠΎΠ΄ΠΎΠΌ Π·Π½Π°ΡΠ΅Π½ΠΈΡ ( Range("D3").Select
) ΠΈ Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΠΊΠ»Π°Π²ΠΈΡΠΈ Enter (ΠΊΠΎΡΠΎΡΠ°Ρ ΡΡΡΠ΅ΠΊΡΠΈΠ²Π½ΠΎ Β« Π²ΡΠ±ΡΠ°Π² Β«ΡΡΠ΅ΠΉΠΊΡ Π½ΠΈΠΆΠ΅ ΡΠ΅ΠΊΡΡΠ΅ΠΉ Π²ΡΠ±ΡΠ°Π½Π½ΠΎΠΉ ΡΡΠ΅ΠΉΠΊΠΈ: Range("D4").Select
).
Π‘ΡΡΠ΅ΡΡΠ²ΡΠ΅Ρ Π½Π΅ΡΠΊΠΎΠ»ΡΠΊΠΎ ΠΏΡΠΎΠ±Π»Π΅ΠΌ Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ΠΌ. .Select
Π·Π΄Π΅ΡΡ:
- Π Π°Π±ΠΎΡΠΈΠΉ Π»ΠΈΡΡ Π½Π΅ Π²ΡΠ΅Π³Π΄Π° ΡΠΊΠ°Π·ΡΠ²Π°Π΅ΡΡΡ. ΠΡΠΎ ΠΏΡΠΎΠΈΡΡ ΠΎΠ΄ΠΈΡ, Π΅ΡΠ»ΠΈ Π²Ρ Π½Π΅ ΠΌΠ΅Π½ΡΠ΅ΡΠ΅ ΡΠ°Π±ΠΎΡΠΈΠ΅ Π»ΠΈΡΡΡ Π²ΠΎ Π²ΡΠ΅ΠΌΡ Π·Π°ΠΏΠΈΡΠΈ ΠΈ ΠΎΠ·Π½Π°ΡΠ°Π΅Ρ, ΡΡΠΎ ΠΊΠΎΠ΄ Π΄Π°ΡΡ ΡΠ°Π·Π½ΡΠ΅ ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΡ Π΄Π»Ρ ΡΠ°Π·Π½ΡΡ Π°ΠΊΡΠΈΠ²Π½ΡΡ ΡΠ°Π±ΠΎΡΠΈΡ Π»ΠΈΡΡΠΎΠ².
-
.Select()
ΡΠ°Π±ΠΎΡΠ°Π΅Ρ ΠΌΠ΅Π΄Π»Π΅Π½Π½ΠΎ. ΠΠ°ΠΆΠ΅ Π΅ΡΠ»ΠΈ Π΄Π»Ρ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΠ°Application.ScreenUpdating
ΡΡΡΠ°Π½ΠΎΠ²Π»Π΅Π½ΠΎ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅False
, ΡΡΠΎ Π½Π΅ΠΎΠ±ΡΠ°Π±ΠΎΡΠ°Π½Π½Π°Ρ ΠΎΠΏΠ΅ΡΠ°ΡΠΈΡ, ΠΊΠΎΡΠΎΡΠ°Ρ Π΄ΠΎΠ»ΠΆΠ½Π° Π±ΡΡΡ ΠΎΠ±ΡΠ°Π±ΠΎΡΠ°Π½Π°. -
.Select()
Π½Π΅ΡΠΏΡΠ°Π²Π»ΡΠ΅ΠΌ. ΠΡΠ»ΠΈApplication.ScreenUpdating
ΠΎΡΡΠ°Π΅ΡΡΡ ΡΠ°Π²Π½ΡΠΌTrue
, Excel Π±ΡΠ΄Π΅Ρ ΡΠ°ΠΊΡΠΈΡΠ΅ΡΠΊΠΈ Π²ΡΠ±ΠΈΡΠ°ΡΡ ΡΡΠ΅ΠΉΠΊΠΈ, ΡΠ°Π±ΠΎΡΠΈΠΉ Π»ΠΈΡΡ, ΡΠΎΡΠΌΡ … Π½Π΅Π·Π°Π²ΠΈΡΠΈΠΌΠΎ ΠΎΡ ΡΠΎΠ³ΠΎ, Ρ ΡΠ΅ΠΌ Π²Ρ ΡΠ°Π±ΠΎΡΠ°Π΅ΡΠ΅. ΠΡΠΎ ΡΡΡΠ΅ΡΡΠΎΠ²ΠΎ Π΄Π»Ρ Π³Π»Π°Π· ΠΈ Π΄Π΅ΠΉΡΡΠ²ΠΈΡΠ΅Π»ΡΠ½ΠΎ Π½Π΅ΠΏΡΠΈΡΡΠ½ΠΎ ΡΠΌΠΎΡΡΠ΅ΡΡ. -
.Select()
Π²ΡΠ·ΠΎΠ²Π΅Ρ ΠΏΡΠΎΡΠ»ΡΡΠΈΠ²Π°ΡΠ΅Π»ΠΈ. ΠΡΠΎ ΡΠΆΠ΅ Π½Π΅ΠΌΠ½ΠΎΠ³ΠΎ ΠΏΡΠΎΠ΄Π²ΠΈΠ½ΡΡΠΎ, Π½ΠΎ Π΅ΡΠ»ΠΈ Π½Π΅ ΡΠ°Π±ΠΎΡΠ°ΡΡ, Π±ΡΠ΄ΡΡ Π·Π°ΠΏΡΡΠΊΠ°ΡΡΡΡ ΡΠ°ΠΊΠΈΠ΅ ΡΡΠ½ΠΊΡΠΈΠΈ, ΠΊΠ°ΠΊWorksheet_SelectionChange()
.
ΠΠΎΠ³Π΄Π° Π²Ρ ΠΊΠΎΠ΄ΠΈΡΡΠ΅ΡΠ΅ Π² VBA, Π²ΡΠ΅ Π΄Π΅ΠΉΡΡΠ²ΠΈΡ Β«Π½Π°Π±ΡΠ°Π²Β» (Ρ. Select
ΠΠΎΠΌΠ°Π½Π΄Ρ Select
) Π±ΠΎΠ»ΡΡΠ΅ Π½Π΅ Π½ΡΠΆΠ½Ρ. ΠΠ°Ρ ΠΊΠΎΠ΄ ΠΌΠΎΠΆΠ΅Ρ Π±ΡΡΡ ΡΠ²Π΅Π΄Π΅Π½ ΠΊ ΠΎΠ΄Π½ΠΎΠΌΡ ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡΡ, ΡΡΠΎΠ±Ρ ΠΏΠΎΠΌΠ΅ΡΡΠΈΡΡ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ Π² ΡΡΠ΅ΠΉΠΊΡ:
'--- GOOD
ActiveWorkbook.Sheets("Sheet2").Range("D3").Value = 3.1415
'--- BETTER
Dim myWB As Workbook
Dim myWS As Worksheet
Dim myCell As Range
Set myWB = ThisWorkbook '*** see NOTE2
Set myWS = myWB.Sheets("Sheet2")
Set myCell = myWS.Range("D3")
myCell.Value = 3.1415
(ΠΡΠΈΠΌΠ΅Ρ BETTER Π²ΡΡΠ΅ ΠΏΠΎΠΊΠ°Π·ΡΠ²Π°Π΅Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ ΠΏΡΠΎΠΌΠ΅ΠΆΡΡΠΎΡΠ½ΡΡ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ Π΄Π»Ρ ΡΠ°Π·Π΄Π΅Π»Π΅Π½ΠΈΡ ΡΠ°Π·Π½ΡΡ ΡΠ°ΡΡΠ΅ΠΉ ΡΡΡΠ»ΠΊΠΈ Π½Π° ΡΡΠ΅ΠΉΠΊΡ. ΠΡΠΈΠΌΠ΅Ρ GOOD Π²ΡΠ΅Π³Π΄Π° Π±ΡΠ΄Π΅Ρ ΡΠ°Π±ΠΎΡΠ°ΡΡ ΠΎΡΠ΅Π½Ρ Ρ ΠΎΡΠΎΡΠΎ, Π½ΠΎ ΠΌΠΎΠΆΠ΅Ρ Π±ΡΡΡ ΠΎΡΠ΅Π½Ρ Π³ΡΠΎΠΌΠΎΠ·Π΄ΠΊΠΈΠΌ Π² Π³ΠΎΡΠ°Π·Π΄ΠΎ Π±ΠΎΠ»Π΅Π΅ Π΄Π»ΠΈΠ½Π½ΡΡ ΠΌΠΎΠ΄ΡΠ»ΡΡ ΠΊΠΎΠ΄Π° ΠΈ Π±ΠΎΠ»Π΅Π΅ ΡΠ»ΠΎΠΆΠ½ΡΠΌ Π΄Π»Ρ ΠΎΡΠ»Π°Π΄ΠΊΠΈ, Π΅ΡΠ»ΠΈ ΠΎΠ΄Π½Π° ΠΈΠ· ΡΡΡΠ»ΠΎΠΊ Π½Π΅Π²Π΅ΡΠ½Π°. )
** ΠΠ ΠΠΠΠ§ΠΠΠΠ. ΠΠ°ΠΊΡΠΎΡΡΠ΅ΠΌΡΠΈΠΊ Π΄Π΅Π»Π°Π΅Ρ ΠΌΠ½ΠΎΠ³ΠΎ ΠΏΡΠ΅Π΄ΠΏΠΎΠ»ΠΎΠΆΠ΅Π½ΠΈΠΉ ΠΎ ΡΠΈΠΏΠ΅ Π΄Π°Π½Π½ΡΡ , ΠΊΠΎΡΠΎΡΡΠ΅ Π²Ρ Π²Π²ΠΎΠ΄ΠΈΡΠ΅, Π² ΡΡΠΎΠΌ ΡΠ»ΡΡΠ°Π΅ Π²Π²ΠΎΠ΄ΠΈΡΠ΅ ΡΡΡΠΎΠΊΠΎΠ²ΠΎΠ΅ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ Π² ΠΊΠ°ΡΠ΅ΡΡΠ²Π΅ ΡΠΎΡΠΌΡΠ»Ρ Π΄Π»Ρ ΡΠΎΠ·Π΄Π°Π½ΠΈΡ Π·Π½Π°ΡΠ΅Π½ΠΈΡ. ΠΠ°Ρ ΠΊΠΎΠ΄ Π½Π΅ Π΄ΠΎΠ»ΠΆΠ΅Π½ Π΄Π΅Π»Π°ΡΡ ΡΡΠΎΠ³ΠΎ ΠΈ ΠΌΠΎΠΆΠ΅Ρ ΠΏΡΠΎΡΡΠΎ Π½Π°Π·Π½Π°ΡΠΈΡΡ ΡΠΈΡΠ»ΠΎΠ²ΠΎΠ΅ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ Π½Π΅ΠΏΠΎΡΡΠ΅Π΄ΡΡΠ²Π΅Π½Π½ΠΎ ΡΡΠ΅ΠΉΠΊΠ΅, ΠΊΠ°ΠΊ ΠΏΠΎΠΊΠ°Π·Π°Π½ΠΎ Π²ΡΡΠ΅.
** ΠΡΠΈΠΌΠ΅ΡΠ°Π½ΠΈΠ΅ 2: ΡΠ΅ΠΊΠΎΠΌΠ΅Π½Π΄ΡΠ΅ΠΌΠ°Ρ ΠΏΡΠ°ΠΊΡΠΈΠΊΠ° , ΡΡΠΎΠ±Ρ ΡΡΡΠ°Π½ΠΎΠ²ΠΈΡΡ Π»ΠΎΠΊΠ°Π»ΡΠ½ΡΡ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ ΡΠ°Π±ΠΎΡΡΡ ΠΊΠ½ΠΈΠ³Ρ ThisWorkbook
Π²ΠΌΠ΅ΡΡΠΎ ActiveWorkbook
(Π΅ΡΠ»ΠΈ ΡΠ²Π½ΠΎ Π½Π΅ Π½ΡΠΆΠ½ΠΎ). ΠΡΠΈΡΠΈΠ½Π° Π·Π°ΠΊΠ»ΡΡΠ°Π΅ΡΡΡ Π² ΡΠΎΠΌ, ΡΡΠΎ Π²Π°Ρ ΠΌΠ°ΠΊΡΠΎΡ ΠΎΠ±ΡΡΠ½ΠΎ Π΄ΠΎΠ»ΠΆΠ΅Π½ / ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΡΠ΅ΡΡΡΡΡ Π² Π»ΡΠ±ΠΎΠΉ ΠΊΠ½ΠΈΠ³Π΅, ΠΈΠ· ΠΊΠΎΡΠΎΡΠΎΠΉ Π²ΠΎΠ·Π½ΠΈΠΊΠ°Π΅Ρ ΠΊΠΎΠ΄ VBA, ΠΈ ΠΠ Π±ΡΠ΄Π΅Ρ Π²ΡΠ³Π»ΡΠ΄Π΅ΡΡ Π·Π° ΠΏΡΠ΅Π΄Π΅Π»Π°ΠΌΠΈ ΡΡΠΎΠΉ ΠΊΠ½ΠΈΠ³ΠΈ — ΠΎΠΏΡΡΡ ΠΆΠ΅, Π΅ΡΠ»ΠΈ Π²Ρ ΡΠ²Π½ΠΎ Π½Π΅ Π½Π°Π·ΠΎΠ²Π΅ΡΠ΅ ΡΠ²ΠΎΠΉ ΠΊΠΎΠ΄ ΡΠ°Π±ΠΎΡΠ°ΡΡ Ρ Π΄ΡΡΠ³ΠΎΠΉ ΠΊΠ½ΠΈΠ³ΠΎΠΉ. ΠΠΎΠ³Π΄Π° Π²Ρ ΠΎΡΠΊΡΡΠ²Π°Π΅ΡΠ΅ Π½Π΅ΡΠΊΠΎΠ»ΡΠΊΠΎ ΠΊΠ½ΠΈΠ³ Π² Excel, ActiveWorkbook
— ΡΡΠΎ ΡΠ°, ΠΊΠΎΡΠΎΡΠ°Ρ ΠΌΠΎΠΆΠ΅Ρ ΠΎΡΠ»ΠΈΡΠ°ΡΡΡΡ ΠΎΡ ΡΠ°Π±ΠΎΡΠ΅ΠΉ ΠΊΠ½ΠΈΠ³ΠΈ, ΠΏΡΠΎΡΠΌΠ°ΡΡΠΈΠ²Π°Π΅ΠΌΠΎΠΉ Π² ΡΠ΅Π΄Π°ΠΊΡΠΎΡΠ΅ VBA . ΠΡΠ°ΠΊ, Π²Ρ Π΄ΡΠΌΠ°Π΅ΡΠ΅, ΡΡΠΎ ΡΠ°Π±ΠΎΡΠ°Π΅ΡΠ΅ Π² ΠΎΠ΄Π½ΠΎΠΉ ΠΊΠ½ΠΈΠ³Π΅, ΠΊΠΎΠ³Π΄Π° Π²Ρ Π΄Π΅ΠΉΡΡΠ²ΠΈΡΠ΅Π»ΡΠ½ΠΎ ΡΡΡΠ»Π°Π΅ΡΠ΅ΡΡ Π½Π° Π΄ΡΡΠ³ΡΡ. ThisWorkbook
ΠΎΡΠ½ΠΎΡΠΈΡΡΡ ΠΊ ΠΊΠ½ΠΈΠ³Π΅, ΡΠΎΠ΄Π΅ΡΠΆΠ°ΡΠ΅ΠΉ ΠΈΡΠΏΠΎΠ»Π½ΡΠ΅ΠΌΡΠΉ ΠΊΠΎΠ΄.
excel — VBA — ΠΠΊΡΠΈΠ²ΠΈΡΠΎΠ²Π°ΡΡ ΠΎΡΠΊΡΡΡΡΡ ΠΊΠ½ΠΈΠ³Ρ
I want to read a workbook and copy some cells in another workbook.
The aim of the code is to copy the cells from the different sheets from one file to the other.
For this propose, I created this code:
Sub processCopy(file)
'Abrir documento
Workbooks.Open Filename:=file, UpdateLinks:=0
cantn = ThisWorkbook.Sheets.Count
cantv = Sheets.Count - 5
cantn = cantn - 4
'Recorrer los libros del documento abierto
For i = 1 To (Sheets.Count - 5)
'Obtener nombre del libro seleccionado
nombre = Sheets(i + 2).Name
'Filtrar los libros no necesarios
If nombre <> "Instructions" And nombre <> "Executive Summary" And nombre <> "Process Update" And nombre <> "Template" And nombre <> "Notes" Then
If cantv >= cantn Then
ThisWorkbook.Sheets(3).copy after:=ThisWorkbook.Sheets(cantn + 2)
cantn = cantn + 1
ThisWorkbook.Sheets(cantn + 2).Name = nombre
ElseIf nombre <> ThisWorkbook.Sheets(cantn + 2).Name Then
ThisWorkbook.Sheets(cantn + 2).Name = nombre
End If
Workbooks.Open Filename:=file, UpdateLinks:=0
ActiveWorkbook.Worksheets(nombre).Activate
ActiveWorkbook.Sheets(nombre).Range("C4:O23").Select
Selection.copy
ThisWorkbook.Sheets(nombre).Range("C4:O23").PasteSpecial
After finishing the process in the first sheet, I compare if in the new file there is any other sheet to start with the process. If not (always) I create a new sheet to start with the process of copying and pasting, but the functions ThisWorkbook and ActiveWorkbook are working on the same sheet (copying and pasting from the same Workbook) and not from one file to the other.
That is why, I open the first workbook, but when the process of copying and pasting finishes, this message appears:
Error image
What can i do to solve it this issue?
Thanks for all
Excel VBA: ΠΊΠ°ΠΊ Π°ΠΊΡΠΈΠ²ΠΈΡΠΎΠ²Π°ΡΡ ΠΊΠ½ΠΈΠ³Ρ Π±Π΅Π· Π΅Π΅ ΠΏΠΎΠ»Π½ΠΎΠ³ΠΎ ΠΈΠΌΠ΅Π½ΠΈ? — excel
Π£ ΠΌΠ΅Π½Ρ ΠΎΡΠΊΡΡΡΠΎ Π½Π΅ΡΠΊΠΎΠ»ΡΠΊΠΎ ΠΊΠ½ΠΈΠ³ excel. Π― Ρ ΠΎΡΡ Π°ΠΊΡΠΈΠ²ΠΈΡΠΎΠ²Π°ΡΡ ΠΊΠ½ΠΈΠ³Ρ, ΠΊΠΎΡΠΎΡΠ°Ρ ΠΈΠΌΠ΅Π΅Ρ «Final» Π² ΡΠ²ΠΎΠ΅ΠΌ ΠΈΠΌΠ΅Π½ΠΈ.
ΠΡΠΈΠΌΠ΅Ρ: Ρ ΠΌΠ΅Π½Ρ Π΅ΡΡΡ ΡΡΠΈ ΠΎΡΠΊΡΡΡΡΡ ΠΊΠ½ΠΈΠ³ΠΈ ΠΏΠΎΠ΄ Π½Π°Π·Π²Π°Π½ΠΈΠ΅ΠΌ «Workbook1.xlsx», «worKbook2.xlsm» ΠΈ «workbookFinal.xlsx», ΠΎΡΠΊΡΡΡΡΠ΅ ΠΎΠ΄Π½ΠΎΠ²ΡΠ΅ΠΌΠ΅Π½Π½ΠΎ.
ΠΠΎΠΉ ΠΊΠΎΠ΄ VBA Π½Π°Ρ ΠΎΠ΄ΠΈΡΡΡ Π² «Macro.xlsm». ΠΡΠΏΠΎΠ»ΡΠ·ΡΡ VBA, Ρ Ρ ΠΎΡΡ Π°ΠΊΡΠΈΠ²ΠΈΡΠΎΠ²Π°ΡΡ ΠΊΠ½ΠΈΠ³Ρ, Π² ΠΊΠΎΡΠΎΡΠΎΠΉ Π΅ΡΡΡ «Final». FYI .. Π²ΡΠ΅ ΠΊΠ½ΠΈΠ³ΠΈ Π½Π°Ρ ΠΎΠ΄ΡΡΡΡ Π² ΡΠ°Π·Π½ΡΡ Π½Π°ΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡΡ .
excel
vba
excel-vba
ΠΠΎΠ΄Π΅Π»ΠΈΡΡΡΡ
ΠΡΡΠΎΡΠ½ΠΈΠΊ
Pratik Β Β
09 ΡΠ΅Π²ΡΠ°Π»Ρ 2017 Π² 09:13
2 ΠΡΠ²Π΅ΡΠ°
2
ΡΠΈΠΊΠ» ΡΠ΅ΡΠ΅Π· ΠΊΠΎΠ»Π»Π΅ΠΊΡΠΈΡ Workbooks
Π΄ΠΎ ΡΠ΅Ρ
ΠΏΠΎΡ, ΠΏΠΎΠΊΠ° Π½Π΅ Π±ΡΠ΄Π΅Ρ Π½Π°ΠΉΠ΄Π΅Π½Π° ΠΏΡΠ°Π²ΠΈΠ»ΡΠ½Π°Ρ ΠΈΠΌΠ΅Π½ΠΎΠ²Π°Π½Π½Π°Ρ ΠΊΠ½ΠΈΠ³Π°:
Sub wbs()
Dim wb As Workbook
For Each wb In Workbooks
If InStr(wb.Name, "Final") > 0 Then
wb.Activate
Exit For
End If
Next
End Sub
ΠΠΎΠ΄Π΅Π»ΠΈΡΡΡΡ
user3598756 Β Β
09 ΡΠ΅Π²ΡΠ°Π»Ρ 2017 Π² 09:16
2
ΠΠΎΠΏΡΠΎΠ±ΡΠΉΡΠ΅ ΠΊΠΎΠ΄ Π½ΠΈΠΆΠ΅, ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΡ ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡ Like
Ρ wild-ΠΊΠ°ΡΡΠΎΠΉ *
.
Option Explicit
Sub FindFinalWorkbook()
Dim wb As Workbook
' loop through all open workbooks
For Each wb In Application.Workbooks
If wb.Name Like "*Final*" Then '< -- check if workbook name is Like *Final*
wb.Activate
Exit For
End If
Next wb
End Sub
ΠΠΎΠ΄Π΅Π»ΠΈΡΡΡΡ
Shai Rado Β Β
09 ΡΠ΅Π²ΡΠ°Π»Ρ 2017 Π² 09:18
ΠΠΎΡ ΠΎΠΆΠΈΠ΅ Π²ΠΎΠΏΡΠΎΡΡ:
imacro Π΄Π»Ρ excel vba?
ΠΡΠΆΠ½Π° ΠΊΠΎΠ½ΡΡΠ»ΡΡΠ°ΡΠΈΡ ΠΎ ΡΠΎΠΌ, ΠΊΠ°ΠΊ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ imacro Π² excel vba. imacro-ΡΡΠΎ ΠΏΠ΅ΡΠ΅ΠΊΠΎΠ΄ΠΈΡΠΎΠ²ΡΠΈΠΊ ΠΌΠ°ΠΊΡΠΎΡΠΎΠ² ΠΈΠ½ΡΠ΅ΡΠ½Π΅ΡΠ°, Π½Π°ΠΉΠ΄Π΅Π½Π½ΡΠΉ Π² internet explorer ΠΈ firefox. ΠΡΠΎ-Π½ΠΈΠ±ΡΠ΄Ρ Π·Π½Π°Π΅Ρ, ΠΊΠ°ΠΊ Π°ΠΊΡΠΈΠ²ΠΈΡΠΎΠ²Π°ΡΡ imacro Ρ…
Excel/VBA: ΠΡΠΊΡΡΡΡ ΠΠΎΠ²ΡΡ ΠΠ½ΠΈΠ³Ρ Π ΠΠΎΠ²ΠΎΠΌ ΠΠΊΠ½Π΅
Π― ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΡ Excel 2010 ΠΈ ΠΈΡΡ ΡΡΠ΅Π½Π°ΡΠΈΠΉ VBA, ΠΊΠΎΡΠΎΡΡΠΉ ΠΎΡΠΊΡΠΎΠ΅Ρ Π½ΠΎΠ²ΡΡ ΠΊΠ½ΠΈΠ³Ρ Π² Π½ΠΎΠ²ΠΎΠΌ ΠΎΠΊΠ½Π΅ (Π½Π°ΠΏΡΠΈΠΌΠ΅Ρ, Ρ ΠΌΠΎΠ³ Π±Ρ ΡΠ°Π·ΠΌΠ΅ΡΡΠΈΡΡ ΠΎΠ΄Π½Ρ ΠΊΠ½ΠΈΠ³Ρ Π½Π° ΠΊΠ°ΠΆΠ΄ΠΎΠΌ ΠΈΠ· 2 ΠΌΠΎΠ½ΠΈΡΠΎΡΠΎΠ²). ΠΠ°ΡΠ΅ΠΌ Ρ Π±Ρ ΠΏΠΎΠΌΠ΅ΡΡΠΈΠ» ΡΡΠΎΡ ΠΌΠ°ΠΊΡΠΎΡ VBA/Π½Π° Π»Π΅Π½ΡΡ…
ΠΠ°ΠΊ Π²Π²Π΅ΡΡΠΈ ΠΊΠΎΠ΄ VBA Π² Excel .xlsm Π±Π΅Π· ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΡ Interop?
ΠΠΎΡ ΡΠ΅Π»Ρ-Π΄ΠΎΠ±Π°Π²ΠΈΡΡ macros Π² ΠΠ½ΠΈΠ³Ρ excel Π±Π΅Π· Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎΡΡΠΈ Π²ΠΊΠ»ΡΡΠ°ΡΡ Trust Access to the VBA Project Object Module Π² ΡΠ΅Π½ΡΡΠ΅ Π΄ΠΎΠ²Π΅ΡΠΈΡ Excel. (ΠΠΊΠ»ΡΡΠ΅Π½ΠΈΠ΅ Π΄ΠΎΡΡΡΠΏΠ° ΠΊΠ°ΠΆΠ΅ΡΡΡ ΡΠ³ΡΠΎΠ·ΠΎΠΉ Π±Π΅Π·ΠΎΠΏΠ°ΡΠ½ΠΎΡΡΠΈ). ΠΠ°ΡΠ΅Π»…
ΠΠ°ΠΊ Π°ΠΊΡΠΈΠ²ΠΈΡΠΎΠ²Π°ΡΡ ΠΊΠΎΠ½ΠΊΡΠ΅ΡΠ½ΡΡ ΠΊΠ½ΠΈΠ³Ρ ΠΈ ΠΊΠΎΠ½ΠΊΡΠ΅ΡΠ½ΡΠΉ Π»ΠΈΡΡ?
ΠΠ°ΠΊ Π°ΠΊΡΠΈΠ²ΠΈΡΠΎΠ²Π°ΡΡ Π΄ΡΡΠ³ΡΡ ΠΊΠ½ΠΈΠ³Ρ ΠΈΠ· ΡΠ΅ΠΊΡΡΠ΅ΠΉ ΠΊΠ½ΠΈΠ³ΠΈ? Π£ ΠΌΠ΅Π½Ρ Π΅ΡΡΡ ΡΠ΅ΠΊΡΡΠ°Ρ ΠΊΠ½ΠΈΠ³Π° Ρ dumb.xls ΠΈ Π΄ΡΡΠ³ΠΈΠΌ ΠΈΠΌΠ΅Π½Π΅ΠΌ ΠΊΠ½ΠΈΠ³ΠΈ, ΠΊΠ°ΠΊ Tire.xls.I ΠΎΡΠΊΡΡΠ»ΠΈ Tire.xls ΠΈΠ· dumb.xls Ρ ΠΏΠΎΠΌΠΎΡΡΡ worksbooks.open filename:= name of…
Excel VBA Π·Π°ΠΊΡΡΡΡ ΡΠ΅ΠΊΡΡΡΡ ΠΊΠ½ΠΈΠ³Ρ ΠΡΠΈΠ±ΠΊΠ° 1004
Π£ ΠΌΠ΅Π½Ρ Π΅ΡΡΡ ΠΊΠΎΠ΄ VBA Π² ΠΊΠ½ΠΈΠ³Π΅ Excel. Π£ ΠΌΠ΅Π½Ρ Π΅ΡΡΡ ΡΡΠ΅ΠΉΠΊΠ°, ΠΊΠΎΡΠΎΡΡΡ Ρ Ρ ΠΎΡΠ΅Π» Π±Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ, ΡΡΠΎΠ±Ρ Π·Π°ΠΊΡΡΡΡ ΠΊΠ½ΠΈΠ³Ρ Π±Π΅Π· ΡΠΎΡ ΡΠ°Π½Π΅Π½ΠΈΡ (Π²ΠΌΠ΅ΡΡΠΎ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΡ ΠΎΠ±ΡΡΠ½ΠΎΠΉ ΠΊΠ½ΠΎΠΏΠΊΠΈ (X) close Π² ΠΏΡΠ°Π²ΠΎΠΌ Π²Π΅ΡΡ Π½Π΅ΠΌ ΡΠ³Π»Ρ excel….
Excel VBA ΠΊΠΎΠΏΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½Π° Π² Π½ΠΎΠ²ΡΡ ΡΠ°Π±ΠΎΡΡΡ ΠΊΠ½ΠΈΠ³Ρ
Π― Π½ΠΎΠ²ΠΈΡΠΎΠΊ Π² Excel VBA . Π― ΠΏΡΡΠ°ΡΡΡ ΡΠΊΠΎΠΏΠΈΡΠΎΠ²Π°ΡΡ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ Π΄Π°Π½Π½ΡΡ ΠΈΠ· Π²ΡΡ ΠΎΠ΄Π½ΡΡ Π΄Π°Π½Π½ΡΡ Π»ΠΈΡΡΠ° Π² Π½ΠΎΠ²ΡΡ ΠΊΠ½ΠΈΠ³Ρ excel ΠΈ ΡΠΎΡ ΡΠ°Π½ΠΈΡΡ Π½ΠΎΠ²ΡΡ ΠΊΠ½ΠΈΠ³Ρ ΡΠΎ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ΠΌ the Π² E3. Π ΠΊΠ°ΡΠ΅ΡΡΠ²Π΅ Π±ΠΎΠ½ΡΡΠ° Ρ Ρ ΠΎΡΠ΅Π» Π±Ρ ΡΠ°ΠΊΠΆΠ΅ ΠΈΠΌΠ΅ΡΡ…
Excel VBA ΠΊΠΎΠΏΠΈΡΠΎΠ²Π°ΡΡ ΠΊΠ½ΠΈΠ³Ρ Ρ ΠΏΠΎΠ΄Π΄Π΅ΡΠΆΠΊΠΎΠΉ ΠΌΠ°ΠΊΡΠΎΡΠΎΠ² XL-2007 ΠΊΠ°ΠΊ ΡΠ°ΠΉΠ» excel-2003 Π±Π΅Π· macros
Π― ΠΈΡΡ ΠΌΠ°ΠΊΡΠΎΡ vba, ΠΊΠΎΡΠΎΡΡΠΉ ΡΠ΄Π΅Π»Π°Π΅Ρ ΠΊΠΎΠΏΠΈΡ ΡΠ΅ΠΊΡΡΠ΅ΠΉ ΠΊΠ½ΠΈΠ³ΠΈ Ρ ΠΏΠΎΠ΄Π΄Π΅ΡΠΆΠΊΠΎΠΉ ΠΌΠ°ΠΊΡΠΎΡΠΎΠ² Excel 2007 Ρ ΠΈΠΌΠ΅Π½Π΅ΠΌ, ΠΊΠΎΡΠΎΡΠΎΠ΅ Ρ ΡΠΊΠ°Π·ΡΠ²Π°Ρ ΠΊΠ°ΠΊ Π΄ΠΎΠΊΡΠΌΠ΅Π½Ρ Π±Π΅Π· ΠΌΠ°ΠΊΡΠΎΡΠΎΠ² Excel 2003. ΠΠ½ ΡΠ°ΠΊΠΆΠ΅ Π΄ΠΎΠ»ΠΆΠ΅Π½ Π΄Π΅ΡΠΆΠ°ΡΡ ΡΠ΅ΠΊΡΡΡΡ ΠΊΠ½ΠΈΠ³Ρ…
ΠΠ°ΠΊ Π°ΠΊΡΠΈΠ²ΠΈΡΠΎΠ²Π°ΡΡ ΠΊΠ½ΠΈΠ³Ρ, ΠΊΠΎΡΠΎΡΠ°Ρ ΠΎΡΠΊΡΡΡΠ° Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ΠΌ ΠΈΠΌΠ΅Π½ΠΈ ΠΊΠ½ΠΈΠ³ΠΈ Π² VBA
Π£ ΠΌΠ΅Π½Ρ ΡΠΆΠ΅ Π΅ΡΡΡ ΠΎΠ΄Π½Π° ΠΎΡΠΊΡΡΡΠ°Ρ ΠΊΠ½ΠΈΠ³Π°, Π½ΠΎ Ρ Π·Π°ΠΏΡΡΠΊΠ°Ρ ΠΌΠ°ΠΊΡΠΎΡ ΠΈΠ· Π΄ΡΡΠ³ΠΎΠΉ ΠΊΠ½ΠΈΠ³ΠΈ. Π― Ρ ΠΎΡΠ΅Π» Π±Ρ Π°ΠΊΡΠΈΠ²ΠΈΡΠΎΠ²Π°ΡΡ ΠΏΠ΅ΡΠ²ΡΡ ΠΊΠ½ΠΈΠ³Ρ, ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΡ Π΅Π΅ ΠΈΠΌΡ. ΠΠΎΠ΄: FileName = input_path_1 & input_file_1…
ΠΠΊΡΠΈΠ²ΠΈΡΠΎΠ²Π°ΡΡ Π»ΠΈΡΡ excel ΠΈΠ· VBA, Π½Π΅ Π·Π½Π°Ρ Π΅Π³ΠΎ ΠΈΠΌΠ΅Π½ΠΈ?
ΠΠΎΠΆΠ½ΠΎ Π»ΠΈ Π°ΠΊΡΠΈΠ²ΠΈΡΠΎΠ²Π°ΡΡ Π»ΠΈΡΡ Π² ΠΎΡΠΊΡΡΡΠΎΠΉ ΠΊΠ½ΠΈΠ³Π΅ ΡΠ΅ΡΠ΅Π· VBA, Π½Π΅ Π·Π½Π°Ρ Π΅Π³ΠΎ ΠΈΠΌΠ΅Π½ΠΈ? Π― ΠΎΡΠΊΡΡΠ²Π°Ρ ΠΊΠ½ΠΈΠ³Ρ Ρ ΠΏΠΎΠΌΠΎΡΡΡ application.getfileopenname ΠΈ ΡΠΈΡΠ°Ρ Π΄Π°Π½Π½ΡΠ΅ ΠΈΠ· Π½Π΅Π΅, Π½ΠΎ Π½Π΅ΠΊΠΎΡΠΎΡΡΠ΅ ΠΊΠ½ΠΈΠ³ΠΈ ΠΈΠΌΠ΅ΡΡ Π΄Π°Π½Π½ΡΠ΅ Π½Π° Π²ΡΠΎΡΠΎΠΌ…
VBA ΠΎΡΠΊΡΡΡΡ ΠΊΠ½ΠΈΠ³Ρ excel Π½Π° ΠΎΡΠ½ΠΎΠ²Π΅ ΠΏΠ΅ΡΠ²ΠΎΠΉ ΡΠ°ΡΡΠΈ ΠΈΠΌΠ΅Π½ΠΈ ΡΠ°ΠΉΠ»Π°?
Π― ΠΏΡΡΠ°ΡΡΡ ΠΎΡΠΊΡΡΡΡ ΠΊΠ½ΠΈΠ³Ρ excel Ρ ΠΏΠΎΠΌΠΎΡΡΡ vba: ‘Open Planner On Error Resume Next Set WB = Workbooks((FILE NAME).xlsx) On Error GoTo 0 If WB Is Nothing Then ‘open workbook if not open Set WB =…
ΠΠ½ΠΈΠ³Π°
Excel Π½Π΅ Π°ΠΊΡΠΈΠ²ΠΈΡΡΠ΅ΡΡΡ ΠΏΡΠΈ Π·Π°ΠΏΡΡΠΊΠ΅ ΠΌΠ°ΠΊΡΠΎΡΠ° — Office
- 2 ΠΌΠΈΠ½ΡΡΡ Π½Π° ΡΡΠ΅Π½ΠΈΠ΅
- ΠΡΠΈΠΌΠ΅Π½ΠΈΠΌΠΎ ΠΊ:
- ΠΠ°ΠΊΠ΅Ρ ΠΎΠ±Π½ΠΎΠ²Π»Π΅Π½ΠΈΡ 1 Π΄Π»Ρ Office 2013, Excel 2013
Π ΡΡΠΎΠΉ ΡΡΠ°ΡΡΠ΅
ΠΡΠΈΠΌΠ΅ΡΠ°Π½ΠΈΠ΅
Office 365 ProPlus ΠΏΠ΅ΡΠ΅ΠΈΠΌΠ΅Π½ΠΎΠ²ΡΠ²Π°Π΅ΡΡΡ Π² Microsoft 365 Apps for Enterprise .ΠΠΎΠΏΠΎΠ»Π½ΠΈΡΠ΅Π»ΡΠ½ΡΠ΅ ΡΠ²Π΅Π΄Π΅Π½ΠΈΡ ΠΎΠ± ΡΡΠΎΠΌ ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΠΈ ΡΠΌ. Π ΡΡΠΎΠΌ ΡΠΎΠΎΠ±ΡΠ΅Π½ΠΈΠΈ Π² Π±Π»ΠΎΠ³Π΅.
Π‘ΠΈΠΌΠΏΡΠΎΠΌΡ
ΠΡΠΈ Π·Π°ΠΏΡΡΠΊΠ΅ ΠΌΠ°ΠΊΡΠΎΡΠ°, ΠΊΠΎΡΠΎΡΡΠΉ Π²ΡΠ·ΡΠ²Π°Π΅Ρ ΠΌΠ΅ΡΠΎΠ΄ Workbook.Activate Π² ΠΊΠ½ΠΈΠ³Π΅ Microsoft Excel 2013, ΠΊΠ½ΠΈΠ³Π° Π½Π΅ Π°ΠΊΡΠΈΠ²ΠΈΡΡΠ΅ΡΡΡ, Π΅ΡΠ»ΠΈ Π΄Π»Ρ ΡΠ²ΠΎΠΉΡΡΠ²Π° ScreenUpdating Π·Π°Π΄Π°Π½ΠΎ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ False.
ΠΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠ΅ ΡΠ΅ΡΠ΅Π½ΠΈΠ΅
Π§ΡΠΎΠ±Ρ ΠΎΠ±ΠΎΠΉΡΠΈ ΡΡΡ ΠΏΡΠΎΠ±Π»Π΅ΠΌΡ, ΡΡΡΠ°Π½ΠΎΠ²ΠΈΡΠ΅ Π΄Π»Ρ ΡΠ²ΠΎΠΉΡΡΠ²Π° ScreenUpdating Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ True ΠΏΠ΅ΡΠ΅Π΄ Π²ΡΠ·ΠΎΠ²ΠΎΠΌ ΠΌΠ΅ΡΠΎΠ΄Π° Activate. ΠΡΠΈ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎΡΡΠΈ Π²Ρ ΠΌΠΎΠΆΠ΅ΡΠ΅ Π²Π΅ΡΠ½ΡΡΡ Π΄Π»Ρ Π½Π΅Π³ΠΎ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ False ΠΏΠΎΡΠ»Π΅ Π·Π°ΠΏΡΡΠΊΠ° ΠΌΠ΅ΡΠΎΠ΄Π° Activate, ΠΊΠ°ΠΊ Π² ΡΠ»Π΅Π΄ΡΡΡΠ΅ΠΌ ΠΏΡΠΈΠΌΠ΅ΡΠ΅ ΠΊΠΎΠ΄Π°:
ΠΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅.ScreenUpdating = True
Π Π°Π±ΠΎΡΠΈΠ΅ ΡΠ΅ΡΡΠ°Π΄ΠΈ (1). ΠΠΊΡΠΈΠ²ΠΈΡΠΎΠ²Π°ΡΡ
Application.ScreenUpdating = False
ΠΡΠΈΠΌΠ΅ΡΠ°Π½ΠΈΠ΅
ΠΡΠΎΡ ΠΊΠΎΠ΄ ΠΌΠΎΠΆΠ΅Ρ Π²ΡΠ·Π²Π°ΡΡ ΠΌΠΈΠ³Π°Π½ΠΈΠ΅ ΡΠΊΡΠ°Π½Π° ΠΈ ΠΈΠ·ΠΌΠ΅Π½ΠΈΡΡ ΡΠΎΠ΄Π΅ΡΠΆΠΈΠΌΠΎΠ΅, ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ°Π΅ΠΌΠΎΠ΅ Π΄Π»Ρ Excel Π²ΠΎ Π²ΡΠ΅ΠΌΡ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΡ ΠΌΠ°ΠΊΡΠΎΡΠ°.
ΠΠΎΠΏΠΎΠ»Π½ΠΈΡΠ΅Π»ΡΠ½Π°Ρ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΡ
Π Excel 2013 Π±ΡΠ»Π° ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»Π΅Π½Π° ββΡΡΠ½ΠΊΡΠΈΡ ΠΈΠ½ΡΠ΅ΡΡΠ΅ΠΉΡΠ° Π΅Π΄ΠΈΠ½ΠΎΠ³ΠΎ Π΄ΠΎΠΊΡΠΌΠ΅Π½ΡΠ° (SDI). ΠΠ½ΠΈΠ³ΠΈ Excel 2013 ΡΠ΅ΠΏΠ΅ΡΡ ΡΠ²Π»ΡΡΡΡΡ ΠΎΠΊΠ½Π°ΠΌΠΈ Π²Π΅ΡΡ Π½Π΅Π³ΠΎ ΡΡΠΎΠ²Π½Ρ Π² Windows. Π ΡΡΠΎΠΉ ΠΊΠΎΠ½ΡΠΈΠ³ΡΡΠ°ΡΠΈΠΈ Windows ΠΎΠ±ΡΠ°Π±Π°ΡΡΠ²Π°Π΅Ρ Π°ΠΊΡΠΈΠ²Π°ΡΠΈΡ ΠΎΠΊΠΎΠ½, Π° Π½Π΅ Excel, ΡΠΏΡΠ°Π²Π»ΡΡ Π΄ΠΎΡΠ΅ΡΠ½ΠΈΠΌΠΈ ΠΎΠΊΠ½Π°ΠΌΠΈ, ΠΊΠ°ΠΊ ΡΡΠΎ Π±ΡΠ»ΠΎ Π² Π±ΠΎΠ»Π΅Π΅ ΡΠ°Π½Π½ΠΈΡ Π²Π΅ΡΡΠΈΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ.
Π ΡΡΠ΅Π½Π°ΡΠΈΠΈ, ΠΎΠΏΠΈΡΠ°Π½Π½ΠΎΠΌ Π² ΡΠ°Π·Π΄Π΅Π»Π΅ Β«ΠΡΠΎΠ±Π»Π΅ΠΌΠ°Β», Excel Π·Π°ΠΏΡΠ°ΡΠΈΠ²Π°Π΅Ρ Π°ΠΊΡΠΈΠ²Π°ΡΠΈΡ ΠΊΠ½ΠΈΠ³ΠΈ Windows, Π½ΠΎ ΠΎΠΊΠ½ΠΎ ΠΊΠ½ΠΈΠ³ΠΈ Π½Π΅ ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΡΠ΅Ρ ΡΡΠ΅Π±ΠΎΠ²Π°Π½ΠΈΡΠΌ Π°ΠΊΡΠΈΠ²Π°ΡΠΈΠΈ Windows.
.
ΠΠ±ΡΠ΅ΠΊΡ «Π Π°Π±ΠΎΡΠ°Ρ ΠΊΠ½ΠΈΠ³Π°» (Excel) | ΠΠΎΠΊΡΠΌΠ΅Π½ΡΡ Microsoft
- 3 ΠΌΠΈΠ½ΡΡΡ Π½Π° ΡΡΠ΅Π½ΠΈΠ΅
Π ΡΡΠΎΠΉ ΡΡΠ°ΡΡΠ΅
ΠΡΠ΅Π΄ΡΡΠ°Π²Π»ΡΠ΅Ρ ΠΊΠ½ΠΈΠ³Ρ Microsoft Excel.
ΠΠ°ΠΌΠ΅ΡΠ°Π½ΠΈΡ
ΠΠ±ΡΠ΅ΠΊΡ Workbook ΡΠ²Π»ΡΠ΅ΡΡΡ ΡΠ»Π΅Π½ΠΎΠΌ ΠΊΠΎΠ»Π»Π΅ΠΊΡΠΈΠΈ Workbooks . ΠΠΎΠ»Π»Π΅ΠΊΡΠΈΡ Workbooks ΡΠΎΠ΄Π΅ΡΠΆΠΈΡ Π²ΡΠ΅ ΠΎΠ±ΡΠ΅ΠΊΡΡ Workbook , ΠΎΡΠΊΡΡΡΡΠ΅ Π² Π½Π°ΡΡΠΎΡΡΠ΅Π΅ Π²ΡΠ΅ΠΌΡ Π² Microsoft Excel.
Π‘Π²ΠΎΠΉΡΡΠ²ΠΎ ThisWorkbook ΠΎΠ±ΡΠ΅ΠΊΡΠ° Application Π²ΠΎΠ·Π²ΡΠ°ΡΠ°Π΅Ρ ΠΊΠ½ΠΈΠ³Ρ, Π² ΠΊΠΎΡΠΎΡΠΎΠΉ Π²ΡΠΏΠΎΠ»Π½ΡΠ΅ΡΡΡ ΠΊΠΎΠ΄ Visual Basic. Π Π±ΠΎΠ»ΡΡΠΈΠ½ΡΡΠ²Π΅ ΡΠ»ΡΡΠ°Π΅Π² ΡΡΠΎ ΡΠΎ ΠΆΠ΅ ΡΠ°ΠΌΠΎΠ΅, ΡΡΠΎ ΠΈ Π°ΠΊΡΠΈΠ²Π½Π°Ρ ΠΊΠ½ΠΈΠ³Π°. ΠΠ΄Π½Π°ΠΊΠΎ, Π΅ΡΠ»ΠΈ ΠΊΠΎΠ΄ Visual Basic ΡΠ²Π»ΡΠ΅ΡΡΡ ΡΠ°ΡΡΡΡ Π½Π°Π΄ΡΡΡΠΎΠΉΠΊΠΈ, ΡΠ²ΠΎΠΉΡΡΠ²ΠΎ ThisWorkbook Π½Π΅ Π²Π΅ΡΠ½Π΅Ρ Π°ΠΊΡΠΈΠ²Π½ΡΡ ΠΊΠ½ΠΈΠ³Ρ. Π ΡΡΠΎΠΌ ΡΠ»ΡΡΠ°Π΅ Π°ΠΊΡΠΈΠ²Π½ΠΎΠΉ ΠΊΠ½ΠΈΠ³ΠΎΠΉ ΡΠ²Π»ΡΠ΅ΡΡΡ ΠΊΠ½ΠΈΠ³Π°, Π²ΡΠ·ΡΠ²Π°ΡΡΠ°Ρ Π½Π°Π΄ΡΡΡΠΎΠΉΠΊΡ, ΡΠΎΠ³Π΄Π° ΠΊΠ°ΠΊ ΡΠ²ΠΎΠΉΡΡΠ²ΠΎ ThisWorkbook Π²ΠΎΠ·Π²ΡΠ°ΡΠ°Π΅Ρ ΠΊΠ½ΠΈΠ³Ρ Π½Π°Π΄ΡΡΡΠΎΠΉΠΊΠΈ.
ΠΡΠ»ΠΈ Π²Ρ ΡΠΎΠ·Π΄Π°Π΅ΡΠ΅ Π½Π°Π΄ΡΡΡΠΎΠΉΠΊΡ ΠΈΠ· ΠΊΠΎΠ΄Π° Visual Basic, Π²Ρ Π΄ΠΎΠ»ΠΆΠ½Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΡΠ²ΠΎΠΉΡΡΠ²ΠΎ ThisWorkbook , ΡΡΠΎΠ±Ρ ΠΊΠ²Π°Π»ΠΈΡΠΈΡΠΈΡΠΎΠ²Π°ΡΡ Π»ΡΠ±ΠΎΠΉ ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡ, ΠΊΠΎΡΠΎΡΡΠΉ Π΄ΠΎΠ»ΠΆΠ΅Π½ Π²ΡΠΏΠΎΠ»Π½ΡΡΡΡΡ Π² ΠΊΠ½ΠΈΠ³Π΅, ΠΊΠΎΡΠΎΡΡΡ Π²Ρ ΠΊΠΎΠΌΠΏΠΈΠ»ΠΈΡΡΠ΅ΡΠ΅ Π² Π½Π°Π΄ΡΡΡΠΎΠΉΠΊΡ.
ΠΡΠΈΠΌΠ΅Ρ
ΠΡΠΏΠΎΠ»ΡΠ·ΡΠΉΡΠ΅ Workbooks ( index ), Π³Π΄Π΅ index — ΡΡΠΎ ΠΈΠΌΡ ΠΊΠ½ΠΈΠ³ΠΈ ΠΈΠ»ΠΈ Π½ΠΎΠΌΠ΅Ρ ΠΈΠ½Π΄Π΅ΠΊΡΠ°, ΡΡΠΎΠ±Ρ Π²Π΅ΡΠ½ΡΡΡ ΠΎΠ΄ΠΈΠ½ ΠΎΠ±ΡΠ΅ΠΊΡ Workbook . Π ΡΠ»Π΅Π΄ΡΡΡΠ΅ΠΌ ΠΏΡΠΈΠΌΠ΅ΡΠ΅ Π°ΠΊΡΠΈΠ²ΠΈΡΡΠ΅ΡΡΡ ΠΏΠ΅ΡΠ²Π°Ρ ΠΊΠ½ΠΈΠ³Π°.
Π Π°Π±ΠΎΡΠΈΠ΅ ΡΠ΅ΡΡΠ°Π΄ΠΈ (1) .ΠΠΊΡΠΈΠ²ΠΈΡΠΎΠ²Π°ΡΡ
ΠΠΎΠΌΠ΅Ρ ΠΈΠ½Π΄Π΅ΠΊΡΠ° ΠΎΠ±ΠΎΠ·Π½Π°ΡΠ°Π΅Ρ ΠΏΠΎΡΡΠ΄ΠΎΠΊ, Π² ΠΊΠΎΡΠΎΡΠΎΠΌ ΠΊΠ½ΠΈΠ³ΠΈ Π±ΡΠ»ΠΈ ΠΎΡΠΊΡΡΡΡ ΠΈΠ»ΠΈ ΡΠΎΠ·Π΄Π°Π½Ρ. Workbooks (1)
— ΡΡΠΎ ΠΏΠ΅ΡΠ²Π°Ρ ΡΠΎΠ·Π΄Π°Π½Π½Π°Ρ ΡΠ°Π±ΠΎΡΠ°Ρ ΠΊΠ½ΠΈΠ³Π°, Π° Workbooks (Workbooks.Count)
— ΠΏΠΎΡΠ»Π΅Π΄Π½ΡΡ ΡΠΎΠ·Π΄Π°Π½Π½Π°Ρ.ΠΠΊΡΠΈΠ²Π°ΡΠΈΡ ΠΊΠ½ΠΈΠ³ΠΈ Π½Π΅ ΠΌΠ΅Π½ΡΠ΅Ρ Π΅Π΅ ΠΏΠΎΡΡΠ΄ΠΊΠΎΠ²ΡΠΉ Π½ΠΎΠΌΠ΅Ρ. ΠΡΠ΅ ΠΊΠ½ΠΈΠ³ΠΈ Π²ΠΊΠ»ΡΡΠ°ΡΡΡΡ Π² ΡΡΠ΅ΡΡΠΈΠΊ ΠΈΠ½Π΄Π΅ΠΊΡΠ°, Π΄Π°ΠΆΠ΅ Π΅ΡΠ»ΠΈ ΠΎΠ½ΠΈ ΡΠΊΡΡΡΡ.
Π‘Π²ΠΎΠΉΡΡΠ²ΠΎ Name Π²ΠΎΠ·Π²ΡΠ°ΡΠ°Π΅Ρ ΠΈΠΌΡ ΠΊΠ½ΠΈΠ³ΠΈ. ΠΡ Π½Π΅ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΡΡΡΠ°Π½ΠΎΠ²ΠΈΡΡ ΠΈΠΌΡ Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΡΡΠΎΠ³ΠΎ ΡΠ²ΠΎΠΉΡΡΠ²Π°; Π΅ΡΠ»ΠΈ Π²Π°ΠΌ Π½ΡΠΆΠ½ΠΎ ΠΈΠ·ΠΌΠ΅Π½ΠΈΡΡ ΠΈΠΌΡ, ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠΉΡΠ΅ ΠΌΠ΅ΡΠΎΠ΄ SaveAs , ΡΡΠΎΠ±Ρ ΡΠΎΡ ΡΠ°Π½ΠΈΡΡ ΠΊΠ½ΠΈΠ³Ρ ΠΏΠΎΠ΄ Π΄ΡΡΠ³ΠΈΠΌ ΠΈΠΌΠ΅Π½Π΅ΠΌ.
Π ΡΠ»Π΅Π΄ΡΡΡΠ΅ΠΌ ΠΏΡΠΈΠΌΠ΅ΡΠ΅ Π°ΠΊΡΠΈΠ²ΠΈΡΡΠ΅ΡΡΡ Sheet1 Π² ΠΊΠ½ΠΈΠ³Π΅ Ρ ΠΈΠΌΠ΅Π½Π΅ΠΌ Cogs.xls (ΠΊΠ½ΠΈΠ³Π° ΡΠΆΠ΅ Π΄ΠΎΠ»ΠΆΠ½Π° Π±ΡΡΡ ΠΎΡΠΊΡΡΡΠ° Π² Microsoft Excel).
Π Π°Π±ΠΎΡΠΈΠ΅ ΠΊΠ½ΠΈΠ³ΠΈ (Β«Cogs.xlsΒ»). Π Π°Π±ΠΎΡΠΈΠ΅ Π»ΠΈΡΡΡ (Β«ΠΠΈΡΡ1Β»). ΠΠΊΡΠΈΠ²ΠΈΡΠΎΠ²Π°ΡΡ
Π‘Π²ΠΎΠΉΡΡΠ²ΠΎ ActiveWorkbook ΠΎΠ±ΡΠ΅ΠΊΡΠ° Application Π²ΠΎΠ·Π²ΡΠ°ΡΠ°Π΅Ρ ΡΠ΅ΠΊΡΡΡΡ Π°ΠΊΡΠΈΠ²Π½ΡΡ ΠΊΠ½ΠΈΠ³Ρ. Π ΡΠ»Π΅Π΄ΡΡΡΠ΅ΠΌ ΠΏΡΠΈΠΌΠ΅ΡΠ΅ Π·Π°Π΄Π°Π΅ΡΡΡ ΠΈΠΌΡ Π°Π²ΡΠΎΡΠ° Π΄Π»Ρ Π°ΠΊΡΠΈΠ²Π½ΠΎΠΉ ΠΊΠ½ΠΈΠ³ΠΈ.
ActiveWorkbook.Author = "ΠΠ°Π½ Π‘Π΅Π»ΡΠ²Π°"
Π ΡΡΠΎΠΌ ΠΏΡΠΈΠΌΠ΅ΡΠ΅ ΡΠ»Π΅ΠΊΡΡΠΎΠ½Π½Π°Ρ ΠΏΠΎΡΡΠ° ΠΎΡΠΏΡΠ°Π²Π»ΡΠ΅Ρ Π²ΠΊΠ»Π°Π΄ΠΊΡ ΡΠ°Π±ΠΎΡΠ΅Π³ΠΎ Π»ΠΈΡΡΠ° ΠΈΠ· Π°ΠΊΡΠΈΠ²Π½ΠΎΠΉ ΠΊΠ½ΠΈΠ³ΠΈ, ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΡ ΡΠΊΠ°Π·Π°Π½Π½ΡΠΉ Π°Π΄ΡΠ΅Ρ ΡΠ»Π΅ΠΊΡΡΠΎΠ½Π½ΠΎΠΉ ΠΏΠΎΡΡΡ ΠΈ ΡΠ΅ΠΌΡ. ΠΠ»Ρ Π·Π°ΠΏΡΡΠΊΠ° ΡΡΠΎΠ³ΠΎ ΠΊΠΎΠ΄Π° Π°ΠΊΡΠΈΠ²Π½ΡΠΉ Π»ΠΈΡΡ Π΄ΠΎΠ»ΠΆΠ΅Π½ ΡΠΎΠ΄Π΅ΡΠΆΠ°ΡΡ Π°Π΄ΡΠ΅Ρ ΡΠ»Π΅ΠΊΡΡΠΎΠ½Π½ΠΎΠΉ ΠΏΠΎΡΡΡ Π² ΡΡΠ΅ΠΉΠΊΠ΅ A1, ΡΠ΅ΠΌΡ Π² ΡΡΠ΅ΠΉΠΊΠ΅ B1 ΠΈ ΠΈΠΌΡ Π»ΠΈΡΡΠ° Π΄Π»Ρ ΠΎΡΠΏΡΠ°Π²ΠΊΠΈ Π² ΡΡΠ΅ΠΉΠΊΠ΅ C1.
Sub SendTab ()
'ΠΠ±ΡΡΠ²ΠΈΡΠ΅ ΠΈ ΠΈΠ½ΠΈΡΠΈΠ°Π»ΠΈΠ·ΠΈΡΡΠΉΡΠ΅ ΡΠ²ΠΎΠΈ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΠ΅ ΠΈ ΠΎΡΠΊΠ»ΡΡΠΈΡΠ΅ ΠΎΠ±Π½ΠΎΠ²Π»Π΅Π½ΠΈΠ΅ ΡΠΊΡΠ°Π½Π°.
Dim wks ΠΊΠ°ΠΊ ΡΠ°Π±ΠΎΡΠΈΠΉ Π»ΠΈΡΡ
Application.ScreenUpdating = False
Π£ΡΡΠ°Π½ΠΎΠ²ΠΈΡΡ wks = ActiveSheet
'Π‘ΠΊΠΎΠΏΠΈΡΡΠΉΡΠ΅ ΡΠ΅Π»Π΅Π²ΠΎΠΉ ΡΠ°Π±ΠΎΡΠΈΠΉ Π»ΠΈΡΡ, ΡΠΊΠ°Π·Π°Π½Π½ΡΠΉ Π² ΡΡΠ΅ΠΉΠΊΠ΅ C1, Π² Π±ΡΡΠ΅Ρ ΠΎΠ±ΠΌΠ΅Π½Π°.
Π Π°Π±ΠΎΡΠΈΠ΅ Π»ΠΈΡΡΡ (ΠΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ ("C1"). ΠΠ½Π°ΡΠ΅Π½ΠΈΠ΅). ΠΠΎΠΏΠΈΡΠΎΠ²Π°ΡΡ
'ΠΡΠΏΡΠ°Π²ΠΈΡΡ ΡΠΎΠ΄Π΅ΡΠΆΠΈΠΌΠΎΠ΅ Π±ΡΡΠ΅ΡΠ° ΠΎΠ±ΠΌΠ΅Π½Π° Π½Π° Π°Π΄ΡΠ΅Ρ ΡΠ»Π΅ΠΊΡΡΠΎΠ½Π½ΠΎΠΉ ΠΏΠΎΡΡΡ, ΡΠΊΠ°Π·Π°Π½Π½ΡΠΉ Π² ΡΡΠ΅ΠΉΠΊΠ΅ A1,
'ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΡ ΡΠ΅ΠΌΡ, ΡΠΊΠ°Π·Π°Π½Π½ΡΡ Π² ΡΡΠ΅ΠΉΠΊΠ΅ B1.
ActiveWorkbook.SendMail wks.Range ("A1"). Value, wks.Range ("B1").Π¦Π΅Π½Π½ΠΎΡΡΡ
'ΠΠ΅ ΡΠΎΡ
ΡΠ°Π½ΡΡΡ ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΡ ΠΈ ΡΠ½ΠΎΠ²Π° Π²ΠΊΠ»ΡΡΠΈΡΡ ΠΎΠ±Π½ΠΎΠ²Π»Π΅Π½ΠΈΠ΅ ΡΠΊΡΠ°Π½Π°.
ActiveWorkbook.Close savechanges: = False
Application.ScreenUpdating = True
ΠΠΎΠ½Π΅Ρ ΠΏΠΎΠ΄ΠΏΠΈΡΠΊΠΈ
Π‘ΠΎΠ±ΡΡΠΈΡ
ΠΠ΅ΡΠΎΠ΄Ρ
ΠΠ΅Π΄Π²ΠΈΠΆΠΈΠΌΠΎΡΡΡ
Π‘ΠΌ. Π’Π°ΠΊΠΆΠ΅
ΠΠΎΠ΄Π΄Π΅ΡΠΆΠΊΠ° ΠΈ ΠΎΡΠ·ΡΠ²Ρ
ΠΡΡΡ Π²ΠΎΠΏΡΠΎΡΡ ΠΈΠ»ΠΈ ΠΎΡΠ·ΡΠ²Ρ ΠΎΠ± Office VBA ΠΈΠ»ΠΈ ΡΡΠΎΠΉ Π΄ΠΎΠΊΡΠΌΠ΅Π½ΡΠ°ΡΠΈΠΈ? Π‘ΠΌ. Π Π°Π·Π΄Π΅Π» ΠΠΎΠ΄Π΄Π΅ΡΠΆΠΊΠ° ΠΈ ΠΎΡΠ·ΡΠ²Ρ Office VBA, ΡΡΠΎΠ±Ρ ΡΠ·Π½Π°ΡΡ, ΠΊΠ°ΠΊ ΠΏΠΎΠ»ΡΡΠΈΡΡ ΠΏΠΎΠ΄Π΄Π΅ΡΠΆΠΊΡ ΠΈ ΠΎΡΡΠ°Π²ΠΈΡΡ ΠΎΡΠ·ΡΠ².
.
ΠΠ΅ΡΠΎΠ΄ Workbook.Protect (Excel) | ΠΠΎΠΊΡΠΌΠ΅Π½ΡΡ Microsoft
- 2 ΠΌΠΈΠ½ΡΡΡ Π½Π° ΡΡΠ΅Π½ΠΈΠ΅
Π ΡΡΠΎΠΉ ΡΡΠ°ΡΡΠ΅
ΠΠ°ΡΠΈΡΠ°Π΅Ρ ΠΊΠ½ΠΈΠ³Ρ, ΡΡΠΎΠ±Ρ Π΅Π΅ Π½Π΅Π»ΡΠ·Ρ Π±ΡΠ»ΠΎ ΠΈΠ·ΠΌΠ΅Π½ΠΈΡΡ.
Π‘ΠΈΠ½ΡΠ°ΠΊΡΠΈΡ
Π²ΡΡΠ°ΠΆΠ΅Π½ΠΈΠ΅ . ΠΠ°ΡΠΈΡΠΈΡΡ ( ΠΠ°ΡΠΎΠ»Ρ , Π‘ΡΡΡΠΊΡΡΡΠ° , Windows )
Π²ΡΡΠ°ΠΆΠ΅Π½ΠΈΠ΅ ΠΠ΅ΡΠ΅ΠΌΠ΅Π½Π½Π°Ρ, ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»ΡΡΡΠ°Ρ ΠΎΠ±ΡΠ΅ΠΊΡ Workbook .
ΠΠ°ΡΠ°ΠΌΠ΅ΡΡΡ
ΠΠΌΡ | ΠΠ±ΡΠ·Π°ΡΠ΅Π»ΡΠ½ΠΎ / ΠΠΎΠΏΠΎΠ»Π½ΠΈΡΠ΅Π»ΡΠ½ΠΎ | Π’ΠΈΠΏ Π΄Π°Π½Π½ΡΡ | ΠΠΏΠΈΡΠ°Π½ΠΈΠ΅ |
---|---|---|---|
ΠΠ°ΡΠΎΠ»Ρ | ΠΠΎΠΏΠΎΠ»Π½ΠΈΡΠ΅Π»ΡΠ½ΠΎ | ΠΠ°ΡΠΈΠ°Π½Ρ | Π‘ΡΡΠΎΠΊΠ°, ΠΎΠΏΡΠ΅Π΄Π΅Π»ΡΡΡΠ°Ρ ΠΏΠ°ΡΠΎΠ»Ρ Ρ ΡΡΠ΅ΡΠΎΠΌ ΡΠ΅Π³ΠΈΡΡΡΠ° Π΄Π»Ρ ΡΠ°Π±ΠΎΡΠ΅Π³ΠΎ Π»ΠΈΡΡΠ° ΠΈΠ»ΠΈ ΠΊΠ½ΠΈΠ³ΠΈ. ΠΡΠ»ΠΈ ΡΡΠΎΡ Π°ΡΠ³ΡΠΌΠ΅Π½Ρ ΠΎΠΏΡΡΠ΅Π½, Π²Ρ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΡΠ½ΡΡΡ Π·Π°ΡΠΈΡΡ Ρ Π»ΠΈΡΡΠ° ΠΈΠ»ΠΈ ΠΊΠ½ΠΈΠ³ΠΈ Π±Π΅Π· ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΡ ΠΏΠ°ΡΠΎΠ»Ρ. Π ΠΏΡΠΎΡΠΈΠ²Π½ΠΎΠΌ ΡΠ»ΡΡΠ°Π΅ Π²Ρ Π΄ΠΎΠ»ΠΆΠ½Ρ ΡΠΊΠ°Π·Π°ΡΡ ΠΏΠ°ΡΠΎΠ»Ρ, ΡΡΠΎΠ±Ρ ΡΠ½ΡΡΡ Π·Π°ΡΠΈΡΡ Ρ Π»ΠΈΡΡΠ° ΠΈΠ»ΠΈ ΠΊΠ½ΠΈΠ³ΠΈ.ΠΡΠ»ΠΈ Π²Ρ Π·Π°Π±ΡΠ΄Π΅ΡΠ΅ ΠΏΠ°ΡΠΎΠ»Ρ, Π²Ρ Π½Π΅ ΡΠΌΠΎΠΆΠ΅ΡΠ΅ ΡΠ½ΡΡΡ Π·Π°ΡΠΈΡΡ Ρ ΡΠ°Π±ΠΎΡΠ΅Π³ΠΎ Π»ΠΈΡΡΠ° ΠΈΠ»ΠΈ ΠΊΠ½ΠΈΠ³ΠΈ. ΠΡΠΏΠΎΠ»ΡΠ·ΡΠΉΡΠ΅ Π½Π°Π΄Π΅ΠΆΠ½ΡΠ΅ ΠΏΠ°ΡΠΎΠ»ΠΈ, ΡΠΎΡΡΠΎΡΡΠΈΠ΅ ΠΈΠ· ΠΏΡΠΎΠΏΠΈΡΠ½ΡΡ ΠΈ ΡΡΡΠΎΡΠ½ΡΡ Π±ΡΠΊΠ², ΡΠΈΡΡ ΠΈ ΡΠΈΠΌΠ²ΠΎΠ»ΠΎΠ². Π‘Π»Π°Π±ΡΠ΅ ΠΏΠ°ΡΠΎΠ»ΠΈ Π½Π΅ ΡΠΌΠ΅ΡΠΈΠ²Π°ΡΡ ΡΡΠΈ ΡΠ»Π΅ΠΌΠ΅Π½ΡΡ. ΠΠ°Π΄Π΅ΠΆΠ½ΡΠΉ ΠΏΠ°ΡΠΎΠ»Ρ: Y6dh! Et5. Π‘Π»Π°Π±ΡΠΉ ΠΏΠ°ΡΠΎΠ»Ρ: House27. ΠΠ°ΡΠΎΠ»ΠΈ Π΄ΠΎΠ»ΠΆΠ½Ρ ΡΠΎΡΡΠΎΡΡΡ ΠΈΠ· 8 ΠΈΠ»ΠΈ Π±ΠΎΠ»Π΅Π΅ ΡΠΈΠΌΠ²ΠΎΠ»ΠΎΠ². ΠΡΡΡΠ΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΠΏΠ°ΡΠΎΠ»ΡΠ½ΡΡ ΡΡΠ°Π·Ρ, ΡΠΎΡΡΠΎΡΡΡΡ ΠΈΠ· 14 ΠΈΠ»ΠΈ Π±ΠΎΠ»Π΅Π΅ ΡΠΈΠΌΠ²ΠΎΠ»ΠΎΠ². ΠΡΠ΅Π½Ρ Π²Π°ΠΆΠ½ΠΎ ΠΏΠΎΠΌΠ½ΠΈΡΡ ΡΠ²ΠΎΠΉ ΠΏΠ°ΡΠΎΠ»Ρ. ΠΡΠ»ΠΈ Π²Ρ Π·Π°Π±ΡΠ΄Π΅ΡΠ΅ ΡΠ²ΠΎΠΉ ΠΏΠ°ΡΠΎΠ»Ρ, Microsoft Π½Π΅ ΡΠΌΠΎΠΆΠ΅Ρ Π΅Π³ΠΎ Π²ΠΎΡΡΡΠ°Π½ΠΎΠ²ΠΈΡΡ.Π₯ΡΠ°Π½ΠΈΡΠ΅ Π·Π°ΠΏΠΈΡΠ°Π½Π½ΡΠ΅ ΠΏΠ°ΡΠΎΠ»ΠΈ Π² Π½Π°Π΄Π΅ΠΆΠ½ΠΎΠΌ ΠΌΠ΅ΡΡΠ΅ Π²Π΄Π°Π»ΠΈ ΠΎΡ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΈ, ΠΊΠΎΡΠΎΡΡΡ ΠΎΠ½ΠΈ ΠΏΠΎΠΌΠΎΠ³Π°ΡΡ Π·Π°ΡΠΈΡΠΈΡΡ. |
Π‘ΡΡΡΠΊΡΡΡΠ° | ΠΠΎΠΏΠΎΠ»Π½ΠΈΡΠ΅Π»ΡΠ½ΠΎ | ΠΠ°ΡΠΈΠ°Π½Ρ | True Π΄Π»Ρ Π·Π°ΡΠΈΡΡ ΡΡΡΡΠΊΡΡΡΡ ΠΊΠ½ΠΈΠ³ΠΈ (Π²Π·Π°ΠΈΠΌΠ½ΠΎΠ³ΠΎ ΡΠ°ΡΠΏΠΎΠ»ΠΎΠΆΠ΅Π½ΠΈΡ Π»ΠΈΡΡΠΎΠ²). ΠΠ½Π°ΡΠ΅Π½ΠΈΠ΅ ΠΏΠΎ ΡΠΌΠΎΠ»ΡΠ°Π½ΠΈΡ — ΠΠΎΠΆΡ . |
ΠΠΊΠ½Π° | ΠΠΎΠΏΠΎΠ»Π½ΠΈΡΠ΅Π»ΡΠ½ΠΎ | ΠΠ°ΡΠΈΠ°Π½Ρ | True Π΄Π»Ρ Π·Π°ΡΠΈΡΡ ΠΎΠΊΠΎΠ½ ΠΊΠ½ΠΈΠ³ΠΈ.ΠΡΠ»ΠΈ ΡΡΠΎΡ Π°ΡΠ³ΡΠΌΠ΅Π½Ρ ΠΎΠΏΡΡΠ΅Π½, ΠΎΠΊΠ½Π° Π½Π΅ Π·Π°ΡΠΈΡΠ΅Π½Ρ. |
ΠΠΎΠ΄Π΄Π΅ΡΠΆΠΊΠ° ΠΈ ΠΎΡΠ·ΡΠ²Ρ
ΠΡΡΡ Π²ΠΎΠΏΡΠΎΡΡ ΠΈΠ»ΠΈ ΠΎΡΠ·ΡΠ²Ρ ΠΎΠ± Office VBA ΠΈΠ»ΠΈ ΡΡΠΎΠΉ Π΄ΠΎΠΊΡΠΌΠ΅Π½ΡΠ°ΡΠΈΠΈ? Π‘ΠΌ. Π Π°Π·Π΄Π΅Π» ΠΠΎΠ΄Π΄Π΅ΡΠΆΠΊΠ° ΠΈ ΠΎΡΠ·ΡΠ²Ρ Office VBA, ΡΡΠΎΠ±Ρ ΡΠ·Π½Π°ΡΡ, ΠΊΠ°ΠΊ ΠΏΠΎΠ»ΡΡΠΈΡΡ ΠΏΠΎΠ΄Π΄Π΅ΡΠΆΠΊΡ ΠΈ ΠΎΡΡΠ°Π²ΠΈΡΡ ΠΎΡΠ·ΡΠ².
.