Sheets vba excel: ΠΠ±ΡΠ΅ΠΊΡ Sheets (Excel) | Microsoft Docs
ΠΠ±ΡΠ΅ΠΊΡ Sheets (Excel) | Microsoft Docs
-
- Π§ΡΠ΅Π½ΠΈΠ΅ Π·Π°Π½ΠΈΠΌΠ°Π΅Ρ 2Β ΠΌΠΈΠ½
Π ΡΡΠΎΠΉ ΡΡΠ°ΡΡΠ΅
ΠΠΎΠ»Π»Π΅ΠΊΡΠΈΡ Π²ΡΠ΅Ρ Π»ΠΈΡΡΠΎΠ² Π² ΡΠΊΠ°Π·Π°Π½Π½ΠΎΠΉ ΠΈΠ»ΠΈ Π°ΠΊΡΠΈΠ²Π½ΠΎΠΉ ΠΊΠ½ΠΈΠ³Π΅.A collection of all the sheets in the specified or active workbook.
ΠΡΠΈΠΌΠ΅ΡΠ°Π½ΠΈΡRemarks
ΠΠΎΠ»Π»Π΅ΠΊΡΠΈΡ Sheets ΠΌΠΎΠΆΠ΅Ρ ΡΠΎΠ΄Π΅ΡΠΆΠ°ΡΡ Π΄ΠΈΠ°Π³ΡΠ°ΠΌΠΌΡ ΠΈΠ»ΠΈ ΠΎΠ±ΡΠ΅ΠΊΡΡ Π»ΠΈΡΡΠ° .The Sheets collection can contain Chart or Worksheet objects.
ΠΠΎΠ»Π»Π΅ΠΊΡΠΈΡ Sheets ΠΏΠΎΠ»Π΅Π·Π½Π°, Π΅ΡΠ»ΠΈ ΡΡΠ΅Π±ΡΠ΅ΡΡΡ Π²ΠΎΠ·Π²ΡΠ°ΡΠΈΡΡ Π»ΠΈΡΡΡ Π»ΡΠ±ΠΎΠ³ΠΎ ΡΠΈΠΏΠ°.The Sheets collection is useful when you want to return sheets of any type. ΠΡΠ»ΠΈ ΡΡΠ΅Π±ΡΠ΅ΡΡΡ ΡΠ°Π±ΠΎΡΠ°ΡΡ Ρ Π»ΠΈΡΡΠ°ΠΌΠΈ ΡΠΎΠ»ΡΠΊΠΎ ΠΎΠ΄Π½ΠΎΠ³ΠΎ ΡΠΈΠΏΠ°, ΠΎΠ·Π½Π°ΠΊΠΎΠΌΡΡΠ΅ΡΡ Ρ ΡΠ°Π·Π΄Π΅Π»ΠΎΠΌ ΠΎΠ±ΡΠ΅ΠΊΡ Π΄Π»Ρ ΡΡΠΎΠ³ΠΎ ΡΠΈΠΏΠ° Π»ΠΈΡΡΠ°.If you need to work with sheets of only one type, see the object topic for that sheet type.
ΠΡΠΈΠΌΠ΅ΡExample
ΠΡΠΏΠΎΠ»ΡΠ·ΡΠΉΡΠ΅ ΡΠ²ΠΎΠΉΡΡΠ²ΠΎ Sheets ΠΎΠ±ΡΠ΅ΠΊΡΠ° Workbook , ΡΡΠΎΠ±Ρ Π²Π΅ΡΠ½ΡΡΡ ΠΊΠΎΠ»Π»Π΅ΠΊΡΠΈΡ Sheets .Use the Sheets property of the Workbook object to return the Sheets collection. Π ΠΏΡΠΈΠ²Π΅Π΄Π΅Π½Π½ΠΎΠΌ Π½ΠΈΠΆΠ΅ ΠΏΡΠΈΠΌΠ΅ΡΠ΅ Π²ΡΠΏΠΎΠ»Π½ΡΠ΅ΡΡΡ ΠΏΠ΅ΡΠ°ΡΡ Π²ΡΠ΅Ρ Π»ΠΈΡΡΠΎΠ² Π² Π°ΠΊΡΠΈΠ²Π½ΠΎΠΉ ΠΊΠ½ΠΈΠ³Π΅.The following example prints all sheets in the active workbook.
Sheets.PrintOut
ΠΡΠΏΠΎΠ»ΡΠ·ΡΠΉΡΠ΅ ΠΌΠ΅ΡΠΎΠ΄ Add , ΡΡΠΎΠ±Ρ ΡΠΎΠ·Π΄Π°ΡΡ Π½ΠΎΠ²ΡΠΉ Π»ΠΈΡΡ ΠΈ Π΄ΠΎΠ±Π°Π²ΠΈΡΡ Π΅Π³ΠΎ Π² ΠΊΠΎΠ»Π»Π΅ΠΊΡΠΈΡ.Use the Add method to create a new sheet and add it to the collection. Π ΠΏΡΠΈΠ²Π΅Π΄Π΅Π½Π½ΠΎΠΌ Π½ΠΈΠΆΠ΅ ΠΏΡΠΈΠΌΠ΅ΡΠ΅ ΠΏΠΎΠΊΠ°Π·Π°Π½ΠΎ, ΠΊΠ°ΠΊ Π΄ΠΎΠ±Π°Π²ΠΈΡΡ Π² Π°ΠΊΡΠΈΠ²Π½ΡΡ ΠΊΠ½ΠΈΠ³Ρ Π΄Π²Π° Π»ΠΈΡΡΠ° Ρ Π΄ΠΈΠ°Π³ΡΠ°ΠΌΠΌΠ°ΠΌΠΈ, ΡΠ°Π·ΠΌΠ΅ΡΡΠΈΠ² ΠΈΡ ΠΏΠΎΡΠ»Π΅ Π»ΠΈΡΡΠ° 2 Π² ΠΊΠ½ΠΈΠ³Π΅.The following example adds two chart sheets to the active workbook, placing them after sheet two in the workbook.
Sheets.Add type:=xlChart, count:=2, after:=Sheets(2)
ΠΡΠΏΠΎΠ»ΡΠ·ΡΠΉΡΠ΅ Sheets (index), Π³Π΄Π΅ index β ΡΡΠΎ ΠΈΠΌΡ Π»ΠΈΡΡΠ° ΠΈΠ»ΠΈ Π½ΠΎΠΌΠ΅Ρ ΠΈΠ½Π΄Π΅ΠΊΡΠ°, ΡΡΠΎΠ±Ρ Π²Π΅ΡΠ½ΡΡΡ ΠΎΠ΄ΠΈΠ½ ΠΎΠ±ΡΠ΅ΠΊΡ Π΄ΠΈΠ°Π³ΡΠ°ΠΌΠΌΡ ΠΈΠ»ΠΈ Π»ΠΈΡΡΠ° .Use Sheets (index), where index is the sheet name or index number, to return a single Chart or Worksheet object. Π ΠΏΡΠΈΠ²Π΅Π΄Π΅Π½Π½ΠΎΠΌ Π½ΠΈΠΆΠ΅ ΠΏΡΠΈΠΌΠ΅ΡΠ΅ Π°ΠΊΡΠΈΠ²ΠΈΡΡΠ΅ΡΡΡ Π»ΠΈΡΡ Ρ ΠΈΠΌΠ΅Π½Π΅ΠΌ ΠΠΈΡΡ1.The following example activates the sheet named Sheet1.
Sheets("Sheet1").Activate
ΠΡΠΏΠΎΠ»ΡΠ·ΡΠΉΡΠ΅ Π»ΠΈΡΡΡ (Array), ΡΡΠΎΠ±Ρ ΡΠΊΠ°Π·Π°ΡΡ Π½Π΅ΡΠΊΠΎΠ»ΡΠΊΠΎ Π»ΠΈΡΡΠΎΠ².Use Sheets (array) to specify more than one sheet. Π ΠΏΡΠΈΠ²Π΅Π΄Π΅Π½Π½ΠΎΠΌ Π½ΠΈΠΆΠ΅ ΠΏΡΠΈΠΌΠ΅ΡΠ΅ Π»ΠΈΡΡΡ Ρ ΠΈΠΌΠ΅Π½Π°ΠΌΠΈ Sheet4 ΠΈ Sheet5 ΠΏΠ΅ΡΠ΅ΠΌΠ΅ΡΠ°ΡΡΡΡ Π² Π½Π°ΡΠ°Π»ΠΎ ΠΊΠ½ΠΈΠ³ΠΈ.The following example moves the sheets named Sheet4 and Sheet5 to the beginning of the workbook.
Sheets(Array("Sheet4", "Sheet5")).Move before:=Sheets(1)
MethodsMethods
Π‘Π²ΠΎΠΉΡΡΠ²Π°Properties
Π‘ΠΌ. ΡΠ°ΠΊΠΆΠ΅See also
ΠΠΎΠ΄Π΄Π΅ΡΠΆΠΊΠ° ΠΈ ΠΎΠ±ΡΠ°ΡΠ½Π°Ρ ΡΠ²ΡΠ·Ρ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. ΠΠ΅ΡΠΎΠ΄Ρ Sheets.Add, Worksheet.Copy, Worksheet.Move ΠΈ Worksheet.Delete.
Π‘ΠΎΠ·Π΄Π°Π½ΠΈΠ΅ Π½ΠΎΠ²ΡΡ Π»ΠΈΡΡΠΎΠ²
Π‘ΠΎΠ·Π΄Π°Π½ΠΈΠ΅ Π½ΠΎΠ²ΡΡ ΡΠ°Π±ΠΎΡΠΈΡ Π»ΠΈΡΡΠΎΠ² ΠΎΡΡΡΠ΅ΡΡΠ²Π»ΡΠ΅ΡΡΡ Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΠΌΠ΅ΡΠΎΠ΄Π° Sheets.Add.
Π‘ΠΈΠ½ΡΠ°ΠΊΡΠΈΡ ΠΌΠ΅ΡΠΎΠ΄Π° Sheets.Add
expression.Add [Before, After, Count, Type]
Π³Π΄Π΅ expression β ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½Π°Ρ, ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»ΡΡΡΠ°Ρ ΡΠΎΠ±ΠΎΠΉ ΠΎΠ±ΡΠ΅ΠΊΡ Sheet.
ΠΠΎΠΌΠΏΠΎΠ½Π΅Π½ΡΡ ΠΌΠ΅ΡΠΎΠ΄Π° Sheets.Add
- Before* β Π½Π΅ΠΎΠ±ΡΠ·Π°ΡΠ΅Π»ΡΠ½ΡΠΉ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡ ΡΠΈΠΏΠ° Π΄Π°Π½Π½ΡΡ Variant, ΡΠΊΠ°Π·ΡΠ²Π°ΡΡΠΈΠΉ Π½Π° Π»ΠΈΡΡ, ΠΏΠ΅ΡΠ΅Π΄ ΠΊΠΎΡΠΎΡΡΠΌ Π±ΡΠ΄Π΅Ρ Π΄ΠΎΠ±Π°Π²Π»Π΅Π½ Π½ΠΎΠ²ΡΠΉ.
- After* β Π½Π΅ΠΎΠ±ΡΠ·Π°ΡΠ΅Π»ΡΠ½ΡΠΉ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡ ΡΠΈΠΏΠ° Π΄Π°Π½Π½ΡΡ Variant, ΡΠΊΠ°Π·ΡΠ²Π°ΡΡΠΈΠΉ Π½Π° Π»ΠΈΡΡ, ΠΏΠΎΡΠ»Π΅ ΠΊΠΎΡΠΎΡΠΎΠ³ΠΎ Π±ΡΠ΄Π΅Ρ Π΄ΠΎΠ±Π°Π²Π»Π΅Π½ Π½ΠΎΠ²ΡΠΉ.
- Count β Π½Π΅ΠΎΠ±ΡΠ·Π°ΡΠ΅Π»ΡΠ½ΡΠΉ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡ ΡΠΈΠΏΠ° Π΄Π°Π½Π½ΡΡ Variant, ΡΠΊΠ°Π·ΡΠ²Π°ΡΡΠΈΠΉ, ΡΠΊΠΎΠ»ΡΠΊΠΎ Π»ΠΈΡΡΠΎΠ² Π±ΡΠ΄Π΅Ρ Π΄ΠΎΠ±Π°Π²Π»Π΅Π½ΠΎ (ΠΏΠΎ ΡΠΌΠΎΠ»ΡΠ°Π½ΠΈΡ β 1).
- Type β Π½Π΅ΠΎΠ±ΡΠ·Π°ΡΠ΅Π»ΡΠ½ΡΠΉ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡ ΡΠΈΠΏΠ° Π΄Π°Π½Π½ΡΡ Variant, ΡΠΊΠ°Π·ΡΠ²Π°ΡΡΠΈΠΉ ΡΠΈΠΏ Π»ΠΈΡΡΠ°: xlWorksheet** (ΡΠ°Π±ΠΎΡΠΈΠΉ Π»ΠΈΡΡ) ΠΈΠ»ΠΈ xlChart (Π΄ΠΈΠ°Π³ΡΠ°ΠΌΠΌΠ°), ΠΏΠΎ ΡΠΌΠΎΠ»ΡΠ°Π½ΠΈΡ β xlWorksheet.
*ΠΡΠ»ΠΈ Before ΠΈ After Π½Π΅ ΡΠΊΠ°Π·Π°Π½Ρ, Π½ΠΎΠ²ΡΠΉ Π»ΠΈΡΡ, ΠΏΠΎ ΡΠΌΠΎΠ»ΡΠ°Π½ΠΈΡ, Π±ΡΠ΄Π΅Ρ Π΄ΠΎΠ±Π°Π²Π»Π΅Π½ ΠΏΠ΅ΡΠ΅Π΄ Π°ΠΊΡΠΈΠ²Π½ΡΠΌ Π»ΠΈΡΡΠΎΠΌ.
**ΠΠ»Ρ ΡΠΎΠ·Π΄Π°Π½ΠΈΡ ΡΠ°Π±ΠΎΡΠ΅Π³ΠΎ Π»ΠΈΡΡΠ° (xlWorksheet) ΠΌΠΎΠΆΠ½ΠΎ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΠΌΠ΅ΡΠΎΠ΄ Worksheets.Add, ΠΊΠΎΡΠΎΡΡΠΉ Π΄Π»Ρ ΡΠΎΠ·Π΄Π°Π½ΠΈΡ Π΄ΠΈΠ°Π³ΡΠ°ΠΌΠΌ ΡΠΆΠ΅ Π½Π΅ ΠΏΠΎΠ΄ΠΎΠΉΠ΄Π΅Ρ.
ΠΡΠΈΠΌΠ΅ΡΡ ΡΠΎΠ·Π΄Π°Π½ΠΈΡ Π»ΠΈΡΡΠΎΠ²
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 | ‘Π‘ΠΎΠ·Π΄Π°Π½ΠΈΠ΅ ΡΠ°Π±ΠΎΡΠ΅Π³ΠΎ Π»ΠΈΡΡΠ°: Sheets.Add Worksheets.Add ThisWorkbook.Sheets.Add After:=ActiveSheet, Count:=2 Workbooks(«ΠΠ½ΠΈΠ³Π°1.xlsm»).Sheets.Add After:=ΠΠΈΡΡ1 Workbooks(«ΠΠ½ΠΈΠ³Π°1.xlsm»).Sheets.Add After:=Worksheets(1) Workbooks(«ΠΠ½ΠΈΠ³Π°1.xlsm»).Sheets.Add After:=Worksheets(«ΠΠΈΡΡ1») Β ‘Π‘ΠΎΠ·Π΄Π°Π½ΠΈΠ΅ Π½ΠΎΠ²ΠΎΠ³ΠΎ Π»ΠΈΡΡΠ° Ρ Π·Π°Π΄Π°Π½Π½ΡΠΌ ΠΈΠΌΠ΅Π½Π΅ΠΌ: Workbooks(«ΠΠ½ΠΈΠ³Π°1.xlsm»).Sheets.Add.Name = «ΠΠΎΠΉ Π½ΠΎΠ²ΡΠΉ Π»ΠΈΡΡ» Β ‘Π‘ΠΎΠ·Π΄Π°Π½ΠΈΠ΅ Π΄ΠΈΠ°Π³ΡΠ°ΠΌΠΌΡ: Sheets.Add Type:=xlChart Β ‘ΠΠΎΠ±Π°Π²Π»Π΅Π½ΠΈΠ΅ Π½ΠΎΠ²ΠΎΠ³ΠΎ Π»ΠΈΡΡΠ° ΠΏΠ΅ΡΠ΅Π΄ ‘ΠΏΠΎΡΠ»Π΅Π΄Π½ΠΈΠΌ Π»ΠΈΡΡΠΎΠΌ ΡΠ°Π±ΠΎΡΠ΅ΠΉ ΠΊΠ½ΠΈΠ³ΠΈ Sheets.Add Before:=Worksheets(Worksheets.Count) Β ‘ΠΠΎΠ±Π°Π²Π»Π΅Π½ΠΈΠ΅ Π½ΠΎΠ²ΠΎΠ³ΠΎ Π»ΠΈΡΡΠ° Π² ΠΊΠΎΠ½Π΅Ρ Sheets.Add After:=Worksheets(Worksheets.Count) |
- ΠΠΈΡΡ1 Π² After:=ΠΠΈΡΡ1 β ΡΡΠΎ ΡΠ½ΠΈΠΊΠ°Π»ΡΠ½ΠΎΠ΅ ΠΈΠΌΡ Π»ΠΈΡΡΠ°, ΡΠΊΠ°Π·Π°Π½Π½ΠΎΠ΅ Π² ΠΏΡΠΎΠ²ΠΎΠ΄Π½ΠΈΠΊΠ΅ ΡΠ΅Π΄Π°ΠΊΡΠΎΡΠ° VBA Π±Π΅Π· ΡΠΊΠΎΠ±ΠΎΠΊ.
- ΠΠΈΡΡ1 Π² After:=Worksheets(Β«ΠΠΈΡΡ1Β») β ΡΡΠΎ ΠΈΠΌΡ Π½Π° ΡΡΠ»ΡΠΊΠ΅ Π»ΠΈΡΡΠ°, ΡΠΊΠ°Π·Π°Π½Π½ΠΎΠ΅ Π² ΠΏΡΠΎΠ²ΠΎΠ΄Π½ΠΈΠΊΠ΅ ΡΠ΅Π΄Π°ΠΊΡΠΎΡΠ° VBA Π² ΡΠΊΠΎΠ±ΠΊΠ°Ρ .
Π‘ΠΎΠ·Π΄Π°Π²Π°Π΅ΠΌΡΠΉ Π»ΠΈΡΡ ΠΌΠΎΠΆΠ½ΠΎ ΠΏΡΠΈΡΠ²ΠΎΠΈΡΡ ΠΎΠ±ΡΠ΅ΠΊΡΠ½ΠΎΠΉ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ:
Dim myList As Object ‘Π Π°ΠΊΡΠΈΠ²Π½ΠΎΠΉ ΠΊΠ½ΠΈΠ³Π΅ Set myList = Worksheets.Add ‘Π ΠΊΠ½ΠΈΠ³Π΅ Β«ΠΠ½ΠΈΠ³Π°1.xlsmΒ» Set myList = Workbooks(«ΠΠ½ΠΈΠ³Π°1.xlsm»).Worksheets.Add ‘Π Π°Π±ΠΎΡΠ°Π΅ΠΌ Ρ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ myList.Name = «Listok1» myList.Cells(1, 1) = myList.Name ‘ΠΡΠΈΡΠ°Π΅ΠΌ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ Set myList = Nothing |
ΠΡΠ»ΠΈ ΡΠΎΠ·Π΄Π°Π²Π°Π΅ΠΌΡΠΉ Π»ΠΈΡΡ ΠΏΡΠΈΡΠ²Π°ΠΈΠ²Π°Π΅ΡΡΡ ΠΎΠ±ΡΠ΅ΠΊΡΠ½ΠΎΠΉ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ, ΠΎΠ½ Π±ΡΠ΄Π΅Ρ ΠΏΠΎΠΌΠ΅ΡΠ΅Π½ ΠΏΠ΅ΡΠ΅Π΄ Π°ΠΊΡΠΈΠ²Π½ΡΠΌ Π»ΠΈΡΡΠΎΠΌ. Π£ΠΊΠ°Π·Π°ΡΡ Π΄ΠΎΠΏΠΎΠ»Π½ΠΈΡΠ΅Π»ΡΠ½ΡΠ΅ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΡ Π½Π΅Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎ.
ΠΠΎΠΏΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ Π»ΠΈΡΡΠΎΠ²
ΠΠΎΠΏΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ ΡΠ°Π±ΠΎΡΠΈΡ Π»ΠΈΡΡΠΎΠ² ΠΎΡΡΡΠ΅ΡΡΠ²Π»ΡΠ΅ΡΡΡ Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΠΌΠ΅ΡΠΎΠ΄Π° Worksheet.Copy.
Π‘ΠΈΠ½ΡΠ°ΠΊΡΠΈΡ ΠΌΠ΅ΡΠΎΠ΄Π° Worksheet.Copy
expression.Copy [Before, After]
Π³Π΄Π΅ expression β ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½Π°Ρ, ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»ΡΡΡΠ°Ρ ΡΠΎΠ±ΠΎΠΉ ΠΎΠ±ΡΠ΅ΠΊΡ Worksheet.
ΠΠΎΠΌΠΏΠΎΠ½Π΅Π½ΡΡ ΠΌΠ΅ΡΠΎΠ΄Π° Worksheet.Copy
- Before* β Π½Π΅ΠΎΠ±ΡΠ·Π°ΡΠ΅Π»ΡΠ½ΡΠΉ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡ ΡΠΈΠΏΠ° Π΄Π°Π½Π½ΡΡ Variant, ΡΠΊΠ°Π·ΡΠ²Π°ΡΡΠΈΠΉ Π½Π° Π»ΠΈΡΡ, ΠΏΠ΅ΡΠ΅Π΄ ΠΊΠΎΡΠΎΡΡΠΌ Π±ΡΠ΄Π΅Ρ Π΄ΠΎΠ±Π°Π²Π»Π΅Π½Π° ΠΊΠΎΠΏΠΈΡ.
- After* β Π½Π΅ΠΎΠ±ΡΠ·Π°ΡΠ΅Π»ΡΠ½ΡΠΉ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡ ΡΠΈΠΏΠ° Π΄Π°Π½Π½ΡΡ Variant, ΡΠΊΠ°Π·ΡΠ²Π°ΡΡΠΈΠΉ Π½Π° Π»ΠΈΡΡ, ΠΏΠΎΡΠ»Π΅ ΠΊΠΎΡΠΎΡΠΎΠ³ΠΎ Π±ΡΠ΄Π΅Ρ Π΄ΠΎΠ±Π°Π²Π»Π΅Π½Π° ΠΊΠΎΠΏΠΈΡ.
*ΠΡΠ»ΠΈ Before ΠΈ After Π½Π΅ ΡΠΊΠ°Π·Π°Π½Ρ, Excel ΡΠΎΠ·Π΄Π°ΡΡ Π½ΠΎΠ²ΡΡ ΠΊΠ½ΠΈΠ³Ρ ΠΈ ΠΏΠΎΠΌΠ΅ΡΡΠΈΡ ΠΊΠΎΠΏΠΈΡ Π»ΠΈΡΡΠ° Π² Π½Π΅Π΅. ΠΡΠ»ΠΈ ΡΠΊΠΎΠΏΠΈΡΠΎΠ²Π°Π½Π½ΡΠΉ Π»ΠΈΡΡ ΡΠΎΠ΄Π΅ΡΠΆΠΈΡ ΠΊΠΎΠ΄ Π² ΠΏΡΠΎΠ΅ΠΊΡΠ΅ VBA (Π² ΠΌΠΎΠ΄ΡΠ»Π΅ Π»ΠΈΡΡΠ°), ΠΎΠ½ ΡΠΎΠΆΠ΅ Π±ΡΠ΄Π΅Ρ ΠΏΠ΅ΡΠ΅Π½Π΅ΡΠ΅Π½ Π² Π½ΠΎΠ²ΡΡ ΠΊΠ½ΠΈΠ³Ρ.
ΠΡΠΈΠΌΠ΅ΡΡ ΠΊΠΎΠΏΠΈΡΠΎΠ²Π°Π½ΠΈΡ Π»ΠΈΡΡΠΎΠ²
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 | ‘Π ΠΏΡΠ΅Π΄Π΅Π»Π°Ρ Π°ΠΊΡΠΈΠ²Π½ΠΎΠΉ ΠΊΠ½ΠΈΠ³ΠΈ ‘(ΡΠ½ΠΈΠΊΠ°Π»ΡΠ½ΡΠ΅ ΠΈΠΌΠ΅Π½Π° Π»ΠΈΡΡΠΎΠ²) ΠΠΈΡΡ1.Copy After:=ΠΠΈΡΡ2 Β ‘Π ΠΏΡΠ΅Π΄Π΅Π»Π°Ρ Π°ΠΊΡΠΈΠ²Π½ΠΎΠΉ ΠΊΠ½ΠΈΠ³ΠΈ ‘(ΠΈΠΌΠ΅Π½Π° Π»ΠΈΡΡΠΎΠ² Π½Π° ΡΡΠ»ΡΡΠΊΠ°Ρ ) Worksheets(«ΠΠΈΡΡ1»).Copy Before:=Worksheets(«ΠΠΈΡΡ2») Β ‘ΠΡΡΠ°Π²ΠΈΡΡ ΠΊΠΎΠΏΠΈΡ Π² ΠΊΠΎΠ½Π΅Ρ: ΠΠΈΡΡ1.Copy After:=Worksheets(Worksheets.Count) Β ‘ΠΠ· ΠΎΠ΄Π½ΠΎΠΉ ΠΊΠ½ΠΈΠ³ΠΈ Π² Π΄ΡΡΠ³ΡΡ Workbooks(«ΠΠ½ΠΈΠ³Π°1.xlsm»).Worksheets(«ΠΠΈΡΡ1»).Copy _ After:=Workbooks(«ΠΠ½ΠΈΠ³Π°2.xlsm»).Worksheets(«ΠΠΈΡΡ1») Β ‘ΠΠ΄ΠΈΠ½ Π»ΠΈΡΡ Π°ΠΊΡΠΈΠ²Π½ΠΎΠΉ ΠΊΠ½ΠΈΠ³ΠΈ Π² Π½ΠΎΠ²ΡΡ ΠΊΠ½ΠΈΠ³Ρ ΠΠΈΡΡ1.Copy Β ‘ΠΡΠ΅ Π»ΠΈΡΡΡ ΠΊΠ½ΠΈΠ³ΠΈ Ρ ΠΊΠΎΠ΄ΠΎΠΌ Π² Π½ΠΎΠ²ΡΡ ΠΊΠ½ΠΈΠ³Ρ ThisWorkbook.Worksheets.Copy |
ΠΡΠ»ΠΈ ΡΠ°Π±ΠΎΡΠΈΠ΅ ΠΊΠ½ΠΈΠ³ΠΈ ΡΠΊΠ°Π·Π°Π½Ρ ΠΊΠ°ΠΊ ΡΠ»Π΅ΠΌΠ΅Π½ΡΡ ΠΊΠΎΠ»Π»Π΅ΠΊΡΠΈΠΈ Workbooks, Π² ΡΠΎΠΌ ΡΠΈΡΠ»Π΅ ActiveWorkbook ΠΈ ThisWorkbook, Π»ΠΈΡΡΡ Π½ΡΠΆΠ½ΠΎ ΡΠΊΠ°Π·ΡΠ²Π°ΡΡ ΠΊΠ°ΠΊ ΡΠ»Π΅ΠΌΠ΅Π½ΡΡ ΠΊΠΎΠ»Π»Π΅ΠΊΡΠΈΠΈ Worksheets, ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ ΡΠ½ΠΈΠΊΠ°Π»ΡΠ½ΡΡ ΠΈΠΌΠ΅Π½ Π²ΡΠ·ΠΎΠ²Π΅Ρ ΠΎΡΠΈΠ±ΠΊΡ.
ΠΠ΅ΡΠ΅ΠΌΠ΅ΡΠ΅Π½ΠΈΠ΅ Π»ΠΈΡΡΠΎΠ²
ΠΠ΅ΡΠ΅ΠΌΠ΅ΡΠ΅Π½ΠΈΠ΅ ΡΠ°Π±ΠΎΡΠΈΡ Π»ΠΈΡΡΠΎΠ² ΠΎΡΡΡΠ΅ΡΡΠ²Π»ΡΠ΅ΡΡΡ Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΠΌΠ΅ΡΠΎΠ΄Π° Worksheet.Move.
Π‘ΠΈΠ½ΡΠ°ΠΊΡΠΈΡ ΠΌΠ΅ΡΠΎΠ΄Π° Worksheet.Move
expression.Move [Before, After]
Π³Π΄Π΅ expression β ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½Π°Ρ, ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»ΡΡΡΠ°Ρ ΡΠΎΠ±ΠΎΠΉ ΠΎΠ±ΡΠ΅ΠΊΡ Worksheet.
ΠΠΎΠΌΠΏΠΎΠ½Π΅Π½ΡΡ ΠΌΠ΅ΡΠΎΠ΄Π° Worksheet.Move
- Before* β Π½Π΅ΠΎΠ±ΡΠ·Π°ΡΠ΅Π»ΡΠ½ΡΠΉ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡ ΡΠΈΠΏΠ° Π΄Π°Π½Π½ΡΡ Variant, ΡΠΊΠ°Π·ΡΠ²Π°ΡΡΠΈΠΉ Π½Π° Π»ΠΈΡΡ, ΠΏΠ΅ΡΠ΅Π΄ ΠΊΠΎΡΠΎΡΡΠΌ Π±ΡΠ΄Π΅Ρ ΡΠ°Π·ΠΌΠ΅ΡΠ΅Π½ ΠΏΠ΅ΡΠ΅ΠΌΠ΅ΡΠ°Π΅ΠΌΡΠΉ Π»ΠΈΡΡ.
- After* β Π½Π΅ΠΎΠ±ΡΠ·Π°ΡΠ΅Π»ΡΠ½ΡΠΉ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡ ΡΠΈΠΏΠ° Π΄Π°Π½Π½ΡΡ Variant, ΡΠΊΠ°Π·ΡΠ²Π°ΡΡΠΈΠΉ Π½Π° Π»ΠΈΡΡ, ΠΏΠΎΡΠ»Π΅ ΠΊΠΎΡΠΎΡΠΎΠ³ΠΎ Π±ΡΠ΄Π΅Ρ ΡΠ°Π·ΠΌΠ΅ΡΠ΅Π½ ΠΏΠ΅ΡΠ΅ΠΌΠ΅ΡΠ°Π΅ΠΌΡΠΉ Π»ΠΈΡΡ.
*ΠΡΠ»ΠΈ Before ΠΈ After Π½Π΅ ΡΠΊΠ°Π·Π°Π½Ρ, Excel ΡΠΎΠ·Π΄Π°ΡΡ Π½ΠΎΠ²ΡΡ ΠΊΠ½ΠΈΠ³Ρ ΠΈ ΠΏΠ΅ΡΠ΅ΠΌΠ΅ΡΡΠΈΡ Π»ΠΈΡΡ Π² Π½Π΅Π΅.
ΠΡΠΈΠΌΠ΅ΡΡ ΠΏΠ΅ΡΠ΅ΠΌΠ΅ΡΠ΅Π½ΠΈΡ Π»ΠΈΡΡΠΎΠ²
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 | ‘Π ΠΏΡΠ΅Π΄Π΅Π»Π°Ρ Π°ΠΊΡΠΈΠ²Π½ΠΎΠΉ ΠΊΠ½ΠΈΠ³ΠΈ ‘(ΡΠ½ΠΈΠΊΠ°Π»ΡΠ½ΡΠ΅ ΠΈΠΌΠ΅Π½Π° Π»ΠΈΡΡΠΎΠ²) ΠΠΈΡΡ1.Move After:=ΠΠΈΡΡ2 Β ‘Π ΠΏΡΠ΅Π΄Π΅Π»Π°Ρ Π°ΠΊΡΠΈΠ²Π½ΠΎΠΉ ΠΊΠ½ΠΈΠ³ΠΈ ‘(ΠΈΠΌΠ΅Π½Π° Π»ΠΈΡΡΠΎΠ² Π½Π° ΡΡΠ»ΡΡΠΊΠ°Ρ ) Worksheets(«ΠΠΈΡΡ1»).Move Before:=Worksheets(«ΠΠΈΡΡ2») Β ‘Π Π°Π·ΠΌΠ΅ΡΠ΅Π½ΠΈΠ΅ ΠΏΠΎΡΠ»Π΅ ΠΏΠΎΡΠ»Π΅Π΄Π½Π΅Π³ΠΎ Π»ΠΈΡΡΠ°: ΠΠΈΡΡ1.Move After:=Worksheets(Worksheets.Count) Β ‘ΠΠ· ΠΎΠ΄Π½ΠΎΠΉ ΠΊΠ½ΠΈΠ³ΠΈ Π² Π΄ΡΡΠ³ΡΡ Workbooks(«ΠΠ½ΠΈΠ³Π°1.xlsm»).Worksheets(«ΠΠΈΡΡ1»).Move _ After:=Workbooks(«ΠΠ½ΠΈΠ³Π°2.xlsm»).Worksheets(«ΠΠΈΡΡ1») Β ‘Π Π½ΠΎΠ²ΡΡ ΠΊΠ½ΠΈΠ³Ρ ΠΠΈΡΡ1.Move |
ΠΡΠ»ΠΈ ΡΠ°Π±ΠΎΡΠΈΠ΅ ΠΊΠ½ΠΈΠ³ΠΈ ΡΠΊΠ°Π·Π°Π½Ρ ΠΊΠ°ΠΊ ΡΠ»Π΅ΠΌΠ΅Π½ΡΡ ΠΊΠΎΠ»Π»Π΅ΠΊΡΠΈΠΈ Workbooks, Π² ΡΠΎΠΌ ΡΠΈΡΠ»Π΅ ActiveWorkbook ΠΈ ThisWorkbook, Π»ΠΈΡΡΡ Π½ΡΠΆΠ½ΠΎ ΡΠΊΠ°Π·ΡΠ²Π°ΡΡ ΠΊΠ°ΠΊ ΡΠ»Π΅ΠΌΠ΅Π½ΡΡ ΠΊΠΎΠ»Π»Π΅ΠΊΡΠΈΠΈ Worksheets, ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ ΡΠ½ΠΈΠΊΠ°Π»ΡΠ½ΡΡ ΠΈΠΌΠ΅Π½ Π²ΡΠ·ΠΎΠ²Π΅Ρ ΠΎΡΠΈΠ±ΠΊΡ.
Π£Π΄Π°Π»Π΅Π½ΠΈΠ΅ Π»ΠΈΡΡΠΎΠ²
Π£Π΄Π°Π»Π΅Π½ΠΈΠ΅ ΡΠ°Π±ΠΎΡΠΈΡ Π»ΠΈΡΡΠΎΠ² ΠΎΡΡΡΠ΅ΡΡΠ²Π»ΡΠ΅ΡΡΡ Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΠΌΠ΅ΡΠΎΠ΄Π° Worksheet.Delete
Π‘ΠΈΠ½ΡΠ°ΠΊΡΠΈΡ ΠΌΠ΅ΡΠΎΠ΄Π° Worksheet.Delete
expression.Delete
Π³Π΄Π΅ expression β ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½Π°Ρ, ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»ΡΡΡΠ°Ρ ΡΠΎΠ±ΠΎΠΉ ΠΎΠ±ΡΠ΅ΠΊΡ Worksheet.
ΠΡΠΈΠΌΠ΅ΡΡ ΡΠ΄Π°Π»Π΅Π½ΠΈΡ Π»ΠΈΡΡΠΎΠ²
‘ΠΠΎ ΡΠ½ΠΈΠΊΠ°Π»ΡΠ½ΠΎΠΌΡ ΠΈΠΌΠ΅Π½ΠΈ ΠΠΈΡΡ1.Delete Β ‘ΠΠΎ ΠΈΠΌΠ΅Π½ΠΈ Π½Π° ΡΡΠ»ΡΡΠΊΠ΅ Worksheets(«ΠΠΈΡΡ1»).Delete Β ‘ΠΠΎ ΠΈΠ½Π΄Π΅ΠΊΡΡ Π»ΠΈΡΡΠ° Worksheets(1).Delete Β ‘Π Π΄ΡΡΠ³ΠΎΠΉ ΠΊΠ½ΠΈΠ³Π΅ Workbooks(«ΠΠ½ΠΈΠ³Π°1.xlsm»).Worksheets(«ΠΠΈΡΡ1»).Delete |
ΠΡΠ»ΠΈ ΡΠ°Π±ΠΎΡΠΈΠ΅ ΠΊΠ½ΠΈΠ³ΠΈ ΡΠΊΠ°Π·Π°Π½Ρ ΠΊΠ°ΠΊ ΡΠ»Π΅ΠΌΠ΅Π½ΡΡ ΠΊΠΎΠ»Π»Π΅ΠΊΡΠΈΠΈ Workbooks, Π² ΡΠΎΠΌ ΡΠΈΡΠ»Π΅ ActiveWorkbook ΠΈ ThisWorkbook, Π»ΠΈΡΡΡ Π½ΡΠΆΠ½ΠΎ ΡΠΊΠ°Π·ΡΠ²Π°ΡΡ ΠΊΠ°ΠΊ ΡΠ»Π΅ΠΌΠ΅Π½ΡΡ ΠΊΠΎΠ»Π»Π΅ΠΊΡΠΈΠΈ Worksheets, ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ ΡΠ½ΠΈΠΊΠ°Π»ΡΠ½ΡΡ ΠΈΠΌΠ΅Π½ Π²ΡΠ·ΠΎΠ²Π΅Ρ ΠΎΡΠΈΠ±ΠΊΡ.
ΠΠ°ΠΊ ΠΎΠ±ΡΠ°ΡΠΈΡΡΡΡ ΠΊ ΡΠ°Π±ΠΎΡΠ΅ΠΌΡ Π»ΠΈΡΡΡ, ΠΏΠ΅ΡΠ΅ΠΈΠΌΠ΅Π½ΠΎΠ²Π°ΡΡ, ΡΠΊΡΡΡΡ ΠΈΠ»ΠΈ ΠΎΡΠΎΠ±ΡΠ°Π·ΠΈΡΡ Π΅Π³ΠΎ Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΠΊΠΎΠ΄Π° VBA Excel, ΡΠΌΠΎΡΡΠΈΡΠ΅ Π² ΡΡΠΎΠΉ ΡΡΠ°ΡΡΠ΅.
ΠΠ±ΡΠ΅ΠΊΡ Π»ΠΈΡΡΠ° (Excel) | Microsoft Docs
-
- Π§ΡΠ΅Π½ΠΈΠ΅ Π·Π°Π½ΠΈΠΌΠ°Π΅Ρ 2Β ΠΌΠΈΠ½
Π ΡΡΠΎΠΉ ΡΡΠ°ΡΡΠ΅
ΠΡΠ΅Π΄ΡΡΠ°Π²Π»ΡΠ΅Ρ Π»ΠΈΡΡ.Represents a worksheet.
ΠΡΠΈΠΌΠ΅ΡΠ°Π½ΠΈΡRemarks
ΠΠ±ΡΠ΅ΠΊΡ Π»ΠΈΡΡΠ° ΡΠ²Π»ΡΠ΅ΡΡΡ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠΎΠΌ ΠΊΠΎΠ»Π»Π΅ΠΊΡΠΈΠΈ Π»ΠΈΡΡΡ .The Worksheet object is a member of the Worksheets collection. ΠΠΎΠ»Π»Π΅ΠΊΡΠΈΡ Π»ΠΈΡΡΡ ΡΠΎΠ΄Π΅ΡΠΆΠΈΡ Π²ΡΠ΅ ΠΎΠ±ΡΠ΅ΠΊΡΡ Π»ΠΈΡΡΠ° Π² ΠΊΠ½ΠΈΠ³Π΅.The Worksheets collection contains all the Worksheet objects in a workbook.
ΠΠ±ΡΠ΅ΠΊΡ Π»ΠΈΡΡΠ° ΡΠ°ΠΊΠΆΠ΅ ΡΠ²Π»ΡΠ΅ΡΡΡ ΡΠ»Π΅Π½ΠΎΠΌ ΠΊΠΎΠ»Π»Π΅ΠΊΡΠΈΠΈ Sheets .The Worksheet object is also a member of the Sheets collection. ΠΠΎΠ»Π»Π΅ΠΊΡΠΈΡ Sheets ΡΠΎΠ΄Π΅ΡΠΆΠΈΡ Π²ΡΠ΅ Π»ΠΈΡΡΡ Π² ΠΊΠ½ΠΈΠ³Π΅ (Π»ΠΈΡΡΡ ΠΈ Π»ΠΈΡΡΡ Π΄ΠΈΠ°Π³ΡΠ°ΠΌΠΌΡ).The Sheets collection contains all the sheets in the workbook (both chart sheets and worksheets).
ΠΡΠΈΠΌΠ΅ΡExample
ΠΡΠΏΠΎΠ»ΡΠ·ΡΠΉΡΠ΅ Π»ΠΈΡΡΡ (ΠΈΠ½Π΄Π΅ΠΊΡ), Π³Π΄Π΅ ΠΈΠ½Π΄Π΅ΠΊΡ β ΡΡΠΎ Π½ΠΎΠΌΠ΅Ρ ΠΈΠ»ΠΈ ΠΈΠΌΡ ΠΈΠ½Π΄Π΅ΠΊΡΠ° Π»ΠΈΡΡΠ°, ΡΡΠΎΠ±Ρ Π²Π΅ΡΠ½ΡΡΡ ΠΎΠ΄ΠΈΠ½ ΠΎΠ±ΡΠ΅ΠΊΡ Π»ΠΈΡΡΠ° .Use Worksheets (index), where index is the worksheet index number or name, to return a single Worksheet object. Π ΠΏΡΠΈΠ²Π΅Π΄Π΅Π½Π½ΠΎΠΌ Π½ΠΈΠΆΠ΅ ΠΏΡΠΈΠΌΠ΅ΡΠ΅ ΠΏΠΎΠΊΠ°Π·Π°Π½ΠΎ, ΠΊΠ°ΠΊ ΡΠΊΡΡΡΡ Π»ΠΈΡΡ ΠΎΠ΄ΠΈΠ½ Π² Π°ΠΊΡΠΈΠ²Π½ΠΎΠΉ ΠΊΠ½ΠΈΠ³Π΅.The following example hides worksheet one in the active workbook.
Worksheets(1).Visible = False
ΠΠΎΠΌΠ΅Ρ ΠΈΠ½Π΄Π΅ΠΊΡΠ° Π»ΠΈΡΡΠ° ΡΠΊΠ°Π·ΡΠ²Π°Π΅Ρ ΠΏΠΎΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅ Π»ΠΈΡΡΠ° Π½Π° ΠΏΠ°Π½Π΅Π»ΠΈ Π²ΠΊΠ»Π°Π΄ΠΎΠΊ ΠΊΠ½ΠΈΠ³ΠΈ.The worksheet index number denotes the position of the worksheet on the workbook’s tab bar. Worksheets(1)
β ΠΡΠΎ ΠΏΠ΅ΡΠ²ΡΠΉ (ΠΊΡΠ°ΠΉΠ½ΠΈΠΉ Π»Π΅Π²ΡΠΉ) Π»ΠΈΡΡ Π² ΠΊΠ½ΠΈΠ³Π΅, Worksheets(Worksheets.Count)
ΠΊΠΎΡΠΎΡΡΠΉ ΡΠ²Π»ΡΠ΅ΡΡΡ ΠΏΠΎΡΠ»Π΅Π΄Π½ΠΈΠΌ.Worksheets(1)
is the first (leftmost) worksheet in the workbook, and Worksheets(Worksheets.Count)
is the last one. ΠΡΠ΅ Π»ΠΈΡΡΡ Π²ΠΊΠ»ΡΡΠ΅Π½Ρ Π² ΡΠΈΡΠ»ΠΎ ΠΈΠ½Π΄Π΅ΠΊΡΠΎΠ², Π΄Π°ΠΆΠ΅ Π΅ΡΠ»ΠΈ ΠΎΠ½ΠΈ ΡΠΊΡΡΡΡ.All worksheets are included in the index count, even if they are hidden.
ΠΠΌΡ Π»ΠΈΡΡΠ° ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ°Π΅ΡΡΡ Π½Π° Π²ΠΊΠ»Π°Π΄ΠΊΠ΅ Π»ΠΈΡΡΠ°.The worksheet name is shown on the tab for the worksheet. ΠΡΠΏΠΎΠ»ΡΠ·ΡΠΉΡΠ΅ ΡΠ²ΠΎΠΉΡΡΠ²ΠΎ Name , ΡΡΠΎΠ±Ρ Π·Π°Π΄Π°ΡΡ ΠΈΠ»ΠΈ Π²Π΅ΡΠ½ΡΡΡ ΠΈΠΌΡ Π»ΠΈΡΡΠ°.Use the Name property to set or return the worksheet name. Π ΠΏΡΠΈΠ²Π΅Π΄Π΅Π½Π½ΠΎΠΌ Π½ΠΈΠΆΠ΅ ΠΏΡΠΈΠΌΠ΅ΡΠ΅ ΠΏΠΎΠΊΠ°Π·Π°Π½ΠΎ, ΠΊΠ°ΠΊ Π·Π°ΡΠΈΡΠΈΡΡ ΡΡΠ΅Π½Π°ΡΠΈΠΈ Π½Π° Π»ΠΈΡΡΠ΅ Sheet1.The following example protects the scenarios on Sheet1.
Dim strPassword As String
strPassword = InputBox ("Enter the password for the worksheet")
Worksheets("Sheet1").Protect password:=strPassword, scenarios:=True
ΠΠΎΠ³Π΄Π° Π»ΠΈΡΡ ΡΠ²Π»ΡΠ΅ΡΡΡ Π°ΠΊΡΠΈΠ²Π½ΡΠΌ Π»ΠΈΡΡΠΎΠΌ, ΠΌΠΎΠΆΠ½ΠΎ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΡΠ²ΠΎΠΉΡΡΠ²ΠΎ Π°ΠΊΡΠΈΠ²Π΅ΡΠΈΡ , ΡΡΠΎΠ±Ρ ΡΡΡΠ»Π°ΡΡΡΡ Π½Π° Π½Π΅Π³ΠΎ.When a worksheet is the active sheet, you can use the ActiveSheet property to refer to it. Π ΡΠ»Π΅Π΄ΡΡΡΠ΅ΠΌ ΠΏΡΠΈΠΌΠ΅ΡΠ΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ ΠΌΠ΅ΡΠΎΠ΄ Activate Π΄Π»Ρ Π°ΠΊΡΠΈΠ²Π°ΡΠΈΠΈ ΠΠΈΡΡ1, ΡΡΡΠ°Π½Π°Π²Π»ΠΈΠ²Π°Π΅ΡΡΡ Π°Π»ΡΠ±ΠΎΠΌΠ½Π°Ρ ΠΎΡΠΈΠ΅Π½ΡΠ°ΡΠΈΡ ΡΡΡΠ°Π½ΠΈΡΡ, Π° Π·Π°ΡΠ΅ΠΌ Π»ΠΈΡΡ ΠΏΠ΅ΡΠ°ΡΠ°Π΅ΡΡΡ.The following example uses the Activate method to activate Sheet1, sets the page orientation to landscape mode, and then prints the worksheet.
Worksheets("Sheet1").Activate
ActiveSheet.PageSetup.Orientation = xlLandscape
ActiveSheet.PrintOut
Π ΡΡΠΎΠΌ ΠΏΡΠΈΠΌΠ΅ΡΠ΅ ΠΏΠΎΠΊΠ°Π·Π°Π½ΠΎ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ ΡΠΎΠ±ΡΡΠΈΡ Π±Π΅ΡΠΎΡΠ΅Π΄Π°ΡΠ±Π»Π΅ΠΊΠ»ΠΈΠΊΠΊ Π΄Π»Ρ ΠΎΡΠΊΡΡΡΠΈΡ ΡΠΊΠ°Π·Π°Π½Π½ΠΎΠ³ΠΎ Π½Π°Π±ΠΎΡΠ° ΡΠ°ΠΉΠ»ΠΎΠ² Π² Π±Π»ΠΎΠΊΠ½ΠΎΡΠ΅.This example uses the BeforeDoubleClick event to open a specified set of files in Notepad. Π§ΡΠΎΠ±Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΡΡΠΎΡ ΠΏΡΠΈΠΌΠ΅Ρ, Π»ΠΈΡΡ Π΄ΠΎΠ»ΠΆΠ΅Π½ ΡΠΎΠ΄Π΅ΡΠΆΠ°ΡΡ ΡΠ»Π΅Π΄ΡΡΡΠΈΠ΅ Π΄Π°Π½Π½ΡΠ΅:To use this example, your worksheet must contain the following data:
- Π―ΡΠ΅ΠΉΠΊΠ° a1 Π΄ΠΎΠ»ΠΆΠ½Π° ΡΠΎΠ΄Π΅ΡΠΆΠ°ΡΡ ΠΈΠΌΠ΅Π½Π° ΡΠ°ΠΉΠ»ΠΎΠ², ΠΊΠΎΡΠΎΡΡΠ΅ Π΄ΠΎΠ»ΠΆΠ½Ρ Π±ΡΡΡ ΠΎΡΠΊΡΡΡΡ, ΠΎΡΠ΄Π΅Π»Π΅Π½Π½ΡΡ Π·Π°ΠΏΡΡΠΎΠΉ ΠΈ ΠΏΡΠΎΠ±Π΅Π»ΠΎΠΌ.Cell A1 must contain the names of the files to open, each separated by a comma and a space.
- Π―ΡΠ΅ΠΉΠΊΠ° D1 Π΄ΠΎΠ»ΠΆΠ½Π° ΡΠΎΠ΄Π΅ΡΠΆΠ°ΡΡ ΠΏΡΡΡ ΠΊ ΡΠ°ΡΠΏΠΎΠ»ΠΎΠΆΠ΅Π½ΠΈΡ ΡΠ°ΠΉΠ»ΠΎΠ² Π±Π»ΠΎΠΊΠ½ΠΎΡΠ°.Cell D1 must contain the path to where the Notepad files are located.
- Π―ΡΠ΅ΠΉΠΊΠ° D2 Π΄ΠΎΠ»ΠΆΠ½Π° ΡΠΎΠ΄Π΅ΡΠΆΠ°ΡΡ ΠΏΡΡΡ ΠΊ ΡΠ°ΡΠΏΠΎΠ»ΠΎΠΆΠ΅Π½ΠΈΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ Π±Π»ΠΎΠΊΠ½ΠΎΡΠ°.Cell D2 must contain the path to where the Notepad program is located.
- Π―ΡΠ΅ΠΉΠΊΠ° D3 Π΄ΠΎΠ»ΠΆΠ½Π° ΡΠΎΠ΄Π΅ΡΠΆΠ°ΡΡ ΡΠ°ΡΡΠΈΡΠ΅Π½ΠΈΠ΅ ΡΠ°ΠΉΠ»Π° (Π±Π΅Π· ΡΠΎΡΠΊΠΈ) Π΄Π»Ρ ΡΠ°ΠΉΠ»ΠΎΠ² «ΠΠ»ΠΎΠΊΠ½ΠΎΡΠ°» (txt).Cell D3 must contain the file extension, without the period, for the Notepad files (txt).
ΠΡΠΈ Π΄Π²ΠΎΠΉΠ½ΠΎΠΌ ΡΠ΅Π»ΡΠΊΠ΅ ΡΡΠ΅ΠΉΠΊΠΈ a1 ΡΠ°ΠΉΠ»Ρ, ΡΠΊΠ°Π·Π°Π½Π½ΡΠ΅ Π² ΡΡΠ΅ΠΉΠΊΠ΅ a1, ΠΎΡΠΊΡΡΠ²Π°ΡΡΡΡ Π² Π±Π»ΠΎΠΊΠ½ΠΎΡΠ΅.When you double-click cell A1, the files specified in cell A1 are opened in Notepad.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Define your variables.
Dim sFile As String, sPath As String, sTxt As String, sExe As String, sSfx As String
'If you did not double-click on A1, then exit the function.
If Target.Address <> "$A$1" Then Exit Sub
'If you did double-click on A1, then override the default double-click behavior with this function.
Cancel = True
'Set the path to the files, the path to Notepad, the file extension of the files, and the names of the files,
'based on the information on the worksheet.
sPath = Range("D1").Value
sExe = Range("D2").Value
sSfx = Range("D3").Value
sFile = Range("A1").Value
'Remove the spaces between the file names.
sFile = WorksheetFunction.Substitute(sFile, " ", "")
'Go through each file in the list (separated by commas) and
'create the path, call the executable, and move on to the next comma.
Do While InStr(sFile, ",")
sTxt = sPath & "\" & Left(sFile, InStr(sFile, ",") - 1) & "." & sSfx
If Dir(sTxt) <> "" Then Shell sExe & " " & sTxt, vbNormalFocus
sFile = Right(sFile, Len(sFile) - InStr(sFile, ","))
Loop
'Finish off the last file name in the list
sTxt = sPath & "\" & sFile & "." & sSfx
If Dir(sTxt) <> "" Then Shell sExe & " " & sTxt, vbNormalNoFocus
End Sub
Π‘ΠΎΠ±ΡΡΠΈΡEvents
ΠΠ΅ΡΠΎΠ΄ΡMethods
Π‘Π²ΠΎΠΉΡΡΠ²Π°Properties
Π‘ΠΌ. ΡΠ°ΠΊΠΆΠ΅See also
ΠΠΎΠ΄Π΄Π΅ΡΠΆΠΊΠ° ΠΈ ΠΎΠ±ΡΠ°ΡΠ½Π°Ρ ΡΠ²ΡΠ·Ρ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 — Microsoft Excel Π΄Π»Ρ Π½Π°ΡΠΈΠ½Π°ΡΡΠΈΡ
Π’Π΅ΡΠΌΠΈΠ½ ΠΠ±ΡΠ΅ΠΊΡΡ Excel (ΠΏΠΎΠ½ΠΈΠΌΠ°Π΅ΠΌΡΠΉ Π² ΡΠΈΡΠΎΠΊΠΎΠΌ ΡΠΌΡΡΠ»Π΅, ΠΊΠ°ΠΊ ΠΎΠ±ΡΠ΅ΠΊΡΠ½Π°Ρ ΠΌΠΎΠ΄Π΅Π»Ρ Excel) Π²ΠΊΠ»ΡΡΠ°Π΅Ρ Π² ΡΠ΅Π±Ρ ΡΠ»Π΅ΠΌΠ΅Π½ΡΡ, ΠΈΠ· ΠΊΠΎΡΠΎΡΡΡ ΡΠΎΡΡΠΎΠΈΡ Π»ΡΠ±Π°Ρ ΡΠ°Π±ΠΎΡΠ°Ρ ΠΊΠ½ΠΈΠ³Π° Excel. ΠΡΠΎ, Π½Π°ΠΏΡΠΈΠΌΠ΅Ρ, ΡΠ°Π±ΠΎΡΠΈΠ΅ Π»ΠΈΡΡΡ (Worksheets), ΡΡΡΠΎΠΊΠΈ (Rows), ΡΡΠΎΠ»Π±ΡΡ (Columns), Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½Ρ ΡΡΠ΅Π΅ΠΊ (Ranges) ΠΈ ΡΠ°ΠΌΠ° ΡΠ°Π±ΠΎΡΠ°Ρ ΠΊΠ½ΠΈΠ³Π° Excel (Workbook) Π² ΡΠΎΠΌ ΡΠΈΡΠ»Π΅. ΠΠ°ΠΆΠ΄ΡΠΉ ΠΎΠ±ΡΠ΅ΠΊΡ Excel ΠΈΠΌΠ΅Π΅Ρ Π½Π°Π±ΠΎΡ ΡΠ²ΠΎΠΉΡΡΠ², ΠΊΠΎΡΠΎΡΡΠ΅ ΡΠ²Π»ΡΡΡΡΡ Π΅Π³ΠΎ Π½Π΅ΠΎΡΡΠ΅ΠΌΠ»Π΅ΠΌΠΎΠΉ ΡΠ°ΡΡΡΡ.
ΠΠ°ΠΏΡΠΈΠΌΠ΅Ρ, ΠΎΠ±ΡΠ΅ΠΊΡ Worksheet (ΡΠ°Π±ΠΎΡΠΈΠΉ Π»ΠΈΡΡ) ΠΈΠΌΠ΅Π΅Ρ ΡΠ²ΠΎΠΉΡΡΠ²Π° Name (ΠΈΠΌΡ), Protection (Π·Π°ΡΠΈΡΠ°), Visible (Π²ΠΈΠ΄ΠΈΠΌΠΎΡΡΡ), Scroll Area (ΠΎΠ±Π»Π°ΡΡΡ ΠΏΡΠΎΠΊΡΡΡΠΊΠΈ) ΠΈ ΡΠ°ΠΊ Π΄Π°Π»Π΅Π΅. Π’Π°ΠΊΠΈΠΌ ΠΎΠ±ΡΠ°Π·ΠΎΠΌ, Π΅ΡΠ»ΠΈ Π² ΠΏΡΠΎΡΠ΅ΡΡΠ΅ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΡ ΠΌΠ°ΠΊΡΠΎΡΠ° ΡΡΠ΅Π±ΡΠ΅ΡΡΡ ΡΠΊΡΡΡΡ ΡΠ°Π±ΠΎΡΠΈΠΉ Π»ΠΈΡΡ, ΡΠΎ Π΄ΠΎΡΡΠ°ΡΠΎΡΠ½ΠΎ ΠΈΠ·ΠΌΠ΅Π½ΠΈΡΡ ΡΠ²ΠΎΠΉΡΡΠ²ΠΎ Visible ΡΡΠΎΠ³ΠΎ Π»ΠΈΡΡΠ°.
Π Excel VBA ΡΡΡΠ΅ΡΡΠ²ΡΠ΅Ρ ΠΎΡΠΎΠ±ΡΠΉ ΡΠΈΠΏ ΠΎΠ±ΡΠ΅ΠΊΡΠΎΠ² β ΠΊΠΎΠ»Π»Π΅ΠΊΡΠΈΡ. ΠΠ°ΠΊ ΠΌΠΎΠΆΠ½ΠΎ Π΄ΠΎΠ³Π°Π΄Π°ΡΡΡΡ ΠΈΠ· Π½Π°Π·Π²Π°Π½ΠΈΡ, ΠΊΠΎΠ»Π»Π΅ΠΊΡΠΈΡ ΡΡΡΠ»Π°Π΅ΡΡΡ Π½Π° Π³ΡΡΠΏΠΏΡ (ΠΈΠ»ΠΈ ΠΊΠΎΠ»Π»Π΅ΠΊΡΠΈΡ) ΠΎΠ±ΡΠ΅ΠΊΡΠΎΠ² Excel. ΠΠ°ΠΏΡΠΈΠΌΠ΅Ρ, ΠΊΠΎΠ»Π»Π΅ΠΊΡΠΈΡ Rows β ΡΡΠΎ ΠΎΠ±ΡΠ΅ΠΊΡ, ΡΠΎΠ΄Π΅ΡΠΆΠ°ΡΠΈΠΉ Π²ΡΠ΅ ΡΡΡΠΎΠΊΠΈ ΡΠ°Π±ΠΎΡΠ΅Π³ΠΎ Π»ΠΈΡΡΠ°.
ΠΠΎΡΡΡΠΏ ΠΊΠΎ Π²ΡΠ΅ΠΌ ΠΎΡΠ½ΠΎΠ²Π½ΡΠΌ ΠΎΠ±ΡΠ΅ΠΊΡΠ°ΠΌ Excel ΠΌΠΎΠΆΠ΅Ρ Π±ΡΡΡ ΠΎΡΡΡΠ΅ΡΡΠ²Π»ΡΠ½ (ΠΏΡΡΠΌΠΎ ΠΈΠ»ΠΈ ΠΊΠΎΡΠ²Π΅Π½Π½ΠΎ) ΡΠ΅ΡΠ΅Π· ΠΎΠ±ΡΠ΅ΠΊΡ Workbooks, ΠΊΠΎΡΠΎΡΡΠΉ ΡΠ²Π»ΡΠ΅ΡΡΡ ΠΊΠΎΠ»Π»Π΅ΠΊΡΠΈΠ΅ΠΉ Π²ΡΠ΅Ρ ΠΎΡΠΊΡΡΡΡΡ Π² Π΄Π°Π½Π½ΡΠΉ ΠΌΠΎΠΌΠ΅Π½Ρ ΡΠ°Π±ΠΎΡΠΈΡ ΠΊΠ½ΠΈΠ³. ΠΠ°ΠΆΠ΄Π°Ρ ΡΠ°Π±ΠΎΡΠ°Ρ ΠΊΠ½ΠΈΠ³Π° ΡΠΎΠ΄Π΅ΡΠΆΠΈΡ ΠΎΠ±ΡΠ΅ΠΊΡ Sheets β ΠΊΠΎΠ»Π»Π΅ΠΊΡΠΈΡ, ΠΊΠΎΡΠΎΡΠ°Ρ Π²ΠΊΠ»ΡΡΠ°Π΅Ρ Π² ΡΠ΅Π±Ρ Π²ΡΠ΅ ΡΠ°Π±ΠΎΡΠΈΠ΅ Π»ΠΈΡΡΡ ΠΈ Π»ΠΈΡΡΡ Ρ Π΄ΠΈΠ°Π³ΡΠ°ΠΌΠΌΠ°ΠΌΠΈ ΡΠ°Π±ΠΎΡΠ΅ΠΉ ΠΊΠ½ΠΈΠ³ΠΈ. ΠΠ°ΠΆΠ΄ΡΠΉ ΠΎΠ±ΡΠ΅ΠΊΡ Worksheet ΡΠΎΡΡΠΎΠΈΡ ΠΈΠ· ΠΊΠΎΠ»Π»Π΅ΠΊΡΠΈΠΈ Rows β Π² Π½Π΅Ρ Π²Ρ ΠΎΠ΄ΡΡ Π²ΡΠ΅ ΡΡΡΠΎΠΊΠΈ ΡΠ°Π±ΠΎΡΠ΅Π³ΠΎ Π»ΠΈΡΡΠ°, ΠΈ ΠΊΠΎΠ»Π»Π΅ΠΊΡΠΈΠΈ Columns β Π²ΡΠ΅ ΡΡΠΎΠ»Π±ΡΡ ΡΠ°Π±ΠΎΡΠ΅Π³ΠΎ Π»ΠΈΡΡΠ°, ΠΈ ΡΠ°ΠΊ Π΄Π°Π»Π΅Π΅.
Π ΡΠ»Π΅Π΄ΡΡΡΠ΅ΠΉ ΡΠ°Π±Π»ΠΈΡΠ΅ ΠΏΠ΅ΡΠ΅ΡΠΈΡΠ»Π΅Π½Ρ Π½Π΅ΠΊΠΎΡΠΎΡΡΠ΅ Π½Π°ΠΈΠ±ΠΎΠ»Π΅Π΅ ΡΠ°ΡΡΠΎ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΠΌΡΠ΅ ΠΎΠ±ΡΠ΅ΠΊΡΡ Excel. ΠΠΎΠ»Π½ΡΠΉ ΠΏΠ΅ΡΠ΅ΡΠ΅Π½Ρ ΠΎΠ±ΡΠ΅ΠΊΡΠΎΠ² Excel VBA ΠΌΠΎΠΆΠ½ΠΎ Π½Π°ΠΉΡΠΈ Π½Π° ΡΠ°ΠΉΡΠ΅ Microsoft Office Developer (Π½Π° Π°Π½Π³Π»ΠΈΠΉΡΠΊΠΎΠΌ).
ΠΠ±ΡΠ΅ΠΊΡ | ΠΠΏΠΈΡΠ°Π½ΠΈΠ΅ |
---|---|
Application | ΠΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅ Excel. |
Workbooks | ΠΠΎΠ»Π»Π΅ΠΊΡΠΈΡ Π²ΡΠ΅Ρ ΠΎΡΠΊΡΡΡΡΡ Π² Π΄Π°Π½Π½ΡΠΉ ΠΌΠΎΠΌΠ΅Π½Ρ ΡΠ°Π±ΠΎΡΠΈΡ ΠΊΠ½ΠΈΠ³ Π² ΡΠ΅ΠΊΡΡΠ΅ΠΌ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠΈ Excel. ΠΠΎΡΡΡΠΏ ΠΊ ΠΊΠ°ΠΊΠΎΠΉ-ΡΠΎ ΠΊΠΎΠ½ΠΊΡΠ΅ΡΠ½ΠΎΠΉ ΡΠ°Π±ΠΎΡΠ΅ΠΉ ΠΊΠ½ΠΈΠ³Π΅ ΠΌΠΎΠΆΠ΅Ρ Π±ΡΡΡ ΠΎΡΡΡΠ΅ΡΡΠ²Π»ΡΠ½ ΡΠ΅ΡΠ΅Π· ΠΎΠ±ΡΠ΅ΠΊΡ Workbooks ΠΏΡΠΈ ΠΏΠΎΠΌΠΎΡΠΈ ΡΠΈΡΠ»ΠΎΠ²ΠΎΠ³ΠΎ ΠΈΠ½Π΄Π΅ΠΊΡΠ° ΡΠ°Π±ΠΎΡΠ΅ΠΉ ΠΊΠ½ΠΈΠ³ΠΈ ΠΈΠ»ΠΈ Π΅Ρ ΠΈΠΌΠ΅Π½ΠΈ, Π½Π°ΠΏΡΠΈΠΌΠ΅Ρ, Workbooks(1) ΠΈΠ»ΠΈ Workbooks(βΠΠ½ΠΈΠ³Π°1β). |
Workbook | ΠΠ±ΡΠ΅ΠΊΡ Workbook β ΡΡΠΎ ΡΠ°Π±ΠΎΡΠ°Ρ ΠΊΠ½ΠΈΠ³Π°. ΠΠΎΡΡΡΠΏ ΠΊ Π½Π΅ΠΉ ΠΌΠΎΠΆΠ΅Ρ Π±ΡΡΡ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ ΡΠ΅ΡΠ΅Π· ΠΊΠΎΠ»Π»Π΅ΠΊΡΠΈΡ Workbooks ΠΏΡΠΈ ΠΏΠΎΠΌΠΎΡΠΈ ΡΠΈΡΠ»ΠΎΠ²ΠΎΠ³ΠΎ ΠΈΠ½Π΄Π΅ΠΊΡΠ° ΠΈΠ»ΠΈ ΠΈΠΌΠ΅Π½ΠΈ ΡΠ°Π±ΠΎΡΠ΅ΠΉ ΠΊΠ½ΠΈΠ³ΠΈ (ΡΠΌ. Π²ΡΡΠ΅). ΠΠ»Ρ Π΄ΠΎΡΡΡΠΏΠ° ΠΊ Π°ΠΊΡΠΈΠ²Π½ΠΎΠΉ Π² Π΄Π°Π½Π½ΡΠΉ ΠΌΠΎΠΌΠ΅Π½Ρ ΡΠ°Π±ΠΎΡΠ΅ΠΉ ΠΊΠ½ΠΈΠ³Π΅ ΠΌΠΎΠΆΠ½ΠΎ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ActiveWorkbook. ΠΠ· ΠΎΠ±ΡΠ΅ΠΊΡΠ° Workbook ΠΌΠΎΠΆΠ½ΠΎ ΠΏΠΎΠ»ΡΡΠΈΡΡ Π΄ΠΎΡΡΡΠΏ ΠΊ ΠΎΠ±ΡΠ΅ΠΊΡΡ Sheets, ΠΊΠΎΡΠΎΡΡΠΉ ΡΠ²Π»ΡΠ΅ΡΡΡ ΠΊΠΎΠ»Π»Π΅ΠΊΡΠΈΠ΅ΠΉ Π²ΡΠ΅Ρ Π»ΠΈΡΡΠΎΠ² ΡΠ°Π±ΠΎΡΠ΅ΠΉ ΠΊΠ½ΠΈΠ³ΠΈ (ΡΠ°Π±ΠΎΡΠΈΠ΅ Π»ΠΈΡΡΡ ΠΈ Π΄ΠΈΠ°Π³ΡΠ°ΠΌΠΌΡ), Π° ΡΠ°ΠΊΠΆΠ΅ ΠΊ ΠΎΠ±ΡΠ΅ΠΊΡΡ Worksheets, ΠΊΠΎΡΠΎΡΡΠΉ ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»ΡΠ΅Ρ ΠΈΠ· ΡΠ΅Π±Ρ ΠΊΠΎΠ»Π»Π΅ΠΊΡΠΈΡ Π²ΡΠ΅Ρ ΡΠ°Π±ΠΎΡΠΈΡ Π»ΠΈΡΡΠΎΠ² ΠΊΠ½ΠΈΠ³ΠΈ Excel. |
Sheets | ΠΠ±ΡΠ΅ΠΊΡ Sheetsβ ΡΡΠΎ ΠΊΠΎΠ»Π»Π΅ΠΊΡΠΈΡ Π²ΡΠ΅Ρ Π»ΠΈΡΡΠΎΠ² ΡΠ°Π±ΠΎΡΠ΅ΠΉ ΠΊΠ½ΠΈΠ³ΠΈ. ΠΡΠΎ ΠΌΠΎΠ³ΡΡ Π±ΡΡΡ ΠΊΠ°ΠΊ ΡΠ°Π±ΠΎΡΠΈΠ΅ Π»ΠΈΡΡΡ, ΡΠ°ΠΊ ΠΈ Π΄ΠΈΠ°Π³ΡΠ°ΠΌΠΌΡ Π½Π° ΠΎΡΠ΄Π΅Π»ΡΠ½ΠΎΠΌ Π»ΠΈΡΡΠ΅. ΠΠΎΡΡΡΠΏ ΠΊ ΠΎΡΠ΄Π΅Π»ΡΠ½ΠΎΠΌΡ Π»ΠΈΡΡΡ ΠΈΠ· ΠΊΠΎΠ»Π»Π΅ΠΊΡΠΈΠΈ Sheets ΠΌΠΎΠΆΠ½ΠΎ ΠΏΠΎΠ»ΡΡΠΈΡΡ ΠΏΡΠΈ ΠΏΠΎΠΌΠΎΡΠΈ ΡΠΈΡΠ»ΠΎΠ²ΠΎΠ³ΠΎ ΠΈΠ½Π΄Π΅ΠΊΡΠ° Π»ΠΈΡΡΠ° ΠΈΠ»ΠΈ Π΅Π³ΠΎ ΠΈΠΌΠ΅Π½ΠΈ, Π½Π°ΠΏΡΠΈΠΌΠ΅Ρ, Sheets(1) ΠΈΠ»ΠΈ Sheets(βΠΠΈΡΡ1β). |
Worksheets | ΠΠ±ΡΠ΅ΠΊΡ Worksheets β ΡΡΠΎ ΠΊΠΎΠ»Π»Π΅ΠΊΡΠΈΡ Π²ΡΠ΅Ρ ΡΠ°Π±ΠΎΡΠΈΡ Π»ΠΈΡΡΠΎΠ² Π² ΡΠ°Π±ΠΎΡΠ΅ΠΉ ΠΊΠ½ΠΈΠ³Π΅ (ΡΠΎ Π΅ΡΡΡ, Π²ΡΠ΅ Π»ΠΈΡΡΡ, ΠΊΡΠΎΠΌΠ΅ Π΄ΠΈΠ°Π³ΡΠ°ΠΌΠΌ Π½Π° ΠΎΡΠ΄Π΅Π»ΡΠ½ΠΎΠΌ Π»ΠΈΡΡΠ΅). ΠΠΎΡΡΡΠΏ ΠΊ ΠΎΡΠ΄Π΅Π»ΡΠ½ΠΎΠΌΡ ΡΠ°Π±ΠΎΡΠ΅ΠΌΡ Π»ΠΈΡΡΡ ΠΈΠ· ΠΊΠΎΠ»Π»Π΅ΠΊΡΠΈΠΈ Worksheets ΠΌΠΎΠΆΠ½ΠΎ ΠΏΠΎΠ»ΡΡΠΈΡΡ ΠΏΡΠΈ ΠΏΠΎΠΌΠΎΡΠΈ ΡΠΈΡΠ»ΠΎΠ²ΠΎΠ³ΠΎ ΠΈΠ½Π΄Π΅ΠΊΡΠ° ΡΠ°Π±ΠΎΡΠ΅Π³ΠΎ Π»ΠΈΡΡΠ° ΠΈΠ»ΠΈ Π΅Π³ΠΎ ΠΈΠΌΠ΅Π½ΠΈ, Π½Π°ΠΏΡΠΈΠΌΠ΅Ρ, Worksheets(1) ΠΈΠ»ΠΈ Worksheets(βΠΠΈΡΡ1β). |
Worksheet | ΠΠ±ΡΠ΅ΠΊΡ Worksheet β ΡΡΠΎ ΠΎΡΠ΄Π΅Π»ΡΠ½ΡΠΉ ΡΠ°Π±ΠΎΡΠΈΠΉ Π»ΠΈΡΡ ΠΊΠ½ΠΈΠ³ΠΈ Excel. ΠΠΎΡΡΡΠΏ ΠΊ Π½Π΅ΠΌΡ ΠΌΠΎΠΆΠ½ΠΎ ΠΏΠΎΠ»ΡΡΠΈΡΡ ΠΏΡΠΈ ΠΏΠΎΠΌΠΎΡΠΈ ΡΠΈΡΠ»ΠΎΠ²ΠΎΠ³ΠΎ ΠΈΠ½Π΄Π΅ΠΊΡΠ° ΡΠ°Π±ΠΎΡΠ΅Π³ΠΎ Π»ΠΈΡΡΠ° ΠΈΠ»ΠΈ Π΅Π³ΠΎ ΠΈΠΌΠ΅Π½ΠΈ (ΡΠΌ. Π²ΡΡΠ΅). ΠΡΠΎΠΌΠ΅ ΡΡΠΎΠ³ΠΎ ΠΡ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ActiveSheet Π΄Π»Ρ Π΄ΠΎΡΡΡΠΏΠ° ΠΊ Π°ΠΊΡΠΈΠ²Π½ΠΎΠΌΡ Π² Π΄Π°Π½Π½ΡΠΉ ΠΌΠΎΠΌΠ΅Π½Ρ ΡΠ°Π±ΠΎΡΠ΅ΠΌΡ Π»ΠΈΡΡΡ. ΠΠ· ΠΎΠ±ΡΠ΅ΠΊΡΠ° Worksheet ΠΌΠΎΠΆΠ½ΠΎ ΠΏΠΎΠ»ΡΡΠΈΡΡ Π΄ΠΎΡΡΡΠΏ ΠΊ ΠΎΠ±ΡΠ΅ΠΊΡΠ°ΠΌ Rows ΠΈ Columns, ΠΊΠΎΡΠΎΡΡΠ΅ ΡΠ²Π»ΡΡΡΡΡ ΠΊΠΎΠ»Π»Π΅ΠΊΡΠΈΠ΅ΠΉ ΠΎΠ±ΡΠ΅ΠΊΡΠΎΠ² Range, ΡΡΡΠ»Π°ΡΡΠΈΡ ΡΡ Π½Π° ΡΡΡΠΎΠΊΠΈ ΠΈ ΡΡΠΎΠ»Π±ΡΡ ΡΠ°Π±ΠΎΡΠ΅Π³ΠΎ Π»ΠΈΡΡΠ°. Π ΡΠ°ΠΊΠΆΠ΅ ΠΌΠΎΠΆΠ½ΠΎ ΠΏΠΎΠ»ΡΡΠΈΡΡ Π΄ΠΎΡΡΡΠΏ ΠΊ ΠΎΡΠ΄Π΅Π»ΡΠ½ΠΎΠΉ ΡΡΠ΅ΠΉΠΊΠ΅ ΠΈΠ»ΠΈ ΠΊ Π»ΡΠ±ΠΎΠΌΡ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½Ρ ΡΠΌΠ΅ΠΆΠ½ΡΡ ΡΡΠ΅Π΅ΠΊ Π½Π° ΡΠ°Π±ΠΎΡΠ΅ΠΌ Π»ΠΈΡΡΠ΅. |
Rows | ΠΠ±ΡΠ΅ΠΊΡ Rows β ΡΡΠΎ ΠΊΠΎΠ»Π»Π΅ΠΊΡΠΈΡ Π²ΡΠ΅Ρ ΡΡΡΠΎΠΊ ΡΠ°Π±ΠΎΡΠ΅Π³ΠΎ Π»ΠΈΡΡΠ°. ΠΠ±ΡΠ΅ΠΊΡ Range, ΡΠΎΡΡΠΎΡΡΠΈΠΉ ΠΈΠ· ΠΎΡΠ΄Π΅Π»ΡΠ½ΠΎΠΉ ΡΡΡΠΎΠΊΠΈ ΡΠ°Π±ΠΎΡΠ΅Π³ΠΎ Π»ΠΈΡΡΠ°, ΠΌΠΎΠΆΠ΅Ρ Π±ΡΡΡ Π΄ΠΎΡΡΡΠΏΠ΅Π½ ΠΏΠΎ Π½ΠΎΠΌΠ΅ΡΡ ΡΡΠΎΠΉ ΡΡΡΠΎΠΊΠΈ, Π½Π°ΠΏΡΠΈΠΌΠ΅Ρ, Rows(1). |
Columns | ΠΠ±ΡΠ΅ΠΊΡ Columns β ΡΡΠΎ ΠΊΠΎΠ»Π»Π΅ΠΊΡΠΈΡ Π²ΡΠ΅Ρ ΡΡΠΎΠ»Π±ΡΠΎΠ² ΡΠ°Π±ΠΎΡΠ΅Π³ΠΎ Π»ΠΈΡΡΠ°. ΠΠ±ΡΠ΅ΠΊΡ Range, ΡΠΎΡΡΠΎΡΡΠΈΠΉ ΠΈΠ· ΠΎΡΠ΄Π΅Π»ΡΠ½ΠΎΠ³ΠΎ ΡΡΠΎΠ»Π±ΡΠ° ΡΠ°Π±ΠΎΡΠ΅Π³ΠΎ Π»ΠΈΡΡΠ°, ΠΌΠΎΠΆΠ΅Ρ Π±ΡΡΡ Π΄ΠΎΡΡΡΠΏΠ΅Π½ ΠΏΠΎ Π½ΠΎΠΌΠ΅ΡΡ ΡΡΠΎΠ³ΠΎ ΡΡΠΎΠ»Π±ΡΠ°, Π½Π°ΠΏΡΠΈΠΌΠ΅Ρ, Columns(1). |
Range | ΠΠ±ΡΠ΅ΠΊΡ Range β ΡΡΠΎ Π»ΡΠ±ΠΎΠ΅ ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ ΡΠΌΠ΅ΠΆΠ½ΡΡ
ΡΡΠ΅Π΅ΠΊ Π½Π° ΡΠ°Π±ΠΎΡΠ΅ΠΌ Π»ΠΈΡΡΠ΅. ΠΡΠΎ ΠΌΠΎΠΆΠ΅Ρ Π±ΡΡΡ ΠΎΠ΄Π½Π° ΡΡΠ΅ΠΉΠΊΠ° ΠΈΠ»ΠΈ Π²ΡΠ΅ ΡΡΠ΅ΠΉΠΊΠΈ Π»ΠΈΡΡΠ°. ΠΠΎΡΡΡΠΏ ΠΊ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½Ρ, ΡΠΎΡΡΠΎΡΡΠ΅ΠΌΡ ΠΈΠ· Π΅Π΄ΠΈΠ½ΡΡΠ²Π΅Π½Π½ΠΎΠΉ ΡΡΠ΅ΠΉΠΊΠΈ, ΠΌΠΎΠΆΠ΅Ρ Π±ΡΡΡ ΠΎΡΡΡΠ΅ΡΡΠ²Π»ΡΠ½ ΡΠ΅ΡΠ΅Π· ΠΎΠ±ΡΠ΅ΠΊΡ Worksheet ΠΏΡΠΈ ΠΏΠΎΠΌΠΎΡΠΈ ΡΠ²ΠΎΠΉΡΡΠ²Π° Cells, Π½Π°ΠΏΡΠΈΠΌΠ΅Ρ, Worksheet.Cells(1,1). ΠΠΎ-Π΄ΡΡΠ³ΠΎΠΌΡ ΡΡΡΠ»ΠΊΡ Π½Π° Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ ΠΌΠΎΠΆΠ½ΠΎ Π·Π°ΠΏΠΈΡΠ°ΡΡ, ΡΠΊΠ°Π·Π°Π² Π°Π΄ΡΠ΅ΡΠ° Π½Π°ΡΠ°Π»ΡΠ½ΠΎΠΉ ΠΈ ΠΊΠΎΠ½Π΅ΡΠ½ΠΎΠΉ ΡΡΠ΅Π΅ΠΊ. ΠΡ ΠΌΠΎΠΆΠ½ΠΎ Π·Π°ΠΏΠΈΡΠ°ΡΡ ΡΠ΅ΡΠ΅Π· Π΄Π²ΠΎΠ΅ΡΠΎΡΠΈΠ΅ ΠΈΠ»ΠΈ ΡΠ΅ΡΠ΅Π· Π·Π°ΠΏΡΡΡΡ. ΠΠ°ΠΏΡΠΈΠΌΠ΅Ρ, Worksheet.Range(βA1:B10β) ΠΈΠ»ΠΈ Worksheet.Range(βA1β,Β βB10β) ΠΈΠ»ΠΈ Worksheet.Range(Cells(1,1),Β Cells(10,2)). ΠΠ±ΡΠ°ΡΠΈΡΠ΅ Π²Π½ΠΈΠΌΠ°Π½ΠΈΠ΅, Π΅ΡΠ»ΠΈ Π² Π°Π΄ΡΠ΅ΡΠ΅ Range Π²ΡΠΎΡΠ°Ρ ΡΡΠ΅ΠΉΠΊΠ° Π½Π΅ ΡΠΊΠ°Π·Π°Π½Π° (Π½Π°ΠΏΡΠΈΠΌΠ΅Ρ, Worksheet.Range(βA1β) ΠΈΠ»ΠΈ Worksheet.Range(Cells(1,1)), ΡΠΎ Π±ΡΠ΄Π΅Ρ Π²ΡΠ±ΡΠ°Π½ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½, ΡΠΎΡΡΠΎΡΡΠΈΠΉ ΠΈΠ· Π΅Π΄ΠΈΠ½ΡΡΠ²Π΅Π½Π½ΠΎΠΉ ΡΡΠ΅ΠΉΠΊΠΈ. |
ΠΡΠΈΠ²Π΅Π΄ΡΠ½Π½Π°Ρ Π²ΡΡΠ΅ ΡΠ°Π±Π»ΠΈΡΠ° ΠΏΠΎΠΊΠ°Π·ΡΠ²Π°Π΅Ρ, ΠΊΠ°ΠΊ Π²ΡΠΏΠΎΠ»Π½ΡΠ΅ΡΡΡ Π΄ΠΎΡΡΡΠΏ ΠΊ ΠΎΠ±ΡΠ΅ΠΊΡΠ°ΠΌ Excel ΡΠ΅ΡΠ΅Π· ΡΠΎΠ΄ΠΈΡΠ΅Π»ΡΡΠΊΠΈΠ΅ ΠΎΠ±ΡΠ΅ΠΊΡΡ. ΠΠ°ΠΏΡΠΈΠΌΠ΅Ρ, ΡΡΡΠ»ΠΊΡ Π½Π° Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ ΡΡΠ΅Π΅ΠΊ ΠΌΠΎΠΆΠ½ΠΎ Π·Π°ΠΏΠΈΡΠ°ΡΡ Π²ΠΎΡ ΡΠ°ΠΊ:
Workbooks("ΠΠ½ΠΈΠ³Π°1").Worksheets("ΠΠΈΡΡ1").Range("A1:B10")
ΠΡΠΈΡΠ²Π°ΠΈΠ²Π°Π½ΠΈΠ΅ ΠΎΠ±ΡΠ΅ΠΊΡΠ° ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ
Π Excel VBA ΠΎΠ±ΡΠ΅ΠΊΡ ΠΌΠΎΠΆΠ΅Ρ Π±ΡΡΡ ΠΏΡΠΈΡΠ²ΠΎΠ΅Π½ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ ΠΏΡΠΈ ΠΏΠΎΠΌΠΎΡΠΈ ΠΊΠ»ΡΡΠ΅Π²ΠΎΠ³ΠΎ ΡΠ»ΠΎΠ²Π° Set:
Dim DataWb As Workbook Set DataWb = Workbooks("ΠΠ½ΠΈΠ³Π°1.xlsx")
ΠΠΊΡΠΈΠ²Π½ΡΠΉ ΠΎΠ±ΡΠ΅ΠΊΡ
Π Π»ΡΠ±ΠΎΠΉ ΠΌΠΎΠΌΠ΅Π½Ρ Π²ΡΠ΅ΠΌΠ΅Π½ΠΈ Π² Excel Π΅ΡΡΡ Π°ΠΊΡΠΈΠ²Π½ΡΠΉ ΠΎΠ±ΡΠ΅ΠΊΡ Workbook β ΡΡΠΎ ΡΠ°Π±ΠΎΡΠ°Ρ ΠΊΠ½ΠΈΠ³Π°, ΠΎΡΠΊΡΡΡΠ°Ρ Π² ΡΡΠΎΡ ΠΌΠΎΠΌΠ΅Π½Ρ. Π’ΠΎΡΠ½ΠΎ ΡΠ°ΠΊ ΠΆΠ΅ ΡΡΡΠ΅ΡΡΠ²ΡΠ΅Ρ Π°ΠΊΡΠΈΠ²Π½ΡΠΉ ΠΎΠ±ΡΠ΅ΠΊΡ Worksheet, Π°ΠΊΡΠΈΠ²Π½ΡΠΉ ΠΎΠ±ΡΠ΅ΠΊΡ Range ΠΈ ΡΠ°ΠΊ Π΄Π°Π»Π΅Π΅.
Π‘ΠΎΡΠ»Π°ΡΡΡΡ Π½Π° Π°ΠΊΡΠΈΠ²Π½ΡΠΉ ΠΎΠ±ΡΠ΅ΠΊΡ Workbook ΠΈΠ»ΠΈ Sheet Π² ΠΊΠΎΠ΄Π΅ VBA ΠΌΠΎΠΆΠ½ΠΎ ΠΊΠ°ΠΊ Π½Π° ActiveWorkbook ΠΈΠ»ΠΈ ActiveSheet, Π° Π½Π° Π°ΠΊΡΠΈΠ²Π½ΡΠΉ ΠΎΠ±ΡΠ΅ΠΊΡ Range β ΠΊΠ°ΠΊ Π½Π° Selection.
ΠΡΠ»ΠΈ Π² ΠΊΠΎΠ΄Π΅ VBA Π·Π°ΠΏΠΈΡΠ°Π½Π° ΡΡΡΠ»ΠΊΠ° Π½Π° ΡΠ°Π±ΠΎΡΠΈΠΉ Π»ΠΈΡΡ, Π±Π΅Π· ΡΠΊΠ°Π·Π°Π½ΠΈΡ ΠΊ ΠΊΠ°ΠΊΠΎΠΉ ΠΈΠΌΠ΅Π½Π½ΠΎ ΡΠ°Π±ΠΎΡΠ΅ΠΉ ΠΊΠ½ΠΈΠ³Π΅ ΠΎΠ½ ΠΎΡΠ½ΠΎΡΠΈΡΡΡ, ΡΠΎ Excel ΠΏΠΎ ΡΠΌΠΎΠ»ΡΠ°Π½ΠΈΡ ΠΎΠ±ΡΠ°ΡΠ°Π΅ΡΡΡ ΠΊ Π°ΠΊΡΠΈΠ²Π½ΠΎΠΉ ΡΠ°Π±ΠΎΡΠ΅ΠΉ ΠΊΠ½ΠΈΠ³Π΅. Π’ΠΎΡΠ½ΠΎ ΡΠ°ΠΊ ΠΆΠ΅, Π΅ΡΠ»ΠΈ ΡΠΎΡΠ»Π°ΡΡΡΡ Π½Π° Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½, Π½Π΅ ΡΠΊΠ°Π·ΡΠ²Π°Ρ ΠΎΠΏΡΠ΅Π΄Π΅Π»ΡΠ½Π½ΡΡ ΡΠ°Π±ΠΎΡΡΡ ΠΊΠ½ΠΈΠ³Ρ ΠΈΠ»ΠΈ Π»ΠΈΡΡ, ΡΠΎ Excel ΠΏΠΎ ΡΠΌΠΎΠ»ΡΠ°Π½ΠΈΡ ΠΎΠ±ΡΠ°ΡΠΈΡΡΡ ΠΊ Π°ΠΊΡΠΈΠ²Π½ΠΎΠΌΡ ΡΠ°Π±ΠΎΡΠ΅ΠΌΡ Π»ΠΈΡΡΡ Π² Π°ΠΊΡΠΈΠ²Π½ΠΎΠΉ ΡΠ°Π±ΠΎΡΠ΅ΠΉ ΠΊΠ½ΠΈΠ³Π΅.
Π’Π°ΠΊΠΈΠΌ ΠΎΠ±ΡΠ°Π·ΠΎΠΌ, ΡΡΠΎΠ±Ρ ΡΠΎΡΠ»Π°ΡΡΡΡ Π½Π° Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ A1:B10 Π½Π° Π°ΠΊΡΠΈΠ²Π½ΠΎΠΌ ΡΠ°Π±ΠΎΡΠ΅ΠΌ Π»ΠΈΡΡΠ΅ Π°ΠΊΡΠΈΠ²Π½ΠΎΠΉ ΠΊΠ½ΠΈΠ³ΠΈ, ΠΌΠΎΠΆΠ½ΠΎ Π·Π°ΠΏΠΈΡΠ°ΡΡ ΠΏΡΠΎΡΡΠΎ:
Π‘ΠΌΠ΅Π½Π° Π°ΠΊΡΠΈΠ²Π½ΠΎΠ³ΠΎ ΠΎΠ±ΡΠ΅ΠΊΡΠ°
ΠΡΠ»ΠΈ Π² ΠΏΡΠΎΡΠ΅ΡΡΠ΅ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΡΡΠ΅Π±ΡΠ΅ΡΡΡ ΡΠ΄Π΅Π»Π°ΡΡ Π°ΠΊΡΠΈΠ²Π½ΠΎΠΉ Π΄ΡΡΠ³ΡΡ ΡΠ°Π±ΠΎΡΡΡ ΠΊΠ½ΠΈΠ³Ρ, Π΄ΡΡΠ³ΠΎΠΉ ΡΠ°Π±ΠΎΡΠΈΠΉ Π»ΠΈΡΡ, Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ ΠΈ ΡΠ°ΠΊ Π΄Π°Π»Π΅Π΅, ΡΠΎ Π΄Π»Ρ ΡΡΠΎΠ³ΠΎ Π½ΡΠΆΠ½ΠΎ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΠΌΠ΅ΡΠΎΠ΄Ρ Activate ΠΈΠ»ΠΈ Select Π²ΠΎΡ ΡΠ°ΠΊΠΈΠΌ ΠΎΠ±ΡΠ°Π·ΠΎΠΌ:
Sub ActivateAndSelect() Workbooks("ΠΠ½ΠΈΠ³Π°2").Activate Worksheets("ΠΠΈΡΡ2").Select Worksheets("ΠΠΈΡΡ2").Range("A1:B10").Select Worksheets("ΠΠΈΡΡ2").Range("A5").Activate End Sub
ΠΠ΅ΡΠΎΠ΄Ρ ΠΎΠ±ΡΠ΅ΠΊΡΠΎΠ², Π² ΡΠΎΠΌ ΡΠΈΡΠ»Π΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½Π½ΡΠ΅ ΡΠΎΠ»ΡΠΊΠΎ ΡΡΠΎ ΠΌΠ΅ΡΠΎΠ΄Ρ Activate ΠΈΠ»ΠΈ Select, Π΄Π°Π»Π΅Π΅ Π±ΡΠ΄ΡΡ ΡΠ°ΡΡΠΌΠΎΡΡΠ΅Π½Ρ Π±ΠΎΠ»Π΅Π΅ ΠΏΠΎΠ΄ΡΠΎΠ±Π½ΠΎ.
Π‘Π²ΠΎΠΉΡΡΠ²Π° ΠΎΠ±ΡΠ΅ΠΊΡΠΎΠ²
ΠΠ°ΠΆΠ΄ΡΠΉ ΠΎΠ±ΡΠ΅ΠΊΡ VBA ΠΈΠΌΠ΅Π΅Ρ Π·Π°Π΄Π°Π½Π½ΡΠ΅ Π΄Π»Ρ Π½Π΅Π³ΠΎ ΡΠ²ΠΎΠΉΡΡΠ²Π°. ΠΠ°ΠΏΡΠΈΠΌΠ΅Ρ, ΠΎΠ±ΡΠ΅ΠΊΡ Workbook ΠΈΠΌΠ΅Π΅Ρ ΡΠ²ΠΎΠΉΡΡΠ²Π° Name (ΠΈΠΌΡ), RevisionNumber (ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ ΡΠΎΡ ΡΠ°Π½Π΅Π½ΠΈΠΉ), Sheets (Π»ΠΈΡΡΡ) ΠΈ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²ΠΎ Π΄ΡΡΠ³ΠΈΡ . Π§ΡΠΎΠ±Ρ ΠΏΠΎΠ»ΡΡΠΈΡΡ Π΄ΠΎΡΡΡΠΏ ΠΊ ΡΠ²ΠΎΠΉΡΡΠ²Π°ΠΌ ΠΎΠ±ΡΠ΅ΠΊΡΠ°, Π½ΡΠΆΠ½ΠΎ Π·Π°ΠΏΠΈΡΠ°ΡΡ ΠΈΠΌΡ ΠΎΠ±ΡΠ΅ΠΊΡΠ°, Π·Π°ΡΠ΅ΠΌ ΡΠΎΡΠΊΡ ΠΈ Π΄Π°Π»Π΅Π΅ ΠΈΠΌΡ ΡΠ²ΠΎΠΉΡΡΠ²Π°. ΠΠ°ΠΏΡΠΈΠΌΠ΅Ρ, ΠΈΠΌΡ Π°ΠΊΡΠΈΠ²Π½ΠΎΠΉ ΡΠ°Π±ΠΎΡΠ΅ΠΉ ΠΊΠ½ΠΈΠ³ΠΈ ΠΌΠΎΠΆΠ΅Ρ Π±ΡΡΡ Π΄ΠΎΡΡΡΠΏΠ½ΠΎ Π²ΠΎΡ ΡΠ°ΠΊ: ActiveWorkbook.Name. Π’Π°ΠΊΠΈΠΌ ΠΎΠ±ΡΠ°Π·ΠΎΠΌ, ΡΡΠΎΠ±Ρ ΠΏΡΠΈΡΠ²ΠΎΠΈΡΡ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ wbName ΠΈΠΌΡ Π°ΠΊΡΠΈΠ²Π½ΠΎΠΉ ΡΠ°Π±ΠΎΡΠ΅ΠΉ ΠΊΠ½ΠΈΠ³ΠΈ, ΠΌΠΎΠΆΠ½ΠΎ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ Π²ΠΎΡ ΡΠ°ΠΊΠΎΠΉ ΠΊΠΎΠ΄:
Dim wbName As String wbName = ActiveWorkbook.Name
Π Π°Π½Π΅Π΅ ΠΌΡ ΠΏΠΎΠΊΠ°Π·Π°Π»ΠΈ, ΠΊΠ°ΠΊ ΠΎΠ±ΡΠ΅ΠΊΡ Workbook ΠΌΠΎΠΆΠ΅Ρ Π±ΡΡΡ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ Π΄Π»Ρ Π΄ΠΎΡΡΡΠΏΠ° ΠΊ ΠΎΠ±ΡΠ΅ΠΊΡΡ Worksheet ΠΏΡΠΈ ΠΏΠΎΠΌΠΎΡΠΈ ΡΠ°ΠΊΠΎΠΉ ΠΊΠΎΠΌΠ°Π½Π΄Ρ:
Workbooks("ΠΠ½ΠΈΠ³Π°1").Worksheets("ΠΠΈΡΡ1")
ΠΡΠΎ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎ ΠΏΠΎΡΠΎΠΌΡ, ΡΡΠΎ ΠΊΠΎΠ»Π»Π΅ΠΊΡΠΈΡ Worksheets ΡΠ²Π»ΡΠ΅ΡΡΡ ΡΠ²ΠΎΠΉΡΡΠ²ΠΎΠΌ ΠΎΠ±ΡΠ΅ΠΊΡΠ° Workbook.
ΠΠ΅ΠΊΠΎΡΠΎΡΡΠ΅ ΡΠ²ΠΎΠΉΡΡΠ²Π° ΠΎΠ±ΡΠ΅ΠΊΡΠ° Π΄ΠΎΡΡΡΠΏΠ½Ρ ΡΠΎΠ»ΡΠΊΠΎ Π΄Π»Ρ ΡΡΠ΅Π½ΠΈΡ, ΡΠΎ Π΅ΡΡΡ ΠΈΡ Π·Π½Π°ΡΠ΅Π½ΠΈΡ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ ΠΈΠ·ΠΌΠ΅Π½ΡΡΡ Π½Π΅ ΠΌΠΎΠΆΠ΅Ρ. Π ΡΠΎ ΠΆΠ΅ Π²ΡΠ΅ΠΌΡ ΡΡΡΠ΅ΡΡΠ²ΡΡΡ ΡΠ²ΠΎΠΉΡΡΠ²Π°, ΠΊΠΎΡΠΎΡΡΠΌ ΠΌΠΎΠΆΠ½ΠΎ ΠΏΡΠΈΡΠ²Π°ΠΈΠ²Π°ΡΡ ΡΠ°Π·Π»ΠΈΡΠ½ΡΠ΅ Π·Π½Π°ΡΠ΅Π½ΠΈΡ. ΠΠ°ΠΏΡΠΈΠΌΠ΅Ρ, ΡΡΠΎΠ±Ρ ΠΈΠ·ΠΌΠ΅Π½ΠΈΡΡ Π½Π°Π·Π²Π°Π½ΠΈΠ΅ Π°ΠΊΡΠΈΠ²Π½ΠΎΠ³ΠΎ Π»ΠΈΡΡΠ° Π½Π° βΠΠΎΠΉ ΡΠ°Π±ΠΎΡΠΈΠΉ Π»ΠΈΡΡβ, Π΄ΠΎΡΡΠ°ΡΠΎΡΠ½ΠΎ ΠΏΡΠΈΡΠ²ΠΎΠΈΡΡ ΡΡΠΎ ΠΈΠΌΡ ΡΠ²ΠΎΠΉΡΡΠ²Ρ Name Π°ΠΊΡΠΈΠ²Π½ΠΎΠ³ΠΎ Π»ΠΈΡΡΠ°, Π²ΠΎΡ ΡΠ°ΠΊ:
ActiveSheet.Name = "ΠΠΎΠΉ ΡΠ°Π±ΠΎΡΠΈΠΉ Π»ΠΈΡΡ"
ΠΠ΅ΡΠΎΠ΄Ρ ΠΎΠ±ΡΠ΅ΠΊΡΠΎΠ²
ΠΠ±ΡΠ΅ΠΊΡΡ VBA ΠΈΠΌΠ΅ΡΡ ΠΌΠ΅ΡΠΎΠ΄Ρ Π΄Π»Ρ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΡ ΠΎΠΏΡΠ΅Π΄Π΅Π»ΡΠ½Π½ΡΡ Π΄Π΅ΠΉΡΡΠ²ΠΈΠΉ. ΠΠ΅ΡΠΎΠ΄Ρ ΠΎΠ±ΡΠ΅ΠΊΡΠ° β ΡΡΠΎ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ, ΠΏΡΠΈΠ²ΡΠ·Π°Π½Π½ΡΠ΅ ΠΊ ΠΎΠ±ΡΠ΅ΠΊΡΠ°ΠΌ ΠΎΠΏΡΠ΅Π΄Π΅Π»ΡΠ½Π½ΠΎΠ³ΠΎ ΡΠΈΠΏΠ°. ΠΠ°ΠΏΡΠΈΠΌΠ΅Ρ, ΠΎΠ±ΡΠ΅ΠΊΡ Workbook ΠΈΠΌΠ΅Π΅Ρ ΠΌΠ΅ΡΠΎΠ΄Ρ Activate, Close, Save ΠΈ Π΅ΡΡ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²ΠΎ Π΄ΡΡΠ³ΠΈΡ .
ΠΠ»Ρ ΡΠΎΠ³ΠΎ, ΡΡΠΎΠ±Ρ Π²ΡΠ·Π²Π°ΡΡ ΠΌΠ΅ΡΠΎΠ΄ ΠΎΠ±ΡΠ΅ΠΊΡΠ°, Π½ΡΠΆΠ½ΠΎ Π·Π°ΠΏΠΈΡΠ°ΡΡ ΠΈΠΌΡ ΠΎΠ±ΡΠ΅ΠΊΡΠ°, ΡΠΎΡΠΊΡ ΠΈ ΠΈΠΌΡ ΠΌΠ΅ΡΠΎΠ΄Π°. ΠΠ°ΠΏΡΠΈΠΌΠ΅Ρ, ΡΡΠΎΠ±Ρ ΡΠΎΡ ΡΠ°Π½ΠΈΡΡ Π°ΠΊΡΠΈΠ²Π½ΡΡ ΡΠ°Π±ΠΎΡΡΡ ΠΊΠ½ΠΈΠ³Ρ, ΠΌΠΎΠΆΠ½ΠΎ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ Π²ΠΎΡ ΡΠ°ΠΊΡΡ ΡΡΡΠΎΠΊΡ ΠΊΠΎΠ΄Π°:
ΠΠ°ΠΊ ΠΈ Π΄ΡΡΠ³ΠΈΠ΅ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ, ΠΌΠ΅ΡΠΎΠ΄Ρ ΠΌΠΎΠ³ΡΡ ΠΈΠΌΠ΅ΡΡ Π°ΡΠ³ΡΠΌΠ΅Π½ΡΡ, ΠΊΠΎΡΠΎΡΡΠ΅ ΠΏΠ΅ΡΠ΅Π΄Π°ΡΡΡΡ ΠΌΠ΅ΡΠΎΠ΄Ρ ΠΏΡΠΈ Π΅Π³ΠΎ Π²ΡΠ·ΠΎΠ²Π΅. ΠΠ°ΠΏΡΠΈΠΌΠ΅Ρ, ΠΌΠ΅ΡΠΎΠ΄ Close ΠΎΠ±ΡΠ΅ΠΊΡΠ° Workbook ΠΈΠΌΠ΅Π΅Ρ ΡΡΠΈ Π½Π΅ΠΎΠ±ΡΠ·Π°ΡΠ΅Π»ΡΠ½ΡΡ Π°ΡΠ³ΡΠΌΠ΅Π½ΡΠ°, ΠΊΠΎΡΠΎΡΡΠ΅ ΠΎΠΏΡΠ΅Π΄Π΅Π»ΡΡΡ, Π΄ΠΎΠ»ΠΆΠ½Π° Π»ΠΈ Π±ΡΡΡ ΡΠΎΡ ΡΠ°Π½Π΅Π½Π° ΡΠ°Π±ΠΎΡΠ°Ρ ΠΊΠ½ΠΈΠ³Π° ΠΏΠ΅ΡΠ΅Π΄ Π·Π°ΠΊΡΡΡΠΈΠ΅ΠΌ ΠΈ ΡΠΎΠΌΡ ΠΏΠΎΠ΄ΠΎΠ±Π½ΠΎΠ΅.
Π§ΡΠΎΠ±Ρ ΠΏΠ΅ΡΠ΅Π΄Π°ΡΡ ΠΌΠ΅ΡΠΎΠ΄Ρ Π°ΡΠ³ΡΠΌΠ΅Π½ΡΡ, Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ Π·Π°ΠΏΠΈΡΠ°ΡΡ ΠΏΠΎΡΠ»Π΅ Π²ΡΠ·ΠΎΠ²Π° ΠΌΠ΅ΡΠΎΠ΄Π° Π·Π½Π°ΡΠ΅Π½ΠΈΡ ΡΡΠΈΡ Π°ΡΠ³ΡΠΌΠ΅Π½ΡΠΎΠ² ΡΠ΅ΡΠ΅Π· Π·Π°ΠΏΡΡΡΡ. ΠΠ°ΠΏΡΠΈΠΌΠ΅Ρ, Π΅ΡΠ»ΠΈ Π½ΡΠΆΠ½ΠΎ ΡΠΎΡ ΡΠ°Π½ΠΈΡΡ Π°ΠΊΡΠΈΠ²Π½ΡΡ ΡΠ°Π±ΠΎΡΡΡ ΠΊΠ½ΠΈΠ³Ρ ΠΊΠ°ΠΊ ΡΠ°ΠΉΠ» .csv Ρ ΠΈΠΌΠ΅Π½Π΅ΠΌ βΠΠ½ΠΈΠ³Π°2β, ΡΠΎ Π½ΡΠΆΠ½ΠΎ Π²ΡΠ·Π²Π°ΡΡ ΠΌΠ΅ΡΠΎΠ΄ SaveAs ΠΎΠ±ΡΠ΅ΠΊΡΠ° Workbook ΠΈ ΠΏΠ΅ΡΠ΅Π΄Π°ΡΡ Π°ΡΠ³ΡΠΌΠ΅Π½ΡΡ Filename Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ΠΠ½ΠΈΠ³Π°2, Π° Π°ΡΠ³ΡΠΌΠ΅Π½ΡΡ FileFormat β Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ xlCSV:
ActiveWorkbook.SaveAs "ΠΠ½ΠΈΠ³Π°2", xlCSV
Π§ΡΠΎΠ±Ρ ΡΠ΄Π΅Π»Π°ΡΡ ΠΊΠΎΠ΄ Π±ΠΎΠ»Π΅Π΅ ΡΠΈΡΠ°Π΅ΠΌΡΠΌ, ΠΏΡΠΈ Π²ΡΠ·ΠΎΠ²Π΅ ΠΌΠ΅ΡΠΎΠ΄Π° ΠΌΠΎΠΆΠ½ΠΎ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΠΈΠΌΠ΅Π½ΠΎΠ²Π°Π½Π½ΡΠ΅ Π°ΡΠ³ΡΠΌΠ΅Π½ΡΡ. Π ΡΡΠΎΠΌ ΡΠ»ΡΡΠ°Π΅ ΡΠ½Π°ΡΠ°Π»Π° Π·Π°ΠΏΠΈΡΡΠ²Π°ΡΡ ΠΈΠΌΡ Π°ΡΠ³ΡΠΌΠ΅Π½ΡΠ°, Π·Π°ΡΠ΅ΠΌ ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡ ΠΏΡΠΈΡΠ²Π°ΠΈΠ²Π°Π½ΠΈΡ β:=β ΠΈ ΠΏΠΎΡΠ»Π΅ Π½Π΅Π³ΠΎ ΡΠΊΠ°Π·ΡΠ²Π°ΡΡ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅. Π’Π°ΠΊΠΈΠΌ ΠΎΠ±ΡΠ°Π·ΠΎΠΌ, ΠΏΡΠΈΠ²Π΅Π΄ΡΠ½Π½ΡΠΉ Π²ΡΡΠ΅ ΠΏΡΠΈΠΌΠ΅Ρ Π²ΡΠ·ΠΎΠ²Π° ΠΌΠ΅ΡΠΎΠ΄Π° SaveAs ΠΎΠ±ΡΠ΅ΠΊΡΠ° Workbook ΠΌΠΎΠΆΠ½ΠΎ Π·Π°ΠΏΠΈΡΠ°ΡΡ ΠΏΠΎ-Π΄ΡΡΠ³ΠΎΠΌΡ:
ActiveWorkbook.SaveAs Filename:="ΠΠ½ΠΈΠ³Π°2", [FileFormat]:=xlCSV
Π ΠΎΠΊΠ½Π΅ Object Browser ΡΠ΅Π΄Π°ΠΊΡΠΎΡΠ° Visual Basic ΠΏΠΎΠΊΠ°Π·Π°Π½ ΡΠΏΠΈΡΠΎΠΊ Π²ΡΠ΅Ρ Π΄ΠΎΡΡΡΠΏΠ½ΡΡ ΠΎΠ±ΡΠ΅ΠΊΡΠΎΠ², ΠΈΡ ΡΠ²ΠΎΠΉΡΡΠ² ΠΈ ΠΌΠ΅ΡΠΎΠ΄ΠΎΠ². Π§ΡΠΎΠ±Ρ ΠΎΡΠΊΡΡΡΡ ΡΡΠΎΡ ΡΠΏΠΈΡΠΎΠΊ, Π·Π°ΠΏΡΡΡΠΈΡΠ΅ ΡΠ΅Π΄Π°ΠΊΡΠΎΡ Visual Basic ΠΈ Π½Π°ΠΆΠΌΠΈΡΠ΅ F2.
Π Π°ΡΡΠΌΠΎΡΡΠΈΠΌ Π½Π΅ΡΠΊΠΎΠ»ΡΠΊΠΎ ΠΏΡΠΈΠΌΠ΅ΡΠΎΠ²
ΠΡΠΈΠΌΠ΅Ρ 1
ΠΡΠΎΡ ΠΎΡΡΡΠ²ΠΎΠΊ ΠΊΠΎΠ΄Π° VBA ΠΌΠΎΠΆΠ΅Ρ ΡΠ»ΡΠΆΠΈΡΡ ΠΈΠ»Π»ΡΡΡΡΠ°ΡΠΈΠ΅ΠΉ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΡ ΡΠΈΠΊΠ»Π° For Each. Π Π΄Π°Π½Π½ΠΎΠΌ ΡΠ»ΡΡΠ°Π΅ ΠΌΡ ΠΎΠ±ΡΠ°ΡΠΈΠΌΡΡ ΠΊ Π½Π΅ΠΌΡ, ΡΡΠΎΠ±Ρ ΠΏΡΠΎΠ΄Π΅ΠΌΠΎΠ½ΡΡΡΠΈΡΠΎΠ²Π°ΡΡ ΡΡΡΠ»ΠΊΠΈ Π½Π° ΠΎΠ±ΡΠ΅ΠΊΡ Worksheets (ΠΊΠΎΡΠΎΡΡΠΉ ΠΏΠΎ ΡΠΌΠΎΠ»ΡΠ°Π½ΠΈΡ Π±Π΅ΡΡΡΡΡ ΠΈΠ· Π°ΠΊΡΠΈΠ²Π½ΠΎΠΉ ΡΠ°Π±ΠΎΡΠ΅ΠΉ ΠΊΠ½ΠΈΠ³ΠΈ) ΠΈ ΡΡΡΠ»ΠΊΠΈ Π½Π° ΠΊΠ°ΠΆΠ΄ΡΠΉ ΠΎΠ±ΡΠ΅ΠΊΡ Worksheet ΠΎΡΠ΄Π΅Π»ΡΠ½ΠΎ. ΠΠ±ΡΠ°ΡΠΈΡΠ΅ Π²Π½ΠΈΠΌΠ°Π½ΠΈΠ΅, ΡΡΠΎ Π΄Π»Ρ Π²ΡΠ²ΠΎΠ΄Π° Π½Π° ΡΠΊΡΠ°Π½ ΠΈΠΌΠ΅Π½ΠΈ ΠΊΠ°ΠΆΠ΄ΠΎΠ³ΠΎ ΡΠ°Π±ΠΎΡΠ΅Π³ΠΎ Π»ΠΈΡΡΠ° ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΎ ΡΠ²ΠΎΠΉΡΡΠ²ΠΎ Name ΠΎΠ±ΡΠ΅ΠΊΡΠ° Worksheet.
'ΠΡΠΎΠ»ΠΈΡΡΡΠ²Π°Π΅ΠΌ ΠΏΠΎΠΎΡΠ΅ΡΡΠ΄Π½ΠΎ Π²ΡΠ΅ ΡΠ°Π±ΠΎΡΠΈΠ΅ Π»ΠΈΡΡΡ Π°ΠΊΡΠΈΠ²Π½ΠΎΠΉ ΡΠ°Π±ΠΎΡΠ΅ΠΉ ΠΊΠ½ΠΈΠ³ΠΈ 'ΠΈ Π²ΡΠ²ΠΎΠ΄ΠΈΠΌ ΠΎΠΊΠ½ΠΎ ΡΠΎΠΎΠ±ΡΠ΅Π½ΠΈΡ Ρ ΠΈΠΌΠ΅Π½Π΅ΠΌ ΠΊΠ°ΠΆΠ΄ΠΎΠ³ΠΎ ΡΠ°Π±ΠΎΡΠ΅Π³ΠΎ Π»ΠΈΡΡΠ° Dim wSheet As Worksheet For Each wSheet in Worksheets MsgBox "ΠΠ°ΠΉΠ΄Π΅Π½ ΡΠ°Π±ΠΎΡΠΈΠΉ Π»ΠΈΡΡ: " & wSheet.Name Next wSheet
ΠΡΠΈΠΌΠ΅Ρ 2
Π ΡΡΠΎΠΌ ΠΏΡΠΈΠΌΠ΅ΡΠ΅ ΠΊΠΎΠ΄Π° VBA ΠΏΠΎΠΊΠ°Π·Π°Π½ΠΎ, ΠΊΠ°ΠΊ ΠΌΠΎΠΆΠ½ΠΎ ΠΏΠΎΠ»ΡΡΠ°ΡΡ Π΄ΠΎΡΡΡΠΏ ΠΊ ΡΠ°Π±ΠΎΡΠΈΠΌ Π»ΠΈΡΡΠ°ΠΌ ΠΈ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½Π°ΠΌ ΡΡΠ΅Π΅ΠΊ ΠΈΠ· Π΄ΡΡΠ³ΠΈΡ ΡΠ°Π±ΠΎΡΠΈΡ ΠΊΠ½ΠΈΠ³. ΠΡΠΎΠΌΠ΅ ΡΡΠΎΠ³ΠΎ, ΠΡ ΡΠ±Π΅Π΄ΠΈΡΠ΅ΡΡ, ΡΡΠΎ Π΅ΡΠ»ΠΈ Π½Π΅ ΡΠΊΠ°Π·Π°Π½Π° ΡΡΡΠ»ΠΊΠ° Π½Π° ΠΊΠ°ΠΊΠΎΠΉ-ΡΠΎ ΠΎΠΏΡΠ΅Π΄Π΅Π»ΡΠ½Π½ΡΠΉ ΠΎΠ±ΡΠ΅ΠΊΡ, ΡΠΎ ΠΏΠΎ ΡΠΌΠΎΠ»ΡΠ°Π½ΠΈΡ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΡΡΡΡ Π°ΠΊΡΠΈΠ²Π½ΡΠ΅ ΠΎΠ±ΡΠ΅ΠΊΡΡ Excel. ΠΠ°Π½Π½ΡΠΉ ΠΏΡΠΈΠΌΠ΅Ρ Π΄Π΅ΠΌΠΎΠ½ΡΡΡΠΈΡΡΠ΅Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ ΠΊΠ»ΡΡΠ΅Π²ΠΎΠ³ΠΎ ΡΠ»ΠΎΠ²Π° Set Π΄Π»Ρ ΠΏΡΠΈΡΠ²Π°ΠΈΠ²Π°Π½ΠΈΡ ΠΎΠ±ΡΠ΅ΠΊΡΠ° ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ.
Π ΠΊΠΎΠ΄Π΅, ΠΏΡΠΈΠ²Π΅Π΄ΡΠ½Π½ΠΎΠΌ Π½ΠΈΠΆΠ΅, Π΄Π»Ρ ΠΎΠ±ΡΠ΅ΠΊΡΠ° Range Π²ΡΠ·ΡΠ²Π°Π΅ΡΡΡ ΠΌΠ΅ΡΠΎΠ΄ PasteSpecial. ΠΡΠΎΡ ΠΌΠ΅ΡΠΎΠ΄ ΠΏΠ΅ΡΠ΅Π΄Π°ΡΡ Π°ΡΠ³ΡΠΌΠ΅Π½ΡΡ Paste Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ xlPasteValues.
'ΠΠΎΠΏΠΈΡΡΠ΅ΠΌ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ ΡΡΠ΅Π΅ΠΊ ΠΈΠ· Π»ΠΈΡΡΠ° "ΠΠΈΡΡ1" Π΄ΡΡΠ³ΠΎΠΉ ΡΠ°Π±ΠΎΡΠ΅ΠΉ ΠΊΠ½ΠΈΠ³ΠΈ (Ρ ΠΈΠΌΠ΅Π½Π΅ΠΌ Data.xlsx) 'ΠΈ Π²ΡΡΠ°Π²Π»ΡΠ΅ΠΌ ΡΠΎΠ»ΡΠΊΠΎ Π·Π½Π°ΡΠ΅Π½ΠΈΡ Π½Π° Π»ΠΈΡΡ "Π Π΅Π·ΡΠ»ΡΡΠ°ΡΡ" ΡΠ΅ΠΊΡΡΠ΅ΠΉ ΡΠ°Π±ΠΎΡΠ΅ΠΉ ΠΊΠ½ΠΈΠ³ΠΈ (Ρ ΠΈΠΌΠ΅Π½Π΅ΠΌ CurrWb.xlsm) Dim dataWb As Workbook Set dataWb = Workbooks.Open("C:\Data") 'ΠΠ±ΡΠ°ΡΠΈΡΠ΅ Π²Π½ΠΈΠΌΠ°Π½ΠΈΠ΅, ΡΡΠΎ DataWb β ΡΡΠΎ Π°ΠΊΡΠΈΠ²Π½Π°Ρ ΡΠ°Π±ΠΎΡΠ°Ρ ΠΊΠ½ΠΈΠ³Π°. 'Π‘Π»Π΅Π΄ΠΎΠ²Π°ΡΠ΅Π»ΡΠ½ΠΎ, ΡΠ»Π΅Π΄ΡΡΡΠ΅Π΅ Π΄Π΅ΠΉΡΡΠ²ΠΈΠ΅ Π²ΡΠΏΠΎΠ»Π½ΡΠ΅ΡΡΡ Ρ ΠΎΠ±ΡΠ΅ΠΊΡΠΎΠΌ Sheets Π² DataWb. Sheets("ΠΠΈΡΡ1").Range("A1:B10").Copy 'ΠΡΡΠ°Π²Π»ΡΠ΅ΠΌ Π·Π½Π°ΡΠ΅Π½ΠΈΡ, ΡΠΊΠΎΠΏΠΈΡΠΎΠ²Π°Π½Π½ΡΠ΅ ΠΈΠ· Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½Π° ΡΡΠ΅Π΅ΠΊ, Π½Π° ΡΠ°Π±ΠΎΡΠΈΠΉ Π»ΠΈΡΡ "Π Π΅Π·ΡΠ»ΡΡΠ°ΡΡ" 'ΡΠ΅ΠΊΡΡΠ΅ΠΉ ΡΠ°Π±ΠΎΡΠ΅ΠΉ ΠΊΠ½ΠΈΠ³ΠΈ. ΠΠ±ΡΠ°ΡΠΈΡΠ΅ Π²Π½ΠΈΠΌΠ°Π½ΠΈΠ΅, ΡΡΠΎ ΡΠ°Π±ΠΎΡΠ°Ρ ΠΊΠ½ΠΈΠ³Π° CurrWb.xlsm Π½Π΅ ΡΠ²Π»ΡΠ΅ΡΡΡ 'Π°ΠΊΡΠΈΠ²Π½ΠΎΠΉ, ΠΏΠΎΡΡΠΎΠΌΡ Π΄ΠΎΠ»ΠΆΠ½Π° Π±ΡΡΡ ΡΠΊΠ°Π·Π°Π½Π° Π² ΡΡΡΠ»ΠΊΠ΅. Workbooks("CurrWb").Sheets("Π Π΅Π·ΡΠ»ΡΡΠ°ΡΡ").Range("A1").PasteSpecial Paste:=xlPasteValues
ΠΡΠΈΠΌΠ΅Ρ 3
Π‘Π»Π΅Π΄ΡΡΡΠΈΠΉ ΠΎΡΡΡΠ²ΠΎΠΊ ΠΊΠΎΠ΄Π° VBA ΠΏΠΎΠΊΠ°Π·ΡΠ²Π°Π΅Ρ ΠΏΡΠΈΠΌΠ΅Ρ ΠΎΠ±ΡΠ΅ΠΊΡΠ° (ΠΊΠΎΠ»Π»Π΅ΠΊΡΠΈΠΈ) Columns ΠΈ Π΄Π΅ΠΌΠΎΠ½ΡΡΡΠΈΡΡΠ΅Ρ, ΠΊΠ°ΠΊ Π΄ΠΎΡΡΡΠΏ ΠΊ Π½Π΅ΠΌΡ ΠΎΡΡΡΠ΅ΡΡΠ²Π»ΡΠ΅ΡΡΡ ΠΈΠ· ΠΎΠ±ΡΠ΅ΠΊΡΠ° Worksheet. ΠΡΠΎΠΌΠ΅ ΡΡΠΎΠ³ΠΎ, ΠΡ ΡΠ²ΠΈΠ΄ΠΈΡΠ΅, ΡΡΠΎ, ΡΡΡΠ»Π°ΡΡΡ Π½Π° ΡΡΠ΅ΠΉΠΊΡ ΠΈΠ»ΠΈ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ ΡΡΠ΅Π΅ΠΊ Π½Π° Π°ΠΊΡΠΈΠ²Π½ΠΎΠΌ ΡΠ°Π±ΠΎΡΠ΅ΠΌ Π»ΠΈΡΡΠ΅, ΠΌΠΎΠΆΠ½ΠΎ Π½Π΅ ΡΠΊΠ°Π·ΡΠ²Π°ΡΡ ΡΡΠΎΡ Π»ΠΈΡΡ Π² ΡΡΡΠ»ΠΊΠ΅. ΠΠ½ΠΎΠ²Ρ Π²ΡΡΡΠ΅ΡΠ°Π΅ΠΌ ΠΊΠ»ΡΡΠ΅Π²ΠΎΠ΅ ΡΠ»ΠΎΠ²ΠΎ Set, ΠΏΡΠΈ ΠΏΠΎΠΌΠΎΡΠΈ ΠΊΠΎΡΠΎΡΠΎΠ³ΠΎ ΠΎΠ±ΡΠ΅ΠΊΡ Range ΠΏΡΠΈΡΠ²Π°ΠΈΠ²Π°Π΅ΡΡΡ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ Col.
ΠΠ°Π½Π½ΡΠΉ ΠΊΠΎΠ΄ VBA ΠΏΠΎΠΊΠ°Π·ΡΠ²Π°Π΅Ρ ΡΠ°ΠΊΠΆΠ΅ ΠΏΡΠΈΠΌΠ΅Ρ Π΄ΠΎΡΡΡΠΏΠ° ΠΊ ΡΠ²ΠΎΠΉΡΡΠ²Ρ Value ΠΎΠ±ΡΠ΅ΠΊΡΠ° Range ΠΈ ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΠ΅ Π΅Π³ΠΎ Π·Π½Π°ΡΠ΅Π½ΠΈΡ.
'Π‘ ΠΏΠΎΠΌΠΎΡΡΡ ΡΠΈΠΊΠ»Π° ΠΏΡΠΎΡΠΌΠ°ΡΡΠΈΠ²Π°Π΅ΠΌ Π·Π½Π°ΡΠ΅Π½ΠΈΡ Π² ΡΡΠΎΠ»Π±ΡΠ΅ A Π½Π° Π»ΠΈΡΡΠ΅ "ΠΠΈΡΡ2", 'Π²ΡΠΏΠΎΠ»Π½ΡΠ΅ΠΌ Ρ ΠΊΠ°ΠΆΠ΄ΡΠΌ ΠΈΠ· Π½ΠΈΡ Π°ΡΠΈΡΠΌΠ΅ΡΠΈΡΠ΅ΡΠΊΠΈΠ΅ ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠΈ ΠΈ Π·Π°ΠΏΠΈΡΡΠ²Π°Π΅ΠΌ ΡΠ΅Π·ΡΠ»ΡΡΠ°Ρ 'Π² ΡΡΠΎΠ»Π±Π΅Ρ A Π°ΠΊΡΠΈΠ²Π½ΠΎΠ³ΠΎ ΡΠ°Π±ΠΎΡΠ΅Π³ΠΎ Π»ΠΈΡΡΠ° (ΠΠΈΡΡ1) Dim i As Integer Dim Col As Range Dim dVal As Double 'ΠΡΠΈΡΠ²Π°ΠΈΠ²Π°Π΅ΠΌ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ Col ΡΡΠΎΠ»Π±Π΅Ρ A ΡΠ°Π±ΠΎΡΠ΅Π³ΠΎ Π»ΠΈΡΡΠ° "ΠΠΈΡΡ2" Set Col = Sheets("ΠΠΈΡΡ2").Columns("A") i = 1 'ΠΡΠΎΡΠΌΠ°ΡΡΠΈΠ²Π°Π΅ΠΌ ΠΏΠΎΡΠ»Π΅Π΄ΠΎΠ²Π°ΡΠ΅Π»ΡΠ½ΠΎ Π²ΡΠ΅ ΡΡΠ΅ΠΉΠΊΠΈ ΡΡΠΎΠ»Π±ΡΠ° Col Π΄ΠΎ ΡΠ΅Ρ ΠΏΠΎΡ 'ΠΏΠΎΠΊΠ° Π½Π΅ Π²ΡΡΡΠ΅ΡΠΈΡΡΡ ΠΏΡΡΡΠ°Ρ ΡΡΠ΅ΠΉΠΊΠ° Do Until IsEmpty(Col.Cells(i)) 'ΠΡΠΏΠΎΠ»Π½ΡΠ΅ΠΌ Π°ΡΠΈΡΠΌΠ΅ΡΠΈΡΠ΅ΡΠΊΠΈΠ΅ ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠΈ ΡΠΎ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ΠΌ ΡΠ΅ΠΊΡΡΠ΅ΠΉ ΡΡΠ΅ΠΉΠΊΠΈ dVal = Col.Cells(i).Value * 3 - 1 'Π‘Π»Π΅Π΄ΡΡΡΠ°Ρ ΠΊΠΎΠΌΠ°Π½Π΄Π° Π·Π°ΠΏΠΈΡΡΠ²Π°Π΅Ρ ΡΠ΅Π·ΡΠ»ΡΡΠ°Ρ Π² ΡΡΠΎΠ»Π±Π΅Ρ A 'Π°ΠΊΡΠΈΠ²Π½ΠΎΠ³ΠΎ Π»ΠΈΡΡΠ°. ΠΠ΅Ρ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎΡΡΠΈ ΡΠΊΠ°Π·ΡΠ²Π°ΡΡ Π² ΡΡΡΠ»ΠΊΠ΅ ΠΈΠΌΡ Π»ΠΈΡΡΠ°, 'ΡΠ°ΠΊ ΠΊΠ°ΠΊ ΡΡΠΎ Π°ΠΊΡΠΈΠ²Π½ΡΠΉ Π»ΠΈΡΡ ΡΠ°Π±ΠΎΡΠ΅ΠΉ ΠΊΠ½ΠΈΠ³ΠΈ. Cells(i, 1).Value = dVal i = i + 1 Loop
ΠΡΠ΅Π½ΠΈΡΠ΅ ΠΊΠ°ΡΠ΅ΡΡΠ²ΠΎ ΡΡΠ°ΡΡΠΈ. ΠΠ°ΠΌ Π²Π°ΠΆΠ½ΠΎ Π²Π°ΡΠ΅ ΠΌΠ½Π΅Π½ΠΈΠ΅:
Sheet happens — ΠΠ°ΠΊΡΠΎΡΡ ΠΈ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ VBA — Excel — ΠΠ°ΡΠ°Π»ΠΎΠ³ ΡΡΠ°ΡΠ΅ΠΉ
ΠΠΎΠ³ΠΎΠ²ΠΎΡΠΈΠΌ ΠΏΡΠΎ ΡΠΎ, ΠΊΠ°ΠΊ Π² VBA ΠΎΠ±ΡΠ°ΡΠ°ΡΡΡΡ ΠΊ Π»ΠΈΡΡΠ°ΠΌ ΠΊΠ½ΠΈΠ³ΠΈ Excel.
ΠΠ°ΡΠΈΠ°Π½Ρ 1
Π£ Π³Π»ΠΎΠ±Π°Π»ΡΠ½ΠΎΠ³ΠΎ ΠΎΠ±ΡΠ΅ΠΊΡΠ° Excel Application Π΅ΡΡΡ 2 ΠΊΠΎΠ»Π»Π΅ΠΊΡΠΈΠΈ Π»ΠΈΡΡΠΎΠ²: Sheets ΠΈ Worksheets. ΠΡΠ»ΠΈΡΠ°ΡΡΡΡ ΠΎΠ½ΠΈ ΡΠ΅ΠΌ, ΡΡΠΎ Π²ΡΠΎΡΠ°Ρ ΠΊΠΎΠ»Π»Π΅ΠΊΡΠΈΡ Π½Π΅ Π²ΠΊΠ»ΡΡΠ°Π΅Ρ Π² ΡΠ΅Π±Ρ ΡΠΏΠ΅ΡΠΈΠ°Π»ΡΠ½ΡΠ΅ Π»ΠΈΡΡΡ ΠΌΠ°ΠΊΡΠΎΡΠΎΠ², ΠΊΠΎΡΠΎΡΡΠ΅ ΠΏΠΎΠ΄Π΄Π΅ΡΠΆΠΈΠ²Π°Π»Π° Excel 4.0 (Π½Π° ΠΌΠΈΠ½ΡΡΠΎΡΠΊΡ — 1992 Π³ΠΎΠ΄) Π²ΠΎ Π²ΡΠ΅ΠΌΠ΅Π½Π°, ΠΊΠΎΠ³Π΄Π° VBA Π΅ΡΡ Π½Π΅ Π±ΡΠ»ΠΎ Π² ΠΏΡΠΈΡΠΎΠ΄Π΅ (ΠΏΠΎΡΠ²ΠΈΠ»ΡΡ Π² Excel 5.0). Π’ΡΠΆΠ΅Π»ΠΎ Π½Π°ΠΉΡΠΈ ΡΡΡΠ΅ΡΠΎΠ², ΠΊΠΎΡΠΎΡΡΠ΅ Π²ΡΡ Π΅ΡΡ ΠΏΠΎΠ»ΡΠ·ΡΡΡΡΡ ΡΠ°ΠΊΠΈΠΌΠΈ Π»ΠΈΡΡΠ°ΠΌΠΈ Ρ ΠΌΠ°ΠΊΡΠΎΡΠ°ΠΌΠΈ, ΠΏΠΎΡΡΠΎΠΌΡ ΠΌΠΎΠΆΠ½ΠΎ ΡΡΠΈΡΠ°ΡΡ, ΡΡΠΎ ΡΡΠΈ ΠΊΠΎΠ»Π»Π΅ΠΊΡΠΈΠΈ ΠΈΠ΄Π΅Π½ΡΠΈΡΠ½Ρ. ΠΠΈΡΠ½ΠΎ Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΡ ΠΊΠΎΠ»Π»Π΅ΠΊΡΠΈΡ Sheets ΠΏΡΠΎΡΡΠΎ ΠΏΠΎΡΠΎΠΌΡ, ΡΡΠΎ 5 Π±ΡΠΊΠ² Π»ΡΡΡΠ΅, ΡΠ΅ΠΌ 9.
Β Β Β Β Sheets(1).Cells(1,1)
Sheets(1) — ΡΡΠΎ Π½Π΅ ΠΏΠ΅ΡΠ²ΡΠΉ Π»ΠΈΡΡ, ΡΠΎΠ·Π΄Π°Π½Π½ΡΠΉ Π² ΠΊΠ½ΠΈΠ³Π΅, Π° Π»ΠΈΡΡ, ΠΊΠΎΡΠΎΡΡΠΉ Π½Π° ΠΏΠ°Π½Π΅Π»ΠΈ ΡΡΠ»ΡΠΊΠΎΠ² Π»ΠΈΡΡΠΎΠ² Π·Π°Π½ΠΈΠΌΠ°Π΅Ρ ΠΠ ΠΠΠΠΠ ΠΠΠΠΠ ΠΏΠΎΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅. Π’ΠΎ Π΅ΡΡΡ Sheets(2) Π±ΡΠ΄Π΅Ρ ΡΠΊΠ°Π·ΡΠ²Π°ΡΡ Π½Π° Π²ΡΠΎΡΠΎΠΉ ΡΠ»Π΅Π²Π° Π»ΠΈΡΡ Π½Π° ΠΏΠ°Π½Π΅Π»ΠΈ ΡΡΠ»ΡΠΊΠΎΠ². ΠΡΠ»ΠΈ Π²Π°ΠΌ Π½ΡΠΆΠ΅Π½ ΠΊΠΎΠ½ΠΊΡΠ΅ΡΠ½ΡΠΉ Π»ΠΈΡΡ, ΡΠΎ Π’ΠΠ ΡΡΡΠ»Π°ΡΡΡΡ Π½Π° Π½Π΅Π³ΠΎ, ΠΊΠ°ΠΊ Π²Ρ ΠΏΠΎΠ½ΠΈΠΌΠ°Π΅ΡΠ΅, ΠΏΠ»ΠΎΡ Π°Ρ ΠΈΠ΄Π΅Ρ, ΠΈΠ±ΠΎ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ, ΠΈΠ·ΠΌΠ΅Π½ΠΈΠ² ΠΏΠΎΡΡΠ΄ΠΎΠΊ ΡΠ»Π΅Π΄ΠΎΠ²Π°Π½ΠΈΡ Π»ΠΈΡΡΠΎΠ², Π½Π°ΡΡΡΠΈΡ ΡΠ°Π±ΠΎΡΠΎΡΠΏΠΎΡΠΎΠ±Π½ΠΎΡΡΡ Π²Π°ΡΠ΅ΠΉ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ.
ΠΠΎ Π²ΡΠ΅Ρ ΠΏΡΠΈΠΌΠ΅ΡΠ°Ρ Ρ Π±ΡΠ΄Ρ ΠΎΠ±ΡΠ°ΡΠ°ΡΡΡΡ ΠΊ ΡΡΠ΅ΠΉΠΊΠΈ A1, ΡΠ°ΠΊ ΠΊΠ°ΠΊ ΡΠ΅ΡΡ Π½Π΅ ΠΎ ΡΠ²ΠΎΠΉΡΡΠ²Π°Ρ ΠΎΠ±ΡΠ΅ΠΊΡΠ° Worksheet, Π° ΠΎ ΡΠΎΠΌ, ΠΊΠ°ΠΊΠΈΠ΅ Π΅ΡΡΡ ΡΠΏΠΎΡΠΎΠ±Ρ ΠΏΠΎΠ»ΡΡΠΈΡΡ ΡΠΈΠ½ΡΠ°ΠΊΡΠΈΡΠ΅ΡΠΊΡΡ ΠΊΠΎΠ½ΡΡΡΡΠΊΡΠΈΡ, ΡΠΊΠ°Π·ΡΠ²Π°ΡΡΡΡ Π½Π° Π½ΡΠΆΠ½ΡΠΉ Π½Π°ΠΌ Π»ΠΈΡΡ.
ΠΠ°ΡΠΈΠ°Π½Ρ 2
Β Β Β Β Sheets(«First»).Cells(1,1)
ΠΠΎΠΆΠ°Π»ΡΠΉ, ΡΠ°ΠΊΠΎΠ΅ ΠΎΠ±ΡΠ°ΡΠ΅Π½ΠΈΠ΅ ΠΊ Π»ΠΈΡΡΡ Π½Π°ΠΈΠ±ΠΎΠ»Π΅Π΅ ΠΏΠΎΠΏΡΠ»ΡΡΠ½ΠΎ Π² Π½Π°ΡΠΎΠ΄Π΅. Π ΡΠΊΠΎΠ±ΠΊΠ°Ρ ΠΈ ΠΊΠ°Π²ΡΡΠΊΠ°Ρ ΠΌΡ Π²ΠΈΠ΄ΠΈΠΌ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»ΡΡΠΊΠΎΠ΅ ΠΈΠΌΡ Π»ΠΈΡΡΠ°. ΠΠ»ΠΎΡ ΠΎ ΡΠΎΠ»ΡΠΊΠΎ ΡΠΎ, ΡΡΠΎ ΠΈΠΌΡ Π»ΠΈΡΡΠ°, ΡΡΠΎ Π½Π°Π·ΡΠ²Π°Π΅ΡΡΡ «hard coded» (ΠΆΡΡΡΠΊΠΎ Π·Π°ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΎ), ΡΡΠΎ ΡΠ²Π»ΡΠ΅ΡΡΡ ΠΌΠΎΠ²Π΅ΡΠΎΠ½ΠΎΠΌ Π² ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΠΈ. ΠΠ±ΠΎ, Π΅ΡΠ»ΠΈ Ρ Π²Π°Ρ Π² ΠΌΠΎΠ΄ΡΠ»Π΅ ΠΊΠΎΠ½ΡΡΡΡΠΊΡΠΈΡ Sheets(«First») Π²ΡΡΡΠ΅ΡΠ°Π΅ΡΡΡ 100 ΡΠ°Π·, ΡΠΎ ΠΏΡΠΈ ΡΠΌΠ΅Π½Π΅ ΠΈΠΌΠ΅Π½ΠΈ Π»ΠΈΡΡΠ° ΠΏΡΠΈΠ΄ΡΡΡΡ Π΄Π΅Π»Π°ΡΡ ΠΏΠΎΠΈΡΠΊ Ρ Π·Π°ΠΌΠ΅Π½ΠΎΠΉ 100 ΠΊΠΎΠ½ΡΡΠ°Π½Ρ Π² ΠΊΠΎΠ΄Π΅. ΠΠΎΡΡΠΎΠΌΡ ΠΎΠ±ΡΡΠ½ΠΎ Π΄Π΅Π»Π°ΡΡ ΠΈΠ½Π°ΡΠ΅…
ΠΠ°ΡΠΈΠ°Π½Ρ 3
ΠΠΎΡΠ°Π·Π΄ΠΎ ΡΠ°Π·ΡΠΌΠ½Π΅ΠΉ Π΄ΠΎΠ±Π°Π²ΠΈΡΡ Π΅ΡΡ ΠΎΠ΄ΠΈΠ½ ΡΡΠΎΠ²Π΅Π½Ρ Π°Π±ΡΡΡΠ°ΠΊΡΠΈΠΈ ΠΈ ΠΎΠ±ΡΡΠ²ΠΈΡΡ ΠΊΠΎΠ½ΡΡΠ°Π½ΡΡ, ΡΡΡΠ»Π°ΡΡΡΡΡΡ Π½Π° ΠΈΠΌΡ Π»ΠΈΡΡΠ°.
Β Β Β Β Public Const wsFirst = «First»
Β Β Β Β Sheets(wsFirst).Cells(1,1)
Π ΡΠ»ΡΡΠ°Π΅ ΡΠΌΠ΅Π½Ρ ΠΈΠΌΠ΅Π½ΠΈ Π²Π°ΠΌ ΠΏΡΠΈΠ΄ΡΡΡΡ ΠΈΡΠΏΡΠ°Π²ΠΈΡΡ Π’ΠΠΠ¬ΠΠ ΡΡΡ ΠΊΠΎΠ½ΡΡΠ°Π½ΡΡ Π² Π½Π°ΡΠ°Π»Π΅ ΠΌΠΎΠ΄ΡΠ»Ρ. ΠΠ΄Π½Π°ΠΊΠΎ, Π΅ΡΠ»ΠΈ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° Π½Π°ΠΏΠΈΡΠ°Π½Π° ΠΈ ΡΠ΄Π°Π½Π° ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ, Π° ΡΠΎΡ Π² ΠΎΠ΄ΠΈΠ½ ΠΏΡΠ΅ΠΊΡΠ°ΡΠ½ΡΠΉ ΠΌΠΎΠΌΠ΅Π½Ρ Π±Π΅ΡΡΡ ΠΈ ΠΏΠ΅ΡΠ΅ΠΈΠΌΠ΅Π½ΠΎΠ²ΡΠ²Π°Π΅Ρ Π»ΠΈΡΡ, ΡΠΎ Π½Π°Ρ ΠΊΠΎΠ΄ ΡΡΡ ΠΆΠ΅ ΠΏΠ΅ΡΠ΅ΡΡΠ°ΡΡ ΡΠ°Π±ΠΎΡΠ°ΡΡ, ΡΡΠΎ, ΡΠΎΠ³Π»Π°ΡΠΈΡΠ΅ΡΡ, Π½Π΅ ΡΠ»ΠΈΡΠΊΠΎΠΌ Ρ ΠΎΡΠΎΡΠΎ…
ΠΠ°ΡΠΈΠ°Π½Ρ 4
Π£ Π»ΠΈΡΡΠ° Π΅ΡΡΡ ΡΠ²ΠΎΠΉΡΡΠ²ΠΎ Name, ΠΊΠΎΡΠΎΡΠΎΠ΅ ΠΌΡ Π²ΠΈΠ΄ΠΈΠΌ Π½Π° ΡΡΠ»ΡΠΊΠ΅ Π»ΠΈΡΡΠ° ΠΈ ΠΊΠΎΡΠΎΡΠΎΠ΅ ΠΌΠΎΠΆΠ΅ΠΌ ΠΌΠ΅Π½ΡΡΡ (Π΅ΡΠ»ΠΈ Π½Π΅ Π²ΠΊΠ»ΡΡΠ΅Π½Π° Π·Π°ΡΠΈΡΠ° ΡΡΡΡΠΊΡΡΡΡ ΠΊΠ½ΠΈΠ³ΠΈ, Π½ΠΎ ΡΠ΅ΠΉΡΠ°Ρ Π½Π΅ ΠΎΠ± ΡΡΠΎΠΌ), Π½ΠΎ Π΅ΡΡ Π΅ΡΡΡ ΡΠ²ΠΎΠΉΡΡΠ²ΠΎ CodeName, ΠΊΠΎΡΠΎΡΠΎΠ΅ ΠΏΡΠΈΡΠ²Π°ΠΈΠ²Π°Π΅ΡΡΡ Π»ΠΈΡΡΡ Π² ΠΌΠΎΠΌΠ΅Π½Ρ ΡΠΎΠ·Π΄Π°Π½ΠΈΡ, ΠΈ ΠΊΠΎΡΠΎΡΠΎΠ΅ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ ΡΠΌΠ΅Π½ΠΈΡΡ Π½Π΅ ΠΌΠΎΠΆΠ΅Ρ. Π ΡΡΡΡΠΊΠΎΠΉ ΡΠ΅Π΄Π°ΠΊΡΠΈΠΈ ΠΎΡΠΈΡΠ° ΡΡΠΈ CodeName-Ρ ΡΠΎΡΠΌΠΈΡΡΡΡΡΡ ΠΏΠΎ ΠΏΡΠΈΠ½ΡΠΈΠΏΡ: ΠΠΈΡΡ1, ΠΠΈΡΡ2, ΠΠΈΡΡ3 ΠΈ Ρ.Π΄. Π Π°Π½Π³Π»ΠΎΡΠ·ΡΡΠ½ΠΎΠΉ Π²Π΅ΡΡΠΈΠΈ ΡΡΠΎ: Sheet1, Sheet2, Sheet3, etc.
ΠΡΠ»ΠΈ Π²Ρ ΡΠ΄Π°Π»ΠΈΡΠ΅ Π»ΠΈΡΡ, ΡΠΎ Π΅Π³ΠΎ CodeName ΠΏΠΎΠ²ΡΠΎΡΠ½ΠΎ Π½Π΅ Π±ΡΠ΄Π΅Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΎ. Π’Π°ΠΊ Π²ΠΎΡ — VBA ΡΠ°Π·ΠΏΠΎΠ·Π½Π°ΡΡ ΠΈΠΌΠ΅Π½Π° ΡΠΎΠ²ΠΏΠ°Π΄Π°ΡΡΠΈΠ΅ Ρ CodeName Π»ΠΈΡΡΠ°, ΠΊΠ°ΠΊ ΠΎΠ±ΡΠ΅ΠΊΡΡ ΡΠΈΠΏΠ° Worksheet.
Β Β Β Β ΠΠΈΡΡ1.Cells(1,1) ΠΈΠ»ΠΈ [ΠΠΈΡΡ1].Cells(1,1)
ΠΡΠΎ ΠΎΡΠ»ΠΈΡΠ½Π°Ρ Π·Π°ΡΠΈΡΠ° ΠΎΡ ΡΠΎΠ³ΠΎ, ΡΡΠΎ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ ΠΏΠ΅ΡΠ΅Π½Π΅ΡΡΡ ΠΈΠ»ΠΈ ΠΏΠ΅ΡΠ΅ΠΈΠΌΠ΅Π½ΡΠ΅Ρ Π»ΠΈΡΡ. ΠΠΎ ΠΏΠΎΠ΄ΠΎΠ±Π½ΡΠ΅ ΠΈΠΌΠ΅Π½Π° Π½ΠΈ ΠΎ ΡΡΠΌ Π½Π΅ Π³ΠΎΠ²ΠΎΡΡΡ Π½Π°ΠΌ Π² ΠΏΡΠΎΡΠ΅ΡΡΠ΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ Π² ΠΏΠ»Π°Π½Π΅ ΡΠΎΠ³ΠΎ, ΡΡΠΎ ΡΠ°ΡΠΏΠΎΠ»Π°Π³Π°Π΅ΡΡΡ Π½Π° Π»ΠΈΡΡΠ΅, ΠΏΠΎΡΡΠΎΠΌΡ Π²Ρ Π±ΡΠ΄Π΅ΡΠ΅ ΡΠ°ΡΡΠ΅Π½ΡΠΊΠΎ ΠΎΡΠΈΠ±Π°ΡΡΡΡ, ΠΏΡΡΠ°Ρ Π»ΠΈΡΡΡ. Π ΡΠ΅, ΠΊΡΠΎ Π±ΡΠ΄ΡΡ ΠΏΠΎΡΠΎΠΌ ΡΠ°Π·Π±ΠΈΡΠ°ΡΡΡΡ Π² Π²Π°ΡΠ΅ΠΌ ΠΊΠΎΠ΄Π΅, ΡΠΎΠΆΠ΅ ΡΠΏΠ°ΡΠΈΠ±ΠΎ Π²Π°ΠΌ Π½Π΅ ΡΠΊΠ°ΠΆΡΡ. ΠΠΎΡΡΠΎΠΌΡ Ρ ΠΏΡΠ΅Π΄Π»Π°Π³Π°Ρ ΡΠ»Π΅Π΄ΡΡΡΡΡ ΠΌΠΎΠ΄ΠΈΡΠΈΠΊΠ°ΡΠΈΡ ΡΡΠΎΠ³ΠΎ ΡΠΏΠΎΡΠΎΠ±Π°:
ΠΠ°ΡΠΈΠ°Π½Ρ 5
Β Β Β Β Public wsData As Worksheet
Β Β Β Β Set wsData = ΠΠΈΡΡ1
Β Β Β Β wsData.Cells(1,1)
Π‘ΡΡΠΎΠΊΡ 1 ΡΠ°Π·ΠΌΠ΅ΡΠ°Π΅ΠΌ Π² ΠΎΠ±ΡΡΠ²Π»Π΅Π½ΠΈΡΡ ΠΌΠΎΠ΄ΡΠ»Ρ. Π‘ΡΡΠΎΠΊΡ 2 ΡΠ°Π·ΠΌΠ΅ΡΠ°Π΅ΠΌ Π² ΠΎΠ±ΡΠ°Π±ΠΎΡΡΠΈΠΊΠ΅ ΡΠΎΠ±ΡΡΠΈΡ Workbook_Open. Π ΠΏΠΎΡΠ»Π΅ ΡΡΠΎΠ³ΠΎ Π² Π»ΡΠ±ΠΎΠΌ ΠΌΠ΅ΡΡΠ΅ ΠΊΠ½ΠΈΠ³ΠΈ ΠΌΡ ΠΌΠΎΠΆΠ΅ΠΌ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΠΎΠ±ΡΡΠ²Π»Π΅Π½Π½ΡΠ΅ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΠ΅ (wsData, ΡΡΡΠΎΠΊΠ° 3). ΠΠ° ΠΌΠΎΠΉ Π²Π·Π³Π»ΡΠ΄, ΡΡΠΎ ΡΠ°ΠΌΡΠΉ ΡΠ΄ΠΎΠ±Π½ΡΠΉ ΠΈ ΠΏΡΠΎΠ΄Π²ΠΈΠ½ΡΡΡΠΉ Π²Π°ΡΠΈΠ°Π½Ρ ΠΈΠ· ΡΠ°ΡΡΠΌΠΎΡΡΠ΅Π½Π½ΡΡ .
ΠΠ°ΡΠΈΠ°Π½Ρ 6
ΠΠ΅ Π·Π°Π±ΡΠ²Π°Π΅ΠΌ ΠΏΡΠΎ ΡΠ²ΠΎΠΉΡΡΠ²ΠΎ ActiveSheet ΠΎΠ±ΡΠ΅ΠΊΡΠ° Application, ΡΠΊΠ°Π·ΡΠ²Π°ΡΡΠ΅Π΅ Π½Π° Π°ΠΊΡΠΈΠ²Π½ΡΠΉ Π»ΠΈΡΡ ΠΊΠ½ΠΈΠ³ΠΈ. ΠΡΠ»ΠΈ Π²Ρ ΡΠ°Π±ΠΎΡΠ°Π΅ΡΠ΅ Ρ ΡΠ΅ΠΊΡΡΠΈΠΌ Π»ΠΈΡΡΠΎΠΌ, ΡΠΎ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ Π΅Π³ΠΎ, Ρ ΡΡΠΈΡΠ°Ρ, ΠΎΠΏΡΠΈΠΌΠ°Π»ΡΠ½ΠΎ.
Β Β Β Β ActiveSheet.Cells(1,1)
ΠΠ°ΡΠΈΠ°Π½Ρ 7
ΠΡ ΠΈ ΠΏΠΎΡΠ»Π΅Π΄Π½Π΅Π΅, Π΅ΡΠ»ΠΈ Π²Π°ΠΌ ΠΏΠ΅ΡΠ΅Π΄Π°Π½ Π² ΠΏΠΎΠ΄ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΠΎΠ±ΡΠ΅ΠΊΡ ΡΠΈΠΏΠ° Range, ΡΠΎ Π½Π΅ Π·Π°Π±ΡΠ²Π°Π΅ΠΌ, ΡΡΠΎ ΡΡΡΠ»ΠΊΡ Π½Π° Π»ΠΈΡΡ Π²ΠΎΠ·Π²ΡΠ°ΡΠ°Π΅Ρ Π΅Π³ΠΎ ΡΠ²ΠΎΠΉΡΡΠ²ΠΎ Worksheet.
ΠΡΠΎ Π²ΡΡ, ΡΡΠΎ Ρ ΠΈΠΌΠ΅Π» ΡΠΊΠ°Π·Π°ΡΡ ΠΏΠΎ ΠΏΠΎΠ²ΠΎΠ΄Ρ ΡΡΡΠ»ΠΎΠΊ Π½Π° Π»ΠΈΡΡΡ Π² Excel VBA π
ΠΠ΅ΡΠΎΠ΄ Sheets. Copy (Excel) | Microsoft Docs
-
- Π§ΡΠ΅Π½ΠΈΠ΅ Π·Π°Π½ΠΈΠΌΠ°Π΅Ρ 2Β ΠΌΠΈΠ½
Π ΡΡΠΎΠΉ ΡΡΠ°ΡΡΠ΅
ΠΠΎΠΏΠΈΡΡΠ΅Ρ Π»ΠΈΡΡ Π² Π΄ΡΡΠ³ΠΎΠ΅ ΡΠ°ΡΠΏΠΎΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅ Π² ΠΊΠ½ΠΈΠ³Π΅.Copies the sheet to another location in the workbook.
Π‘ΠΈΠ½ΡΠ°ΠΊΡΠΈΡSyntax
Expression. Copy (Π΄ΠΎ, ΠΏΠΎΡΠ»Π΅)expression.Copy (Before, After)
Π²ΡΡΠ°ΠΆΠ΅Π½ΠΈΠ΅: ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½Π°Ρ, ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»ΡΡΡΠ°Ρ ΠΎΠ±ΡΠ΅ΠΊΡ Sheets.expression A variable that represents a Sheets object.
ΠΠ°ΡΠ°ΠΌΠ΅ΡΡΡParameters
ΠΠΌΡName | ΠΠ±ΡΠ·Π°ΡΠ΅Π»ΡΠ½ΡΠΉ ΠΈΠ»ΠΈ Π½Π΅ΠΎΠ±ΡΠ·Π°ΡΠ΅Π»ΡΠ½ΡΠΉRequired/Optional | Π’ΠΈΠΏ Π΄Π°Π½Π½ΡΡ Data type | ΠΠΏΠΈΡΠ°Π½ΠΈΠ΅Description |
---|---|---|---|
BeforeBefore | ΠΠ΅ΠΎΠ±ΡΠ·Π°ΡΠ΅Π»ΡΠ½ΡΠΉOptional | VariantVariant | ΠΠΈΡΡ, Π½Π° ΠΊΠΎΡΠΎΡΠΎΠΌ Π±ΡΠ΄Π΅Ρ ΡΠ°Π·ΠΌΠ΅ΡΠ°ΡΡΡΡ ΡΠΊΠΎΠΏΠΈΡΠΎΠ²Π°Π½Π½ΡΠΉ Π»ΠΈΡΡ.The sheet before which the copied sheet will be placed. ΠΡ Π½Π΅ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΡΠΊΠ°Π·Π°ΡΡ Before , Π΅ΡΠ»ΠΈ ΡΠΊΠ°Π·Π°ΡΡ After.You cannot specify Before if you specify After. |
AfterAfter | ΠΠ΅ΠΎΠ±ΡΠ·Π°ΡΠ΅Π»ΡΠ½ΡΠΉOptional | VariantVariant | ΠΠΈΡΡ, ΠΏΠΎΡΠ»Π΅ ΠΊΠΎΡΠΎΡΠΎΠ³ΠΎ Π±ΡΠ΄Π΅Ρ ΡΠ°Π·ΠΌΠ΅ΡΠ°ΡΡΡΡ ΡΠΊΠΎΠΏΠΈΡΠΎΠ²Π°Π½Π½ΡΠΉ Π»ΠΈΡΡ.The sheet after which the copied sheet will be placed. ΠΡ Π½Π΅ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΡΠΊΠ°Π·Π°ΡΡ After , Π΅ΡΠ»ΠΈ Π²Ρ ΡΠΊΠ°Π·Π°Π»ΠΈ Before.You cannot specify After if you specify Before. |
ΠΡΠΈΠΌΠ΅ΡΠ°Π½ΠΈΡRemarks
ΠΡΠ»ΠΈ Π²Ρ Π½Π΅ ΡΠΊΠ°ΠΆΠ΅ΡΠ΅ Π΄ΠΎ ΠΈΠ»ΠΈ ΠΏΠΎΡΠ»Π΅, Microsoft Excel ΡΠΎΠ·Π΄Π°ΡΡ Π½ΠΎΠ²ΡΡ ΠΊΠ½ΠΈΠ³Ρ, ΡΠΎΠ΄Π΅ΡΠΆΠ°ΡΡΡ ΡΠΊΠΎΠΏΠΈΡΠΎΠ²Π°Π½Π½ΡΠΉ Π»ΠΈΡΡ.If you don’t specify either Before or After, Microsoft Excel creates a new workbook that contains the copied sheet.
ΠΡΠΈΠΌΠ΅ΡExample
Π ΡΡΠΎΠΌ ΠΏΡΠΈΠΌΠ΅ΡΠ΅ ΠΊΠΎΠΏΠΈΡΡΠ΅ΡΡΡ ΠΠΈΡΡ1, ΠΏΠΎΡΠ»Π΅ ΡΠ΅Π³ΠΎ ΠΏΠΎΠΌΠ΅ΡΠ°Π΅ΡΡΡ ΠΊΠΎΠΏΠΈΡ ΠΏΠΎΡΠ»Π΅ Sheet3.This example copies Sheet1, placing the copy after Sheet3.
Worksheets("Sheet1").Copy After:=Worksheets("Sheet3")
ΠΠΎΠ΄Π΄Π΅ΡΠΆΠΊΠ° ΠΈ ΠΎΠ±ΡΠ°ΡΠ½Π°Ρ ΡΠ²ΡΠ·Ρ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.
Π‘Π²ΠΎΠΉΡΡΠ²Π° ΠΈ ΠΌΠ΅ΡΠΎΠ΄Ρ Worksheet. ΠΡΠΈΠΌΠ΅ΡΡ ΠΊΠΎΠ΄Π°
ΠΠ²ΡΠΎΡ ΠΠΌΠΈΡΡΠΈΠΉ Π―ΠΊΡΡΠ΅Π² ΠΠ° ΡΡΠ΅Π½ΠΈΠ΅ 16 ΠΌΠΈΠ½. ΠΡΠΎΡΠΌΠΎΡΡΠΎΠ² 2.5k.
Malcolm Gladwell
ΠΠ΅ΡΡΠ°ΡΠ΅Π»Ρ Π½Π°ΡΠΈΠ½Π°Π΅Ρ Ρ ΡΠΈΡΡΠΎΠ³ΠΎ Π»ΠΈΡΡΠ° Π±ΡΠΌΠ°Π³ΠΈ ΠΈ ΠΏΠ΅ΡΠ΅ΠΎΡΠΌΡΡΠ»ΠΈΠ²Π°Π΅Ρ ΠΌΠΈΡ
ΠΡΠ° ΡΡΠ°ΡΡΡ ΡΠΎΠ΄Π΅ΡΠΆΠΈΡ ΠΏΠΎΠ»Π½ΠΎΠ΅ ΡΡΠΊΠΎΠ²ΠΎΠ΄ΡΡΠ²ΠΎ ΠΏΠΎ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΡ Excel
VBA Worksheet Π² Excel VBA. ΠΡΠ»ΠΈ Π²Ρ Ρ
ΠΎΡΠΈΡΠ΅ ΡΠ·Π½Π°ΡΡ, ΠΊΠ°ΠΊ ΡΡΠΎ-ΡΠΎ ΡΠ΄Π΅Π»Π°ΡΡ Π±ΡΡΡΡΠΎ, ΠΎΠ·Π½Π°ΠΊΠΎΠΌΡΡΠ΅ΡΡ Ρ ΠΊΡΠ°ΡΠΊΠΈΠΌ ΡΡΠΊΠΎΠ²ΠΎΠ΄ΡΡΠ²ΠΎΠΌ ΠΊ ΡΠ°Π±ΠΎΡΠ΅ΠΌΡ Π»ΠΈΡΡΡ VBA Π½ΠΈΠΆΠ΅.
ΠΡΠ»ΠΈ Π²Ρ Π½ΠΎΠ²ΠΈΡΠΎΠΊ Π² VBA, ΡΠΎ ΡΡΠ° ΡΡΠ°ΡΡΡ β ΠΎΡΠ»ΠΈΡΠ½ΠΎΠ΅ ΠΌΠ΅ΡΡΠΎ Π΄Π»Ρ Π½Π°ΡΠ°Π»Π°. ΠΠ½Π΅ Π½ΡΠ°Π²ΠΈΡΡΡ ΡΠ°Π·Π±ΠΈΠ²Π°ΡΡ Π²Π΅ΡΠΈ Π½Π° ΠΏΡΠΎΡΡΡΠ΅ ΡΠ΅ΡΠΌΠΈΠ½Ρ ΠΈ ΠΎΠ±ΡΡΡΠ½ΡΡΡ ΠΈΡ Π½Π° ΠΏΡΠΎΡΡΠΎΠΌ ΡΠ·ΡΠΊΠ΅.
ΠΡ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΠΏΡΠΎΡΠΈΡΠ°ΡΡ ΡΡΠ°ΡΡΡ ΠΎΡ Π½Π°ΡΠ°Π»Π° Π΄ΠΎ ΠΊΠΎΠ½ΡΠ°, ΡΠ°ΠΊ ΠΊΠ°ΠΊ ΠΎΠ½Π° Π½Π°ΠΏΠΈΡΠ°Π½Π° Π² Π»ΠΎΠ³ΠΈΡΠ΅ΡΠΊΠΎΠΌ ΠΏΠΎΡΡΠ΄ΠΊΠ΅. ΠΠ»ΠΈ, Π΅ΡΠ»ΠΈ ΠΏΡΠ΅Π΄ΠΏΠΎΡΠΈΡΠ°Π΅ΡΠ΅, Π²Ρ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΠΎΠ³Π»Π°Π²Π»Π΅Π½ΠΈΠ΅ Π½ΠΈΠΆΠ΅ ΠΈ ΠΏΠ΅ΡΠ΅ΠΉΡΠΈ Π½Π΅ΠΏΠΎΡΡΠ΅Π΄ΡΡΠ²Π΅Π½Π½ΠΎ ΠΊ ΡΠ΅ΠΌΠ΅ ΠΏΠΎ Π²Π°ΡΠ΅ΠΌΡ Π²ΡΠ±ΠΎΡΡ.
ΠΡΠ°ΡΠΊΠΎΠ΅ ΡΡΠΊΠΎΠ²ΠΎΠ΄ΡΡΠ²ΠΎ ΠΊ ΡΠ°Π±ΠΎΡΠ΅ΠΌΡ Π»ΠΈΡΡΡ VBA
Π ΡΠ»Π΅Π΄ΡΡΡΠ΅ΠΉ ΡΠ°Π±Π»ΠΈΡΠ΅ ΠΏΡΠΈΠ²Π΅Π΄Π΅Π½ ΠΊΡΠ°ΡΠΊΠΈΠΉ ΠΎΠ±Π·ΠΎΡ ΡΠ°Π·Π»ΠΈΡΠ½ΡΡ
ΠΌΠ΅ΡΠΎΠ΄ΠΎΠ²
Worksheet .
ΠΡΠΈΠΌΠ΅ΡΠ°Π½ΠΈΠ΅. Π― ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΡ Worksheet Π² ΡΠ°Π±Π»ΠΈΡΠ΅ Π½ΠΈΠΆΠ΅, Π½Π΅ ΡΠΊΠ°Π·ΡΠ²Π°Ρ ΡΠ°Π±ΠΎΡΡΡ ΠΊΠ½ΠΈΠ³Ρ, Ρ.Π΅. Worksheets, Π° Π½Π΅ ThisWorkbook.Worksheets, wk.Worksheets ΠΈ Ρ.Π΄. ΠΡΠΎ ΡΠ΄Π΅Π»Π°Π½ΠΎ Π΄Π»Ρ ΡΠΎΠ³ΠΎ, ΡΡΠΎΠ±Ρ ΠΏΡΠΈΠΌΠ΅ΡΡ Π±ΡΠ»ΠΈ ΠΏΠΎΠ½ΡΡΠ½ΡΠΌΠΈ ΠΈ ΡΠ΄ΠΎΠ±Π½ΡΠΌΠΈ Π΄Π»Ρ ΡΡΠ΅Π½ΠΈΡ. ΠΡ Π΄ΠΎΠ»ΠΆΠ½Ρ Π²ΡΠ΅Π³Π΄Π° ΡΠΊΠ°Π·ΡΠ²Π°ΡΡ ΡΠ°Π±ΠΎΡΡΡ ΠΊΠ½ΠΈΠ³Ρ ΠΏΡΠΈ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠΈ Worksheets . Π ΠΏΡΠΎΡΠΈΠ²Π½ΠΎΠΌ ΡΠ»ΡΡΠ°Π΅ Π°ΠΊΡΠΈΠ²Π½Π°Ρ ΡΠ°Π±ΠΎΡΠ°Ρ ΠΊΠ½ΠΈΠ³Π° Π±ΡΠ΄Π΅Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡΡΡ ΠΏΠΎ ΡΠΌΠΎΠ»ΡΠ°Π½ΠΈΡ.
ΠΠ°Π΄Π°ΡΠ° | ΠΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΠ΅ |
ΠΠΎΡΡΡΠΏ ΠΊ ΡΠ°Π±ΠΎΡΠ΅ΠΌΡ Π»ΠΈΡΡΡ ΠΏΠΎ ΠΈΠΌΠ΅Π½ΠΈ | Worksheets(Β«ΠΠΈΡΡ1Β») |
ΠΠΎΡΡΡΠΏ ΠΊ ΡΠ°Π±ΠΎΡΠ΅ΠΌΡ Π»ΠΈΡΡΡ ΠΏΠΎ ΠΏΠΎΠ·ΠΈΡΠΈΠΈ ΡΠ»Π΅Π²Π° | Worksheets(2) Worksheets(4) |
ΠΠΎΠ»ΡΡΠΈΡΠ΅ Π΄ΠΎΡΡΡΠΏ ΠΊ ΡΠ°ΠΌΠΎΠΌΡ Π»Π΅Π²ΠΎΠΌΡ ΡΠ°Π±ΠΎΡΠ΅ΠΌΡ Π»ΠΈΡΡΡ | Worksheets(1) |
ΠΠΎΠ»ΡΡΠΈΡΠ΅ Π΄ΠΎΡΡΡΠΏ ΠΊ ΡΠ°ΠΌΠΎΠΌΡ ΠΏΡΠ°Π²ΠΎΠΌΡ Π»ΠΈΡΡΡ | Worksheets(Worksheets.Count) |
ΠΠΎΡΡΡΠΏ Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ΠΌ ΠΊΠΎΠ΄ΠΎΠ²ΠΎΠ³ΠΎ ΠΈΠΌΠ΅Π½ΠΈ Π»ΠΈΡΡΠ° (ΡΠΎΠ»ΡΠΊΠΎ ΡΠ΅ΠΊΡΡΠ°Ρ ΠΊΠ½ΠΈΠ³Π°) | Π‘ΠΌΠΎΡΡΠΈ ΡΠ°Π·Π΄Π΅Π» ΡΡΠ°ΡΡΠΈ ΠΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ ΠΊΠΎΠ΄ΠΎΠ²ΠΎΠ³ΠΎ ΠΈΠΌΠ΅Π½ΠΈ |
ΠΠΎΡΡΡΠΏ ΠΏΠΎ ΠΊΠΎΠ΄ΠΎΠ²ΠΎΠΌΡ ΠΈΠΌΠ΅Π½ΠΈ ΡΠ°Π±ΠΎΡΠ΅Π³ΠΎ Π»ΠΈΡΡΠ° (Π΄ΡΡΠ³Π°Ρ ΡΠ°Π±ΠΎΡΠ°Ρ ΠΊΠ½ΠΈΠ³Π°) | Π‘ΠΌΠΎΡΡΠΈ ΡΠ°Π·Π΄Π΅Π» ΡΡΠ°ΡΡΠΈ ΠΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ ΠΊΠΎΠ΄ΠΎΠ²ΠΎΠ³ΠΎ ΠΈΠΌΠ΅Π½ΠΈ |
ΠΠΎΡΡΡΠΏ ΠΊ Π°ΠΊΡΠΈΠ²Π½ΠΎΠΌΡ Π»ΠΈΡΡΡ | ActiveSheet |
ΠΠ±ΡΡΠ²ΠΈΡΡ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ Π»ΠΈΡΡΠ° | DimΒ shΒ AsΒ Worksheet |
ΠΠ°Π·Π½Π°ΡΠΈΡΡ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ Π»ΠΈΡΡΠ° | SetΒ sh = Worksheets(Β«ΠΠΈΡΡ1Β») |
ΠΠΎΠ±Π°Π²ΠΈΡΡ Π»ΠΈΡΡ | Worksheets.Add |
ΠΠΎΠ±Π°Π²ΠΈΡΡ ΡΠ°Π±ΠΎΡΠΈΠΉ Π»ΠΈΡΡ ΠΈ Π½Π°Π·Π½Π°ΡΠΈΡΡ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ | Worksheets.Add Before:= Worksheets(1) |
ΠΠΎΠ±Π°Π²ΠΈΡΡ Π»ΠΈΡΡ Π² ΠΏΠ΅ΡΠ²ΡΡ ΠΏΠΎΠ·ΠΈΡΠΈΡ (ΡΠ»Π΅Π²Π°) | SetΒ sh =Worksheets.Add |
ΠΠΎΠ±Π°Π²ΠΈΡΡ Π»ΠΈΡΡ Π² ΠΏΠΎΡΠ»Π΅Π΄Π½ΡΡ ΠΏΠΎΠ·ΠΈΡΠΈΡ (ΡΠΏΡΠ°Π²Π°) | Worksheets.Add after:=Worksheets(Worksheets.Count) |
ΠΠΎΠ±Π°Π²ΠΈΡΡ Π½Π΅ΡΠΊΠΎΠ»ΡΠΊΠΎ Π»ΠΈΡΡΠΎΠ² | Worksheets.Add Count:=3 |
ΠΠΊΡΠΈΠ²ΠΈΡΠΎΠ²Π°ΡΡ ΡΠ°Π±ΠΎΡΠΈΠΉ Π»ΠΈΡΡ | sh.Activate |
ΠΠΎΠΏΠΈΡΠΎΠ²Π°ΡΡ Π»ΠΈΡΡ | sh.Copy |
ΠΠΎΠΏΠΈΡΠΎΠ²Π°ΡΡ ΠΏΠΎΡΠ»Π΅ Π»ΠΈΡΡΠ° | sh2.Copy After:=Sh3 |
Π‘ΠΊΠΎΠΏΠΈΡΠΎΠ²Π°ΡΡ ΠΏΠ΅ΡΠ΅Π΄ Π»ΠΈΡΡΠΎΠΌ | sh2.Copy Before:=Sh3 |
Π£Π΄Π°Π»ΠΈΡΡ ΡΠ°Π±ΠΎΡΠΈΠΉ Π»ΠΈΡΡ | sh.Delete |
Π£Π΄Π°Π»ΠΈΡΡ ΡΠ°Π±ΠΎΡΠΈΠΉ Π»ΠΈΡΡ Π±Π΅Π· ΠΏΡΠ΅Π΄ΡΠΏΡΠ΅ΠΆΠ΄Π΅Π½ΠΈΡ | Application.DisplayAlerts =Β False sh.Delete Application.DisplayAlerts =Β True |
ΠΠ·ΠΌΠ΅Π½ΠΈΡΡ ΠΈΠΌΡ Π»ΠΈΡΡΠ° | sh.Name = Β«DataΒ» |
ΠΠΎΠΊΠ°Π·Π°ΡΡ/ΡΠΊΡΡΡΡ Π»ΠΈΡΡ | sh.Visible = xlSheetHidden sh.Visible = xlSheetVisible sh.Name = Β«DataΒ» |
ΠΠ΅ΡΠ΅Π±ΡΠ°ΡΡ Π²ΡΠ΅ Π»ΠΈΡΡΡ (For) | DimΒ iΒ AsΒ Long ForΒ i = 1Β ToΒ Worksheets.Count Β Β Debug.PrintΒ Worksheets(i).Name NextΒ i |
ΠΠ΅ΡΠ΅Π±ΡΠ°ΡΡ Π²ΡΠ΅ Π»ΠΈΡΡΡ (For Each) | DimΒ shΒ AsΒ Worksheet ForΒ EachΒ shΒ InΒ Worksheets Β Β Β Β Debug.PrintΒ sh.Name Next |
ΠΡΡΡΠΏΠ»Π΅Π½ΠΈΠ΅
Π’ΡΠΈ Π½Π°ΠΈΠ±ΠΎΠ»Π΅Π΅ Π²Π°ΠΆΠ½ΡΡ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠ° VBA β ΡΡΠΎ Π Π°Π±ΠΎΡΠ°Ρ ΠΊΠ½ΠΈΠ³Π°, Π Π°Π±ΠΎΡΠΈΠΉ Π»ΠΈΡΡ ΠΈ Π―ΡΠ΅ΠΉΠΊΠΈ. ΠΠ· Π²ΡΠ΅Π³ΠΎ ΠΊΠΎΠ΄Π°, ΠΊΠΎΡΠΎΡΡΠΉ Π²Ρ ΠΏΠΈΡΠ΅ΡΠ΅, 90% Π±ΡΠ΄ΡΡ Π²ΠΊΠ»ΡΡΠ°ΡΡ ΠΎΠ΄ΠΈΠ½ ΠΈΠ»ΠΈ Π²ΡΠ΅ ΠΈΠ· Π½ΠΈΡ .
ΠΠ°ΠΈΠ±ΠΎΠ»Π΅Π΅ ΡΠ°ΡΠΏΡΠΎΡΡΡΠ°Π½Π΅Π½Π½ΠΎΠ΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ Worksheet Π² VBA Π΄Π»Ρ Π΄ΠΎΡΡΡΠΏΠ° ΠΊ Π΅Π³ΠΎ ΡΡΠ΅ΠΉΠΊΠ°ΠΌ. ΠΡ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ Π΅Π³ΠΎ Π΄Π»Ρ Π·Π°ΡΠΈΡΡ, ΡΠΊΡΡΡΠΈΡ, Π΄ΠΎΠ±Π°Π²Π»Π΅Π½ΠΈΡ, ΠΏΠ΅ΡΠ΅ΠΌΠ΅ΡΠ΅Π½ΠΈΡ ΠΈΠ»ΠΈ ΠΊΠΎΠΏΠΈΡΠΎΠ²Π°Π½ΠΈΡ Π»ΠΈΡΡΠ°.
Π’Π΅ΠΌ Π½Π΅ ΠΌΠ΅Π½Π΅Π΅, Π²Ρ Π±ΡΠ΄Π΅ΡΠ΅ Π² ΠΎΡΠ½ΠΎΠ²Π½ΠΎΠΌ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ Π΅Π³ΠΎ Π΄Π»Ρ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΡ Π½Π΅ΠΊΠΎΡΠΎΡΡΡ Π΄Π΅ΠΉΡΡΠ²ΠΈΠΉ Ρ ΠΎΠ΄Π½ΠΎΠΉ ΠΈΠ»ΠΈ Π½Π΅ΡΠΊΠΎΠ»ΡΠΊΠΈΠΌΠΈ ΡΡΠ΅ΠΉΠΊΠ°ΠΌΠΈ Π½Π° Π»ΠΈΡΡΠ΅.
ΠΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ Worksheets Π±ΠΎΠ»Π΅Π΅ ΠΏΡΠΎΡΡΠΎΠ΅, ΡΠ΅ΠΌ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ ΡΠ°Π±ΠΎΡΠΈΡ ΠΊΠ½ΠΈΠ³. Π‘ ΠΊΠ½ΠΈΠ³Π°ΠΌΠΈ Π²Π°ΠΌ ΠΌΠΎΠΆΠ΅Ρ ΠΏΠΎΡΡΠ΅Π±ΠΎΠ²Π°ΡΡΡΡ ΠΎΡΠΊΡΡΡΡ ΠΈΡ , Π½Π°ΠΉΡΠΈ, Π² ΠΊΠ°ΠΊΠΎΠΉ ΠΏΠ°ΠΏΠΊΠ΅ ΠΎΠ½ΠΈ Π½Π°Ρ ΠΎΠ΄ΡΡΡΡ, ΠΏΡΠΎΠ²Π΅ΡΠΈΡΡ, ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΡΡΡΡ Π»ΠΈ ΠΎΠ½ΠΈ, ΠΈ ΡΠ°ΠΊ Π΄Π°Π»Π΅Π΅. Π‘ ΡΠ°Π±ΠΎΡΠΈΠΌ Π»ΠΈΡΡΠΎΠΌ ΠΎΠ½ Π»ΠΈΠ±ΠΎ ΡΡΡΠ΅ΡΡΠ²ΡΠ΅Ρ Π² ΡΠ°Π±ΠΎΡΠ΅ΠΉ ΠΊΠ½ΠΈΠ³Π΅, Π»ΠΈΠ±ΠΎ Π΅Π³ΠΎ Π½Π΅Ρ.
ΠΠΎΡΡΡΠΏ ΠΊ ΡΠ°Π±ΠΎΡΠ΅ΠΌΡ Π»ΠΈΡΡΡ
Π VBA ΠΊΠ°ΠΆΠ΄Π°Ρ ΡΠ°Π±ΠΎΡΠ°Ρ ΠΊΠ½ΠΈΠ³Π° ΠΈΠΌΠ΅Π΅Ρ ΠΊΠΎΠ»Π»Π΅ΠΊΡΠΈΡ ΡΠ°Π±ΠΎΡΠΈΡ Π»ΠΈΡΡΠΎΠ². Π ΡΡΠΎΠΉ ΠΊΠΎΠ»Π»Π΅ΠΊΡΠΈΠΈ Π΅ΡΡΡ Π·Π°ΠΏΠΈΡΡ Π΄Π»Ρ ΠΊΠ°ΠΆΠ΄ΠΎΠ³ΠΎ ΡΠ°Π±ΠΎΡΠ΅Π³ΠΎ Π»ΠΈΡΡΠ°. ΠΡΠ° ΠΊΠΎΠ»Π»Π΅ΠΊΡΠΈΡ Π½Π°Π·ΡΠ²Π°Π΅ΡΡΡ ΠΏΡΠΎΡΡΠΎ Worksheets ΠΈ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ ΠΎΡΠ΅Π½Ρ ΠΏΠΎΡ ΠΎΠΆΠ΅ Π½Π° ΠΊΠΎΠ»Π»Π΅ΠΊΡΠΈΡ Workbooks. Π§ΡΠΎΠ±Ρ ΠΏΠΎΠ»ΡΡΠΈΡΡ Π΄ΠΎΡΡΡΠΏ ΠΊ ΡΠ°Π±ΠΎΡΠ΅ΠΌΡ Π»ΠΈΡΡΡ, Π΄ΠΎΡΡΠ°ΡΠΎΡΠ½ΠΎ ΡΠΊΠ°Π·Π°ΡΡ ΠΈΠΌΡ.
ΠΡΠΈΠ²Π΅Π΄Π΅Π½Π½ΡΠΉ Π½ΠΈΠΆΠ΅ ΠΊΠΎΠ΄ Π·Π°ΠΏΠΈΡΡΠ²Π°Π΅Ρ Β«ΠΡΠΈΠ²Π΅Ρ ΠΠΈΡΒ» Π² ΡΡΠ΅ΠΉΠΊΠ°Ρ A1 Π½Π° Π»ΠΈΡΡΠ°Ρ : ΠΠΈΡΡ1, ΠΠΈΡΡ2 ΠΈ ΠΠΈΡΡ3 ΡΠ΅ΠΊΡΡΠ΅ΠΉ ΡΠ°Π±ΠΎΡΠ΅ΠΉ ΠΊΠ½ΠΈΠ³ΠΈ.
Sub ZapisVYacheiku1() ' ΠΠ°ΠΏΠΈΡΡ Π² ΡΡΠ΅ΠΉΠΊΡ Π1 Π² Π»ΠΈΡΡΠ΅ 1, Π»ΠΈΡΡΠ΅ 2 ΠΈ Π»ΠΈΡΡΠ΅ 3 ThisWorkbook.Worksheets("ΠΠΈΡΡ1").Range("A1") = "ΠΡΠΈΠ²Π΅Ρ ΠΠΈΡ" ThisWorkbook.Worksheets("ΠΠΈΡΡ2").Range("A1") = "ΠΡΠΈΠ²Π΅Ρ ΠΠΈΡ" ThisWorkbook.Worksheets("ΠΠΈΡΡ3").Range("A1") = "ΠΡΠΈΠ²Π΅Ρ ΠΠΈΡ" End Sub
ΠΠΎΠ»Π»Π΅ΠΊΡΠΈΡ Worksheets Π²ΡΠ΅Π³Π΄Π° ΠΏΡΠΈΠ½Π°Π΄Π»Π΅ΠΆΠΈΡ ΠΊΠ½ΠΈΠ³Π΅. ΠΡΠ»ΠΈ ΠΌΡ Π½Π΅
ΡΠΊΠ°Π·ΡΠ²Π°Π΅ΠΌ ΡΠ°Π±ΠΎΡΡΡ ΠΊΠ½ΠΈΠ³Ρ, ΡΠΎ Π°ΠΊΡΠΈΠ²Π½Π°Ρ ΡΠ°Π±ΠΎΡΠ°Ρ ΠΊΠ½ΠΈΠ³Π° ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ ΠΏΠΎ ΡΠΌΠΎΠ»ΡΠ°Π½ΠΈΡ.
Sub ZapisVYacheiku1() ' Worksheets ΠΎΡΠ½ΠΎΡΡΡΡΡ ΠΊ ΡΠ°Π±ΠΎΡΠΈΠΌ Π»ΠΈΡΡΠ°ΠΌ Π² Π°ΠΊΡΠΈΠ²Π½ΠΎΠΉ ΡΠ°Π±ΠΎΡΠ΅ΠΉ ΠΊΠ½ΠΈΠ³Π΅. Worksheets("ΠΠΈΡΡ1").Range("A1") = "ΠΡΠΈΠ²Π΅Ρ ΠΠΈΡ" Worksheets("ΠΠΈΡΡ2").Range("A1") = "ΠΡΠΈΠ²Π΅Ρ ΠΠΈΡ" Worksheets("ΠΠΈΡΡ3").Range("A1") = "ΠΡΠΈΠ²Π΅Ρ ΠΠΈΡ" End Sub
Π‘ΠΊΡΡΡΡ ΡΠ°Π±ΠΎΡΠΈΠΉ Π»ΠΈΡΡ
Π ΡΠ»Π΅Π΄ΡΡΡΠΈΡ ΠΏΡΠΈΠΌΠ΅ΡΠ°Ρ ΠΏΠΎΠΊΠ°Π·Π°Π½ΠΎ, ΠΊΠ°ΠΊ ΡΠΊΡΡΡΡ ΠΈ ΠΏΠΎΠΊΠ°Π·Π°ΡΡ Π»ΠΈΡΡ.
ThisWorkbook.Worksheets("ΠΠΈΡΡ1").Visible = xlSheetHidden ThisWorkbook.Worksheets("ΠΠΈΡΡ1").Visible = xlSheetVisible
ΠΡΠ»ΠΈ Π²Ρ Ρ
ΠΎΡΠΈΡΠ΅ Π·Π°ΠΏΡΠ΅ΡΠΈΡΡ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ Π΄ΠΎΡΡΡΠΏ ΠΊ ΡΠ°Π±ΠΎΡΠ΅ΠΌΡ
Π»ΠΈΡΡΡ, Π²Ρ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΡΠ΄Π΅Π»Π°ΡΡ Π΅Π³ΠΎ Β«ΠΎΡΠ΅Π½Ρ ΡΠΊΡΡΡΡΠΌΒ». ΠΡΠΎ ΠΎΠ·Π½Π°ΡΠ°Π΅Ρ, ΡΡΠΎ ΡΡΠΎ ΠΌΠΎΠΆΠ΅Ρ Π±ΡΡΡ
ΡΠ΄Π΅Π»Π°Π½ΠΎ Π²ΠΈΠ΄ΠΈΠΌΡΠΌ ΡΠΎΠ»ΡΠΊΠΎ ΠΊΠΎΠ΄ΠΎΠΌ.
' Π‘ΠΊΡΡΡΡ ΠΎΡ Π΄ΠΎΡΡΡΠΏΠ° ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ ThisWorkbook.Worksheets("ΠΠΈΡΡ1").Visible = xlVeryHidden ' ΠΡΠΎ Π΅Π΄ΠΈΠ½ΡΡΠ²Π΅Π½Π½ΡΠΉ ΡΠΏΠΎΡΠΎΠ± ΡΠ΄Π΅Π»Π°ΡΡ Π»ΠΈΡΡ xlVeryHidden Π²ΠΈΠ΄ΠΈΠΌΡΠΌ ThisWorkbook.Worksheets("ΠΠΈΡΡ1").Visible = xlSheetVisible
ΠΠ°ΡΠΈΡΠΈΡΡ ΡΠ°Π±ΠΎΡΠΈΠΉ Π»ΠΈΡΡ
ΠΡΡΠ³ΠΎΠΉ ΠΏΡΠΈΠΌΠ΅Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΡ Worksheet β ΠΊΠΎΠ³Π΄Π° Π²Ρ Ρ ΠΎΡΠΈΡΠ΅ Π·Π°ΡΠΈΡΠΈΡΡ Π΅Π³ΠΎ.
ThisWorkbook.Worksheets("ΠΠΈΡΡ1").Protect Password:="ΠΠΎΠΉΠΏΠ°ΡΠΎΠ»Ρ" ThisWorkbook.Worksheets("ΠΠΈΡΡ1").Unprotect Password:="ΠΠΎΠΉΠΏΠ°ΡΠΎΠ»Ρ"
ΠΠ½Π΄Π΅ΠΊΡ Π²Π½Π΅ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½Π°
ΠΡΠΈ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠΈ Worksheets Π²Ρ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΠΏΠΎΠ»ΡΡΠΈΡΡ ΡΠΎΠΎΠ±ΡΠ΅Π½ΠΈΠ΅ ΠΎΠ±
ΠΎΡΠΈΠ±ΠΊΠ΅:
Run-time Error 9 Subscript out of Range
ΠΡΠΎ ΠΎΠ·Π½Π°ΡΠ°Π΅Ρ, ΡΡΠΎ Π²Ρ ΠΏΡΡΠ°Π»ΠΈΡΡ ΠΏΠΎΠ»ΡΡΠΈΡΡ Π΄ΠΎΡΡΡΠΏ ΠΊ ΡΠ°Π±ΠΎΡΠ΅ΠΌΡ Π»ΠΈΡΡΡ, ΠΊΠΎΡΠΎΡΡΠΉ Π½Π΅ ΡΡΡΠ΅ΡΡΠ²ΡΠ΅Ρ. ΠΡΠΎ ΠΌΠΎΠΆΠ΅Ρ ΠΏΡΠΎΠΈΠ·ΠΎΠΉΡΠΈ ΠΏΠΎ ΡΠ»Π΅Π΄ΡΡΡΠΈΠΌ ΠΏΡΠΈΡΠΈΠ½Π°ΠΌ:
- ΠΠΌΡ Worksheet , ΠΏΡΠΈΡΠ²ΠΎΠ΅Π½Π½ΠΎΠ΅ ΡΠ°Π±ΠΎΡΠΈΠΌ Π»ΠΈΡΡΠ°ΠΌ, Π½Π°ΠΏΠΈΡΠ°Π½ΠΎ Π½Π΅ΠΏΡΠ°Π²ΠΈΠ»ΡΠ½ΠΎ.
- ΠΠ°Π·Π²Π°Π½ΠΈΠ΅ Π»ΠΈΡΡΠ° ΠΈΠ·ΠΌΠ΅Π½ΠΈΠ»ΠΎΡΡ.
- Π Π°Π±ΠΎΡΠΈΠΉ Π»ΠΈΡΡ Π±ΡΠ» ΡΠ΄Π°Π»Π΅Π½.
- ΠΠ½Π΄Π΅ΠΊΡ Π±ΡΠ» Π±ΠΎΠ»ΡΡΠΈΠΌ, Π½Π°ΠΏΡΠΈΠΌΠ΅Ρ ΠΡ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π»ΠΈ ΡΠ°Π±ΠΎΡΠΈΠ΅ Π»ΠΈΡΡΡ (5), Π½ΠΎ Π΅ΡΡΡ ΡΠΎΠ»ΡΠΊΠΎ ΡΠ΅ΡΡΡΠ΅ ΡΠ°Π±ΠΎΡΠΈΡ Π»ΠΈΡΡΠ°
- ΠΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ Π½Π΅ΠΏΡΠ°Π²ΠΈΠ»ΡΠ½Π°Ρ ΡΠ°Π±ΠΎΡΠ°Ρ ΠΊΠ½ΠΈΠ³Π°, Π½Π°ΠΏΡΠΈΠΌΠ΅Ρ Workbooks(Β«book1.xlsxΒ»).Worksheets(Β«ΠΠΈΡΡ1Β») Π²ΠΌΠ΅ΡΡΠΎ
Workbooks(Β«book3.xlsxΒ»).Worksheets (Β«ΠΠΈΡΡ1Β»).
ΠΡΠ»ΠΈ Ρ Π²Π°Ρ ΠΎΡΡΠ°Π»ΠΈΡΡ ΠΏΡΠΎΠ±Π»Π΅ΠΌΡ, ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠΉΡΠ΅ ΠΎΠ΄ΠΈΠ½ ΠΈΠ· ΡΠΈΠΊΠ»ΠΎΠ² ΠΈΠ· ΡΠ°Π·Π΄Π΅Π»Π° Β«Π¦ΠΈΠΊΠ»Ρ ΠΏΠΎ ΡΠ°Π±ΠΎΡΠΈΠΌ Π»ΠΈΡΡΠ°ΠΌΒ», ΡΡΠΎΠ±Ρ Π½Π°ΠΏΠ΅ΡΠ°ΡΠ°ΡΡ ΠΈΠΌΠ΅Π½Π° Π²ΡΠ΅Ρ ΡΠ°Π±ΠΎΡΠΈΡ Π»ΠΈΡΡΠΎΠ² ΠΊΠΎΠ»Π»Π΅ΠΊΡΠΈΠΈ.
ΠΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ ΠΈΠ½Π΄Π΅ΠΊΡΠ° Π΄Π»Ρ Π΄ΠΎΡΡΡΠΏΠ° ΠΊ ΡΠ°Π±ΠΎΡΠ΅ΠΌΡ Π»ΠΈΡΡΡ
ΠΠΎ ΡΠΈΡ
ΠΏΠΎΡ ΠΌΡ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π»ΠΈ ΠΈΠΌΡ Π»ΠΈΡΡΠ° Π΄Π»Ρ Π΄ΠΎΡΡΡΠΏΠ° ΠΊ Π»ΠΈΡΡΡ.
Π£ΠΊΠ°Π·Π°ΡΠ΅Π»Ρ ΠΎΡΠ½ΠΎΡΠΈΡΡΡ ΠΊ ΠΏΠΎΠ»ΠΎΠΆΠ΅Π½ΠΈΡ Π²ΠΊΠ»Π°Π΄ΠΊΠΈ Π»ΠΈΡΡΠ° Π² ΡΠ°Π±ΠΎΡΠ΅ΠΉ ΠΊΠ½ΠΈΠ³Π΅. ΠΠΎΡΠΊΠΎΠ»ΡΠΊΡ
ΠΏΠΎΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅ ΠΌΠΎΠΆΠ΅Ρ Π±ΡΡΡ Π»Π΅Π³ΠΊΠΎ ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΎ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Π΅ΠΌ, Π½Π΅ ΡΠ΅ΠΊΠΎΠΌΠ΅Π½Π΄ΡΠ΅ΡΡΡ
ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΡΡΠΎ.
Β Π ΡΠ»Π΅Π΄ΡΡΡΠ΅ΠΌ ΠΊΠΎΠ΄Π΅ ΠΏΠΎΠΊΠ°Π·Π°Π½Ρ ΠΏΡΠΈΠΌΠ΅ΡΡ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΡ ΠΈΠ½Π΄Π΅ΠΊΡΠ°.
' ΠΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ ΡΡΠΎΠ³ΠΎ ΠΊΠΎΠ΄Π° ΡΠ²Π»ΡΠ΅ΡΡΡ ΠΏΠ»ΠΎΡ ΠΎΠΉ ΠΈΠ΄Π΅Π΅ΠΉ, ΡΠ°ΠΊ ΠΊΠ°ΠΊ ' ΠΏΠΎΠ·ΠΈΡΠΈΠΈ Π»ΠΈΡΡΠ° Π²ΡΠ΅ Π²ΡΠ΅ΠΌΡ ΠΌΠ΅Π½ΡΡΡΡΡ Sub IspIndList() With ThisWorkbook ' Π‘Π°ΠΌΡΠΉ Π»Π΅Π²ΡΠΉ Π»ΠΈΡΡ Debug.Print .Worksheets(1).Name ' Π’ΡΠ΅ΡΠΈΠΉ Π»ΠΈΡΡ ΡΠ»Π΅Π²Π° Debug.Print .Worksheets(3).Name ' Π‘Π°ΠΌΡΠΉ ΠΏΡΠ°Π²ΡΠΉ Π»ΠΈΡΡ Debug.Print .Worksheets(.Worksheets.Count).Name End With End Sub
Π ΠΏΡΠΈΠ²Π΅Π΄Π΅Π½Π½ΠΎΠΌ Π²ΡΡΠ΅ ΠΏΡΠΈΠΌΠ΅ΡΠ΅ Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π» Debug.Print Π΄Π»Ρ ΠΏΠ΅ΡΠ°ΡΠΈ Π² Immediate Window. ΠΠ»Ρ ΠΏΡΠΎΡΠΌΠΎΡΡΠ° ΡΡΠΎΠ³ΠΎ ΠΎΠΊΠ½Π° Π²ΡΠ±Π΅ΡΠΈΡΠ΅ Β«ΠΠΈΠ΄Β» -> Β«Immediate Window Β» (Ctrl + G).
ΠΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ ΠΊΠΎΠ΄ΠΎΠ²ΠΎΠ³ΠΎ ΠΈΠΌΠ΅Π½ΠΈ ΡΠ°Π±ΠΎΡΠ΅Π³ΠΎ Π»ΠΈΡΡΠ°
ΠΡΡΡΠΈΠΉ ΡΠΏΠΎΡΠΎΠ± ΠΏΠΎΠ»ΡΡΠΈΡΡ Π΄ΠΎΡΡΡΠΏ ΠΊ ΡΠ°Π±ΠΎΡΠ΅ΠΌΡ Π»ΠΈΡΡΡ β
ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΠΊΠΎΠ΄ΠΎΠ²ΠΎΠ΅ ΠΈΠΌΡ. ΠΠ°ΠΆΠ΄ΡΠΉ Π»ΠΈΡΡ ΠΈΠΌΠ΅Π΅Ρ ΠΈΠΌΡ Π»ΠΈΡΡΠ° ΠΈ ΠΊΠΎΠ΄ΠΎΠ²ΠΎΠ΅ ΠΈΠΌΡ. ΠΠΌΡ Π»ΠΈΡΡΠ°
β ΡΡΠΎ ΠΈΠΌΡ, ΠΊΠΎΡΠΎΡΠΎΠ΅ ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ°Π΅ΡΡΡ Π½Π° Π²ΠΊΠ»Π°Π΄ΠΊΠ΅ Π»ΠΈΡΡΠ° Π² Excel.
ΠΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΠ΅ ΠΈΠΌΠ΅Π½ΠΈ Π»ΠΈΡΡΠ° Π½Π΅ ΠΏΡΠΈΠ²ΠΎΠ΄ΠΈΡ ΠΊ ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΡ ΠΊΠΎΠ΄ΠΎΠ²ΠΎΠ³ΠΎ ΠΈΠΌΠ΅Π½ΠΈ, ΡΡΠΎ ΠΎΠ·Π½Π°ΡΠ°Π΅Ρ, ΡΡΠΎ ΡΡΡΠ»ΠΊΠ° Π½Π° Π»ΠΈΡΡ ΠΏΠΎ ΠΊΠΎΠ΄ΠΎΠ²ΠΎΠΌΡ ΠΈΠΌΠ΅Π½ΠΈ β ΠΎΡΠ»ΠΈΡΠ½Π°Ρ ΠΈΠ΄Π΅Ρ.
ΠΡΠ»ΠΈ Π²Ρ ΠΏΠΎΡΠΌΠΎΡΡΠΈΡΠ΅ Π² ΠΎΠΊΠ½Π΅ ΡΠ²ΠΎΠΉΡΡΠ² VBE, Π²Ρ ΡΠ²ΠΈΠ΄ΠΈΡΠ΅ ΠΎΠ±Π° ΠΈΠΌΠ΅Π½ΠΈ.
ΠΠ° ΡΠΈΡΡΠ½ΠΊΠ΅ Π²Ρ ΠΌΠΎΠΆΠ΅ΡΠ΅ Π²ΠΈΠ΄Π΅ΡΡ, ΡΡΠΎ ΠΊΠΎΠ΄ΠΎΠ²ΠΎΠ΅ ΠΈΠΌΡ β ΡΡΠΎ ΠΈΠΌΡ Π²Π½Π΅ ΡΠΊΠΎΠ±ΠΎΠΊ, Π° ΠΈΠΌΡ Π»ΠΈΡΡΠ°
β Π² ΡΠΊΠΎΠ±ΠΊΠ°Ρ
.
ΠΡ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΠΈΠ·ΠΌΠ΅Π½ΠΈΡΡ ΠΊΠ°ΠΊ ΠΈΠΌΡ Π»ΠΈΡΡΠ°, ΡΠ°ΠΊ ΠΈ ΠΊΠΎΠ΄ΠΎΠ²ΠΎΠ΅ ΠΈΠΌΡ Π² ΠΎΠΊΠ½Π΅
ΡΠ²ΠΎΠΉΡΡΠ² Π»ΠΈΡΡΠ° (ΡΠΌ. ΠΠ·ΠΎΠ±ΡΠ°ΠΆΠ΅Π½ΠΈΠ΅ Π½ΠΈΠΆΠ΅).
ΠΡΠ»ΠΈ Π²Π°Ρ ΠΊΠΎΠ΄ ΡΡΡΠ»Π°Π΅ΡΡΡ Π½Π° ΠΊΠΎΠ΄ΠΎΠ²ΠΎΠ΅ ΠΈΠΌΡ, ΡΠΎ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ ΠΌΠΎΠΆΠ΅Ρ
ΠΈΠ·ΠΌΠ΅Π½ΠΈΡΡ ΠΈΠΌΡ Π»ΠΈΡΡΠ°, ΠΈ ΡΡΠΎ Π½Π΅ ΠΏΠΎΠ²Π»ΠΈΡΠ΅Ρ Π½Π° Π²Π°Ρ ΠΊΠΎΠ΄. Π ΠΏΡΠΈΠ²Π΅Π΄Π΅Π½Π½ΠΎΠΌ Π½ΠΈΠΆΠ΅ ΠΏΡΠΈΠΌΠ΅ΡΠ΅ ΠΌΡ
ΡΡΡΠ»Π°Π΅ΠΌΡΡ Π½Π° ΡΠ°Π±ΠΎΡΠΈΠΉ Π»ΠΈΡΡ Π½Π°ΠΏΡΡΠΌΡΡ, ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΡ ΠΊΠΎΠ΄ΠΎΠ²ΠΎΠ΅ ΠΈΠΌΡ.
Sub IspKodImya2() ' ΠΡΠΏΠΎΠ»ΡΠ·ΡΡ ΠΊΠΎΠ΄ΠΎΠ²ΠΎΠ΅ ΠΈΠΌΡ Π»ΠΈΡΡΠ° Debug.Print CodeName.Name CodeName.Range("A1") = 45 CodeName.Visible = True End Sub
ΠΡΠΎ Π΄Π΅Π»Π°Π΅Ρ ΠΊΠΎΠ΄ Π»Π΅Π³ΠΊΠΈΠΌ Π΄Π»Ρ ΡΡΠ΅Π½ΠΈΡ ΠΈ Π±Π΅Π·ΠΎΠΏΠ°ΡΠ½ΡΠΌ ΠΎΡ ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΡ
ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Π΅ΠΌ ΠΈΠΌΠ΅Π½ΠΈ Π»ΠΈΡΡΠ°.
ΠΠΎΠ΄ΠΎΠ²ΠΎΠ΅ ΠΈΠΌΡ Π² Π΄ΡΡΠ³ΠΈΡ ΠΊΠ½ΠΈΠ³Π°Ρ
ΠΡΡΡ ΠΎΠ΄ΠΈΠ½ Π½Π΅Π΄ΠΎΡΡΠ°ΡΠΎΠΊ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΡ ΠΊΠΎΠ΄ΠΎΠ²ΠΎΠ³ΠΎ ΠΈΠΌΠ΅Π½ΠΈ. ΠΠ½ ΠΎΡΠ½ΠΎΡΠΈΡΡΡ ΡΠΎΠ»ΡΠΊΠΎ ΠΊ ΡΠ°Π±ΠΎΡΠΈΠΌ Π»ΠΈΡΡΠ°ΠΌ Π² ΡΠ°Π±ΠΎΡΠ΅ΠΉ ΠΊΠ½ΠΈΠ³Π΅, ΠΊΠΎΡΠΎΡΠ°Ρ ΡΠΎΠ΄Π΅ΡΠΆΠΈΡ ΠΊΠΎΠ΄, Ρ.Π΅. ThisWorkbook.
ΠΠ΄Π½Π°ΠΊΠΎ ΠΌΡ ΠΌΠΎΠΆΠ΅ΠΌ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΠΏΡΠΎΡΡΡΡ ΡΡΠ½ΠΊΡΠΈΡ, ΡΡΠΎΠ±Ρ Π½Π°ΠΉΡΠΈ
ΠΊΠΎΠ΄ΠΎΠ²ΠΎΠ΅ ΠΈΠΌΡ Π»ΠΈΡΡΠ° Π² Π΄ΡΡΠ³ΠΎΠΉ ΠΊΠ½ΠΈΠ³Π΅.
Sub ΠΡΠΏΠΠΈΡΡ() Dim sh As Worksheet ' ΠΠΎΠ»ΡΡΠΈΡΡ ΡΠ°Π±ΠΎΡΠΈΠΉ Π»ΠΈΡΡ ΠΏΠΎΠ΄ ΠΊΠΎΠ΄ΠΎΠ²ΡΠΌ ΠΈΠΌΠ΅Π½Π΅ΠΌ Set sh = SheetFromCodeName("CodeName", ThisWorkbook) ' ΠΡΠΏΠΎΠ»ΡΠ·ΡΠΉΡΠ΅ ΡΠ°Π±ΠΎΡΠΈΠΉ Π»ΠΈΡΡ Debug.Print sh.Name End Sub ' ΠΡΠ° ΡΡΠ½ΠΊΡΠΈΡ ΠΏΠΎΠ»ΡΡΠ°Π΅Ρ ΠΎΠ±ΡΠ΅ΠΊΡ Π»ΠΈΡΡΠ° ΠΈΠ· ΠΊΠΎΠ΄ΠΎΠ²ΠΎΠ³ΠΎ ΠΈΠΌΠ΅Π½ΠΈ Public Function SheetFromCodeName(Name As String, bk As Workbook) As Worksheet Dim sh As Worksheet For Each sh In bk.Worksheets If sh.CodeName = Name Then Set SheetFromCodeName = sh Exit For End If Next sh End Function
ΠΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ ΠΏΡΠΈΠ²Π΅Π΄Π΅Π½Π½ΠΎΠ³ΠΎ Π²ΡΡΠ΅ ΠΊΠΎΠ΄Π° ΠΎΠ·Π½Π°ΡΠ°Π΅Ρ, ΡΡΠΎ Π΅ΡΠ»ΠΈ
ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ ΠΈΠ·ΠΌΠ΅Π½ΠΈΡ ΠΈΠΌΡ ΡΠ°Π±ΠΎΡΠ΅Π³ΠΎ Π»ΠΈΡΡΠ°, ΡΠΎ Π½Π° Π²Π°Ρ ΠΊΠΎΠ΄ ΡΡΠΎ Π½Π΅ ΠΏΠΎΠ²Π»ΠΈΡΠ΅Ρ.
Π‘ΡΡΠ΅ΡΡΠ²ΡΠ΅Ρ Π΄ΡΡΠ³ΠΎΠΉ ΡΠΏΠΎΡΠΎΠ± ΠΏΠΎΠ»ΡΡΠ΅Π½ΠΈΡ ΠΈΠΌΠ΅Π½ΠΈ Π»ΠΈΡΡΠ° Π²Π½Π΅ΡΠ½Π΅ΠΉ
ΡΠ°Π±ΠΎΡΠ΅ΠΉ ΠΊΠ½ΠΈΠ³ΠΈ Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ΠΌ ΠΊΠΎΠ΄ΠΎΠ²ΠΎΠ³ΠΎ ΠΈΠΌΠ΅Π½ΠΈ. ΠΡ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΡΠ»Π΅ΠΌΠ΅Π½Ρ
VBProject ΡΡΠΎΠΉ Π Π°Π±ΠΎΡΠ΅ΠΉ ΠΊΠ½ΠΈΠ³ΠΈ.
ΠΡ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΡΠ²ΠΈΠ΄Π΅ΡΡ, ΠΊΠ°ΠΊ ΡΡΠΎ ΡΠ΄Π΅Π»Π°ΡΡ, Π² ΠΏΡΠΈΠΌΠ΅ΡΠ΅ Π½ΠΈΠΆΠ΅. Π― Π²ΠΊΠ»ΡΡΠΈΠ» ΡΡΠΎ, ΠΊΠ°ΠΊ Π΄ΠΎΠΏΠΎΠ»Π½ΠΈΡΠ΅Π»ΡΠ½ΡΡ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΡ, Ρ Π±Ρ ΡΠ΅ΠΊΠΎΠΌΠ΅Π½Π΄ΠΎΠ²Π°Π» ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΠΌΠ΅ΡΠΎΠ΄ ΠΈΠ· ΠΏΡΠ΅Π΄ΡΠ΄ΡΡΠ΅Π³ΠΎ ΠΏΡΠΈΠΌΠ΅ΡΠ°, Π° Π½Π΅ ΡΡΠΎΡ.
Public Function SheetFromCodeName2(codeName As String _ , bk As Workbook) As Worksheet ' ΠΠΎΠ»ΡΡΠΈΡΡ ΠΈΠΌΡ Π»ΠΈΡΡΠ° ΠΈΠ· CodeName, ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΡ VBProject Dim sheetName As String sheetName = bk.VBProject.VBComponents(codeName).Properties("Name") ' ΠΡΠΏΠΎΠ»ΡΠ·ΡΠΉΡΠ΅ ΠΈΠΌΡ Π»ΠΈΡΡΠ°, ΡΡΠΎΠ±Ρ ΠΏΠΎΠ»ΡΡΠΈΡΡ ΠΎΠ±ΡΠ΅ΠΊΡ Π»ΠΈΡΡΠ° Set SheetFromCodeName2 = bk.Worksheets(sheetName) End Function
Π Π΅Π·ΡΠΌΠ΅ ΠΊΠΎΠ΄ΠΎΠ²ΠΎΠ³ΠΎ ΠΈΠΌΠ΅Π½ΠΈ
ΠΠΈΠΆΠ΅ ΠΏΡΠΈΠ²Π΅Π΄Π΅Π½ΠΎ ΠΊΡΠ°ΡΠΊΠΎΠ΅ ΠΎΠΏΠΈΡΠ°Π½ΠΈΠ΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΡ ΠΊΠΎΠ΄ΠΎΠ²ΠΎΠ³ΠΎ ΠΈΠΌΠ΅Π½ΠΈ:
- ΠΠΎΠ΄ΠΎΠ²ΠΎΠ΅ ΠΈΠΌΡ ΡΠ°Π±ΠΎΡΠ΅Π³ΠΎ Π»ΠΈΡΡΠ° ΠΌΠΎΠΆΠ΅Ρ Π±ΡΡΡ
ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΎ Π½Π΅ΠΏΠΎΡΡΠ΅Π΄ΡΡΠ²Π΅Π½Π½ΠΎ Π² ΠΊΠΎΠ΄Π΅, Π½Π°ΠΏΡΠΈΠΌΠ΅Ρ. Sheet1.Range - ΠΠΎΠ΄ΠΎΠ²ΠΎΠ΅ ΠΈΠΌΡ Π±ΡΠ΄Π΅Ρ ΠΏΠΎ-ΠΏΡΠ΅ΠΆΠ½Π΅ΠΌΡ ΡΠ°Π±ΠΎΡΠ°ΡΡ, Π΅ΡΠ»ΠΈ ΠΈΠΌΡ
ΡΠ°Π±ΠΎΡΠ΅Π³ΠΎ Π»ΠΈΡΡΠ° Π±ΡΠ΄Π΅Ρ ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΎ. - ΠΠΎΠ΄ΠΎΠ²ΠΎΠ΅ ΠΈΠΌΡ ΠΌΠΎΠΆΠ΅Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡΡΡ ΡΠΎΠ»ΡΠΊΠΎ Π΄Π»Ρ
Π»ΠΈΡΡΠΎΠ² Π² ΡΠΎΠΉ ΠΆΠ΅ ΠΊΠ½ΠΈΠ³Π΅, ΡΡΠΎ ΠΈ ΠΊΠΎΠ΄. - ΠΠ΅Π·Π΄Π΅, Π³Π΄Π΅ Π²Ρ Π²ΠΈΠ΄ΠΈΡΠ΅ ThisWorkbook.Worksheets
(Β«ΠΈΠΌΡ Π»ΠΈΡΡΠ°Β»), Π²Ρ ΠΌΠΎΠΆΠ΅ΡΠ΅ Π·Π°ΠΌΠ΅Π½ΠΈΡΡ Π΅Π³ΠΎ ΠΊΠΎΠ΄ΠΎΠ²ΡΠΌ ΠΈΠΌΠ΅Π½Π΅ΠΌ ΡΠ°Π±ΠΎΡΠ΅Π³ΠΎ Π»ΠΈΡΡΠ°. - ΠΡ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΡΡΠ½ΠΊΡΠΈΡ SheetFromCodeName
ΡΠ²Π΅ΡΡ Ρ, ΡΡΠΎΠ±Ρ ΠΏΠΎΠ»ΡΡΠΈΡΡ ΠΊΠΎΠ΄ΠΎΠ²ΠΎΠ΅ ΠΈΠΌΡ ΡΠ°Π±ΠΎΡΠΈΡ Π»ΠΈΡΡΠΎΠ² Π² Π΄ΡΡΠ³ΠΈΡ ΡΠ°Π±ΠΎΡΠΈΡ ΠΊΠ½ΠΈΠ³Π°Ρ .
Β ΠΠΊΡΠΈΠ²Π½ΡΠΉ Π»ΠΈΡΡ
ΠΠ±ΡΠ΅ΠΊΡ ActiveSheet ΡΡΡΠ»Π°Π΅ΡΡΡ Π½Π° ΡΠ°Π±ΠΎΡΠΈΠΉ Π»ΠΈΡΡ, ΠΊΠΎΡΠΎΡΡΠΉ Π² Π΄Π°Π½Π½ΡΠΉ ΠΌΠΎΠΌΠ΅Π½Ρ Π°ΠΊΡΠΈΠ²Π΅Π½. ΠΡ Π΄ΠΎΠ»ΠΆΠ½Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ActiveSheet ΡΠΎΠ»ΡΠΊΠΎ Π² ΡΠΎΠΌ ΡΠ»ΡΡΠ°Π΅, Π΅ΡΠ»ΠΈ Ρ Π²Π°Ρ Π΅ΡΡΡ ΠΎΡΠΎΠ±Π°Ρ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎΡΡΡ ΡΡΡΠ»Π°ΡΡΡΡ Π½Π° Π°ΠΊΡΠΈΠ²Π½ΡΠΉ Π»ΠΈΡΡ.
Π ΠΏΡΠΎΡΠΈΠ²Π½ΠΎΠΌ ΡΠ»ΡΡΠ°Π΅ Π²Ρ Π΄ΠΎΠ»ΠΆΠ½Ρ ΡΠΊΠ°Π·Π°ΡΡ ΡΠ°Π±ΠΎΡΠΈΠΉ Π»ΠΈΡΡ, ΠΊΠΎΡΠΎΡΡΠΉ
Π²Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΠ΅.
ΠΡΠ»ΠΈ Π²Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΠ΅ ΠΌΠ΅ΡΠΎΠ΄ Π»ΠΈΡΡΠ°, ΡΠ°ΠΊΠΎΠΉ ΠΊΠ°ΠΊ Range, ΠΈ Π½Π΅
ΡΠΏΠΎΠΌΠΈΠ½Π°Π΅ΡΠ΅ Π»ΠΈΡΡ, ΠΎΠ½ ΠΏΠΎ ΡΠΌΠΎΠ»ΡΠ°Π½ΠΈΡ Π±ΡΠ΄Π΅Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ Π°ΠΊΡΠΈΠ²Π½ΡΠΉ Π»ΠΈΡΡ.
' ΠΠ°ΠΏΠΈΡΠ°ΡΡ Π² ΡΡΠ΅ΠΉΠΊΡ A1 Π² Π°ΠΊΡΠΈΠ²Π½ΠΎΠΌ Π»ΠΈΡΡΠ΅ ActiveSheet.Range("A1") = 99 ' ΠΠΊΡΠΈΠ²Π½ΡΠΉ Π»ΠΈΡΡ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ ΠΏΠΎ ΡΠΌΠΎΠ»ΡΠ°Π½ΠΈΡ, Π΅ΡΠ»ΠΈ Π»ΠΈΡΡ Π½Π΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ Range("A1") = 99
ΠΠ±ΡΡΠ²Π»Π΅Π½ΠΈΠ΅ ΠΎΠ±ΡΠ΅ΠΊΡΠ° Π»ΠΈΡΡΠ°
ΠΠ±ΡΡΠ²Π»Π΅Π½ΠΈΠ΅ ΠΎΠ±ΡΠ΅ΠΊΡΠ° Π»ΠΈΡΡΠ° ΠΏΠΎΠ»Π΅Π·Π½ΠΎ Π΄Π»Ρ ΡΠΎΠ³ΠΎ, ΡΡΠΎΠ±Ρ ΡΠ΄Π΅Π»Π°ΡΡ Π²Π°Ρ
ΠΊΠΎΠ΄ Π±ΠΎΠ»Π΅Π΅ ΠΏΠΎΠ½ΡΡΠ½ΡΠΌ ΠΈ Π»Π΅Π³ΠΊΠΈΠΌ Π΄Π»Ρ ΡΡΠ΅Π½ΠΈΡ.
Π ΡΠ»Π΅Π΄ΡΡΡΠ΅ΠΌ ΠΏΡΠΈΠΌΠ΅ΡΠ΅ ΠΏΠΎΠΊΠ°Π·Π°Π½ ΠΊΠΎΠ΄ Π΄Π»Ρ ΠΎΠ±Π½ΠΎΠ²Π»Π΅Π½ΠΈΡ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ΠΎΠ²
ΡΡΠ΅Π΅ΠΊ. ΠΠ΅ΡΠ²ΡΠΉ Sub Π½Π΅ ΠΎΠ±ΡΡΠ²Π»ΡΠ΅Ρ ΠΎΠ±ΡΠ΅ΠΊΡ Π»ΠΈΡΡΠ°. ΠΡΠΎΡΠ°Ρ ΠΏΠΎΠ΄ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° ΠΎΠ±ΡΡΠ²Π»ΡΠ΅Ρ
ΠΎΠ±ΡΠ΅ΠΊΡ Π»ΠΈΡΡΠ°, ΠΈ ΠΏΠΎΡΡΠΎΠΌΡ ΠΊΠΎΠ΄ Π½Π°ΠΌΠ½ΠΎΠ³ΠΎ ΠΏΠΎΠ½ΡΡΠ½Π΅Π΅.
Sub NeObyavObektList() Debug.Print ThisWorkbook.Worksheets("ΠΠΈΡΡ1").Name ThisWorkbook.Worksheets("ΠΠΈΡΡ1").Range("A1") = 6 ThisWorkbook.Worksheets("ΠΠΈΡΡ1").Range("B2:B9").Font.Italic = True ThisWorkbook.Worksheets("ΠΠΈΡΡ1").Range("B2:B9").Interior.Color = rgbRed End Sub
Sub ObyavObektList() Dim sht As Worksheet Set sht = ThisWorkbook.Worksheets("ΠΠΈΡΡ1") sht.Range("A1") = 6 sht.Range("B2:B9").Font.Italic = True sht.Range("B2:B9").Interior.Color = rgbRed End Sub
ΠΡ ΡΠ°ΠΊΠΆΠ΅ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΠΊΠ»ΡΡΠ΅Π²ΠΎΠ΅ ΡΠ»ΠΎΠ²ΠΎ With Ρ ΠΎΠ±ΡΠ΅ΠΊΡΠΎΠΌ
Π»ΠΈΡΡΠ°, ΠΊΠ°ΠΊ ΠΏΠΎΠΊΠ°Π·Π°Π½ΠΎ Π² ΡΠ»Π΅Π΄ΡΡΡΠ΅ΠΌ ΠΏΡΠΈΠΌΠ΅ΡΠ΅.
Sub ObyavObektListWith() Dim sht As Worksheet Set sht = ThisWorkbook.Worksheets("ΠΠΈΡΡ1") With sht .Range("A1") = 6 .Range("B2:B9").Font.Italic = True .Range("B2:B9").Interior.Color = rgbRed End With End Sub
ΠΠΎΡΡΡΠΏ ΠΊ ΡΠ°Π±ΠΎΡΠ΅ΠΌΡ Π»ΠΈΡΡΡ Π² Π΄Π²ΡΡ ΡΠ»ΠΎΠ²Π°Ρ
ΠΠ·-Π·Π° ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²Π° ΡΠ°Π·Π»ΠΈΡΠ½ΡΡ ΡΠΏΠΎΡΠΎΠ±ΠΎΠ² Π΄ΠΎΡΡΡΠΏΠ° ΠΊ ΡΠ°Π±ΠΎΡΠ΅ΠΌΡ Π»ΠΈΡΡΡ Π²Ρ ΠΌΠΎΠΆΠ΅ΡΠ΅ Π±ΡΡΡ ΡΠ±ΠΈΡΡΠΌΠΈ Ρ ΡΠΎΠ»ΠΊΡ. Π’Π°ΠΊ ΡΡΠΎ Π² ΡΡΠΎΠΌ ΡΠ°Π·Π΄Π΅Π»Π΅ Ρ ΡΠΎΠ±ΠΈΡΠ°ΡΡΡ ΡΠ°Π·Π±ΠΈΡΡ Π΅Π³ΠΎ Π½Π° ΠΏΡΠΎΡΡΡΠ΅ ΡΠ΅ΡΠΌΠΈΠ½Ρ.
- ΠΡΠ»ΠΈ Π²Ρ Ρ ΠΎΡΠΈΡΠ΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΡΠΎΡ Π»ΠΈΡΡ, ΠΊΠΎΡΠΎΡΡΠΉ Π°ΠΊΡΠΈΠ²Π΅Π½ Π² Π΄Π°Π½Π½ΡΠΉ ΠΌΠΎΠΌΠ΅Π½Ρ, ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠΉΡΠ΅ ActiveSheet.
ActiveSheet.Range("A1") = 55
2. ΠΡΠ»ΠΈ Π»ΠΈΡΡ Π½Π°Ρ ΠΎΠ΄ΠΈΡΡΡ Π² ΡΠΎΠΉ ΠΆΠ΅ ΠΊΠ½ΠΈΠ³Π΅, ΡΡΠΎ ΠΈ ΠΊΠΎΠ΄, ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠΉΡΠ΅ ΠΊΠΎΠ΄ΠΎΠ²ΠΎΠ΅ ΠΈΠΌΡ.
Sheet1.Range("A1") = 55
3. ΠΡΠ»ΠΈ ΡΠ°Π±ΠΎΡΠ°Ρ ΡΠ°Π±Π»ΠΈΡΠ° Π½Π°Ρ ΠΎΠ΄ΠΈΡΡΡ Π² Π΄ΡΡΠ³ΠΎΠΉ ΡΠ°Π±ΠΎΡΠ΅ΠΉ ΠΊΠ½ΠΈΠ³Π΅, ΡΠ½Π°ΡΠ°Π»Π° ΠΏΠΎΠ»ΡΡΠΈΡΠ΅ ΡΠ°Π±ΠΎΡΡΡ ΠΊΠ½ΠΈΠ³Ρ, Π° Π·Π°ΡΠ΅ΠΌ ΠΏΠΎΠ»ΡΡΠΈΡΠ΅ ΡΠ°Π±ΠΎΡΡΡ ΡΠ°Π±Π»ΠΈΡΡ.
' ΠΠΎΠ»ΡΡΠΈΡΡ ΡΠ°Π±ΠΎΡΡΡ ΠΊΠ½ΠΈΠ³Ρ Dim wk As Workbook Set wk = Workbooks.Open("C:\ΠΠΎΠΊΡΠΌΠ΅Π½ΡΡ\Π‘ΡΠ΅ΡΠ°.xlsx", ReadOnly:=True) ' ΠΠ°ΡΠ΅ΠΌ ΠΏΠΎΠ»ΡΡΠΈΡΠ΅ Π»ΠΈΡΡ Dim sh As Worksheet Set sh = wk.Worksheets("ΠΠΈΡΡ1")
ΠΡΠ»ΠΈ Π²Ρ Ρ ΠΎΡΠΈΡΠ΅ Π·Π°ΡΠΈΡΠΈΡΡ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ ΠΎΡ ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΡ ΠΈΠΌΠ΅Π½ΠΈ Π»ΠΈΡΡΠ°, ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠΉΡΠ΅ ΡΡΠ½ΠΊΡΠΈΡ SheetFromCodeName ΠΈΠ· ΡΠ°Π·Π΄Π΅Π»Π° Β«ΠΠΌΡ ΠΊΠΎΠ΄Π°Β».
' ΠΠΎΠ»ΡΡΠΈΡΡ ΡΠ°Π±ΠΎΡΡΡ ΠΊΠ½ΠΈΠ³Ρ Dim wk As Workbook Set wk = Workbooks.Open("C:\ΠΠΎΠΊΡΠΌΠ΅Π½ΡΡ\Π‘ΡΠ΅ΡΠ°.xlsx", ReadOnly:=True) ' ΠΠ°ΡΠ΅ΠΌ ΠΏΠΎΠ»ΡΡΠΈΡΠ΅ Π»ΠΈΡΡ Dim sh As Worksheet Set sh = SheetFromCodeName("sheetcodename",wk)
ΠΠΎΠ±Π°Π²ΠΈΡΡ ΡΠ°Π±ΠΎΡΠΈΠΉ Π»ΠΈΡΡ
ΠΡΠΈΠΌΠ΅ΡΡ Π² ΡΡΠΎΠΌ ΡΠ°Π·Π΄Π΅Π»Π΅ ΠΏΠΎΠΊΠ°Π·ΡΠ²Π°ΡΡ, ΠΊΠ°ΠΊ Π΄ΠΎΠ±Π°Π²ΠΈΡΡ Π½ΠΎΠ²ΡΡ
ΡΠ°Π±ΠΎΡΡΡ ΡΠ°Π±Π»ΠΈΡΡ Π² ΡΠ°Π±ΠΎΡΡΡ ΠΊΠ½ΠΈΠ³Ρ. ΠΡΠ»ΠΈ Π²Ρ Π½Π΅ ΠΏΡΠ΅Π΄ΠΎΡΡΠ°Π²ΠΈΡΠ΅ Π½ΠΈΠΊΠ°ΠΊΠΈΡ
Π°ΡΠ³ΡΠΌΠ΅Π½ΡΠΎΠ² Π΄Π»Ρ
ΡΡΠ½ΠΊΡΠΈΠΈ Add, ΡΠΎ Π½ΠΎΠ²ΡΠΉ
ΡΠ°Π±ΠΎΡΠΈΠΉ Π»ΠΈΡΡ Π±ΡΠ΄Π΅Ρ ΠΏΠΎΠΌΠ΅ΡΠ΅Π½ ΠΏΠ΅ΡΠ΅Π΄ Π°ΠΊΡΠΈΠ²Π½ΡΠΌ ΡΠ°Π±ΠΎΡΠΈΠΌ Π»ΠΈΡΡΠΎΠΌ.
ΠΠΎΠ³Π΄Π° Π²Ρ Π΄ΠΎΠ±Π°Π²Π»ΡΠ΅ΡΠ΅ ΡΠ°Π±ΠΎΡΠΈΠΉ Π»ΠΈΡΡ, ΠΎΠ½ ΡΠΎΠ·Π΄Π°Π΅ΡΡΡ Ρ ΠΈΠΌΠ΅Π½Π΅ΠΌ ΠΏΠΎ ΡΠΌΠΎΠ»ΡΠ°Π½ΠΈΡ, Π½Π°ΠΏΡΠΈΠΌΠ΅Ρ Β«ΠΠΈΡΡ4Β». ΠΡΠ»ΠΈ Π²Ρ Ρ ΠΎΡΠΈΡΠ΅ ΠΈΠ·ΠΌΠ΅Π½ΠΈΡΡ ΠΈΠΌΡ, Π²Ρ ΠΌΠΎΠΆΠ΅ΡΠ΅ Π»Π΅Π³ΠΊΠΎ ΡΠ΄Π΅Π»Π°ΡΡ ΡΡΠΎ, ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΡ ΡΠ²ΠΎΠΉΡΡΠ²ΠΎ Name.
Π ΡΠ»Π΅Π΄ΡΡΡΠ΅ΠΌ ΠΏΡΠΈΠΌΠ΅ΡΠ΅ Π΄ΠΎΠ±Π°Π²Π»ΡΠ΅ΡΡΡ Π½ΠΎΠ²ΡΠΉ ΡΠ°Π±ΠΎΡΠΈΠΉ Π»ΠΈΡΡ ΠΈ ΠΈΠ·ΠΌΠ΅Π½ΡΠ΅ΡΡΡ ΠΈΠΌΡ Π½Π° Β«Π‘ΡΠ΅ΡΠ°Β». ΠΡΠ»ΠΈ Π»ΠΈΡΡ Ρ ΠΈΠΌΠ΅Π½Π΅ΠΌ Β«Π‘ΡΠ΅ΡΠ°Β» ΡΠΆΠ΅ ΡΡΡΠ΅ΡΡΠ²ΡΠ΅Ρ, Π²Ρ ΠΏΠΎΠ»ΡΡΠΈΡΠ΅ ΡΠΎΠΎΠ±ΡΠ΅Π½ΠΈΠ΅ ΠΎΠ± ΠΎΡΠΈΠ±ΠΊΠ΅.
Sub DobavitList() Dim sht As Worksheet ' ΠΠΎΠ±Π°Π²Π»ΡΠ΅Ρ Π½ΠΎΠ²ΡΠΉ Π»ΠΈΡΡ ΠΏΠ΅ΡΠ΅Π΄ Π°ΠΊΡΠΈΠ²Π½ΡΠΌ Π»ΠΈΡΡΠΎΠΌ Set sht = ThisWorkbook.Worksheets.Add ' Π£ΡΡΠ°Π½ΠΎΠ²ΠΈΡΠ΅ Π½Π°Π·Π²Π°Π½ΠΈΠ΅ Π»ΠΈΡΡΠ° sht.Name = "Π‘ΡΠ΅ΡΠ°" ' ΠΠΎΠ±Π°Π²Π»ΡΠ΅Ρ 3 Π½ΠΎΠ²ΡΡ Π»ΠΈΡΡΠ° ΠΏΠ΅ΡΠ΅Π΄ Π°ΠΊΡΠΈΠ²Π½ΡΠΌ Π»ΠΈΡΡΠΎΠΌ ThisWorkbook.Worksheets.Add Count:=3 End Sub
Π ΠΏΡΠ΅Π΄ΡΠ΄ΡΡΠ΅ΠΌ ΠΏΡΠΈΠΌΠ΅ΡΠ΅ Π²Ρ Π΄ΠΎΠ±Π°Π²Π»ΡΠ΅ΡΠ΅ Π»ΠΈΡΡΡ ΠΏΠΎ ΠΎΡΠ½ΠΎΡΠ΅Π½ΠΈΡ ΠΊ
Π°ΠΊΡΠΈΠ²Π½ΠΎΠΌΡ Π»ΠΈΡΡΡ. ΠΡ ΡΠ°ΠΊΠΆΠ΅ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΡΠΊΠ°Π·Π°ΡΡ ΡΠΎΡΠ½ΡΡ ΠΏΠΎΠ·ΠΈΡΠΈΡ Π΄Π»Ρ ΡΠ°Π·ΠΌΠ΅ΡΠ΅Π½ΠΈΡ Π»ΠΈΡΡΠ°.
ΠΠ»Ρ ΡΡΠΎΠ³ΠΎ Π²Π°ΠΌ Π½ΡΠΆΠ½ΠΎ ΡΠΊΠ°Π·Π°ΡΡ, ΠΊΠ°ΠΊΠΎΠΉ Π»ΠΈΡΡ Π½ΠΎΠ²ΡΠΉ Π»ΠΈΡΡ Π΄ΠΎΠ»ΠΆΠ΅Π½
Π±ΡΡΡ Π²ΡΡΠ°Π²Π»Π΅Π½ Π΄ΠΎ ΠΈΠ»ΠΈ ΠΏΠΎΡΠ»Π΅. Π‘Π»Π΅Π΄ΡΡΡΠΈΠΉ ΠΊΠΎΠ΄ ΠΏΠΎΠΊΠ°Π·ΡΠ²Π°Π΅Ρ Π²Π°ΠΌ, ΠΊΠ°ΠΊ ΡΡΠΎ ΡΠ΄Π΅Π»Π°ΡΡ.
Sub DobavitListPervPosl() Dim shtNew As Worksheet Dim shtFirst As Worksheet, shtLast As Worksheet With ThisWorkbook Set shtFirst = .Worksheets(1) Set shtLast = .Worksheets(.Worksheets.Count) ' ΠΠΎΠ±Π°Π²Π»ΡΠ΅Ρ Π½ΠΎΠ²ΡΠΉ Π»ΠΈΡΡ Π½Π° ΠΏΠ΅ΡΠ²ΡΡ ΠΏΠΎΠ·ΠΈΡΠΈΡ Π² ΠΊΠ½ΠΈΠ³Π΅ Set shtNew = Worksheets.Add(Before:=shtFirst) shtNew.Name = "FirstSheet" ' ΠΠΎΠ±Π°Π²Π»ΡΠ΅Ρ Π½ΠΎΠ²ΡΠΉ Π»ΠΈΡΡ ΠΊ ΠΏΠΎΡΠ»Π΅Π΄Π½Π΅ΠΉ ΠΏΠΎΠ·ΠΈΡΠΈΠΈ Π² ΠΊΠ½ΠΈΠ³Π΅ Set shtNew = Worksheets.Add(After:=shtLast) shtNew.Name = "LastSheet" End With End Sub
Π£Π΄Π°Π»ΠΈΡΡ ΡΠ°Π±ΠΎΡΠΈΠΉ Π»ΠΈΡΡ
Π§ΡΠΎΠ±Ρ ΡΠ΄Π°Π»ΠΈΡΡ Π»ΠΈΡΡ, ΠΏΡΠΎΡΡΠΎ Π²ΡΠ·ΠΎΠ²ΠΈΡΠ΅ Delete.
Dim sh As Worksheet Set sh = ThisWorkbook.Worksheets("ΠΠΈΡΡ12") sh.Delete
Excel ΠΎΡΠΎΠ±ΡΠ°Π·ΠΈΡ ΠΏΡΠ΅Π΄ΡΠΏΡΠ΅ΠΆΠ΄Π°ΡΡΠ΅Π΅ ΡΠΎΠΎΠ±ΡΠ΅Π½ΠΈΠ΅ ΠΏΡΠΈ ΡΠ΄Π°Π»Π΅Π½ΠΈΠΈ Π»ΠΈΡΡΠ°. ΠΡΠ»ΠΈ Π²Ρ Ρ ΠΎΡΠΈΡΠ΅ ΡΠΊΡΡΡΡ ΡΡΠΎ ΡΠΎΠΎΠ±ΡΠ΅Π½ΠΈΠ΅, Π²Ρ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΠΊΠΎΠ΄ Π½ΠΈΠΆΠ΅:
Application.DisplayAlerts = False sh.Delete Application.DisplayAlerts = True
ΠΡΡΡ Π΄Π²Π° Π°ΡΠΏΠ΅ΠΊΡΠ°, ΠΊΠΎΡΠΎΡΡΠ΅ Π½ΡΠΆΠ½ΠΎ ΡΡΠΈΡΡΠ²Π°ΡΡ ΠΏΡΠΈ ΡΠ΄Π°Π»Π΅Π½ΠΈΠΈ ΡΠ°Π±Π»ΠΈΡ.
ΠΡΠ»ΠΈ Π²Ρ ΠΏΠΎΠΏΡΡΠ°Π΅ΡΠ΅ΡΡ ΠΏΠΎΠ»ΡΡΠΈΡΡ Π΄ΠΎΡΡΡΠΏ ΠΊ ΡΠ°Π±ΠΎΡΠ΅ΠΌΡ Π»ΠΈΡΡΡ ΠΏΠΎΡΠ»Π΅
Π΅Π³ΠΎ ΡΠ΄Π°Π»Π΅Π½ΠΈΡ, Π²Ρ ΠΏΠΎΠ»ΡΡΠΈΡΠ΅ ΠΎΡΠΈΠ±ΠΊΡ Β«Subscript out of RangeΒ», ΠΊΠΎΡΠΎΡΡΡ ΠΌΡ Π²ΠΈΠ΄Π΅Π»ΠΈ Π²
ΡΠ°Π·Π΄Π΅Π»Π΅ Β«ΠΠΎΡΡΡΠΏ ΠΊ ΡΠ°Π±ΠΎΡΠ΅ΠΌΡ Π»ΠΈΡΡΡΒ».
Dim sh As Worksheet Set sh = ThisWorkbook.Worksheets("ΠΠΈΡΡ2") sh.Delete ' ΠΡΠ° ΡΡΡΠΎΠΊΠ° Π²ΡΠ΄Π°ΡΡ Β«Subscript out of RangeΒ», ΡΠ°ΠΊ ΠΊΠ°ΠΊ Β«ΠΠΈΡΡ2Β» Π½Π΅ ΡΡΡΠ΅ΡΡΠ²ΡΠ΅Ρ Set sh = ThisWorkbook.Worksheets("ΠΠΈΡΡ2")
ΠΡΠΎΡΠ°Ρ ΠΏΡΠΎΠ±Π»Π΅ΠΌΠ° β ΠΊΠΎΠ³Π΄Π° Π²Ρ Π½Π°Π·Π½Π°ΡΠ°Π΅ΡΠ΅ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ Π»ΠΈΡΡΠ°. ΠΡΠ»ΠΈ Π²Ρ ΠΏΠΎΠΏΡΡΠ°Π΅ΡΠ΅ΡΡ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΡΡΡ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ ΠΏΠΎΡΠ»Π΅ ΡΠ΄Π°Π»Π΅Π½ΠΈΡ Π»ΠΈΡΡΠ°, Π²Ρ ΠΏΠΎΠ»ΡΡΠΈΡΠ΅ ΠΎΡΠΈΠ±ΠΊΡ Π°Π²ΡΠΎΠΌΠ°ΡΠΈΠ·Π°ΡΠΈΠΈ, ΠΏΠΎΠ΄ΠΎΠ±Π½ΡΡ ΡΡΠΎΠΉ:
Run-Time error -21147221080 (800401a8β²) Automation Error
ΠΡΠ»ΠΈ Π²Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΠ΅ ΠΊΠΎΠ΄ΠΎΠ²ΠΎΠ΅ ΠΈΠΌΡ ΡΠ°Π±ΠΎΡΠ΅Π³ΠΎ Π»ΠΈΡΡΠ°, Π° Π½Π΅
ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ, ΡΡΠΎ ΠΏΡΠΈΠ²Π΅Π΄Π΅Ρ ΠΊ ΡΠ±ΠΎΡ Excel,
Π° Π½Π΅ ΠΊ ΠΎΡΠΈΠ±ΠΊΠ΅ Π°Π²ΡΠΎΠΌΠ°ΡΠΈΠ·Π°ΡΠΈΠΈ.
Π ΡΠ»Π΅Π΄ΡΡΡΠ΅ΠΌ ΠΏΡΠΈΠΌΠ΅ΡΠ΅ ΠΏΠΎΠΊΠ°Π·Π°Π½ΠΎ, ΠΊΠ°ΠΊ ΠΏΡΠΎΠΈΡΡ ΠΎΠ΄ΡΡ ΠΎΡΠΈΠ±ΠΊΠΈ Π°Π²ΡΠΎΠΌΠ°ΡΠΈΠ·Π°ΡΠΈΠΈ.
sh.Delete ' ΠΡΠ° ΡΡΡΠΎΠΊΠ° Π²ΡΠ΄Π°ΡΡ ΠΎΡΠΈΠ±ΠΊΡ Π°Π²ΡΠΎΠΌΠ°ΡΠΈΠ·Π°ΡΠΈΠΈ Debug.Assert sh.Name
ΠΡΠ»ΠΈ Π²Ρ Π½Π°Π·Π½Π°ΡΠΈΡΠ΅ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ Worksheet Π΄Π΅ΠΉΡΡΠ²ΠΈΡΠ΅Π»ΡΠ½ΠΎΠΌΡ ΡΠ°Π±ΠΎΡΠ΅ΠΌΡ Π»ΠΈΡΡΡ, ΠΎΠ½ Π±ΡΠ΄Π΅Ρ ΡΠ°Π±ΠΎΡΠ°ΡΡ Π½ΠΎΡΠΌΠ°Π»ΡΠ½ΠΎ.
sh.Delete ' ΠΠ°Π·Π½Π°ΡΠΈΡΡ sh Π½Π° Π΄ΡΡΠ³ΠΎΠΉ Π»ΠΈΡΡ Set sh = Worksheets("ΠΠΈΡΡ3") ' ΠΡΠ° ΡΡΡΠΎΠΊΠ° Π±ΡΠ΄Π΅Ρ ΡΠ°Π±ΠΎΡΠ°ΡΡ Π½ΠΎΡΠΌΠ°Π»ΡΠ½ΠΎ Debug.Assert sh.Name
Π¦ΠΈΠΊΠ» ΠΏΠΎ ΡΠ°Π±ΠΎΡΠΈΠΌ Π»ΠΈΡΡΠ°ΠΌ
ΠΠ»Π΅ΠΌΠ΅Π½Ρ Β«WorksheetsΒ» β ΡΡΠΎ Π½Π°Π±ΠΎΡ ΡΠ°Π±ΠΎΡΠΈΡ Π»ΠΈΡΡΠΎΠ², ΠΏΡΠΈΠ½Π°Π΄Π»Π΅ΠΆΠ°ΡΠΈΡ ΡΠ°Π±ΠΎΡΠ΅ΠΉ ΠΊΠ½ΠΈΠ³Π΅. ΠΡ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΠΏΡΠΎΡΠΌΠΎΡΡΠ΅ΡΡ ΠΊΠ°ΠΆΠ΄ΡΠΉ Π»ΠΈΡΡ Π² ΠΊΠΎΠ»Π»Π΅ΠΊΡΠΈΠΈ ΡΠ°Π±ΠΎΡΠΈΡ Π»ΠΈΡΡΠΎΠ², ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΡ ΡΠΈΠΊΠ»Ρ Β«For EachΒ» ΠΈΠ»ΠΈ Β«ForΒ».
Π ΡΠ»Π΅Π΄ΡΡΡΠ΅ΠΌ ΠΏΡΠΈΠΌΠ΅ΡΠ΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ ΡΠΈΠΊΠ» For Each.
Sub CiklForEach() ' ΠΠ°ΠΏΠΈΡΡΠ²Π°Π΅Ρ Β«ΠΡΠΈΠ²Π΅Ρ ΠΠΈΡΒ» Π² ΡΡΠ΅ΠΉΠΊΡ A1 Π΄Π»Ρ ΠΊΠ°ΠΆΠ΄ΠΎΠ³ΠΎ Π»ΠΈΡΡΠ° Dim sht As Worksheet For Each sht In ThisWorkbook.Worksheets sht.Range("A1") = "ΠΡΠΈΠ²Π΅Ρ ΠΠΈΡ" Next sht End Sub
Π ΡΠ»Π΅Π΄ΡΡΡΠ΅ΠΌ ΠΏΡΠΈΠΌΠ΅ΡΠ΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ ΡΡΠ°Π½Π΄Π°ΡΡΠ½ΡΠΉ ΡΠΈΠΊΠ» For.
Sub CiklFor() ' ΠΠ°ΠΏΠΈΡΡΠ²Π°Π΅Ρ Β«ΠΡΠΈΠ²Π΅Ρ ΠΠΈΡΒ» Π² ΡΡΠ΅ΠΉΠΊΡ A1 Π΄Π»Ρ ΠΊΠ°ΠΆΠ΄ΠΎΠ³ΠΎ Π»ΠΈΡΡΠ° Dim i As Long For i = 1 To ThisWorkbook.Worksheets.Count ThisWorkbook.Worksheets(i).Range("A1") = "ΠΡΠΈΠ²Π΅Ρ ΠΠΈΡ" Next sht End Sub
ΠΡ Π²ΠΈΠ΄Π΅Π»ΠΈ, ΠΊΠ°ΠΊ ΠΏΠΎΠ»ΡΡΠΈΡΡ Π΄ΠΎΡΡΡΠΏ ΠΊΠΎ Π²ΡΠ΅ΠΌ ΠΎΡΠΊΡΡΡΡΠΌ ΡΠ°Π±ΠΎΡΠΈΠΌ ΠΊΠ½ΠΈΠ³Π°ΠΌ ΠΈ ΠΊΠ°ΠΊ ΠΏΠΎΠ»ΡΡΠΈΡΡ Π΄ΠΎΡΡΡΠΏ ΠΊΠΎ Π²ΡΠ΅ΠΌ ΡΠ°Π±ΠΎΡΠΈΠΌ Π»ΠΈΡΡΠ°ΠΌ Π² ThisWorkbook. ΠΠ°Π²Π°ΠΉΡΠ΅ ΡΠ΄Π΅Π»Π°Π΅ΠΌ Π΅ΡΠ΅ ΠΎΠ΄ΠΈΠ½ ΡΠ°Π³ Π²ΠΏΠ΅ΡΠ΅Π΄ β ΡΠ·Π½Π°Π΅ΠΌ, ΠΊΠ°ΠΊ ΠΏΠΎΠ»ΡΡΠΈΡΡ Π΄ΠΎΡΡΡΠΏ ΠΊΠΎ Π²ΡΠ΅ΠΌ ΡΠ°Π±ΠΎΡΠΈΠΌ Π»ΠΈΡΡΠ°ΠΌ Π²ΠΎ Π²ΡΠ΅Ρ ΠΎΡΠΊΡΡΡΡΡ ΡΠ°Π±ΠΎΡΠΈΡ ΠΊΠ½ΠΈΠ³Π°Ρ .
ΠΡΠΈΠΌΠ΅ΡΠ°Π½ΠΈΠ΅. ΠΡΠ»ΠΈ Π²Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΠ΅ ΠΊΠΎΠ΄, ΠΏΠΎΠ΄ΠΎΠ±Π½ΡΠΉ ΡΡΠΎΠΌΡ, Π΄Π»Ρ Π·Π°ΠΏΠΈΡΠΈ Π½Π° Π»ΠΈΡΡΡ, ΡΠΎ ΡΠ½Π°ΡΠ°Π»Π° ΡΠ΄Π΅Π»Π°ΠΉΡΠ΅ ΡΠ΅Π·Π΅ΡΠ²Π½ΡΡ ΠΊΠΎΠΏΠΈΡ Π²ΡΠ΅Π³ΠΎ, ΡΠ°ΠΊ ΠΊΠ°ΠΊ Π² ΠΈΡΠΎΠ³Π΅ Π²Ρ ΠΌΠΎΠΆΠ΅ΡΠ΅ Π·Π°ΠΏΠΈΡΠ°ΡΡ Π½Π΅Π²Π΅ΡΠ½ΡΠ΅ Π΄Π°Π½Π½ΡΠ΅ Π½Π° Π²ΡΠ΅ Π»ΠΈΡΡΡ.
Sub NazvVsehStr() ' ΠΠ΅ΡΠ°ΡΠ°Π΅Ρ ΡΠ°Π±ΠΎΡΡΡ ΠΊΠ½ΠΈΠ³Ρ ΠΈ Π½Π°Π·Π²Π°Π½ΠΈΡ Π»ΠΈΡΡΠΎΠ² Π΄Π»Ρ ' Π²ΡΠ΅Ρ Π»ΠΈΡΡΠΎΠ² Π² ΠΎΡΠΊΡΡΡΡΡ ΡΠ°Π±ΠΎΡΠΈΡ ΠΊΠ½ΠΈΠ³Π°Ρ Dim wrk As Workbook Dim sht As Worksheet For Each wrk In Workbooks For Each sht In wrk.Worksheets Debug.Print wrk.Name + ":" + sht.Name Next sht Next wrk End Sub
ΠΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ ΠΊΠΎΠ»Π»Π΅ΠΊΡΠΈΠΈ Π»ΠΈΡΡΠΎΠ²
Π Π°Π±ΠΎΡΠ°Ρ ΠΊΠ½ΠΈΠ³Π° ΠΈΠΌΠ΅Π΅Ρ Π΅ΡΠ΅ ΠΎΠ΄Π½Ρ ΠΊΠΎΠ»Π»Π΅ΠΊΡΠΈΡ, ΠΏΠΎΡ ΠΎΠΆΡΡ Π½Π° Worksheets ΠΏΠΎΠ΄ Π½Π°Π·Π²Π°Π½ΠΈΠ΅ΠΌ Sheets. ΠΡΠΎ ΠΈΠ½ΠΎΠ³Π΄Π° ΠΏΡΡΠ°Π΅Ρ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Π΅ΠΉ. Π§ΡΠΎΠ±Ρ ΠΏΠΎΠ½ΡΡΡ, Π² ΠΏΠ΅ΡΠ²ΡΡ ΠΎΡΠ΅ΡΠ΅Π΄Ρ, Π²Π°ΠΌ Π½ΡΠΆΠ½ΠΎ Π·Π½Π°ΡΡ ΠΎ ΡΠΈΠΏΠ΅ Π»ΠΈΡΡΠ°, ΠΊΠΎΡΠΎΡΡΠΉ ΡΠ²Π»ΡΠ΅ΡΡΡ Π΄ΠΈΠ°Π³ΡΠ°ΠΌΠΌΠΎΠΉ.
Π Excel Π΅ΡΡΡ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎΡΡΡ ΡΠΎΠ·Π΄Π°ΡΡ Π»ΠΈΡΡ, ΠΊΠΎΡΠΎΡΡΠΉ ΡΠ²Π»ΡΠ΅ΡΡΡ Π΄ΠΈΠ°Π³ΡΠ°ΠΌΠΌΠΎΠΉ. ΠΠ»Ρ ΡΡΠΎΠ³ΠΎ Π½ΡΠΆΠ½ΠΎ:
- Π‘ΠΎΠ·Π΄Π°ΡΡ Π΄ΠΈΠ°Π³ΡΠ°ΠΌΠΌΡ Π½Π° Π»ΡΠ±ΠΎΠΌ Π»ΠΈΡΡΠ΅.
- Π©Π΅Π»ΠΊΠ½ΡΡΡ ΠΏΡΠ°Π²ΠΎΠΉ ΠΊΠ½ΠΎΠΏΠΊΠΎΠΉ ΠΌΡΡΠΈ Π½Π° Π³ΡΠ°ΡΠΈΠΊΠ΅ ΠΈ Π²ΡΠ±ΡΠ°ΡΡ Β«ΠΠ΅ΡΠ΅ΠΌΠ΅ΡΡΠΈΡΡΒ».
- ΠΡΠ±ΡΠ°ΡΡ ΠΏΠ΅ΡΠ²ΡΠΉ Π²Π°ΡΠΈΠ°Π½Ρ Β«ΠΠΎΠ²ΡΠΉ Π»ΠΈΡΡΒ» ΠΈ Π½Π°ΠΆΠΌΠΈΡΠ΅ Β«ΠΠΒ».
Π’Π΅ΠΏΠ΅ΡΡ Ρ Π²Π°Ρ Π΅ΡΡΡ ΡΠ°Π±ΠΎΡΠ°Ρ ΠΊΠ½ΠΈΠ³Π°, Π² ΠΊΠΎΡΠΎΡΠΎΠΉ Π΅ΡΡΡ ΡΠΈΠΏΠΎΠ²ΡΠ΅ Π»ΠΈΡΡΡ ΠΈ Π»ΠΈΡΡ-Π΄ΠΈΠ°Π³ΡΠ°ΠΌΠΌΠ°.
- ΠΠΎΠ»Π»Π΅ΠΊΡΠΈΡ Β«Worksheets Β» ΠΎΡΠ½ΠΎΡΠΈΡΡΡ ΠΊΠΎ Π²ΡΠ΅ΠΌ ΡΠ°Π±ΠΎΡΠΈΠΌ Π»ΠΈΡΡΠ°ΠΌ Π² ΡΠ°Π±ΠΎΡΠ΅ΠΉ ΠΊΠ½ΠΈΠ³Π΅. ΠΠ΅ Π²ΠΊΠ»ΡΡΠ°Π΅Ρ Π² ΡΠ΅Π±Ρ Π»ΠΈΡΡΡ ΡΠΈΠΏΠ° Π΄ΠΈΠ°Π³ΡΠ°ΠΌΠΌΡ.
- ΠΠΎΠ»Π»Π΅ΠΊΡΠΈΡ Sheets ΠΎΡΠ½ΠΎΡΠΈΡΡΡ ΠΊΠΎ Π²ΡΠ΅ΠΌ Π»ΠΈΡΡΠ°ΠΌ, ΠΏΡΠΈΠ½Π°Π΄Π»Π΅ΠΆΠ°ΡΠΈΠΌ ΠΊΠ½ΠΈΠ³Π΅, Π²ΠΊΠ»ΡΡΠ°Ρ Π»ΠΈΡΡΡ ΡΠΈΠΏΠΎΠ²ΠΎΠΉ Π΄ΠΈΠ°Π³ΡΠ°ΠΌΠΌΡ.
ΠΠΈΠΆΠ΅ ΠΏΡΠΈΠ²Π΅Π΄Π΅Π½Ρ Π΄Π²Π° ΠΏΡΠΈΠΌΠ΅ΡΠ° ΠΊΠΎΠ΄Π°. ΠΠ΅ΡΠ²ΡΠΉ ΠΏΡΠΎΡ
ΠΎΠ΄ΠΈΡ ΡΠ΅ΡΠ΅Π· Π²ΡΠ΅
Π»ΠΈΡΡΡ Π² ΡΠ°Π±ΠΎΡΠ΅ΠΉ ΠΊΠ½ΠΈΠ³Π΅ ΠΈ ΠΏΠ΅ΡΠ°ΡΠ°Π΅Ρ Π½Π°Π·Π²Π°Π½ΠΈΠ΅ Π»ΠΈΡΡΠ° ΠΈ ΡΠΈΠΏ Π»ΠΈΡΡΠ°. ΠΡΠΎΡΠΎΠΉ ΠΏΡΠΈΠΌΠ΅Ρ
Π΄Π΅Π»Π°Π΅Ρ ΡΠΎ ΠΆΠ΅ ΡΠ°ΠΌΠΎΠ΅ Ρ ΠΊΠΎΠ»Π»Π΅ΠΊΡΠΈΠ΅ΠΉ Worksheets.
Π§ΡΠΎΠ±Ρ ΠΎΠΏΡΠΎΠ±ΠΎΠ²Π°ΡΡ ΡΡΠΈ ΠΏΡΠΈΠΌΠ΅ΡΡ, Π²Ρ Π΄ΠΎΠ»ΠΆΠ½Ρ ΡΠ½Π°ΡΠ°Π»Π° Π΄ΠΎΠ±Π°Π²ΠΈΡΡ Π»ΠΈΡΡ-Π΄ΠΈΠ°Π³ΡΠ°ΠΌΠΌΡ Π² ΡΠ²ΠΎΡ ΠΊΠ½ΠΈΠ³Ρ, ΡΡΠΎΠ±Ρ ΡΠ²ΠΈΠ΄Π΅ΡΡ ΡΠ°Π·Π½ΠΈΡΡ.
Sub KollSheets() Dim sht As Variant ' ΠΠΎΠΊΠ°Π·Π°ΡΡ Π½Π°Π·Π²Π°Π½ΠΈΠ΅ ΠΈ ΡΠΈΠΏ ΠΊΠ°ΠΆΠ΄ΠΎΠ³ΠΎ Π»ΠΈΡΡΠ° For Each sht In ThisWorkbook.Sheets Debug.Print sht.Name & " is type " & TypeName(sht) Next sht End Sub Sub KollWorkSheets() Dim sht As Variant ' ΠΠΎΠΊΠ°Π·Π°ΡΡ Π½Π°Π·Π²Π°Π½ΠΈΠ΅ ΠΈ ΡΠΈΠΏ ΠΊΠ°ΠΆΠ΄ΠΎΠ³ΠΎ Π»ΠΈΡΡΠ° For Each sht In ThisWorkbook.Worksheets Debug.Print sht.Name & " is type " & TypeName(sht) Next sht End Sub
ΠΡΠ»ΠΈ Ρ Π²Π°Ρ Π½Π΅Ρ Π»ΠΈΡΡΠΎΠ² Π΄ΠΈΠ°Π³ΡΠ°ΠΌΠΌ, ΡΠΎ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ ΠΊΠΎΠ»Π»Π΅ΠΊΡΠΈΠΈ Sheets β ΡΠΎ ΠΆΠ΅ ΡΠ°ΠΌΠΎΠ΅, ΡΡΠΎ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ ΠΊΠΎΠ»Π»Π΅ΠΊΡΠΈΠΈ WorkSheets.
ΠΠ°ΠΊΠ»ΡΡΠ΅Π½ΠΈΠ΅
ΠΠ° ΡΡΠΎΠΌ ΠΌΡ Π·Π°Π²Π΅ΡΡΠ°Π΅ΠΌ ΡΡΠ°ΡΡΡ ΠΎ Worksheet VBA. Π― Π½Π°Π΄Π΅ΡΡΡ, ΡΡΠΎ Π±ΡΠ»ΠΎ ΠΏΠΎΠ»Π΅Π·Π½ΡΠΌ.
Π’ΡΠΈ Π½Π°ΠΈΠ±ΠΎΠ»Π΅Π΅ Π²Π°ΠΆΠ½ΡΡ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠ° Excel VBA β ΡΡΠΎ ΡΠ°Π±ΠΎΡΠΈΠ΅ ΠΊΠ½ΠΈΠ³ΠΈ, ΡΠ°Π±ΠΎΡΠΈΠ΅ ΡΠ°Π±Π»ΠΈΡΡ, Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½Ρ ΠΈ ΡΡΠ΅ΠΉΠΊΠΈ.
ΠΡΠΈ ΡΠ»Π΅ΠΌΠ΅Π½ΡΡ Π±ΡΠ΄ΡΡ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡΡΡ ΠΏΡΠ°ΠΊΡΠΈΡΠ΅ΡΠΊΠΈ Π²ΠΎ Π²ΡΠ΅ΠΌ, ΡΡΠΎ Π²Ρ Π΄Π΅Π»Π°Π΅ΡΠ΅. ΠΠΎΠ½ΠΈΠΌΠ°Π½ΠΈΠ΅ ΠΈΡ ΡΠ΄Π΅Π»Π°Π΅Ρ Π²Π°ΡΡ ΠΆΠΈΠ·Π½Ρ Π½Π°ΠΌΠ½ΠΎΠ³ΠΎ ΠΏΡΠΎΡΠ΅ ΠΈ ΡΠ΄Π΅Π»Π°Π΅Ρ ΠΈΠ·ΡΡΠ΅Π½ΠΈΠ΅ VBA ΡΠ²Π»Π΅ΠΊΠ°ΡΠ΅Π»ΡΠ½Π΅Π΅.
ΠΠ±ΡΠ΅ΠΊΡ
Π»ΠΈΡΡΠΎΠ² (Excel) | ΠΠΎΠΊΡΠΌΠ΅Π½ΡΡ Microsoft
- 2 ΠΌΠΈΠ½ΡΡΡ Π½Π° ΡΡΠ΅Π½ΠΈΠ΅
Π ΡΡΠΎΠΉ ΡΡΠ°ΡΡΠ΅
ΠΠΎΠ»Π»Π΅ΠΊΡΠΈΡ Π²ΡΠ΅Ρ Π»ΠΈΡΡΠΎΠ² Π² ΡΠΊΠ°Π·Π°Π½Π½ΠΎΠΉ ΠΈΠ»ΠΈ Π°ΠΊΡΠΈΠ²Π½ΠΎΠΉ ΠΊΠ½ΠΈΠ³Π΅.
ΠΠ°ΠΌΠ΅ΡΠ°Π½ΠΈΡ
ΠΠΎΠ»Π»Π΅ΠΊΡΠΈΡ Sheets ΠΌΠΎΠΆΠ΅Ρ ΡΠΎΠ΄Π΅ΡΠΆΠ°ΡΡ ΠΎΠ±ΡΠ΅ΠΊΡΡ Chart ΠΈΠ»ΠΈ Worksheet .
ΠΠΎΠ»Π»Π΅ΠΊΡΠΈΡ Π»ΠΈΡΡΠΎΠ² ΠΏΠΎΠ»Π΅Π·Π½Π°, ΠΊΠΎΠ³Π΄Π° Π²Ρ Ρ ΠΎΡΠΈΡΠ΅ Π²Π΅ΡΠ½ΡΡΡ Π»ΠΈΡΡΡ Π»ΡΠ±ΠΎΠ³ΠΎ ΡΠΈΠΏΠ°. ΠΡΠ»ΠΈ Π²Π°ΠΌ Π½ΡΠΆΠ½ΠΎ ΡΠ°Π±ΠΎΡΠ°ΡΡ Ρ Π»ΠΈΡΡΠ°ΠΌΠΈ ΡΠΎΠ»ΡΠΊΠΎ ΠΎΠ΄Π½ΠΎΠ³ΠΎ ΡΠΈΠΏΠ°, ΡΠΌ. Π’Π΅ΠΌΡ ΠΎΠ±ΡΠ΅ΠΊΡΠ° Π΄Π»Ρ ΡΡΠΎΠ³ΠΎ ΡΠΈΠΏΠ° Π»ΠΈΡΡΠΎΠ².
ΠΡΠΈΠΌΠ΅Ρ
ΠΡΠΏΠΎΠ»ΡΠ·ΡΠΉΡΠ΅ ΡΠ²ΠΎΠΉΡΡΠ²ΠΎ Sheets ΠΎΠ±ΡΠ΅ΠΊΡΠ° Workbook , ΡΡΠΎΠ±Ρ Π²Π΅ΡΠ½ΡΡΡ ΠΊΠΎΠ»Π»Π΅ΠΊΡΠΈΡ Sheets . Π ΡΠ»Π΅Π΄ΡΡΡΠ΅ΠΌ ΠΏΡΠΈΠΌΠ΅ΡΠ΅ ΠΏΠ΅ΡΠ°ΡΠ°ΡΡΡΡ Π²ΡΠ΅ Π»ΠΈΡΡΡ Π°ΠΊΡΠΈΠ²Π½ΠΎΠΉ ΠΊΠ½ΠΈΠ³ΠΈ.
Π»ΠΈΡΡΠΎΠ².
ΠΡΠΏΠΎΠ»ΡΠ·ΡΠΉΡΠ΅ ΠΌΠ΅ΡΠΎΠ΄ ΠΠΎΠ±Π°Π²ΠΈΡΡ , ΡΡΠΎΠ±Ρ ΡΠΎΠ·Π΄Π°ΡΡ Π½ΠΎΠ²ΡΠΉ Π»ΠΈΡΡ ΠΈ Π΄ΠΎΠ±Π°Π²ΠΈΡΡ Π΅Π³ΠΎ Π² ΠΊΠΎΠ»Π»Π΅ΠΊΡΠΈΡ.Π ΡΠ»Π΅Π΄ΡΡΡΠ΅ΠΌ ΠΏΡΠΈΠΌΠ΅ΡΠ΅ Π² Π°ΠΊΡΠΈΠ²Π½ΡΡ ΠΊΠ½ΠΈΠ³Ρ Π΄ΠΎΠ±Π°Π²Π»ΡΡΡΡΡ Π΄Π²Π° Π»ΠΈΡΡΠ° Π΄ΠΈΠ°Π³ΡΠ°ΠΌΠΌ, ΠΊΠΎΡΠΎΡΡΠ΅ ΠΏΠΎΠΌΠ΅ΡΠ°ΡΡΡΡ ΠΏΠΎΡΠ»Π΅ Π²ΡΠΎΡΠΎΠ³ΠΎ Π»ΠΈΡΡΠ° Π² ΠΊΠ½ΠΈΠ³Π΅.
ΠΠΈΡΡΡ.ΠΠΎΠ±Π°Π²ΠΈΡΡ ΡΠΈΠΏ: = xlChart, ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ: = 2, ΠΏΠΎΡΠ»Π΅: = ΠΠΈΡΡΡ (2)
ΠΡΠΏΠΎΠ»ΡΠ·ΡΠΉΡΠ΅ Sheets ( index ), Π³Π΄Π΅ index — ΡΡΠΎ ΠΈΠΌΡ Π»ΠΈΡΡΠ° ΠΈΠ»ΠΈ Π½ΠΎΠΌΠ΅Ρ ΠΈΠ½Π΄Π΅ΠΊΡΠ°, ΡΡΠΎΠ±Ρ Π²Π΅ΡΠ½ΡΡΡ ΠΎΠ΄ΠΈΠ½ ΠΎΠ±ΡΠ΅ΠΊΡ Chart ΠΈΠ»ΠΈ Worksheet . Π ΡΠ»Π΅Π΄ΡΡΡΠ΅ΠΌ ΠΏΡΠΈΠΌΠ΅ΡΠ΅ Π°ΠΊΡΠΈΠ²ΠΈΡΡΠ΅ΡΡΡ Π»ΠΈΡΡ Ρ ΠΈΠΌΠ΅Π½Π΅ΠΌ Sheet1.
Π»ΠΈΡΡΠΎΠ² ("ΠΠΈΡΡ1"). ΠΠΊΡΠΈΠ²ΠΈΡΠΎΠ²Π°ΡΡ
ΠΡΠΏΠΎΠ»ΡΠ·ΡΠΉΡΠ΅ Π»ΠΈΡΡΠΎΠ² ( ΠΌΠ°ΡΡΠΈΠ² ), ΡΡΠΎΠ±Ρ ΡΠΊΠ°Π·Π°ΡΡ Π±ΠΎΠ»Π΅Π΅ ΠΎΠ΄Π½ΠΎΠ³ΠΎ Π»ΠΈΡΡΠ°.Π ΡΠ»Π΅Π΄ΡΡΡΠ΅ΠΌ ΠΏΡΠΈΠΌΠ΅ΡΠ΅ Π»ΠΈΡΡΡ Ρ ΠΈΠΌΠ΅Π½Π°ΠΌΠΈ Sheet4 ΠΈ Sheet5 ΠΏΠ΅ΡΠ΅ΠΌΠ΅ΡΠ°ΡΡΡΡ Π² Π½Π°ΡΠ°Π»ΠΎ ΠΊΠ½ΠΈΠ³ΠΈ.
Π»ΠΈΡΡΠΎΠ² (ΠΌΠ°ΡΡΠΈΠ² ("Sheet4", "Sheet5")). ΠΠ΅ΡΠ΅ΠΌΠ΅ΡΡΠΈΡΡ Π΄ΠΎ: = Sheets (1)
ΠΠ΅ΡΠΎΠ΄Ρ
ΠΠ΅Π΄Π²ΠΈΠΆΠΈΠΌΠΎΡΡΡ
Π‘ΠΌ. Π’Π°ΠΊΠΆΠ΅
ΠΠΎΠ΄Π΄Π΅ΡΠΆΠΊΠ° ΠΈ ΠΎΡΠ·ΡΠ²Ρ
ΠΡΡΡ Π²ΠΎΠΏΡΠΎΡΡ ΠΈΠ»ΠΈ ΠΎΡΠ·ΡΠ²Ρ ΠΎΠ± Office VBA ΠΈΠ»ΠΈ ΡΡΠΎΠΉ Π΄ΠΎΠΊΡΠΌΠ΅Π½ΡΠ°ΡΠΈΠΈ? Π‘ΠΌ. Π Π°Π·Π΄Π΅Π» ΠΠΎΠ΄Π΄Π΅ΡΠΆΠΊΠ° ΠΈ ΠΎΡΠ·ΡΠ²Ρ Office VBA, ΡΡΠΎΠ±Ρ ΡΠ·Π½Π°ΡΡ, ΠΊΠ°ΠΊ ΠΏΠΎΠ»ΡΡΠΈΡΡ ΠΏΠΎΠ΄Π΄Π΅ΡΠΆΠΊΡ ΠΈ ΠΎΡΡΠ°Π²ΠΈΡΡ ΠΎΡΠ·ΡΠ².
.
ΠΠ±ΡΠ΅ΠΊΡ ΡΠ°Π±ΠΎΡΠ΅Π³ΠΎ Π»ΠΈΡΡΠ° (Excel) | ΠΠΎΠΊΡΠΌΠ΅Π½ΡΡ Microsoft
- 3 ΠΌΠΈΠ½ΡΡΡ Π½Π° ΡΡΠ΅Π½ΠΈΠ΅
Π ΡΡΠΎΠΉ ΡΡΠ°ΡΡΠ΅
ΠΡΠ΅Π΄ΡΡΠ°Π²Π»ΡΠ΅Ρ ΡΠ°Π±ΠΎΡΠΈΠΉ Π»ΠΈΡΡ.
ΠΠ°ΠΌΠ΅ΡΠ°Π½ΠΈΡ
ΠΠ±ΡΠ΅ΠΊΡ Worksheet ΡΠ²Π»ΡΠ΅ΡΡΡ ΡΠ»Π΅Π½ΠΎΠΌ ΠΊΠΎΠ»Π»Π΅ΠΊΡΠΈΠΈ Worksheet . ΠΠΎΠ»Π»Π΅ΠΊΡΠΈΡ Worksheets ΡΠΎΠ΄Π΅ΡΠΆΠΈΡ Π²ΡΠ΅ ΠΎΠ±ΡΠ΅ΠΊΡΡ Worksheet Π² ΠΊΠ½ΠΈΠ³Π΅.
ΠΠ±ΡΠ΅ΠΊΡ Worksheet ΡΠ°ΠΊΠΆΠ΅ ΡΠ²Π»ΡΠ΅ΡΡΡ ΡΠ»Π΅Π½ΠΎΠΌ ΠΊΠΎΠ»Π»Π΅ΠΊΡΠΈΠΈ Sheets . ΠΠΎΠ»Π»Π΅ΠΊΡΠΈΡ Sheets ΡΠΎΠ΄Π΅ΡΠΆΠΈΡ Π²ΡΠ΅ Π»ΠΈΡΡΡ Π² ΠΊΠ½ΠΈΠ³Π΅ (ΠΊΠ°ΠΊ Π»ΠΈΡΡΡ Π΄ΠΈΠ°Π³ΡΠ°ΠΌΠΌ, ΡΠ°ΠΊ ΠΈ ΡΠ°Π±ΠΎΡΠΈΠ΅ Π»ΠΈΡΡΡ).
ΠΡΠΈΠΌΠ΅Ρ
ΠΡΠΏΠΎΠ»ΡΠ·ΡΠΉΡΠ΅ Worksheets ( index ), Π³Π΄Π΅ index — ΡΡΠΎ Π½ΠΎΠΌΠ΅Ρ ΠΈΠ»ΠΈ ΠΈΠΌΡ ΠΈΠ½Π΄Π΅ΠΊΡΠ° ΡΠ°Π±ΠΎΡΠ΅Π³ΠΎ Π»ΠΈΡΡΠ°, ΡΡΠΎΠ±Ρ Π²Π΅ΡΠ½ΡΡΡ ΠΎΠ΄ΠΈΠ½ ΠΎΠ±ΡΠ΅ΠΊΡ Worksheet . Π ΡΠ»Π΅Π΄ΡΡΡΠ΅ΠΌ ΠΏΡΠΈΠΌΠ΅ΡΠ΅ ΠΏΠ΅ΡΠ²ΡΠΉ ΡΠ°Π±ΠΎΡΠΈΠΉ Π»ΠΈΡΡ ΡΠΊΡΡΠ²Π°Π΅ΡΡΡ Π² Π°ΠΊΡΠΈΠ²Π½ΠΎΠΉ ΠΊΠ½ΠΈΠ³Π΅.
Π Π°Π±ΠΎΡΠΈΠ΅ Π»ΠΈΡΡΡ (1).Visible = False
ΠΠΎΠΌΠ΅Ρ ΠΈΠ½Π΄Π΅ΠΊΡΠ° ΡΠ°Π±ΠΎΡΠ΅Π³ΠΎ Π»ΠΈΡΡΠ° ΠΎΠ±ΠΎΠ·Π½Π°ΡΠ°Π΅Ρ ΠΏΠΎΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅ ΡΠ°Π±ΠΎΡΠ΅Π³ΠΎ Π»ΠΈΡΡΠ° Π½Π° ΠΏΠ°Π½Π΅Π»ΠΈ Π²ΠΊΠ»Π°Π΄ΠΎΠΊ ΠΊΠ½ΠΈΠ³ΠΈ. Π Π°Π±ΠΎΡΠΈΠ΅ Π»ΠΈΡΡΡ (1)
— ΡΡΠΎ ΠΏΠ΅ΡΠ²ΡΠΉ (ΠΊΡΠ°ΠΉΠ½ΠΈΠΉ Π»Π΅Π²ΡΠΉ) ΡΠ°Π±ΠΎΡΠΈΠΉ Π»ΠΈΡΡ Π² ΠΊΠ½ΠΈΠ³Π΅, Π° Π Π°Π±ΠΎΡΠΈΡ
Π»ΠΈΡΡΠΎΠ² (Worksheets.Count)
— ΠΏΠΎΡΠ»Π΅Π΄Π½ΠΈΠΉ. ΠΡΠ΅ Π»ΠΈΡΡΡ Π²ΠΊΠ»ΡΡΠ°ΡΡΡΡ Π² ΡΡΠ΅ΡΡΠΈΠΊ ΠΈΠ½Π΄Π΅ΠΊΡΠ°, Π΄Π°ΠΆΠ΅ Π΅ΡΠ»ΠΈ ΠΎΠ½ΠΈ ΡΠΊΡΡΡΡ.
ΠΠΌΡ ΡΠ°Π±ΠΎΡΠ΅Π³ΠΎ Π»ΠΈΡΡΠ° ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ°Π΅ΡΡΡ Π½Π° Π²ΠΊΠ»Π°Π΄ΠΊΠ΅ ΡΠ°Π±ΠΎΡΠ΅Π³ΠΎ Π»ΠΈΡΡΠ°. ΠΡΠΏΠΎΠ»ΡΠ·ΡΠΉΡΠ΅ ΡΠ²ΠΎΠΉΡΡΠ²ΠΎ Name , ΡΡΠΎΠ±Ρ Π·Π°Π΄Π°ΡΡ ΠΈΠ»ΠΈ Π²Π΅ΡΠ½ΡΡΡ ΠΈΠΌΡ ΡΠ°Π±ΠΎΡΠ΅Π³ΠΎ Π»ΠΈΡΡΠ°. Π ΡΠ»Π΅Π΄ΡΡΡΠ΅ΠΌ ΠΏΡΠΈΠΌΠ΅ΡΠ΅ Π·Π°ΡΠΈΡΠ°ΡΡΡΡ ΡΡΠ΅Π½Π°ΡΠΈΠΈ Π½Π° Sheet1.
Dim strPassword ΠΊΠ°ΠΊ ΡΡΡΠΎΠΊΠ°
strPassword = InputBox (Β«ΠΠ²Π΅Π΄ΠΈΡΠ΅ ΠΏΠ°ΡΠΎΠ»Ρ Π΄Π»Ρ ΡΠ°Π±ΠΎΡΠ΅Π³ΠΎ Π»ΠΈΡΡΠ°Β»)
Π Π°Π±ΠΎΡΠΈΠ΅ Π»ΠΈΡΡΡ ("Sheet1"). ΠΠ°ΡΠΈΡΠΈΡΡ ΠΏΠ°ΡΠΎΠ»Ρ: = strPassword, ΡΡΠ΅Π½Π°ΡΠΈΠΈ: = True
ΠΠΎΠ³Π΄Π° ΡΠ°Π±ΠΎΡΠΈΠΉ Π»ΠΈΡΡ ΡΠ²Π»ΡΠ΅ΡΡΡ Π°ΠΊΡΠΈΠ²Π½ΡΠΌ, Π²Ρ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΡΠ²ΠΎΠΉΡΡΠ²ΠΎ ActiveSheet Π΄Π»Ρ ΡΡΡΠ»ΠΊΠΈ Π½Π° Π½Π΅Π³ΠΎ. Π ΡΠ»Π΅Π΄ΡΡΡΠ΅ΠΌ ΠΏΡΠΈΠΌΠ΅ΡΠ΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ ΠΌΠ΅ΡΠΎΠ΄ Activate Π΄Π»Ρ Π°ΠΊΡΠΈΠ²Π°ΡΠΈΠΈ Sheet1, ΡΡΡΠ°Π½ΠΎΠ²ΠΊΠ° ΠΎΡΠΈΠ΅Π½ΡΠ°ΡΠΈΠΈ ΡΡΡΠ°Π½ΠΈΡΡ Π² Π°Π»ΡΠ±ΠΎΠΌΠ½ΡΠΉ ΡΠ΅ΠΆΠΈΠΌ, Π° Π·Π°ΡΠ΅ΠΌ ΡΠ°ΡΠΏΠ΅ΡΠ°ΡΠΊΠ° ΡΠ°Π±ΠΎΡΠ΅Π³ΠΎ Π»ΠΈΡΡΠ°.
Π Π°Π±ΠΎΡΠΈΠ΅ Π»ΠΈΡΡΡ ("Sheet1").ΠΠΊΡΠΈΠ²ΠΈΡΠΎΠ²Π°ΡΡ
ActiveSheet.PageSetup.Orientation = xlLandscape
ActiveSheet.PrintOut
Π ΡΡΠΎΠΌ ΠΏΡΠΈΠΌΠ΅ΡΠ΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ ΡΠΎΠ±ΡΡΠΈΠ΅ BeforeDoubleClick Π΄Π»Ρ ΠΎΡΠΊΡΡΡΠΈΡ ΡΠΊΠ°Π·Π°Π½Π½ΠΎΠ³ΠΎ Π½Π°Π±ΠΎΡΠ° ΡΠ°ΠΉΠ»ΠΎΠ² Π² ΠΠ»ΠΎΠΊΠ½ΠΎΡΠ΅. Π§ΡΠΎΠ±Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΡΡΠΎΡ ΠΏΡΠΈΠΌΠ΅Ρ, Π²Π°Ρ ΡΠ°Π±ΠΎΡΠΈΠΉ Π»ΠΈΡΡ Π΄ΠΎΠ»ΠΆΠ΅Π½ ΡΠΎΠ΄Π΅ΡΠΆΠ°ΡΡ ΡΠ»Π΅Π΄ΡΡΡΠΈΠ΅ Π΄Π°Π½Π½ΡΠ΅:
- Π―ΡΠ΅ΠΉΠΊΠ° A1 Π΄ΠΎΠ»ΠΆΠ½Π° ΡΠΎΠ΄Π΅ΡΠΆΠ°ΡΡ ΠΈΠΌΠ΅Π½Π° ΠΎΡΠΊΡΡΠ²Π°Π΅ΠΌΡΡ ΡΠ°ΠΉΠ»ΠΎΠ², ΡΠ°Π·Π΄Π΅Π»Π΅Π½Π½ΡΠ΅ Π·Π°ΠΏΡΡΠΎΠΉ ΠΈ ΠΏΡΠΎΠ±Π΅Π»ΠΎΠΌ.
- Π―ΡΠ΅ΠΉΠΊΠ° D1 Π΄ΠΎΠ»ΠΆΠ½Π° ΡΠΎΠ΄Π΅ΡΠΆΠ°ΡΡ ΠΏΡΡΡ ΠΊ ΡΠ°ΡΠΏΠΎΠ»ΠΎΠΆΠ΅Π½ΠΈΡ ΡΠ°ΠΉΠ»ΠΎΠ² ΠΠ»ΠΎΠΊΠ½ΠΎΡΠ°.
- Π―ΡΠ΅ΠΉΠΊΠ° D2 Π΄ΠΎΠ»ΠΆΠ½Π° ΡΠΎΠ΄Π΅ΡΠΆΠ°ΡΡ ΠΏΡΡΡ ΠΊ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ΅ Β«ΠΠ»ΠΎΠΊΠ½ΠΎΡΒ».
- Π―ΡΠ΅ΠΉΠΊΠ° D3 Π΄ΠΎΠ»ΠΆΠ½Π° ΡΠΎΠ΄Π΅ΡΠΆΠ°ΡΡ ΡΠ°ΡΡΠΈΡΠ΅Π½ΠΈΠ΅ ΡΠ°ΠΉΠ»Π° Π±Π΅Π· ΡΠΎΡΠΊΠΈ Π΄Π»Ρ ΡΠ°ΠΉΠ»ΠΎΠ² ΠΠ»ΠΎΠΊΠ½ΠΎΡΠ° (txt).
ΠΡΠ»ΠΈ Π΄Π²Π°ΠΆΠ΄Ρ ΡΠ΅Π»ΠΊΠ½ΡΡΡ ΡΡΠ΅ΠΉΠΊΡ A1, ΡΠ°ΠΉΠ»Ρ, ΡΠΊΠ°Π·Π°Π½Π½ΡΠ΅ Π² ΡΡΠ΅ΠΉΠΊΠ΅ A1, ΠΎΡΠΊΡΡΠ²Π°ΡΡΡΡ Π² ΠΠ»ΠΎΠΊΠ½ΠΎΡΠ΅.
Private Sub Worksheet_BeforeDoubleClick (ByVal Target As Range, ΠΡΠΌΠ΅Π½ΠΈΡΡ ΠΊΠ°ΠΊ Π»ΠΎΠ³ΠΈΡΠ΅ΡΠΊΠΎΠ΅)
'ΠΠΏΡΠ΅Π΄Π΅Π»ΠΈΡΠ΅ ΡΠ²ΠΎΠΈ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΠ΅.
Π Π°Π·Π²Π΅ΡΠ½ΡΡΡ sFile ΠΊΠ°ΠΊ ΡΡΡΠΎΠΊΡ, sPath ΠΊΠ°ΠΊ ΡΡΡΠΎΠΊΡ, sTxt ΠΊΠ°ΠΊ ΡΡΡΠΎΠΊΡ, sExe ΠΊΠ°ΠΊ ΡΡΡΠΎΠΊΡ, sSfx ΠΊΠ°ΠΊ ΡΡΡΠΎΠΊΡ
'ΠΡΠ»ΠΈ Π²Ρ Π΄Π²Π°ΠΆΠ΄Ρ Π½Π΅ ΡΠ΅Π»ΠΊΠ½ΡΠ»ΠΈ ΠΏΠΎ A1, Π²ΡΠΉΠ΄ΠΈΡΠ΅ ΠΈΠ· ΡΡΠ½ΠΊΡΠΈΠΈ.
ΠΡΠ»ΠΈ Target.ΠΠ΄ΡΠ΅Ρ <> "$ A $ 1", Π·Π°ΡΠ΅ΠΌ Π²ΡΠΉΠ΄ΠΈΡΠ΅ ΠΈΠ· ΠΏΠΎΠ΄ΠΏΠΈΡΠΊΠΈ
'ΠΡΠ»ΠΈ Π²Ρ Π΄Π²Π°ΠΆΠ΄Ρ ΡΠ΅Π»ΠΊΠ½ΡΠ»ΠΈ ΠΏΠΎ A1, ΠΏΠ΅ΡΠ΅ΠΎΠΏΡΠ΅Π΄Π΅Π»ΠΈΡΠ΅ ΠΏΠΎΠ²Π΅Π΄Π΅Π½ΠΈΠ΅ Π΄Π²ΠΎΠΉΠ½ΠΎΠ³ΠΎ ΡΠ΅Π»ΡΠΊΠ° ΠΏΠΎ ΡΠΌΠΎΠ»ΡΠ°Π½ΠΈΡ Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΡΡΠΎΠΉ ΡΡΠ½ΠΊΡΠΈΠΈ.
ΠΡΠΌΠ΅Π½Π° = True
'ΠΠ°Π΄Π°ΠΉΡΠ΅ ΠΏΡΡΡ ΠΊ ΡΠ°ΠΉΠ»Π°ΠΌ, ΠΏΡΡΡ ΠΊ ΠΠ»ΠΎΠΊΠ½ΠΎΡΠ΅, ΡΠ°ΡΡΠΈΡΠ΅Π½ΠΈΠ΅ ΡΠ°ΠΉΠ»ΠΎΠ² ΠΈ ΠΈΠΌΠ΅Π½Π° ΡΠ°ΠΉΠ»ΠΎΠ²,
'Π½Π° ΠΎΡΠ½ΠΎΠ²Π΅ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΈ Π½Π° Π»ΠΈΡΡΠ΅.
sPath = Range ("D1"). ΠΠ½Π°ΡΠ΅Π½ΠΈΠ΅
sExe = ΠΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ ("D2"). ΠΠ½Π°ΡΠ΅Π½ΠΈΠ΅
sSfx = ΠΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ ("D3"). ΠΠ½Π°ΡΠ΅Π½ΠΈΠ΅
sFile = ΠΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ ("A1"). ΠΠ½Π°ΡΠ΅Π½ΠΈΠ΅
'Π£Π΄Π°Π»ΠΈΡΠ΅ ΠΏΡΠΎΠ±Π΅Π»Ρ ΠΌΠ΅ΠΆΠ΄Ρ ΠΈΠΌΠ΅Π½Π°ΠΌΠΈ ΡΠ°ΠΉΠ»ΠΎΠ².
sFile = WorksheetFunction.ΠΠ°ΠΌΠ΅Π½ΠΈΡΡ (sFile, "", "")
'ΠΡΠΎΡΠΌΠΎΡΡΠΈΡΠ΅ ΠΊΠ°ΠΆΠ΄ΡΠΉ ΡΠ°ΠΉΠ» Π² ΡΠΏΠΈΡΠΊΠ΅ (ΡΠ°Π·Π΄Π΅Π»Π΅Π½Π½ΡΠΉ Π·Π°ΠΏΡΡΡΠΌΠΈ) ΠΈ
'ΡΠΎΠ·Π΄Π°ΡΡ ΠΏΡΡΡ, Π²ΡΠ·Π²Π°ΡΡ ΠΈΡΠΏΠΎΠ»Π½ΡΠ΅ΠΌΡΠΉ ΡΠ°ΠΉΠ» ΠΈ ΠΏΠ΅ΡΠ΅ΠΉΡΠΈ ΠΊ ΡΠ»Π΅Π΄ΡΡΡΠ΅ΠΉ Π·Π°ΠΏΡΡΠΎΠΉ.
Π‘Π΄Π΅Π»Π°ΡΡ ΠΏΠΎΠΊΠ° InStr (sFile, ",")
sTxt = sPath & "\" & Left (sFile, InStr (sFile, ",") - 1) & "." & sSfx
ΠΡΠ»ΠΈ Dir (sTxt) <> "" Π’ΠΎΠ³Π΄Π° Shell sExe & "" & sTxt, vbNormalFocus
sFile = Right (sFile, Len (sFile) - InStr (sFile, ","))
ΠΠ΅ΡΠ»Ρ
'ΠΠ°Π²Π΅ΡΡΠΈΡΠ΅ ΠΏΠΎΡΠ»Π΅Π΄Π½Π΅Π΅ ΠΈΠΌΡ ΡΠ°ΠΉΠ»Π° Π² ΡΠΏΠΈΡΠΊΠ΅
sTxt = sPath & "\" & sFile & "."& sSfx
ΠΡΠ»ΠΈ Dir (sTxt) <> "" Π’ΠΎΠ³Π΄Π° Shell sExe & "" & sTxt, vbNormalNoFocus
ΠΠΎΠ½Π΅Ρ ΠΏΠΎΠ΄ΠΏΠΈΡΠΊΠΈ
Π‘ΠΎΠ±ΡΡΠΈΡ
ΠΠ΅ΡΠΎΠ΄Ρ
ΠΠ΅Π΄Π²ΠΈΠΆΠΈΠΌΠΎΡΡΡ
Π‘ΠΌ. Π’Π°ΠΊΠΆΠ΅
ΠΠΎΠ΄Π΄Π΅ΡΠΆΠΊΠ° ΠΈ ΠΎΡΠ·ΡΠ²Ρ
ΠΡΡΡ Π²ΠΎΠΏΡΠΎΡΡ ΠΈΠ»ΠΈ ΠΎΡΠ·ΡΠ²Ρ ΠΎΠ± Office VBA ΠΈΠ»ΠΈ ΡΡΠΎΠΉ Π΄ΠΎΠΊΡΠΌΠ΅Π½ΡΠ°ΡΠΈΠΈ? Π‘ΠΌ. Π Π°Π·Π΄Π΅Π» ΠΠΎΠ΄Π΄Π΅ΡΠΆΠΊΠ° ΠΈ ΠΎΡΠ·ΡΠ²Ρ Office VBA, ΡΡΠΎΠ±Ρ ΡΠ·Π½Π°ΡΡ, ΠΊΠ°ΠΊ ΠΏΠΎΠ»ΡΡΠΈΡΡ ΠΏΠΎΠ΄Π΄Π΅ΡΠΆΠΊΡ ΠΈ ΠΎΡΡΠ°Π²ΠΈΡΡ ΠΎΡΠ·ΡΠ².
.
ΠΠΈΡΡΡ ΠΏΠ΅ΡΠ΅ΠΊΠ»ΡΡΠ΅Π½ΠΈΡ Π² Excel VBA
ΠΠ΅ΡΠ΅ΠΏΠΎΠ»Π½Π΅Π½ΠΈΠ΅ ΡΡΠ΅ΠΊΠ°
- ΠΠΊΠΎΠ»ΠΎ
ΠΡΠΎΠ΄ΡΠΊΡΡ
- ΠΠ»Ρ ΠΊΠΎΠΌΠ°Π½Π΄
ΠΠ΅ΡΠ΅ΠΏΠΎΠ»Π½Π΅Π½ΠΈΠ΅ ΡΡΠ΅ΠΊΠ°
ΠΠ±ΡΠ΅ΡΡΠ²Π΅Π½Π½ΡΠ΅ Π²ΠΎΠΏΡΠΎΡΡ ΠΈ ΠΎΡΠ²Π΅ΡΡΠΠ΅ΡΠ΅ΠΏΠΎΠ»Π½Π΅Π½ΠΈΠ΅ ΡΡΠ΅ΠΊΠ° Π΄Π»Ρ ΠΊΠΎΠΌΠ°Π½Π΄
ΠΠ΄Π΅ ΡΠ°Π·ΡΠ°Π±ΠΎΡΡΠΈΠΊΠΈ ΠΈ ΡΠ΅Ρ Π½ΠΎΠ»ΠΎΠ³ΠΈ Π΄Π΅Π»ΡΡΡΡ ΡΠ°ΡΡΠ½ΡΠΌΠΈ Π·Π½Π°Π½ΠΈΡΠΌΠΈ Ρ ΠΊΠΎΠ»Π»Π΅Π³Π°ΠΌΠΈΠΠ°ΠΊΠ°Π½ΡΠΈΠΈ
ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ ΠΈ ΡΠ²ΡΠ·Π°Π½Π½ΡΠ΅ Ρ Π½ΠΈΠΌ ΡΠ΅Ρ Π½ΠΈΡΠ΅ΡΠΊΠΈΠ΅ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎΡΡΠΈ ΠΊΠ°ΡΡΠ΅ΡΠ½ΠΎΠ³ΠΎ ΡΠΎΡΡΠ°Π’Π°Π»Π°Π½Ρ
ΠΠ°Π½ΠΈΠΌΠ°ΠΉΡΠ΅ ΡΠ΅Ρ Π½ΠΈΡΠ΅ΡΠΊΠΈΡ ΡΠΏΠ΅ΡΠΈΠ°Π»ΠΈΡΡΠΎΠ² ΠΈ ΡΠΎΠ·Π΄Π°Π²Π°ΠΉΡΠ΅ ΡΠ²ΠΎΠΉ Π±ΡΠ΅Π½Π΄ ΡΠ°Π±ΠΎΡΠΎΠ΄Π°ΡΠ΅Π»ΡΠ Π΅ΠΊΠ»Π°ΠΌΠ°
ΠΠ±ΡΠ°ΡΠΈΡΠ΅ΡΡ ΠΊ ΡΠ°Π·ΡΠ°Π±ΠΎΡΡΠΈΠΊΠ°ΠΌ ΠΈ ΡΠ΅Ρ Π½ΠΎΠ»ΠΎΠ³Π°ΠΌ ΡΠΎ Π²ΡΠ΅Π³ΠΎ ΠΌΠΈΡΠ°- Π ΠΊΠΎΠΌΠΏΠ°Π½ΠΈΠΈ
ΠΠ°Π³ΡΡΠ·ΠΊΠ°β¦
.Π£ΡΠ΅Π±Π½ΠΎΠ΅ ΠΏΠΎΡΠΎΠ±ΠΈΠ΅ ΠΏΠΎ
Excel Worksheets: VBA Activesheet ΠΈ Worksheets
Π‘Π΅Π³ΠΎΠ΄Π½Ρ ΠΌΡ ΡΠ·Π½Π°Π΅ΠΌ ΠΎ ΡΠ°Π±Π»ΠΈΡΠ°Ρ VBA. ΠΡ ΡΠ°ΡΡΠΌΠΎΡΡΠΈΠΌ Π²ΡΠ΅ Π½Π΅ΠΏΡΠΈΡΡΠ½ΠΎΡΡΠΈ, Π½Π°ΠΏΡΠΈΠΌΠ΅Ρ, VBA Activesheet ΠΈ Π΅Π³ΠΎ ΡΡΠ°Π²Π½Π΅Π½ΠΈΠ΅ Ρ ΠΎΠ±ΡΡΠ½ΡΠΌΠΈ ΡΠ°Π±ΠΎΡΠΈΠΌΠΈ Π»ΠΈΡΡΠ°ΠΌΠΈ , ΠΊΠ°ΠΊ Select Worksheets , ΠΊΠ°ΠΊ Activate Worksheets , Selecting vs Activating Worksheets β¦ ΠΈ Π²ΡΠ΅ ΠΎΡΡΠ°Π»ΡΠ½ΠΎΠ΅, ΡΡΠΎ Π²Π°ΠΌ Π½ΡΠΆΠ½ΠΎ Π·Π½Π°ΡΡ ΠΎ ΡΠ°Π±ΠΎΡΠ΅ΠΌ Π»ΠΈΡΡΠ΅ VBA Π² ΡΠ΅Π»ΠΎΠΌ.
ThisWorkbook ΠΏΡΠΎΡΠΈΠ² ActiveWorkbook
ΠΠ΅ΠΊΠΎΡΠΎΡΡΠ΅ ΡΠ°Π±ΠΎΡΠΈΠ΅ Π»ΠΈΡΡΡ Excel ΠΠ°ΡΠ½Π΅ΠΌ Ρ ΠΎΡΠ½ΠΎΠ².ΠΡΠ΅ΠΆΠ΄Π΅ ΡΠ΅ΠΌ ΠΌΡ Π½Π°ΡΠ½Π΅ΠΌ, Ρ Ρ ΠΎΡΡ ΠΏΠΎΠ΄ΡΠ΅ΡΠΊΠ½ΡΡΡ ΠΈ Π½Π°ΠΏΠΎΠΌΠ½ΠΈΡΡ ΡΠ°Π·Π½ΠΈΡΡ ΠΌΠ΅ΠΆΠ΄Ρ ActiveWorkbooks ΠΈ ThisWorksbooks. ΠΠΊΡΠ°ΡΡΠ΅:
- ThisWorkbook — ΠΎΡΠ½ΠΎΡΠΈΡΡΡ ΠΊ ΠΊΠ½ΠΈΠ³Π΅, Π² ΠΊΠΎΡΠΎΡΠΎΠΉ Π·Π°ΠΏΡΡΠ΅Π½ ΠΌΠ°ΠΊΡΠΎΡ VBA
- ActiveWorkbook — ΠΎΡΠ½ΠΎΡΠΈΡΡΡ ΠΊ ΡΠ°Π±ΠΎΡΠ΅ΠΉ ΠΊΠ½ΠΈΠ³Π΅, ΠΊΠΎΡΠΎΡΠ°Ρ Π½Π°Ρ ΠΎΠ΄ΠΈΡΡΡ Π² ΡΠ°ΠΌΠΎΠΌ Π²Π΅ΡΡ Π½Π΅ΠΌ ΠΎΠΊΠ½Π΅ Excel
ΠΡΠ΅Π½Ρ Π²Π°ΠΆΠ½ΠΎ ΠΏΠΎΠ½ΠΈΠΌΠ°ΡΡ ΡΡΡ ΡΠ°Π·Π½ΠΈΡΡ, ΠΈ Ρ ΡΠ΅ΠΊΠΎΠΌΠ΅Π½Π΄ΡΡ Π²Π°ΠΌ ΡΠ½Π°ΡΠ°Π»Π° ΠΏΡΠΎΡΠΈΡΠ°ΡΡ ΠΌΠΎΠΉ ΠΏΠΎΡΡ ΠΏΠΎ ΡΡΠΎΠΉ ΡΠ΅ΠΌΠ΅.
ΠΠ΅ΡΠ°ΡΡ ΠΈΡ ΠΎΠ±ΡΠ΅ΠΊΡΠΎΠ² Excel VBA
ΠΠΎ-Π²ΡΠΎΡΡΡ , ΠΈΠΌΠ΅Π΅Ρ ΡΠΌΡΡΠ» Π½Π°ΠΏΠΎΠΌΠ½ΠΈΡΡ ΠΈΠ΅ΡΠ°ΡΡ ΠΈΡ ΠΎΠ±ΡΠ΅ΠΊΡΠΎΠ² Excel.
ΠΠ°Π²Π΅ΡΡ Ρ, ΠΏΠΎ Π°Π΄ΡΠ΅ΡΡ , ΠΊΠΎΡΠ΅Π½Ρ , Ρ Π½Π°Ρ , Π½Π°ΡΠ΅ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅ Excel . ΠΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅ Excel ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»ΡΠ΅Ρ ΡΠΎΠ±ΠΎΠΉ Π²Π΅ΡΡ ΠΏΡΠΎΡΠ΅ΡΡ Excel. ΠΠ°Π»Π΅Π΅ ΠΏΠΎ Π΄Π΅ΡΠ΅Π²Ρ Ρ Π½Π°Ρ Π΅ΡΡΡ Π½Π°ΡΠΈΡ Π Π°Π±ΠΎΡΠΈΡ ΠΊΠ½ΠΈΠ³ . ΠΠ°ΠΆΠ΄ΠΎΠ΅ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅ ΡΠΎΠ΄Π΅ΡΠΆΠΈΡ ΠΊΠΎΠ»Π»Π΅ΠΊΡΠΈΡ ΠΊΠ½ΠΈΠ³. ΠΠ°Π³Π»ΡΠ½ΡΠ² Π² ΠΎΠ΄Π½Ρ ΡΠ°Π±ΠΎΡΡΡ ΠΊΠ½ΠΈΠ³Ρ, ΠΌΡ Π·Π°ΠΌΠ΅ΡΠΈΠΌ, ΡΡΠΎ ΠΎΠ½Π° ΡΠΎΠ΄Π΅ΡΠΆΠΈΡ ΠΊΠΎΠ»Π»Π΅ΠΊΡΠΈΠΉ ΡΠ°Π±ΠΎΡΠΈΡ Π»ΠΈΡΡΠΎΠ² . Π‘ Π΄ΡΡΠ³ΠΎΠΉ ΡΡΠΎΡΠΎΠ½Ρ, Π»ΠΈΡΡΡ ΠΌΠΎΠ³ΡΡ ΠΎΠΏΡΠ΅Π΄Π΅Π»ΡΡΡ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½Ρ (Π½Π΅ ΡΠΎ ΠΆΠ΅ ΡΠ°ΠΌΠΎΠ΅, ΡΡΠΎ ΠΎΡΠ΄Π΅Π»ΡΠ½ΡΠ΅ ΡΡΠ΅ΠΉΠΊΠΈ). ΠΡΠΏΠΎΠ»ΡΠ·ΡΡ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½, ΠΌΡ ΠΌΠΎΠΆΠ΅ΠΌ ΠΏΠΎΠ»ΡΡΠΈΡΡ Π΄ΠΎΡΡΡΠΏ ΠΊ Π΅Π³ΠΎ Π·Π½Π°ΡΠ΅Π½ΠΈΡΠΌ ΡΡΠ΅Π΅ΠΊ ΠΈΠ»ΠΈ ΡΠΎΡΠΌΡΠ»Π°ΠΌ .
ΠΠΎΡΡΡΠΏ ΠΊ ΡΠ°Π±ΠΎΡΠΈΠΌ Π»ΠΈΡΡΠ°ΠΌ VBA
Π’Π΅ΠΏΠ΅ΡΡ, ΠΊΠΎΠ³Π΄Π° ΡΡΠΎ Ρ Π½Π°Ρ Π΅ΡΡΡ, Π΄Π°Π²Π°ΠΉΡΠ΅ ΡΠ°ΡΡΠΌΠΎΡΡΠΈΠΌ ΡΠ°Π·Π»ΠΈΡΠ½ΡΠ΅ ΡΠΏΠΎΡΠΎΠ±Ρ Π΄ΠΎΡΡΡΠΏΠ° ΠΊ ΡΠ°Π±ΠΎΡΠΈΠΌ Π»ΠΈΡΡΠ°ΠΌ Π² VBA:
Π Π°Π±ΠΎΡΠΈΠ΅ Π»ΠΈΡΡΡ ActiveWorkbook VBA
Π‘Π±ΠΎΡΠ½ΠΈΠΊΠΈ Π»ΠΈΡΡΠΎΠ² ΠΈ Π»ΠΈΡΡΠΎΠ²
Π»ΠΈΡΡΠΎΠ² Π² ActiveWorkbook :
Dim ws ΠΊΠ°ΠΊ ΡΠ°Π±ΠΎΡΠΈΠΉ Π»ΠΈΡΡ, wsCollection ΠΊΠ°ΠΊ Π»ΠΈΡΡΡ Set wsCollection = Sheets 'ΠΠΎΠ»ΡΡΠΈΡΡ Π²ΡΡ ΠΊΠΎΠ»Π»Π΅ΠΊΡΠΈΡ ΡΠ°Π±ΠΎΡΠΈΡ Π»ΠΈΡΡΠΎΠ² Set ws = Sheets (1) 'ΠΠΎΠ»ΡΡΠΈΡΡ ΠΏΠ΅ΡΠ²ΡΠΉ ΡΠ°Π±ΠΎΡΠΈΠΉ Π»ΠΈΡΡ Π² ActiveWorkbook Set ws = Sheets ("Sheet1") 'ΠΠΎΠ»ΡΡΠΈΡΡ ΡΠ°Π±ΠΎΡΠΈΠΉ Π»ΠΈΡΡ Ρ ΠΈΠΌΠ΅Π½Π΅ΠΌ "Sheet1" Π² ActiveWorkbook
Π’ΠΎΡΠ½ΠΎ ΡΠ°ΠΊ ΠΆΠ΅ ΠΌΡ ΠΌΠΎΠΆΠ΅ΠΌ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΡΠ°Π±ΠΎΡΠΈΡ Π»ΠΈΡΡΠΎΠ² Π²ΠΌΠ΅ΡΡΠΎ Π»ΠΈΡΡΠΎΠ².
Dim ws ΠΊΠ°ΠΊ ΡΠ°Π±ΠΎΡΠΈΠΉ Π»ΠΈΡΡ, wsCollection ΠΊΠ°ΠΊ Π»ΠΈΡΡΡ Set wsCollection = Worksheets 'ΠΠΎΠ»ΡΡΠΈΡΡ Π²ΡΡ ΠΊΠΎΠ»Π»Π΅ΠΊΡΠΈΡ ΡΠ°Π±ΠΎΡΠΈΡ Π»ΠΈΡΡΠΎΠ² Set ws = Worksheets (1) 'ΠΠΎΠ»ΡΡΠΈΡΡ ΠΏΠ΅ΡΠ²ΡΠΉ ΡΠ°Π±ΠΎΡΠΈΠΉ Π»ΠΈΡΡ Π² ActiveWorkbook Set ws = Worksheets ("Sheet1") 'ΠΠΎΠ»ΡΡΠΈΡΡ ΡΠ°Π±ΠΎΡΠΈΠΉ Π»ΠΈΡΡ Ρ ΠΈΠΌΠ΅Π½Π΅ΠΌ "Sheet1" Π² ActiveWorkbook
Π Π°Π±ΠΎΡΠΈΠ΅ Π»ΠΈΡΡΡ ThisWorkbook, VBA
Π‘Π±ΠΎΡΠ½ΠΈΠΊΠΈ Π»ΠΈΡΡΠΎΠ² ΠΈ Π»ΠΈΡΡΠΎΠ²
Π»ΠΈΡΡΠΎΠ² Π² ThisWorkbook :
Dim ws ΠΊΠ°ΠΊ ΡΠ°Π±ΠΎΡΠΈΠΉ Π»ΠΈΡΡ, wsCollection ΠΊΠ°ΠΊ Π»ΠΈΡΡΡ Set wsCollection = Sheets 'ΠΠΎΠ»ΡΡΠΈΡΡ Π²ΡΡ ΠΊΠΎΠ»Π»Π΅ΠΊΡΠΈΡ ΡΠ°Π±ΠΎΡΠΈΡ Π»ΠΈΡΡΠΎΠ² Π£ΡΡΠ°Π½ΠΎΠ²ΠΈΡΠ΅ ws = ThisWorkbook.Π’Π°Π±Π»ΠΈΡΡ (1) 'ΠΠΎΠ»ΡΡΠΈΡΠ΅ ΠΏΠ΅ΡΠ²ΡΠΉ ΡΠ°Π±ΠΎΡΠΈΠΉ Π»ΠΈΡΡ Π² ThisWorkbook Set ws = ThisWorkbook.Sheets ("Sheet1") 'ΠΠΎΠ»ΡΡΠΈΡΡ ΡΠ°Π±ΠΎΡΠΈΠΉ Π»ΠΈΡΡ Ρ ΠΈΠΌΠ΅Π½Π΅ΠΌ "Sheet1" Π² ThisWorkbook
Π’ΠΎΡΠ½ΠΎ ΡΠ°ΠΊ ΠΆΠ΅ ΠΌΡ ΠΌΠΎΠΆΠ΅ΠΌ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΡΠ°Π±ΠΎΡΠΈΡ Π»ΠΈΡΡΠΎΠ² Π²ΠΌΠ΅ΡΡΠΎ Π»ΠΈΡΡΠΎΠ².
Dim ws ΠΊΠ°ΠΊ ΡΠ°Π±ΠΎΡΠΈΠΉ Π»ΠΈΡΡ, wsCollection ΠΊΠ°ΠΊ Π»ΠΈΡΡΡ Set wsCollection = Worksheets 'ΠΠΎΠ»ΡΡΠΈΡΡ Π²ΡΡ ΠΊΠΎΠ»Π»Π΅ΠΊΡΠΈΡ ΡΠ°Π±ΠΎΡΠΈΡ Π»ΠΈΡΡΠΎΠ² Set ws = ThisWorkbook.Worksheets (1) 'ΠΠΎΠ»ΡΡΠΈΡΡ ΠΏΠ΅ΡΠ²ΡΠΉ ΡΠ°Π±ΠΎΡΠΈΠΉ Π»ΠΈΡΡ Π² ActiveWorkbook Set ws = ThisWorkbook.Worksheets ("Sheet1") 'ΠΠΎΠ»ΡΡΠΈΡΡ ΡΠ°Π±ΠΎΡΠΈΠΉ Π»ΠΈΡΡ Ρ ΠΈΠΌΠ΅Π½Π΅ΠΌ "Sheet1" Π² ThisWorkbook
ΠΠΌΡ ΡΠ°Π±ΠΎΡΠ΅Π³ΠΎ Π»ΠΈΡΡΠ° VBA ΠΈ ΠΈΠΌΡ Excel
caption id = βattachment_11373 β³ align =β alignright βwidth =β 213 β³] ΠΠΌΡ ΡΠ°Π±ΠΎΡΠ΅Π³ΠΎ Π»ΠΈΡΡΠ° VBA ΠΈ ΠΈΠΌΡ Excel [/ caption] ΠΠΎΠ²ΠΎΡΡ ΠΎ ΡΠ°Π±ΠΎΡΠΈΡ
Π»ΠΈΡΡΠ°Ρ
Π² ThisWorkbook , ΠΈΠΌΡ VBA ΡΠ°Π±ΠΎΡΠ΅Π³ΠΎ Π»ΠΈΡΡΠ° Π½Π΅ ΡΠΎΠ²ΠΏΠ°Π΄Π°Π΅Ρ Ρ ΠΠΌΡ Excel ΡΠ°Π±ΠΎΡΠ΅Π³ΠΎ Π»ΠΈΡΡΠ°.ΠΠ°Π²Π°ΠΉΡΠ΅ ΡΠ°Π·Π±ΠΈΡΠ°ΡΡΡΡ Π² ΡΡΠΎΠΌ ΠΏΠΎ-Π΄ΡΡΠ³ΠΎΠΌΡ. Π‘ΠΏΡΠ°Π²Π° Ρ Π½Π°Ρ Π΅ΡΡΡ ΡΠΊΡΠ°Π½ ΠΈΠ· ΠΏΡΠΈΠΌΠ΅ΡΠ° Workbook. Π‘ΡΡΠΎΠΊΠ° VBAName — ΡΡΠΎ ΠΈΠΌΡ VBA Π½Π°ΡΠ΅Π³ΠΎ ΡΠ°Π±ΠΎΡΠ΅Π³ΠΎ Π»ΠΈΡΡΠ° , Ρ Π΄ΡΡΠ³ΠΎΠΉ ΡΡΠΎΡΠΎΠ½Ρ, ΡΡΡΠΎΠΊΠ° Excel Name — ΡΡΠΎ Π½Π°ΡΠ΅ ΠΈΠΌΡ Excel. ΠΡ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΠΎΠ±Π° ΠΈΠΌΠ΅Π½ΠΈ Π΄Π»Ρ ΠΎΠ±ΠΎΠ·Π½Π°ΡΠ΅Π½ΠΈΡ ΠΎΠ΄Π½ΠΎΠ³ΠΎ ΠΈ ΡΠΎΠ³ΠΎ ΠΆΠ΅ ΡΠ°Π±ΠΎΡΠ΅Π³ΠΎ Π»ΠΈΡΡΠ°, Π½ΠΎ ΠΏΠΎ-ΡΠ°Π·Π½ΠΎΠΌΡ.
ΠΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ ΠΈΠΌΠ΅Π½ΠΈ VBA Π΄Π»Ρ ΡΠ°Π±ΠΎΡΠ΅Π³ΠΎ Π»ΠΈΡΡΠ°
Π Π°Π±ΠΎΡΠΈΠΉ Π»ΠΈΡΡ VBA Name ΠΡ ΠΌΠΎΠΆΠ΅ΠΌ ΡΡΡΠ»Π°ΡΡΡΡ Π½Π° ΡΠ°Π±ΠΎΡΠΈΠΉ Π»ΠΈΡΡ VBA Π½Π°ΠΏΡΡΠΌΡΡ ΠΏΠΎ Π΅Π³ΠΎ ΠΈΠΌΠ΅Π½ΠΈ VBA — ΠΏΡΠΎΡΡΠΎ Π½Π°Π±ΡΠ°Π² Π΅Π³ΠΎ. ΠΡΠΎ ΠΎΡΠ΅Π½Ρ ΡΠ΄ΠΎΠ±Π½ΠΎ ΠΈ ΠΏΠΎΠ»Π΅Π·Π½ΠΎ . ΠΡΠΎ ΡΠ²ΡΠ·Π°Π½ΠΎ Ρ ΡΠ΅ΠΌ, ΡΡΠΎ ΠΈΠΌΡ VBA Π½Π΅ ΠΌΠΎΠΆΠ΅Ρ Π±ΡΡΡ ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΎ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Π΅ΠΌ ΠΏΠΎ ΠΎΡΠΈΠ±ΠΊΠ΅ Ρ ΡΡΠΎΠ²Π½Ρ Excel (Π½Π΅ VBE). Π‘Π»Π΅Π΄ΠΎΠ²Π°ΡΠ΅Π»ΡΠ½ΠΎ, ΠΊΠ°ΠΊΠΎΠ΅ Π±Ρ ΠΈΠΌΡ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ Π½ΠΈ Π΄Π°Π²Π°Π» Π½Π° ΡΡΠΎΠ²Π½Π΅ ΡΠ°Π±ΠΎΡΠ΅ΠΉ ΠΊΠ½ΠΈΠ³ΠΈ Π²Π°ΡΠ΅ΠΌΡ ΡΠ°Π±ΠΎΡΠ΅ΠΌΡ Π»ΠΈΡΡΡ, Π΅Π³ΠΎ ΠΈΠΌΡ VBA ΠΎΡΡΠ°Π΅ΡΡΡ ΠΏΡΠ΅ΠΆΠ½ΠΈΠΌ.
ΠΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ ΠΈΠΌΠ΅Π½ΠΈ Π»ΠΈΡΡΠ° Π² Excel
ΠΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ ΡΠ°Π±Π»ΠΈΡΡ Excel ΠΈΠ· VBA Π½Π΅ ΡΠ΅ΠΊΠΎΠΌΠ΅Π½Π΄ΡΠ΅ΡΡΡ. . ΠΠΈΠΆΠ΅ Ρ ΠΈΠΌΠ΅Ρ Π² Π²ΠΈΠ΄Ρ Π»ΠΈΡΡ, ΠΊΠΎΡΠΎΡΡΠΉ Ρ Π½Π°Π·Π²Π°Π» Excel Name Π² ΠΌΠΎΠ΅ΠΌ ΠΏΡΠΈΠΌΠ΅ΡΠ΅ Π²ΡΡΠ΅.
Dim ws ΠΊΠ°ΠΊ ΡΠ°Π±ΠΎΡΠΈΠΉ Π»ΠΈΡΡ Set ws = Worksheets ("ΠΠΌΡ Excel") 'ΠΠΎΠ»ΡΡΠΈΡΡ ΡΠ°Π±ΠΎΡΠΈΠΉ Π»ΠΈΡΡ Ρ ΠΈΠΌΠ΅Π½Π΅ΠΌ "Sheet1" Π² ActiveWorkbook
ΠΡ Π½Π΅ Π·Π°ΠΌΠ΅ΡΠ°Π΅ΡΠ΅, ΡΡΠΎ ΠΏΠΎ ΡΡΠ°Π²Π½Π΅Π½ΠΈΡ Ρ ΠΏΠΎΠ»ΡΡΠ΅Π½ΠΈΠ΅ΠΌ ΡΠ°Π±ΠΎΡΠ΅Π³ΠΎ Π»ΠΈΡΡΠ° ΠΏΠΎ Π΅Π³ΠΎ ΠΈΠΌΠ΅Π½ΠΈ VBA, ΠΏΡΠΈ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠΈ ΠΎΠ±ΡΠ΅ΠΊΡΠ° Worksheets ΠΈΠ»ΠΈ Sheets ΠΏΠΎ ΡΠΌΠΎΠ»ΡΠ°Π½ΠΈΡ Π²Ρ ΠΏΠΎΠΏΠ°Π΄Π°Π΅ΡΠ΅ Ρ ΡΠΊΠ°Π·Π°Π½Π½ΡΠΌ ΡΠ°Π±ΠΎΡΠΈΠΌ Π»ΠΈΡΡΠΎΠΌ, Π½ΠΎ ΠΈΠ· ActiveWorkbook. ΠΠ±ΡΡΠ½ΠΎ ΡΡΠΎ Π½Π΅ ΠΈΠΌΠ΅Π΅Ρ Π±ΠΎΠ»ΡΡΠΎΠ³ΠΎ Π·Π½Π°ΡΠ΅Π½ΠΈΡ. ΠΠΎ Ρ ΠΏΠΎΠ΄ΡΠ΅ΡΠΊΠΈΠ²Π°Ρ, ΡΡΠΎ ΡΡΠΎ ΠΏΡΠΎΡΡΠΎ Π΅ΡΠ΅ ΠΎΠ΄Π½ΠΎ ΠΌΠ΅ΡΡΠΎ, Π³Π΄Π΅ ΠΌΠΎΠΆΠ½ΠΎ ΡΠΎΠ²Π΅ΡΡΠΈΡΡ ΡΠ°ΡΠΏΡΠΎΡΡΡΠ°Π½Π΅Π½Π½ΡΡ ΠΎΡΠΈΠ±ΠΊΡ. Π‘ΠΌ. ΠΠ±Π΅ Π²Π΅ΡΡΠΈΠΈ Π½ΠΈΠΆΠ΅ :
Dim ws ΠΊΠ°ΠΊ ΡΠ°Π±ΠΎΡΠΈΠΉ Π»ΠΈΡΡ '--- ΠΠΈΡΡ ΠΏΠΎ ΠΈΠΌΠ΅Π½ΠΈ Excel Π² ActiveWorkbook --- Set ws = Worksheets ("ΠΠΌΡ Excel") 'ΠΠΎΠ»ΡΡΠΈΡΡ ΡΠ°Π±ΠΎΡΠΈΠΉ Π»ΠΈΡΡ Ρ ΠΈΠΌΠ΅Π½Π΅ΠΌ "Sheet1" Π² ActiveWorkbook Π£ΡΡΠ°Π½ΠΎΠ²ΠΈΡΠ΅ ws = ActiveWorkbook.Π Π°Π±ΠΎΡΠΈΠ΅ Π»ΠΈΡΡΡ (Β«ΠΠΌΡ ExcelΒ») 'ΠΠΎΠ»ΡΡΠΈΡΡ ΡΠ°Π±ΠΎΡΠΈΠΉ Π»ΠΈΡΡ Ρ ΠΈΠΌΠ΅Π½Π΅ΠΌ Β«ΠΠΈΡΡ1Β» Π² ActiveWorkbook '--- ΠΠΈΡΡ ΠΏΠΎ ΠΈΠΌΠ΅Π½ΠΈ Excel Π² ThisWorkbook --- Set ws = ThisWorkbook.Worksheets ("ΠΠΌΡ Excel") 'ΠΠΎΠ»ΡΡΠΈΡΡ ΡΠ°Π±ΠΎΡΠΈΠΉ Π»ΠΈΡΡ Ρ ΠΈΠΌΠ΅Π½Π΅ΠΌ "Sheet1" Π² ActiveWorkbook
Π’Π°Π±Π»ΠΈΡΠ° ActiveSheet VBA
ΠΠ°ΠΊ ΠΈ Π² ΡΠ»ΡΡΠ°Π΅ Ρ Active ΠΈ ThisWorkbook, Π²Π°ΠΌ Π½ΡΠΆΠ½ΠΎ ΡΠ½Π°ΡΠ°Π»Π° ΠΏΠΎΠ½ΡΡΡ ΡΠ°Π·Π½ΠΈΡΡ ΠΌΠ΅ΠΆΠ΄Ρ Π²ΡΠ±ΠΎΡΠΎΠΌ ΡΠ°Π±ΠΎΡΠ΅Π³ΠΎ Π»ΠΈΡΡΠ° ΠΈ Π΅Π³ΠΎ Π°ΠΊΡΠΈΠ²Π°ΡΠΈΠ΅ΠΉ .
ΠΡΠ±ΡΠ°Π½Π½ΡΠΉ ΠΈ Π°ΠΊΡΠΈΠ²ΠΈΡΠΎΠ²Π°Π½Π½ΡΠΉ ΡΠ°Π±ΠΎΡΠΈΠΉ Π»ΠΈΡΡ , ΡΠ°Π·Π»ΠΈΡΠΈΡ:
- ΠΡΠ±ΡΠ°Π½Π½ΡΠΉ ΡΠ°Π±ΠΎΡΠΈΠΉ Π»ΠΈΡΡ — ΠΎΠ΄ΠΈΠ½ ΠΈΠ»ΠΈ Π½Π΅ΡΠΊΠΎΠ»ΡΠΊΠΎ ΡΠ°Π±ΠΎΡΠΈΡ Π»ΠΈΡΡΠΎΠ², Π²ΡΠ±ΡΠ°Π½Π½ΡΡ Π² ΠΎΠΊΠ½Π΅ Excel.ΠΠ°ΠΆΠ΄Π°Ρ ΡΠ°Π±ΠΎΡΠ°Ρ ΡΠ΅ΡΡΠ°Π΄Ρ ΠΈΠΌΠ΅Π΅Ρ ΡΠ²ΠΎΠΉ ΡΠΎΠ±ΡΡΠ²Π΅Π½Π½ΡΠΉ Π½Π°Π±ΠΎΡ ΠΈΠ·Π±ΡΠ°Π½Π½ΡΡ Π·Π°Π΄Π°Π½ΠΈΠΉ
- ActiveWorksheet — ΡΠ΅ΠΊΡΡΠΈΠΉ ΡΠ°Π±ΠΎΡΠΈΠΉ Π»ΠΈΡΡ, ΠΊΠΎΡΠΎΡΡΠΉ Π²Ρ ΠΏΡΠΎΡΠΌΠ°ΡΡΠΈΠ²Π°Π΅ΡΠ΅ ΠΈ Ρ ΠΊΠΎΡΠΎΡΡΠΌ ΡΠ°Π±ΠΎΡΠ°Π΅ΡΠ΅. ΠΠ΄ΠΈΠ½ΡΡΠ²Π΅Π½Π½ΡΠΉ ΡΠ°ΠΌΡΠΉ Π²Π΅ΡΡ Π½ΠΈΠΉ ΡΠ°Π±ΠΎΡΠΈΠΉ Π»ΠΈΡΡ Π²ΠΎ Π²ΡΠ΅Ρ ΡΠ°Π±ΠΎΡΠΈΡ ΠΊΠ½ΠΈΠ³Π°Ρ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠΉ
ΠΠ· ΠΏΡΠΈΠ²Π΅Π΄Π΅Π½Π½ΠΎΠ³ΠΎ Π²ΡΡΠ΅ ΠΎΠΏΡΠ΅Π΄Π΅Π»Π΅Π½ΠΈΡ Π²Ρ Π²ΠΈΠ΄ΠΈΡΠ΅, ΡΡΠΎ ΠΌΠΎΠΆΠ΅Ρ Π±ΡΡΡ Π±ΠΎΠ»Π΅Π΅ ΠΎΠ΄Π½ΠΎΠ³ΠΎ Π²ΡΠ±ΡΠ°Π½Π½ΠΎΠ³ΠΎ ΡΠ°Π±ΠΎΡΠ΅Π³ΠΎ Π»ΠΈΡΡΠ° ΠΈ ΡΠΎΠ»ΡΠΊΠΎ ΠΎΠ΄ΠΈΠ½ Π°ΠΊΡΠΈΠ²Π½ΡΠΉ Π»ΠΈΡΡ. ΠΠ° ΡΠ°ΠΌΠΎΠΌ Π΄Π΅Π»Π΅ ΡΡΠΎ ΡΠΎΠ²Π΅ΡΡΠ΅Π½Π½ΠΎ ΡΠ°Π·Π½ΡΠ΅ Π²Π΅ΡΠΈ. ΠΠ°Π²Π°ΠΉΡΠ΅ ΡΠ°ΡΡΠΌΠΎΡΡΠΈΠΌ ΡΡΠΎ Π½Π° Π½Π΅ΡΠΊΠΎΠ»ΡΠΊΠΈΡ ΠΏΡΠΈΠΌΠ΅ΡΠ°Ρ :
ΠΡΠΈΠΌΠ΅Ρ 1: ΠΠΏΠΈΡΠ°Π½ΠΈΠ΅ ActiveSheet
ΠΠΎΠΏΡΡΡΠΈΠΌ, Ρ Π½Π°Ρ ΠΎΡΠΊΡΡΡΠΎ 2 Π Π°Π±ΠΎΡΠΈΠ΅ ΠΊΠ½ΠΈΠ³ΠΈ.ΠΠ΄ΠΈΠ½ — Book1.xlsm, Π° Π΄ΡΡΠ³ΠΎΠΉ — Book2.xlsm.
ΠΠΎΠ·Π²ΠΎΠ»ΡΠ΅Ρ ΠΎΡΠΊΡΡΡΡ VBE Π² Book1.xlsm . ΠΡ Π΄ΠΎΠ±Π°Π²ΠΈΠΌ ΡΠ»Π΅Π΄ΡΡΡΠΈΠΉ ΡΡΠ°Π³ΠΌΠ΅Π½Ρ ΠΊΠΎΠ΄Π°:
Sub TestActiveSheet () MsgBox ActiveSheet.Name ΠΠΎΠ½Π΅Ρ ΠΏΠΎΠ΄ΠΏΠΈΡΠΊΠΈ
Π’Π΅ΠΏΠ΅ΡΡ Π°ΠΊΡΠΈΠ²ΠΈΡΡΠ΅ΠΌ Book2.xlsm . ΠΠ΅ΡΠ΅ΠΈΠΌΠ΅Π½ΡΠΉΡΠ΅ Π»ΡΠ±ΠΎΠΉ ΡΠ°Π±ΠΎΡΠΈΠΉ Π»ΠΈΡΡ, Π½Π°ΠΏΡΠΈΠΌΠ΅Ρ ΠΊ MyActiveWorksheet . ΠΠ°ΡΠ΅ΠΌ ΠΏΠ΅ΡΠ΅ΠΉΠ΄ΠΈΡΠ΅ Π½Π° Π»Π΅Π½ΡΡ Developer , Π²ΡΠ±Π΅ΡΠΈΡΠ΅ Macros ΠΈ Π·Π°ΠΏΡΡΡΠΈΡΠ΅ Books1.xlsm! TestActiveSheet . Π§ΡΠΎ ΡΠ»ΡΡΠΈΠ»ΠΎΡΡ? Π£ Π²Π°Ρ Π½Π°Π²Π΅ΡΠ½ΡΠΊΠ° ΠΏΠΎΠ»ΡΡΠΈΠ»ΠΎΡΡ ΡΡΠΎ-ΡΠΎ Π²ΡΠΎΠ΄Π΅ ΡΡΠΎΠ³ΠΎ:
Π₯ΠΎΡΡ Π²Ρ Π·Π°ΠΏΡΡΠΊΠ°Π»ΠΈ ΠΌΠ°ΠΊΡΠΎΡ ΠΈΠ· Book1.xlsm, VBA Π²ΡΠ΅Π³Π΄Π° ΡΠ°ΡΡΠΌΠ°ΡΡΠΈΠ²Π°Π΅Ρ ΡΠ°ΠΌΡΠΉ Π²Π΅ΡΡ Π½ΠΈΠΉ ΡΠ°Π±ΠΎΡΠΈΠΉ Π»ΠΈΡΡ ΠΊΠ°ΠΊ ActiveSheet.
ΠΡΠΈΠΌΠ΅Ρ 2: ΠΠ±ΡΡΡΠ½Π΅Π½ΠΈΠ΅ Π²ΡΠ±ΡΠ°Π½Π½ΡΡ ΠΈ ActiveSheet
Π Π°ΡΡΠΌΠΎΡΡΠΈΠΌ ΡΠΎΡ ΠΆΠ΅ ΠΏΡΠΈΠΌΠ΅Ρ. ΠΡΠΊΡΠΎΠΉΡΠ΅ Book1.xlsm ΠΈ Π΄ΠΎΠ±Π°Π²ΡΡΠ΅ ΡΠ»Π΅Π΄ΡΡΡΠΈΠΉ ΠΊΠΎΠ΄ Π² VBE:
Sub SelectedVSActive () Dim res ΠΊΠ°ΠΊ ΡΡΡΠΎΠΊΠ°, ws ΠΊΠ°ΠΊ ΡΠ°Π±ΠΎΡΠΈΠΉ Π»ΠΈΡΡ res = "ΠΡΠ±ΡΠ°Π½Π½ΡΠ΅ Π»ΠΈΡΡΡ:" & vbNewLine ΠΠ»Ρ ΠΊΠ°ΠΆΠ΄ΠΎΠ³ΠΎ ws Π² ActiveWindow.SelectedSheets res = res & ws.Name & vbNewLine Π‘Π»Π΅Π΄ΡΡΡΠΈΠΉ ws MsgBox res & vbNewLine & "ActiveSheet:" & vbNewLine & ActiveSheet.ΠΈΠΌΡ ΠΠΎΠ½Π΅Ρ ΠΏΠΎΠ΄ΠΏΠΈΡΠΊΠΈ
Π’Π΅ΠΏΠ΅ΡΡ ΡΠ΄Π΅Π»Π°ΠΉΡΠ΅ ΡΠ»Π΅Π΄ΡΡΡΠ΅Π΅:
- ΠΠΊΡΠΈΠ²ΠΈΡΠΎΠ²Π°ΡΡ ΠΊΠ½ΠΈΠ³Ρ Book2.xlsm
- ΠΡΠ±Π΅ΡΠΈΡΠ΅ ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ ΡΠ°Π±ΠΎΡΠΈΡ Π»ΠΈΡΡΠΎΠ² (Π½Π΅ ΠΌΠ΅Π½Π΅Π΅ 2)
- ΠΠ°ΠΏΡΡΡΠΈΡΡ Book1.xlsm! SelectedVSActive ΠΌΠ°ΠΊΡΠΎΡ
Π§ΡΠΎ ΠΏΡΠΎΠΈΡΡ ΠΎΠ΄ΠΈΡ? Π£ Π²Π°Ρ Π΄ΠΎΠ»ΠΆΠ½ΠΎ ΠΏΠΎΠ»ΡΡΠΈΡΡΡΡ ΡΡΠΎ-ΡΠΎ Π²ΡΠΎΠ΄Π΅ ΡΡΠΎΠ³ΠΎ:
ΠΡ Π²ΠΈΠ΄ΠΈΡΠ΅ ΡΡΠΎ:
- ΠΠΊΡΠΈΠ²Π½ΡΠΌ Π»ΠΈΡΡΠΎΠΌ ΡΡΠΈΡΠ°Π΅ΡΡΡ ΡΠΎΠ»ΡΠΊΠΎ ΡΠ°ΠΌΡΠΉ Π²Π΅ΡΡ Π½ΠΈΠΉ ΡΠ°Π±ΠΎΡΠΈΠΉ Π»ΠΈΡΡ
- ActiveSheet ΠΠ‘ΠΠΠΠ ΡΠ°ΡΡΠΌΠ°ΡΡΠΈΠ²Π°Π΅ΡΡΡ ΠΊΠ°ΠΊ Π²ΡΠ±ΡΠ°Π½Π½ΡΠΉ ΡΠ°Π±ΠΎΡΠΈΠΉ Π»ΠΈΡΡ Π² ActiveWindow (ΡΡΠ° ΠΏΠΎΡΠ»Π΅Π΄Π½ΡΡ ΡΠ°ΡΡΡ Π²Π°ΠΆΠ½Π°)
Π§ΡΠΎ ΠΏΡΠΎΠΈΠ·ΠΎΠΉΠ΄Π΅Ρ, Π΅ΡΠ»ΠΈ Π²Ρ ΠΈΠ·ΠΌΠ΅Π½ΠΈΡΠ΅ ActiveWindow Π½Π° e.Π³. ΠΠΊΠ½Π° (2) ? ΠΡ ΡΠ²ΠΈΠ΄ΠΈΡΠ΅ Π΄ΡΡΠ³ΠΎΠΉ Π½Π°Π±ΠΎΡ ΠΈΠ·Π±ΡΠ°Π½Π½ΡΡ ΡΠ°Π±ΠΎΡΠΈΡ Π»ΠΈΡΡΠΎΠ². ΠΠΎΡΠ΅ΠΌΡ? ΠΠΎΡΠΎΠΌΡ ΡΡΠΎ Π²ΠΎ Π²ΡΠ΅Ρ ΠΊΠ½ΠΈΠ³Π°Ρ Π΅ΡΡΡ ΠΈΠ·Π±ΡΠ°Π½Π½ΡΠ΅ ΡΠ°Π±ΠΎΡΠΈΠ΅ Π»ΠΈΡΡΡ. ΠΠ°Π΄Π΅ΡΡΡ, Π²Ρ Π·Π°ΠΌΠ΅ΡΠΈΡΠ΅ ΡΠ°Π·Π½ΠΈΡΡ.
ΠΠΊΡΠΈΠ²Π°ΡΠΈΡ ΡΠ°Π±ΠΎΡΠΈΡ Π»ΠΈΡΡΠΎΠ² VBA
ΠΠΊΡΠΈΠ²ΠΈΡΠΎΠ²Π°ΡΡ ΡΠ°Π±ΠΎΡΠΈΠΉ Π»ΠΈΡΡ Π² VBA ΠΎΡΠ΅Π½Ρ ΠΏΡΠΎΡΡΠΎ. ΠΡ Π΄Π΅Π»Π°Π΅ΡΠ΅ ΡΡΠΎ Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΡΠ²ΠΎΠΉΡΡΠ²Π° Β«ΠΠΊΡΠΈΠ²ΠΈΡΠΎΠ²Π°ΡΡΒ» ΡΠ°Π±ΠΎΡΠ΅Π³ΠΎ Π»ΠΈΡΡΠ°. ΠΠ°ΠΊ Π°ΠΊΡΠΈΠ²ΠΈΡΠΎΠ²Π°ΡΡ Π»ΡΠ±ΠΎΠΉ ΡΠ°Π±ΠΎΡΠΈΠΉ Π»ΠΈΡΡ Ρ ΠΏΠΎΠΌΠΎΡΡΡ VBA?
Dim ws ΠΊΠ°ΠΊ ΡΠ°Π±ΠΎΡΠΈΠΉ Π»ΠΈΡΡ '... Π£ΡΡΠ°Π½ΠΎΠ²ΠΈΡΡ ws Π½Π° ΠΊΠ°ΠΊΠΎΠΉ-Π½ΠΈΠ±ΡΠ΄Ρ ΡΠ°Π±ΠΎΡΠΈΠΉ Π»ΠΈΡΡ ws.Activate
ΠΠΊΡΠΈΠ²ΠΈΡΠΎΠ²Π°ΡΡ ΠΏΡΠΈΠΌΠ΅ΡΡ ΡΠ°Π±ΠΎΡΠ΅Π³ΠΎ Π»ΠΈΡΡΠ°
ΠΠ΅ΡΠΊΠΎΠ»ΡΠΊΠΎ ΠΏΡΠΈΠΌΠ΅ΡΠΎΠ² Π½ΠΈΠΆΠ΅:
ΠΠΈΡΡΡ (1).Activate 'ΠΠΊΡΠΈΠ²ΠΈΡΠΎΠ²Π°ΡΡ ΠΏΠ΅ΡΠ²ΡΠΉ ΡΠ°Π±ΠΎΡΠΈΠΉ Π»ΠΈΡΡ Π² ActiveWorkbook Sheet1.Activate 'ΠΠΊΡΠΈΠ²ΠΈΡΠΎΠ²Π°ΡΡ Sheet1 Π² ThisWorkbook Π Π°Π±ΠΎΡΠΈΠ΅ Π»ΠΈΡΡΡ ("MyNamedWorksheet"). ΠΠΊΡΠΈΠ²ΠΈΡΠΎΠ²Π°ΡΡ 'ΠΠΊΡΠΈΠ²ΠΈΡΠΎΠ²Π°ΡΡ Excel Ρ ΠΈΠΌΠ΅Π½Π΅ΠΌ Π Π°Π±ΠΎΡΠΈΠΉ Π»ΠΈΡΡ Π² ActiveWorkbook
ΠΡΠ±ΠΎΡ Π»ΠΈΡΡΠΎΠ² VBA
ΠΡΠ±ΠΎΡ ΡΠ°Π±ΠΎΡΠΈΡ Π»ΠΈΡΡΠΎΠ² Π½Π΅ΠΌΠ½ΠΎΠ³ΠΎ ΡΠ»ΠΎΠΆΠ½Π΅Π΅, ΡΠ°ΠΊ ΠΊΠ°ΠΊ ΠΌΡ ΠΌΠΎΠΆΠ΅ΠΌ Π²ΡΠ±ΡΠ°ΡΡ ΠΎΠ΄ΠΈΠ½ ΠΈΠ»ΠΈ Π½Π΅ΡΠΊΠΎΠ»ΡΠΊΠΎ ΡΠ°Π±ΠΎΡΠΈΡ Π»ΠΈΡΡΠΎΠ².
ΠΡΠ±ΠΎΡ ΠΎΠ΄Π½ΠΎΠ³ΠΎ ΡΠ°Π±ΠΎΡΠ΅Π³ΠΎ Π»ΠΈΡΡΠ° VBA
ΠΡΠ±ΡΠ°ΡΡ ΠΎΠ΄ΠΈΠ½ Π»ΠΈΡΡ VBA ΠΏΡΠΎΡΡΠΎ. ΠΡΠΎΡΡΠΎ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠΉΡΠ΅ ΠΡΠ±ΡΠ°ΡΡ ΡΠ²ΠΎΠΉΡΡΠ²ΠΎ ΡΠ°Π±ΠΎΡΠ΅Π³ΠΎ Π»ΠΈΡΡΠ°.
Dim ws ΠΊΠ°ΠΊ ΡΠ°Π±ΠΎΡΠΈΠΉ Π»ΠΈΡΡ '... Π£ΡΡΠ°Π½ΠΎΠ²ΠΈΡΡ ws Π½Π° ΠΊΠ°ΠΊΠΎΠΉ-Π½ΠΈΠ±ΡΠ΄Ρ ΡΠ°Π±ΠΎΡΠΈΠΉ Π»ΠΈΡΡ ws.Select
ΠΡΠ±ΠΎΡ ΠΎΠ΄Π½ΠΎΠ³ΠΎ ΠΏΡΠΈΠΌΠ΅ΡΠ° ΡΠ°Π±ΠΎΡΠ΅Π³ΠΎ Π»ΠΈΡΡΠ°
ΠΠ΅ΡΠΊΠΎΠ»ΡΠΊΠΎ ΠΏΡΠΈΠΌΠ΅ΡΠΎΠ² Π½ΠΈΠΆΠ΅:
Π’Π°Π±Π»ΠΈΡΡ (1) .ΠΡΠ±Π΅ΡΠΈΡΠ΅ 'ΠΡΠ±ΡΠ°ΡΡ ΠΏΠ΅ΡΠ²ΡΠΉ ΡΠ°Π±ΠΎΡΠΈΠΉ Π»ΠΈΡΡ Π² ActiveWorkbook Sheet1. ΠΡΠ±Π΅ΡΠΈΡΠ΅ 'Select Sheet1 Π² ThisWorkbook Π Π°Π±ΠΎΡΠΈΠ΅ Π»ΠΈΡΡΡ ("MyNamedWorksheet"). ΠΡΠ±Π΅ΡΠΈΡΠ΅ "ΠΡΠ±Π΅ΡΠΈΡΠ΅ Excel Ρ ΠΈΠΌΠ΅Π½Π΅ΠΌ Π Π°Π±ΠΎΡΠΈΠΉ Π»ΠΈΡΡ Π² ActiveWorkbook.
ΠΡΠ±ΠΎΡ Π½Π΅ΡΠΊΠΎΠ»ΡΠΊΠΈΡ Π»ΠΈΡΡΠΎΠ² VBA
ΠΡΠ±ΠΎΡ Π±ΠΎΠ»Π΅Π΅ 1 ΡΠ°Π±ΠΎΡΠ΅Π³ΠΎ Π»ΠΈΡΡΠ° Π½Π΅ΠΌΠ½ΠΎΠ³ΠΎ ΡΠ»ΠΎΠΆΠ½Π΅Π΅, ΠΏΠΎΡΠΊΠΎΠ»ΡΠΊΡ Π½Π°ΠΌ Π½ΡΠΆΠ½ΠΎ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΡΡΠ½ΠΊΡΠΈΡ ΠΌΠ°ΡΡΠΈΠ²Π° VBA :
ΠΠΈΡΡΡ (ΠΠ°ΡΡΠΈΠ² (1, 2)).ΠΡΠ±Π΅ΡΠΈΡΠ΅ 'ΠΡΠ±ΡΠ°ΡΡ ΠΏΠ΅ΡΠ²ΡΠΉ ΠΈ Π²ΡΠΎΡΠΎΠΉ Π»ΠΈΡΡ Π² ActiveWorkbook. ΠΠΈΡΡΡ (Array ("Named1", "Named2")). ΠΡΠ±Π΅ΡΠΈΡΠ΅ "ΠΡΠ±Π΅ΡΠΈΡΠ΅ 2 ΠΈΠΌΠ΅Π½ΠΎΠ²Π°Π½Π½ΡΡ Π»ΠΈΡΡΠ° Π² ActiveWorkbook
ΠΡΠΎ Π½Π΅ ΡΠ°ΠΌΡΠΉ ΡΠ»Π΅Π³Π°Π½ΡΠ½ΡΠΉ ΡΠΏΠΎΡΠΎΠ± ΡΠ΄Π΅Π»Π°ΡΡ ΡΡΠΎ. Π ΡΡΠ°ΡΡΡΡ, Ρ ΡΡΠ½ΠΊΡΠΈΠΈ Select Π΅ΡΡΡ Π°ΡΠ³ΡΠΌΠ΅Π½Ρ Ρ ΠΈΠΌΠ΅Π½Π΅ΠΌ Replace . Π£ΡΡΠ°Π½ΠΎΠ²ΠΊΠ° Π·Π½Π°ΡΠ΅Π½ΠΈΡ false Π±ΡΠ΄Π΅Ρ ΠΎΠ·Π½Π°ΡΠ°ΡΡ, ΡΡΠΎ ΡΠ°Π½Π΅Π΅ Π²ΡΠ±ΡΠ°Π½Π½ΡΠΉ ΠΎΠ±ΡΠ΅ΠΊΡ Π½Π΅ Π΄ΠΎΠ»ΠΆΠ΅Π½ Π±ΡΡΡ ΠΎΡΠΌΠ΅Π½Π΅Π½. Π’Π°ΠΊΠΈΠΌ ΠΎΠ±ΡΠ°Π·ΠΎΠΌ, ΠΌΡ ΠΌΠΎΠΆΠ΅ΠΌ ΡΠ°ΡΡΠΈΡΠΈΡΡ Π½Π°Ρ Π²ΡΠ±ΠΎΡ ΡΠ»Π΅Π΄ΡΡΡΠΈΠΌ ΠΎΠ±ΡΠ°Π·ΠΎΠΌ:
ΠΠΈΡΡΡ (1) .ΠΡΠ±ΡΠ°ΡΡ Π’Π°Π±Π»ΠΈΡΡ Π²ΡΠ·ΠΎΠ²ΠΎΠ² (2) .ΠΡΠ±ΡΠ°ΡΡ (ΠΠΎΠΆΡ) Π’Π°Π±Π»ΠΈΡΡ Π²ΡΠ·ΠΎΠ²ΠΎΠ² (3).ΠΡΠ±ΡΠ°ΡΡ (ΠΠΎΠΆΡ)
ΠΡΠΎ Π²ΡΠ±Π΅ΡΠ΅Ρ ΠΏΠ΅ΡΠ²ΡΠ΅ ΡΡΠΈ ΡΠ°Π±ΠΎΡΠΈΡ Π»ΠΈΡΡΠ° Π² Π½Π°ΡΠ΅ΠΉ ActiveWorkbook.
Π£Π΄Π°Π»Π΅Π½ΠΈΠ΅ Π»ΠΈΡΡΠΎΠ² VBA
Π§ΡΠΎΠ±Ρ ΡΠ΄Π°Π»ΠΈΡΡ ΡΠ°Π±ΠΎΡΠΈΠΉ Π»ΠΈΡΡ VBA, Π½Π°ΠΌ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ ΠΎΡΠΊΠ»ΡΡΠΈΡΡ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅ . DisplayAlerts
Application.DisplayAlerts = False ΠΠΈΡΡΡ (1) .Π£Π΄Π°Π»ΠΈΡΡ Application.DisplayAlerts = True
ΠΡ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΡΠ΄Π°Π»ΠΈΡΡ Π½Π΅ΡΠΊΠΎΠ»ΡΠΊΠΎ Π»ΠΈΡΡΠΎΠ² Π°Π½Π°Π»ΠΎΠ³ΠΈΡΠ½ΠΎ ΡΠΎΠΌΡ, ΠΊΠ°ΠΊ Π²Ρ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΡΠ΄Π΅Π»Π°ΡΡ Π½Π΅ΡΠΊΠΎΠ»ΡΠΊΠΎ Π»ΠΈΡΡΠΎΠ². ΠΡΠ±Π΅ΡΠΈΡΠ΅:
ΠΠ°ΡΠ²ΠΊΠ°.DisplayAlerts = False ΠΠΈΡΡΡ (ΠΠ°ΡΡΠΈΠ² (1, 2)). Π£Π΄Π°Π»ΠΈΡΡ Application.DisplayAlerts = True
ΠΠΎΠΏΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ Π»ΠΈΡΡΠΎΠ² VBA
ΠΡ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΠΊΠΎΠΏΠΈΡΠΎΠ²Π°ΡΡ ΡΠ°Π±ΠΎΡΠΈΠ΅ Π»ΠΈΡΡΡ ΠΈΠ· ΡΠ°Π±ΠΎΡΠ΅ΠΉ ΠΊΠ½ΠΈΠ³ΠΈ ΠΈΠ»ΠΈ ΠΈΠ· Π΄ΡΡΠ³ΠΈΡ ΠΎΡΠΊΡΡΡΡΡ ΡΠ°Π±ΠΎΡΠΈΡ ΠΊΠ½ΠΈΠ³.
'Π‘ΠΊΠΎΠΏΠΈΡΡΠΉΡΠ΅ Sheet1 ΠΈ Π²ΡΡΠ°Π²ΡΡΠ΅ ΠΏΠ΅ΡΠ΅Π΄ Sheet2 Π Π°Π±ΠΎΡΠΈΠ΅ Π»ΠΈΡΡΡ ("ΠΠΈΡΡ1"). ΠΠΎΠΏΠΈΡΠΎΠ²Π°ΡΡ ΠΏΠ΅ΡΠ΅Π΄: = ΠΠΈΡΡΡ ("ΠΠΈΡΡ2") 'Π‘ΠΊΠΎΠΏΠΈΡΡΠΉΡΠ΅ Sheet1 ΠΈ Π²ΡΡΠ°Π²ΡΡΠ΅ ΠΏΠ΅ΡΠ΅Π΄ Sheet2 Π² Workbook Book1.xlsm Π Π°Π±ΠΎΡΠΈΠ΅ Π»ΠΈΡΡΡ ("Sheet1"). ΠΠΎΠΏΠΈΡΠΎΠ²Π°ΡΡ ΠΏΠ΅ΡΠ΅Π΄: = Workbooks ("Book1.xlsm"). Sheets ("Sheet2")
ΠΠ΅ΡΠ΅ΠΌΠ΅ΡΠ΅Π½ΠΈΠ΅ Π»ΠΈΡΡΠΎΠ² VBA
ΠΡ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΠΏΠ΅ΡΠ΅ΠΌΠ΅ΡΠ°ΡΡ Π»ΠΈΡΡΡ Π²Π½ΡΡΡΠΈ ΠΊΠ½ΠΈΠ³ΠΈ ΠΈΠ»ΠΈ ΠΈΠ· Π΄ΡΡΠ³ΠΈΡ ΠΎΡΠΊΡΡΡΡΡ ΠΊΠ½ΠΈΠ³.
'ΠΠ΅ΡΠ΅ΠΌΠ΅ΡΡΠΈΡΡ Sheet1 ΠΈ Π²ΡΡΠ°Π²ΠΈΡΡ ΠΏΠ΅ΡΠ΅Π΄ Sheet2 ΠΠΈΡΡΡ ("ΠΠΈΡΡ1"). ΠΠ΅ΡΠ΅ΠΌΠ΅ΡΡΠΈΡΡ Π΄ΠΎ: = ΠΠΈΡΡΡ ("ΠΠΈΡΡ2") 'ΠΠ΅ΡΠ΅ΠΌΠ΅ΡΡΠΈΡΡ Sheet1 ΠΈ Π²ΡΡΠ°Π²ΠΈΡΡ ΠΏΠ΅ΡΠ΅Π΄ Sheet2 Π² Workbook Book1.xlsm Π Π°Π±ΠΎΡΠΈΠ΅ Π»ΠΈΡΡΡ ("Sheet1"). ΠΠ΅ΡΠ΅ΠΌΠ΅ΡΡΠΈΡΡ Π΄ΠΎ: = Workbooks ("Book1.xlsm"). Sheets ("Sheet2")
ΠΡΡΠ³ΠΈΠ΅ ΡΠ²ΠΎΠΉΡΡΠ²Π° Π»ΠΈΡΡΠΎΠ² VBA
ΠΠΈΠΆΠ΅ ΠΏΡΠΈΠ²Π΅Π΄Π΅Π½Ρ Π΄ΡΡΠ³ΠΈΠ΅ ΡΠ²ΠΎΠΉΡΡΠ²Π° ΡΠ°Π±ΠΎΡΠ΅Π³ΠΎ Π»ΠΈΡΡΠ° VBA, ΠΎ ΠΊΠΎΡΠΎΡΡΡ ΡΡΠΎΠΈΡ ΡΠΏΠΎΠΌΡΠ½ΡΡΡ:
Π‘Π²ΠΎΠΉΡΡΠ²ΠΎ Π»ΠΈΡΡΠ° | ΠΠΏΠΈΡΠ°Π½ΠΈΠ΅ | ΠΡΠΈΠΌΠ΅Ρ |
---|---|---|
Π Π°ΡΡΡΠΈΡΠ°ΡΡ | ΠΡΡΠΈΡΠ»ΡΠ΅Ρ Π²ΡΠ΅ Π³ΡΡΠ·Π½ΡΠ΅ ΡΠΎΡΠΌΡΠ»Ρ Π½Π° ΡΠ΅ΠΊΡΡΠ΅ΠΌ Π»ΠΈΡΡΠ΅ | Dim ws ΠΊΠ°ΠΊ ΡΠ°Π±ΠΎΡΠΈΠΉ Π»ΠΈΡΡ '...Π£ΡΡΠ°Π½ΠΎΠ²ΠΈΡΡ ws ws.Calculate |
ΠΠΌΡ | ΠΠΎΠ»ΡΡΠΈΡΡ ΠΈΠ»ΠΈ ΡΡΡΠ°Π½ΠΎΠ²ΠΈΡΡ ΠΈΠΌΡ Excel Π΄Π»Ρ ΡΠ°Π±ΠΎΡΠ΅Π³ΠΎ Π»ΠΈΡΡΠ° | Dim ws ΠΊΠ°ΠΊ ΡΠ°Π±ΠΎΡΠΈΠΉ Π»ΠΈΡΡ '... Π£ΡΡΠ°Π½ΠΎΠ²ΠΈΡΡ ws Debug.Print ws.Name 'ΠΠ΅ΡΠ°ΡΡ ΠΈΠΌΠ΅Π½ΠΈ Π»ΠΈΡΡΠ° Excel ws.Name = "New name" 'Π£ΡΡΠ°Π½ΠΎΠ²ΠΈΡΡ Π½ΠΎΠ²ΠΎΠ΅ ΠΈΠΌΡ Π΄Π»Ρ ΡΠ°Π±ΠΎΡΠ΅Π³ΠΎ Π»ΠΈΡΡΠ° |
ΠΠΈΠ΄ΠΈΠΌΡΠΉ | ΠΠΎΠΊΠ°Π·Π°ΡΡ, ΡΠΊΡΡΡΡ ΠΈΠ»ΠΈ ΡΠ΄Π΅Π»Π°ΡΡ ΡΠ°Π±ΠΎΡΠΈΠΉ Π»ΠΈΡΡ ΠΎΡΠ΅Π½Ρ ΡΠΊΡΡΡΡΠΌ. ΠΠΎΠ·ΠΌΠΎΠΆΠ½ΡΠ΅ Π·Π½Π°ΡΠ΅Π½ΠΈΡ:
| Dim ws ΠΊΠ°ΠΊ ΡΠ°Π±ΠΎΡΠΈΠΉ Π»ΠΈΡΡ '...Π£ΡΡΠ°Π½ΠΎΠ²ΠΈΡΡ ws ws.Visible = xlSheetHidden 'Π‘Π΄Π΅Π»Π°ΡΡ ΡΠ°Π±ΠΎΡΠΈΠΉ Π»ΠΈΡΡ ws ΡΠΊΡΡΡΡΠΌ Π§ΡΠΎΠ±Ρ ΡΠ·Π½Π°ΡΡ Π±ΠΎΠ»ΡΡΠ΅, ΠΏΡΠΎΡΡΠΈΡΠ΅ ΠΠΎΠΊΠ°Π·Π°ΡΡ Π»ΠΈΡΡΡ Π² Excel / ΠΠΎΠΊΠ°Π·Π°ΡΡ Π²ΡΠ΅ Π»ΠΈΡΡΡ Π² Excel Ρ ΠΏΠΎΠΌΠΎΡΡΡ VBA. |
.