Π‘ΠΎΡ ΡΠ°Π½ΠΈΡΡ ΠΊΠ½ΠΈΠ³Ρ vba: ΠΠ΅ΡΠΎΠ΄ Workbook. Save (Excel) | Microsoft Docs
ΠΠ΅ΡΠΎΠ΄ Workbook. Save (Excel) | Microsoft Docs
-
- Π§ΡΠ΅Π½ΠΈΠ΅ Π·Π°Π½ΠΈΠΌΠ°Π΅Ρ 2Β ΠΌΠΈΠ½
Π ΡΡΠΎΠΉ ΡΡΠ°ΡΡΠ΅
Π‘ΠΎΡ ΡΠ°Π½ΡΠ΅Ρ ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΡ ΡΠΊΠ°Π·Π°Π½Π½ΠΎΠΉ ΠΊΠ½ΠΈΠ³ΠΈ.Saves changes to the specified workbook.
Π‘ΠΈΠ½ΡΠ°ΠΊΡΠΈΡSyntax
Expression. Π‘ΠΎΡ ΡΠ°Π½Π΅Π½ΠΈΠ΅expression.Save
Expression (Π²ΡΡΠ°ΠΆΠ΅Π½ΠΈΠ΅ ) ΠΠ΅ΡΠ΅ΠΌΠ΅Π½Π½Π°Ρ, ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»ΡΡΡΠ°Ρ ΠΎΠ±ΡΠ΅ΠΊΡ Workbook .expression A variable that represents a Workbook object.
ΠΡΠΈΠΌΠ΅ΡΠ°Π½ΠΈΡRemarks
Π§ΡΠΎΠ±Ρ ΠΎΡΠΊΡΡΡΡ ΡΠ°ΠΉΠ» ΠΊΠ½ΠΈΠ³ΠΈ, ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠΉΡΠ΅ ΠΌΠ΅ΡΠΎΠ΄ Open .To open a workbook file, use the Open method.
Π§ΡΠΎΠ±Ρ ΠΏΠΎΠΌΠ΅ΡΠΈΡΡ ΠΊΠ½ΠΈΠ³Ρ ΠΊΠ°ΠΊ ΡΠΎΡ ΡΠ°Π½Π΅Π½Π½ΡΡ, Π½Π΅ Π·Π°ΠΏΠΈΡΡΠ²Π°Ρ Π΅Π΅ Π½Π° Π΄ΠΈΡΠΊ, Π·Π°Π΄Π°ΠΉΡΠ΅ Π΄Π»Ρ ΡΠ²ΠΎΠΉΡΡΠ²Π° ΡΠΎΡ ΡΠ°Π½Π΅Π½Π½ΠΎΠ³ΠΎ ΡΠ²ΠΎΠΉΡΡΠ²Π° Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ true.To mark a workbook as saved without writing it to a disk, set its Saved property to True.
ΠΡΠΈ ΠΏΠ΅ΡΠ²ΠΎΠΌ ΡΠΎΡ ΡΠ°Π½Π΅Π½ΠΈΠΈ ΠΊΠ½ΠΈΠ³ΠΈ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠΉΡΠ΅ ΠΌΠ΅ΡΠΎΠ΄ SaveAs Π΄Π»Ρ ΡΠΊΠ°Π·Π°Π½ΠΈΡ ΠΈΠΌΠ΅Π½ΠΈ ΡΠ°ΠΉΠ»Π°.The first time you save a workbook, use the SaveAs method to specify a name for the file.
ΠΡΠΈΠΌΠ΅ΡExample
Π ΡΡΠΎΠΌ ΠΏΡΠΈΠΌΠ΅ΡΠ΅ ΠΏΠΎΠΊΠ°Π·Π°Π½ΠΎ, ΠΊΠ°ΠΊ ΡΠΎΡ ΡΠ°Π½ΠΈΡΡ Π°ΠΊΡΠΈΠ²Π½ΡΡ ΠΊΠ½ΠΈΠ³Ρ.This example saves the active workbook.
ActiveWorkbook.Save
Π ΡΡΠΎΠΌ ΠΏΡΠΈΠΌΠ΅ΡΠ΅ ΠΏΠΎΠΊΠ°Π·Π°Π½ΠΎ, ΠΊΠ°ΠΊ ΡΠΎΡ ΡΠ°Π½ΠΈΡΡ Π²ΡΠ΅ ΠΎΡΠΊΡΡΡΡΠ΅ ΠΊΠ½ΠΈΠ³ΠΈ, Π° Π·Π°ΡΠ΅ΠΌ Π·Π°ΠΊΡΡΡΡ Microsoft Excel.This example saves all open workbooks and then closes Microsoft Excel.
For Each w In Application.Workbooks
w.Save
Next w
Application.Quit
Π ΡΡΠΎΠΌ ΠΏΡΠΈΠΌΠ΅ΡΠ΅ ΠΏΠΎΠΊΠ°Π·Π°Π½ΠΎ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ ΡΠΎΠ±ΡΡΠΈΡ BeforeSave Π΄Π»Ρ ΠΏΡΠΎΠ²Π΅ΡΠΊΠΈ ΡΠΎΠ³ΠΎ, ΡΡΠΎ ΠΎΠΏΡΠ΅Π΄Π΅Π»Π΅Π½Π½ΡΠ΅ ΡΡΠ΅ΠΉΠΊΠΈ ΡΠΎΠ΄Π΅ΡΠΆΠ°Ρ Π΄Π°Π½Π½ΡΠ΅, ΠΏΡΠ΅ΠΆΠ΄Π΅ ΡΠ΅ΠΌ ΠΌΠΎΠΆΠ½ΠΎ Π±ΡΠ΄Π΅Ρ ΡΠΎΡ ΡΠ°Π½ΠΈΡΡ ΠΊΠ½ΠΈΠ³Ρ.This example uses the BeforeSave event to verify that certain cells contain data before the workbook can be saved. ΠΠ½ΠΈΠ³Π° Π½Π΅ ΠΌΠΎΠΆΠ΅Ρ Π±ΡΡΡ ΡΠΎΡ ΡΠ°Π½Π΅Π½Π° Π΄ΠΎ ΡΠ΅Ρ ΠΏΠΎΡ, ΠΏΠΎΠΊΠ° Π½Π΅ Π±ΡΠ΄ΡΡ ΡΠΊΠ°Π·Π°Π½Ρ Π΄Π°Π½Π½ΡΠ΅ Π² ΠΊΠ°ΠΆΠ΄ΠΎΠΉ ΠΈΠ· ΡΠ»Π΅Π΄ΡΡΡΠΈΡ ΡΡΠ΅Π΅ΠΊ: D5, D7, D9, D11, D13 ΠΈ D15.The workbook cannot be saved until there is data in each of the following cells: D5, D7, D9, D11, D13, and D15.
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'If the six specified cells do not contain data, then display a message box with an error
'and cancel the attempt to save.
If WorksheetFunction.CountA(Worksheets("Sheet1").Range("D5,D7,D9,D11,D13,D15")) < 6 Then
MsgBox "Workbook will not be saved unless" & vbCrLf & _
"All required fields have been filled in!"
Cancel = True
End If
End Sub
ΠΠΎΠ΄Π΄Π΅ΡΠΆΠΊΠ° ΠΈ ΠΎΠ±ΡΠ°ΡΠ½Π°Ρ ΡΠ²ΡΠ·ΡSupport and feedback
ΠΡΡΡ Π²ΠΎΠΏΡΠΎΡΡ ΠΈΠ»ΠΈ ΠΎΡΠ·ΡΠ²Ρ, ΠΊΠ°ΡΠ°ΡΡΠΈΠ΅ΡΡ Office VBA ΠΈΠ»ΠΈ ΡΡΠΎΠΉ ΡΡΠ°ΡΡΠΈ?Have questions or feedback about Office VBA or this documentation? Π ΡΠΊΠΎΠ²ΠΎΠ΄ΡΡΠ²ΠΎ ΠΏΠΎ Π΄ΡΡΠ³ΠΈΠΌ ΡΠΏΠΎΡΠΎΠ±Π°ΠΌ ΠΏΠΎΠ»ΡΡΠ΅Π½ΠΈΡ ΠΏΠΎΠ΄Π΄Π΅ΡΠΆΠΊΠΈ ΠΈ ΠΎΡΠΏΡΠ°Π²ΠΊΠΈ ΠΎΡΠ·ΡΠ²ΠΎΠ² ΡΠΌ. Π² ΡΡΠ°ΡΡΠ΅ ΠΠΎΠ΄Π΄Π΅ΡΠΆΠΊΠ° Office VBA ΠΈ ΠΎΠ±ΡΠ°ΡΠ½Π°Ρ ΡΠ²ΡΠ·Ρ.Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.
ΠΠ°ΠΊ Π½Π° VBA ΡΠΎΡ ΡΠ°Π½ΠΈΡΡ ΡΠ°ΠΉΠ» Excel Ρ Π½Π°Π·Π²Π°Π½ΠΈΠ΅ΠΌ, Π²Π·ΡΡΡΠΌ ΠΈΠ· ΡΡΠ΅ΠΉΠΊΠΈ? | Info-Comp.ru
ΠΡΠΈΠ²Π΅Ρ, ΡΠ΅ΠΉΡΠ°Ρ ΠΌΡ ΡΠ°ΡΡΠΌΠΎΡΡΠΈΠΌ ΡΠΈΡΡΠ°ΡΠΈΡ, ΠΊΠΎΠ³Π΄Π° Ρ ΠΠ°Ρ Π²ΠΎΠ·Π½ΠΈΠΊΠ»Π° Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎΡΡΡ Π² Excel ΡΠΎΡ ΡΠ°Π½ΡΡΡ ΡΠ°ΠΉΠ» Ρ ΠΎΠΏΡΠ΅Π΄Π΅Π»Π΅Π½Π½ΡΠΌ Π½Π°Π·Π²Π°Π½ΠΈΠ΅ΠΌ, ΠΊΠΎΡΠΎΡΠΎΠ΅ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ ΡΡΠΎΡΠΌΠΈΡΠΎΠ²Π°ΡΡ ΠΈΠ· Π·Π½Π°ΡΠ΅Π½ΠΈΡ ΡΡΠ΅ΠΉΠΊΠΈ ΠΈΠ»ΠΈ Π΄Π°ΠΆΠ΅ Π½Π΅ΡΠΊΠΎΠ»ΡΠΊΠΈΡ . Π ΡΡΠΎΠΉ Π·Π°ΠΌΠ΅ΡΠΊΠ΅ Ρ ΠΏΡΠΈΠ²Π΅Π΄Ρ ΠΏΡΠΎΡΡΠΎΠΉ ΠΏΡΠΈΠΌΠ΅Ρ ΡΠ΅Π°Π»ΠΈΠ·Π°ΡΠΈΠΈ Π΄Π°Π½Π½ΠΎΠΉ Π·Π°Π΄Π°ΡΠΈ.
ΠΡΡ ΠΎΠ΄Π½ΡΠ΅ Π΄Π°Π½Π½ΡΠ΅
Π‘Π½Π°ΡΠ°Π»Π° Π΄Π°Π²Π°ΠΉΡΠ΅ ΡΠ°Π·Π±Π΅ΡΠ΅ΠΌ ΠΈΡΡ ΠΎΠ΄Π½ΡΠ΅ Π΄Π°Π½Π½ΡΠ΅, ΠΊΠΎΡΠΎΡΡΠ΅ Ρ Π±ΡΠ΄Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ Π² ΠΏΡΠΈΠΌΠ΅ΡΠ°Ρ . ΠΡΡΡΡ ΡΡΠΎ Π±ΡΠ΄Π΅Ρ Π½Π΅ΠΊΠ°Ρ Π°Π±ΡΡΡΠ°ΠΊΡΠΈΡ ΠΌΠ°ΡΠΎΠΊ Π°Π²ΡΠΎΠΌΠΎΠ±ΠΈΠ»Π΅ΠΉ Ρ ΡΠΊΠ°Π·Π°Π½ΠΈΠ΅ΠΌ ΠΈΡ VIN Π½ΠΎΠΌΠ΅ΡΠ°.
ΠΡΠΈΠΌΠ΅ΡΠ°Π½ΠΈΠ΅! Π― ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΡ Excel 2013.
Π Π·Π°Π²ΠΈΡΠΈΠΌΠΎΡΡΠΈ ΠΎΡ ΠΊΠΎΠ½ΠΊΡΠ΅ΡΠ½ΡΡ ΡΡΠ΅Π±ΠΎΠ²Π°Π½ΠΈΠΉ ΠΈ ΡΡΠ»ΠΎΠ²ΠΈΠΉ, Π·Π°Π΄Π°ΡΡ ΠΌΠΎΠΆΠ½ΠΎ ΡΠ΅Π°Π»ΠΈΠ·ΠΎΠ²Π°ΡΡ ΠΏΠΎ-ΡΠ°Π·Π½ΠΎΠΌΡ, Ρ ΠΎΡΡ ΠΏΡΠΈΠ½ΡΠΈΠΏ Π±ΡΠ΄Π΅Ρ ΠΎΠ΄ΠΈΠ½ ΠΈ ΡΠΎΡ ΠΆΠ΅, Π² ΡΡΠΎΠΉ ΡΡΠ°ΡΡΠ΅ ΠΌΡ ΡΠ°ΡΡΠΌΠΎΡΡΠΈΠΌ Π½Π΅ΡΠΊΠΎΠ»ΡΠΊΠΎ Π²Π°ΡΠΈΠ°ΡΠΈΠΉ ΡΠ΅Π°Π»ΠΈΠ·Π°ΡΠΈΠΈ.
ΠΠ°ΡΠ½Π΅ΠΌ ΠΌΡ Ρ ΡΠ°ΠΌΠΎΠΉ ΠΏΡΠΎΡΡΠΎΠΉ ΡΠΈΡΡΠ°ΡΠΈΠΈ, ΠΊΠΎΠ³Π΄Π° Π·Π°ΡΠ°Π½Π΅Π΅ ΠΈΠ·Π²Π΅ΡΡΠ½Π° ΡΡΠ΅ΠΉΠΊΠ°, Π½Π° ΠΎΡΠ½ΠΎΠ²Π΅ ΠΊΠΎΡΠΎΡΠΎΠΉ Π±ΡΠ΄Π΅Ρ ΡΡΠΎΡΠΌΠΈΡΠΎΠ²Π°Π½ΠΎ ΠΈΠΌΡ ΡΠ°ΠΉΠ»Π°, ΠΈ Π°Π΄ΡΠ΅Ρ ΡΡΠΎΠΉ ΡΡΠ΅ΠΉΠΊΠΈ ΠΈΠ·ΠΌΠ΅Π½ΡΡΡΡΡ Π½Π΅ Π±ΡΠ΄Π΅Ρ.
ΠΠ°ΠΌΠ΅ΡΠΊΠ°! ΠΡΠ°ΠΏΡ ΡΠ°Π·ΡΠ°Π±ΠΎΡΠΊΠΈ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ β ΠΊΠ°ΠΊ ΡΠΎΠ·Π΄Π°ΡΡΡΡ ΠΈ ΠΏΡΠΎΠ΅ΠΊΡΠΈΡΡΡΡΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ?
Π‘ΠΎΡ ΡΠ°Π½Π΅Π½ΠΈΠ΅ ΡΠ°ΠΉΠ»Π° Excel Ρ Π½Π°Π·Π²Π°Π½ΠΈΠ΅ΠΌ ΠΈΠ· ΡΡΠ΅ΠΉΠΊΠΈ β Ρ ΠΏΡΠΈΠ²ΡΠ·ΠΊΠΎΠΉ ΠΊ ΡΡΠΎΠΉ ΡΡΠ΅ΠΉΠΊΠ΅
ΠΡΠ°ΠΊ, Π΄Π°Π½Π½ΡΠ΅ Ρ Π½Π°Ρ Π΅ΡΡΡ, ΡΠ΅ΠΏΠ΅ΡΡ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ Π½Π°ΠΏΠΈΡΠ°ΡΡ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ Π½Π° VBA (ΠΌΠ°ΠΊΡΠΎΡ), ΠΊΠΎΡΠΎΡΠ°Ρ Π±ΡΠ°Π»Π° Π±Ρ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ΠΈΠ· ΠΊΠΎΠ½ΠΊΡΠ΅ΡΠ½ΠΎΠΉ ΡΡΠ΅ΠΉΠΊΠΈ, Π² Π΄Π°Π½Π½ΠΎΠΌ ΡΠ»ΡΡΠ°Π΅ ΡΡΠΎ Π±ΡΠ΄Π΅Ρ ΡΡΠ΅ΠΉΠΊΠ° B14, ΠΈ ΠΏΡΠΈΡΠ²Π°ΠΈΠ²Π°Π»Π° Π±Ρ ΡΡΠΎ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ΠΈΠΌΠ΅Π½ΠΈ ΡΠ°ΠΉΠ»Π°.
ΠΠΈΠΆΠ΅ ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»Π΅Π½ ΠΊΠΎΠ΄ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ, Ρ Π΅Π³ΠΎ ΠΏΠΎΠ΄ΡΠΎΠ±Π½ΠΎ ΠΏΡΠΎΠΊΠΎΠΌΠΌΠ΅Π½ΡΠΈΡΠΎΠ²Π°Π». ΠΠ΄ΠΈΠ½ΡΡΠ²Π΅Π½Π½ΠΎΠ΅ ΡΠΊΠ°ΠΆΡ, ΡΡΠΎ Ρ Π²ΠΎ Π²ΡΠ΅Ρ ΠΏΡΠΈΠΌΠ΅ΡΠ°Ρ ΡΠΎΡ ΡΠ°Π½ΡΡ Π½ΠΎΠ²ΡΠ΅ ΡΠ°ΠΉΠ»Ρ Π±Π΅Π· ΠΌΠ°ΠΊΡΠΎΡΠΎΠ² (ΡΠ°ΡΡΠΈΡΠ΅Π½ΠΈΠ΅ .xlsx), Ρ.Π΅. ΠΏΠΎ ΡΠ°ΠΊΡΡ Π±ΡΠ΄Π΅Ρ ΠΎΠ΄ΠΈΠ½ ΡΠ°ΠΉΠ» Ρ ΠΏΠΎΠ΄Π΄Π΅ΡΠΆΠΊΠΎΠΉ ΠΌΠ°ΠΊΡΠΎΡΠΎΠ², Π° Π²ΡΠ΅ ΠΏΡΠΎΠΈΠ·Π²ΠΎΠ΄Π½ΡΠ΅ β Π±Π΅Π·.
ΠΡΠ»ΠΈ Π½ΡΠΆΠ½ΠΎ ΡΠΎΡ ΡΠ°Π½ΡΡΡ ΠΌΠ°ΠΊΡΠΎΡ Π² ΠΊΠ°ΠΆΠ΄ΠΎΠΌ ΡΠ°ΠΉΠ»Π΅, Ρ.Π΅. ΡΠ°ΠΉΠ»Ρ Ρ ΠΏΠΎΠ΄Π΄Π΅ΡΠΆΠΊΠΎΠΉ ΠΌΠ°ΠΊΡΠΎΡΠΎΠ² (ΡΠ°ΡΡΠΈΡΠ΅Π½ΠΈΠ΅ .xlsm), ΡΠΎ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ ΠΏΡΠΎΡΡΠΎ ΡΠΊΠ°Π·Π°ΡΡ Π΄ΡΡΠ³ΠΎΠΉ ΡΠΈΠΏ ΡΠ°ΠΉΠ»Π° ΠΏΡΠΈ ΡΠΎΡ ΡΠ°Π½Π΅Π½ΠΈΠΈ, Π° ΠΈΠΌΠ΅Π½Π½ΠΎ xlOpenXMLWorkbookMacroEnabled, Π² ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ°Ρ Π² ΠΊΠΎΠΌΠΌΠ΅Π½ΡΠ°ΡΠΈΡΡ Ρ ΡΡΠΎ ΡΠΊΠ°Π·ΡΠ²Π°Ρ.
ΠΡΠΊΡΡΠ²Π°Π΅ΠΌ Π² Excel ΡΠ΅Π΄Π°ΠΊΡΠΎΡ Visual Basic, ΠΈ Π²ΡΡΠ°Π²Π»ΡΠ΅ΠΌ ΠΊΠΎΠ΄ ΡΠ»Π΅Π΄ΡΡΡΠ΅ΠΉ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ Π² ΠΈΡΡ ΠΎΠ΄Π½ΡΠΉ ΠΊΠΎΠ΄ ΡΡΠΎΠΉ ΠΊΠ½ΠΈΠ³ΠΈ (ΠΡΠ°ΠΠ½ΠΈΠ³Π°, ΠΎΡΠΊΡΡΡΡ Π΄Π²ΠΎΠΉΠ½ΡΠΌ ΠΊΠ»ΠΈΠΊΠΎΠΌ) ΠΈΠ»ΠΈ Π² ΠΌΠΎΠ΄ΡΠ»Ρ, ΠΊΠΎΡΠΎΡΡΠΉ ΠΡ ΠΏΡΠ΅Π΄Π²Π°ΡΠΈΡΠ΅Π»ΡΠ½ΠΎ Π΄ΠΎΠ»ΠΆΠ½Ρ ΡΠΎΠ·Π΄Π°ΡΡ.
ΠΡΠΈΠΌΠ΅ΡΠ°Π½ΠΈΠ΅! ΠΠ»Ρ ΡΠΎΠ³ΠΎ ΡΡΠΎΠ±Ρ ΠΎΡΠΊΡΡΡΡ ΡΠ΅Π΄Π°ΠΊΡΠΎΡ Visual Basic Π² Excel, Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ ΠΏΠ΅ΡΠ΅ΠΉΡΠΈ Π½Π° Π²ΠΊΠ»Π°Π΄ΠΊΡ Β«Π Π°Π·ΡΠ°Π±ΠΎΡΡΠΈΠΊΒ» ΠΈ Π½Π°ΠΆΠ°ΡΡ Π½Π° ΠΊΠ½ΠΎΠΏΠΊΡ Β«Visual BasicΒ». Π€Π°ΠΉΠ» Excel Ρ ΠΊΠΎΠ΄ΠΎΠΌ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ ΡΠΎΡ ΡΠ°Π½ΠΈΡΡ Ρ ΡΠΈΠΏΠΎΠΌ Β«ΠΠ½ΠΈΠ³Π° Excel Ρ ΠΏΠΎΠ΄Π΄Π΅ΡΠΆΠΊΠΎΠΉ ΠΌΠ°ΠΊΡΠΎΡΠΎΠ²Β».
ΠΠΎΠ΄ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ
Sub SaveFile() 'ΠΠ±ΡΡΠ²Π»Π΅Π½ΠΈΠ΅ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ Dim CellValue As String Dim Path As String Dim FinalFileName As String 'ΠΡΠ΅ΠΌΠ΅Π½Π½ΠΎ ΠΎΡΠΊΠ»ΡΡΠ°Π΅ΠΌ ΠΏΠΎΠΊΠ°Π· Π²ΡΠΏΠΎΠΌΠΎΠ³Π°ΡΠ΅Π»ΡΠ½ΡΡ ΡΠΎΠΎΠ±ΡΠ΅Π½ΠΈΠΉ Application.DisplayAlerts = False 'ΠΠ°Π΄Π°ΡΠΌ ΠΊΠ°ΡΠ°Π»ΠΎΠ³ ΡΠΎΡ ΡΠ°Π½Π΅Π½ΠΈΡ ΡΠ°ΠΉΠ»Π° (Π² Π΄Π°Π½Π½ΠΎΠΌ ΡΠ»ΡΡΠ°Π΅ ΡΠ΅ΠΊΡΡΠΈΠΉ ΠΊΠ°ΡΠ°Π»ΠΎΠ³) Path = ThisWorkbook.Path & "\" 'ΠΠΎΠ»ΡΡΠ°Π΅ΠΌ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ΡΡΠ΅ΠΉΠΊΠΈ CellValue = Range("B14") 'Π€ΠΎΡΠΌΠΈΡΡΠ΅ΠΌ ΠΈΡΠΎΠ³ΠΎΠ²ΡΠΉ ΠΏΡΡΡ ΠΈ Π½Π°Π·Π²Π°Π½ΠΈΠ΅ ΡΠ°ΠΉΠ»Π° FinalFileName = Path & CellValue 'Π‘ΠΎΡ ΡΠ°Π½ΡΠ΅ΠΌ ΡΠ°ΠΉΠ» ActiveWorkbook.SaveAs FileName:=FinalFileName, _ FileFormat:=xlOpenXMLWorkbook 'FileFormat:=xlOpenXMLWorkbookMacroEnabled 'ΠΠ»Ρ ΡΠΎΡ ΡΠ°Π½Π΅Π½ΠΈΡ ΡΠ°ΠΉΠ»Π° Ρ ΠΌΠ°ΠΊΡΠΎΡΠΎΠΌ 'ΠΠΊΠ»ΡΡΠ°Π΅ΠΌ Π²ΡΠ²ΠΎΠ΄ ΡΠΎΠΎΠ±ΡΠ΅Π½ΠΈΠΉ Application.DisplayAlerts = True 'Π‘ΠΎΠΎΠ±ΡΠ΅Π½ΠΈΠ΅ Ρ ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΠΎΠΌ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΡ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ MsgBox "Π€Π°ΠΉΠ» ΡΡΠΏΠ΅ΡΠ½ΠΎ ΡΠΎΡ ΡΠ°Π½Π΅Π½ Ρ Π½Π°Π·Π²Π°Π½ΠΈΠ΅ΠΌ - " & CellValue, vbInformation, "Π Π΅Π·ΡΠ»ΡΡΠ°Ρ" End Sub
ΠΠΎΡΠ»Π΅ ΡΠΎΡ ΡΠ°Π½Π΅Π½ΠΈΡ ΡΠ°ΠΉΠ»Π° Π·Π°ΠΏΡΡΡΠΈΡΠ΅ ΠΌΠ°ΠΊΡΠΎΡ (Β«ΠΠ°ΠΊΡΠΎΡΡ -> ΠΡΠΏΠΎΠ»Π½ΠΈΡΡ -> SaveFileΒ»).
Π ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΠ΅ Π² ΠΌΠΎΠ΅ΠΌ ΡΠ»ΡΡΠ°Π΅ ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ° ΡΡΠΏΠ΅ΡΠ½ΠΎ Π²ΡΠΏΠΎΠ»Π½ΠΈΠ»Π°ΡΡ, ΡΠ°ΠΉΠ» ΡΠΎΡ ΡΠ°Π½ΠΈΠ»ΡΡ Ρ Π½Π°Π·Π²Π°Π½ΠΈΠ΅ΠΌ Β«ΠΠ°ΡΠΊΠ° ΠΠ²ΡΠΎ 1Β», Π΄Π°Π½Π½ΠΎΠ΅ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ Π²Π·ΡΡΠΎ ΠΈΠ· ΡΡΠ΅ΠΉΠΊΠΈ B14, ΠΎ ΡΠ΅ΠΌ Π±ΡΠ΄Π΅Ρ ΡΠ²ΠΈΠ΄Π΅ΡΠ΅Π»ΡΡΡΠ²ΠΎΠ²Π°ΡΡ ΡΠΎΠΎΠ±ΡΠ΅Π½ΠΈΠ΅ Π² ΠΊΠΎΠ½ΡΠ΅ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ. Π€Π°ΠΉΠ» ΡΠΎΡ ΡΠ°Π½Π΅Π½ Π² ΠΊΠ°ΡΠ°Π»ΠΎΠ³Π΅, Π³Π΄Π΅ ΠΈ ΠΈΡΡ ΠΎΠ΄Π½ΡΠΉ ΡΠ°ΠΉΠ» (Π²ΠΎ Π²ΡΠ΅Ρ ΠΏΡΠΈΠΌΠ΅ΡΠ°Ρ Π½ΠΈΠΆΠ΅ ΠΏΡΠΎΠΏΠΈΡΠ°Π½ΠΎ ΡΠΎ ΠΆΠ΅ ΡΠ°ΠΌΠΎΠ΅, Ρ.Π΅. ΡΠΎΡ ΡΠ°Π½Π΅Π½ΠΈΠ΅ ΡΡΠ΄ΠΎΠΌ Ρ ΠΈΡΡ ΠΎΠ΄Π½ΠΈΠΊΠΎΠΌ, Π½ΠΎ ΡΡΠΎ ΠΡ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΠΈΠ·ΠΌΠ΅Π½ΠΈΡΡ).
ΠΠ°ΠΌΠ΅ΡΠΊΠ°! Π‘ΡΠ°ΡΠΈΡΠ΅ΡΠΊΠΈΠΉ Π°Π½Π°Π»ΠΈΠ· ΠΊΠΎΠ΄Π° Π² ΡΠ΅ΠΎΡΠΈΠΈ ΠΈ Π½Π° ΠΏΡΠ°ΠΊΡΠΈΠΊΠ΅.
ΠΠΎΠ±Π°Π²Π»Π΅Π½ΠΈΠ΅ ΠΊΠ½ΠΎΠΏΠΊΠΈ Π² Excel Π΄Π»Ρ Π·Π°ΠΏΡΡΠΊΠ° ΠΌΠ°ΠΊΡΠΎΡΠ°
ΠΠ°ΠΆΠ΄ΡΠΉ ΡΠ°Π· ΠΎΡΠΊΡΡΠ²Π°ΡΡ ΠΎΠΊΠ½ΠΎ Ρ ΠΌΠ°ΠΊΡΠΎΡΠ°ΠΌΠΈ ΠΈ Π²ΡΠ±ΠΈΡΠ°ΡΡ Π½ΡΠΆΠ½ΡΠΉ ΠΌΠ°ΠΊΡΠΎΡ Π½Π΅ ΠΎΡΠ΅Π½Ρ ΡΠ΄ΠΎΠ±Π½ΠΎ, ΠΏΠΎΡΡΠΎΠΌΡ ΠΌΠΎΠΆΠ½ΠΎ Π»Π΅Π³ΠΊΠΎ Π΄ΠΎΠ±Π°Π²ΠΈΡΡ ΠΊΠ½ΠΎΠΏΠΊΡ Π³Π΄Π΅-Π½ΠΈΠ±ΡΠ΄Ρ ΡΡΠ΄ΠΎΠΌ Ρ Π΄Π°Π½Π½ΡΠΌΠΈ ΠΈ ΠΏΡΠΎΡΡΠΎ Π½Π°ΠΆΠΈΠΌΠ°ΡΡ Π΅Π΅. ΠΡΠΎ Π΄Π΅Π»Π°Π΅ΡΡΡ ΡΠ»Π΅Π΄ΡΡΡΠΈΠΌ ΠΎΠ±ΡΠ°Π·ΠΎΠΌ Β«ΠΠΊΠ»Π°Π΄ΠΊΠ° Π Π°Π·ΡΠ°Π±ΠΎΡΡΠΈΠΊ -> ΠΡΡΠ°Π²ΠΈΡΡ -> ΠΠ½ΠΎΠΏΠΊΠ° (ΡΠ»Π΅ΠΌΠ΅Π½Ρ ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ ΡΠΎΡΠΌΡ)Β».
ΠΠ°ΡΠ΅ΠΌ Π²ΡΠ±Π΅ΡΠΈΡΠ΅ ΠΌΠ΅ΡΡΠΎ, Π³Π΄Π΅ Π²ΡΡΠ°Π²ΠΈΡΡ ΠΊΠ½ΠΎΠΏΠΊΡ, ΠΈ Π½Π°ΠΆΠΌΠΈΡΠ΅ ΡΡΠ΄Π°. ΠΠΎΡΠ»Π΅ ΡΡΠΎΠ³ΠΎ ΠΏΠΎΡΠ²ΠΈΡΡΡ ΠΎΠΊΠ½ΠΎ Π½Π°Π·Π½Π°ΡΠ΅Π½ΠΈΡ Π΄Π΅ΠΉΡΡΠ²ΠΈΡ, Ρ.Π΅. Π½ΡΠΆΠ½ΠΎ Π²ΡΠ±ΡΠ°ΡΡ, ΠΊΠ°ΠΊΠΎΠΉ ΠΌΠ°ΠΊΡΠΎΡ Π·Π°ΠΏΡΡΠΊΠ°ΡΡ ΠΏΡΠΈ Π½Π°ΠΆΠ°ΡΠΈΠΈ ΡΡΠΎΠΉ ΠΊΠ½ΠΎΠΏΠΊΠΈ, Π²ΡΠ±ΠΈΡΠ°Π΅ΠΌ Π½Π°Ρ ΠΌΠ°ΠΊΡΠΎΡ, Ρ.Π΅. SaveFile, ΠΈ Π½Π°ΠΆΠΈΠΌΠ°Π΅ΠΌ Β«ΠΠΒ».
Π ΠΈΡΠΎΠ³Π΅ ΠΏΠΎΡΠ²ΠΈΡΡΡ ΠΊΠ½ΠΎΠΏΠΊΠ° Ρ Π½Π°Π·Π²Π°Π½ΠΈΠ΅ΠΌ Β«ΠΠ½ΠΎΠΏΠΊΠ°Β», ΡΡΠΎ Π½Π°Π·Π²Π°Π½ΠΈΠ΅ Π»ΡΡΡΠ΅ ΠΈΠ·ΠΌΠ΅Π½ΠΈΡΡ, Π½Π°ΠΏΡΠΈΠΌΠ΅Ρ, Π½Π° Β«Π‘ΠΎΡ ΡΠ°Π½ΠΈΡΡ ΡΠ°ΠΉΠ»Β». ΠΠ»Ρ ΡΡΠΎΠ³ΠΎ Π½Π°ΠΆΠΌΠΈΡΠ΅ ΠΏΡΠ°Π²ΠΎΠΉ ΠΊΠ½ΠΎΠΏΠΊΠΎΠΉ ΠΌΡΡΠΈ Π½Π° ΠΊΠ½ΠΎΠΏΠΊΡ ΠΈ Π²ΡΠ±Π΅ΡΠΈΡΠ΅ Π½Π°ΡΡΡΠΎΠΉΠΊΠΈ Β«ΠΠ·ΠΌΠ΅Π½ΠΈΡΡ ΡΠ΅ΠΊΡΡΒ». Π ΠΈΡΠΎΠ³Π΅ Ρ ΠΠ°Ρ Π΄ΠΎΠ»ΠΆΠ½ΠΎ ΠΏΠΎΠ»ΡΡΠΈΡΡΡΡ ΡΡΠΎ-ΡΠΎ Π²ΡΠΎΠ΄Π΅ ΡΡΠΎΠ³ΠΎ.
ΠΠ°ΠΌΠ΅ΡΠΊΠ°! Π’ΠΠ 7 ΠΏΠΎΠΏΡΠ»ΡΡΠ½ΡΡ ΡΠ·ΡΠΊΠΎΠ² ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ.
Π‘ΠΎΡ ΡΠ°Π½Π΅Π½ΠΈΠ΅ ΡΠ°ΠΉΠ»Π° Excel Ρ Π½Π°Π·Π²Π°Π½ΠΈΠ΅ΠΌ ΠΈΠ· ΡΡΠ΅ΠΉΠΊΠΈ β Π±Π΅Π· ΠΏΡΠΈΠ²ΡΠ·ΠΊΠΈ ΠΊ ΡΡΠ΅ΠΉΠΊΠ΅
Π’Π΅ΠΏΠ΅ΡΡ Π΄Π°Π²Π°ΠΉΡΠ΅ ΠΏΡΠ΅Π΄ΡΡΠ°Π²ΠΈΠΌ, ΡΡΠΎ Π·Π°ΡΠ°Π½Π΅Π΅ ΠΌΡ Π½Π΅ ΠΌΠΎΠΆΠ΅ΠΌ ΠΎΠΏΡΠ΅Π΄Π΅Π»ΠΈΡΡ, ΠΊΠ°ΠΊΠ°Ρ ΠΈΠΌΠ΅Π½Π½ΠΎ ΡΡΠ΅ΠΉΠΊΠ° Π±ΡΠ΄Π΅Ρ ΡΠΎΡΠΌΠΈΡΠΎΠ²Π°ΡΡ Π½Π°Π·Π²Π°Π½ΠΈΠ΅ ΡΠ°ΠΉΠ»Π° (ΠΌΠΎΠΆΠ΅Ρ B14, Π° ΠΌΠΎΠΆΠ΅Ρ ΠΈ Π½Π΅Ρ), ΠΏΠΎΡΡΠΎΠΌΡ ΠΌΡ ΠΌΠΎΠΆΠ΅ΠΌ Π½Π΅ΠΌΠ½ΠΎΠ³ΠΎ ΡΠΊΠΎΡΡΠ΅ΠΊΡΠΈΡΠΎΠ²Π°ΡΡ Π°Π»Π³ΠΎΡΠΈΡΠΌ ΡΠ°ΠΊΠΈΠΌ ΠΎΠ±ΡΠ°Π·ΠΎΠΌ, ΡΡΠΎΠ±Ρ ΠΎΠ½ Π±ΡΠ°Π» Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ΠΈΠ· ΡΡΠ΅ΠΉΠΊΠΈ, ΠΊΠΎΡΠΎΡΠ°Ρ ΡΠ²Π»ΡΠ΅ΡΡΡ Π°ΠΊΡΠΈΠ²Π½ΠΎΠΉ, Π½ΠΎ Π² ΡΡΠΎΠΌ ΡΠ»ΡΡΠ°Π΅ ΠΡ, ΠΊΠΎΠ½Π΅ΡΠ½ΠΎ ΠΆΠ΅, ΠΏΡΠ΅Π΄Π²Π°ΡΠΈΡΠ΅Π»ΡΠ½ΠΎ, Π΄ΠΎΠ»ΠΆΠ½Ρ Π²ΡΠ±ΡΠ°ΡΡ Π΅Π΅ (Ρ.Π΅. Π²ΡΡΠ°ΡΡ Π½Π° Π½Π΅Π΅).
ΠΠ°ΠΌΠ΅Π½ΠΈΡΠ΅ ΠΊΠΎΠ΄ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ ΡΠ»Π΅Π΄ΡΡΡΠΈΠΌ ΠΊΠΎΠ΄ΠΎΠΌ, ΠΊΠΎΡΠΎΡΡΠΉ ΡΠΎΠ²ΡΠ΅ΠΌ Π½Π΅ΠΌΠ½ΠΎΠ³ΠΎ, Π½ΠΎ ΠΈΠ·ΠΌΠ΅Π½Π΅Π½.
Sub SaveFile() 'ΠΠ±ΡΡΠ²Π»Π΅Π½ΠΈΠ΅ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ Dim CellValue As String Dim Path As String Dim FinalFileName As String 'ΠΡΠ΅ΠΌΠ΅Π½Π½ΠΎ ΠΎΡΠΊΠ»ΡΡΠ°Π΅ΠΌ ΠΏΠΎΠΊΠ°Π· Π²ΡΠΏΠΎΠΌΠΎΠ³Π°ΡΠ΅Π»ΡΠ½ΡΡ ΡΠΎΠΎΠ±ΡΠ΅Π½ΠΈΠΉ Application.DisplayAlerts = False 'ΠΠ°Π΄Π°ΡΠΌ ΠΊΠ°ΡΠ°Π»ΠΎΠ³ ΡΠΎΡ ΡΠ°Π½Π΅Π½ΠΈΡ ΡΠ°ΠΉΠ»Π° (Π² Π΄Π°Π½Π½ΠΎΠΌ ΡΠ»ΡΡΠ°Π΅ ΡΠ΅ΠΊΡΡΠΈΠΉ ΠΊΠ°ΡΠ°Π»ΠΎΠ³) Path = ThisWorkbook.Path & "\" 'ΠΡΠΎΠ²Π΅ΡΠΊΠ° Π·Π½Π°ΡΠ΅Π½ΠΈΡ ΡΡΠ΅ΠΉΠΊΠΈ If ActiveCell.Value = "" Then MsgBox "Π ΡΡΠ΅ΠΉΠΊΠ΅ ΠΎΡΡΡΡΡΡΠ²ΡΠ΅Ρ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅", vbCritical, "ΠΡΠΈΠ±ΠΊΠ°!" Exit Sub End If 'ΠΠΎΠ»ΡΡΠ°Π΅ΠΌ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ Π°ΠΊΡΠΈΠ²Π½ΠΎΠΉ ΡΡΠ΅ΠΉΠΊΠΈ CellValue = ActiveCell.Value 'Π€ΠΎΡΠΌΠΈΡΡΠ΅ΠΌ ΠΈΡΠΎΠ³ΠΎΠ²ΡΠΉ ΠΏΡΡΡ ΠΈ Π½Π°Π·Π²Π°Π½ΠΈΠ΅ ΡΠ°ΠΉΠ»Π° FinalFileName = Path & CellValue 'Π‘ΠΎΡ ΡΠ°Π½ΡΠ΅ΠΌ ΡΠ°ΠΉΠ» ActiveWorkbook.SaveAs FileName:=FinalFileName, _ FileFormat:=xlOpenXMLWorkbook 'FileFormat:=xlOpenXMLWorkbookMacroEnabled 'ΠΠ»Ρ ΡΠΎΡ ΡΠ°Π½Π΅Π½ΠΈΡ ΡΠ°ΠΉΠ»Π° Ρ ΠΌΠ°ΠΊΡΠΎΡΠΎΠΌ 'ΠΠΊΠ»ΡΡΠ°Π΅ΠΌ Π²ΡΠ²ΠΎΠ΄ ΡΠΎΠΎΠ±ΡΠ΅Π½ΠΈΠΉ Application.DisplayAlerts = True MsgBox "Π€Π°ΠΉΠ» ΡΡΠΏΠ΅ΡΠ½ΠΎ ΡΠΎΡ ΡΠ°Π½Π΅Π½ Ρ Π½Π°Π·Π²Π°Π½ΠΈΠ΅ΠΌ - " & CellValue, vbInformation, "Π Π΅Π·ΡΠ»ΡΡΠ°Ρ" End Sub
ΠΡΠΎΠ²Π΅ΡΡΠ΅ΠΌ ΡΠ°Π±ΠΎΡΡ, ΡΡΠ°Π½ΠΎΠ²ΠΈΠΌΡΡ Π½Π° Π½ΡΠΆΠ½ΡΡ ΡΡΠ΅ΠΉΠΊΡ, ΠΈ Π·Π°ΠΏΡΡΠΊΠ°Π΅ΠΌ ΠΌΠ°ΠΊΡΠΎΡ (Π² ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ΅ Ρ Π΄ΠΎΠ±Π°Π²ΠΈΠ» ΠΏΡΠΎΠ²Π΅ΡΠΊΡ, Π΅ΡΠ»ΠΈ Π²ΡΠ±ΡΠ°Π½Π° ΠΏΡΡΡΠ°Ρ ΡΡΠ΅ΠΉΠΊΠ°, Π²ΠΎΠ·Π½ΠΈΠΊΠ½Π΅Ρ ΠΎΡΠΈΠ±ΠΊΠ°).
ΠΠ°ΠΊ Π²ΠΈΠ΄ΠΈΠΌ, Π²ΡΠ΅ ΠΎΡΡΠ°Π±ΠΎΡΠ°Π»ΠΎ.
Π‘ΠΎΡ ΡΠ°Π½Π΅Π½ΠΈΠ΅ ΡΠ°ΠΉΠ»Π° Excel Ρ Π½Π°Π·Π²Π°Π½ΠΈΠ΅ΠΌ, ΠΊΠΎΡΠΎΡΠΎΠ΅ ΡΡΠΎΡΠΌΠΈΡΠΎΠ²Π°Π½ΠΎ ΠΈΠ· Π·Π½Π°ΡΠ΅Π½ΠΈΠΉ Π΄Π²ΡΡ ΡΡΠ΅Π΅ΠΊ
Π’Π΅ΠΏΠ΅ΡΡ ΠΏΡΠ΅Π΄ΡΡΠ°Π²ΠΈΠΌ, ΡΡΠΎ Π½Π°ΠΌ Π½ΡΠΆΠ½ΠΎ ΡΡΠΎΡΠΌΠΈΡΠΎΠ²Π°ΡΡ ΡΠ°ΠΉΠ» Ρ Π½Π°Π·Π²Π°Π½ΠΈΠ΅ΠΌ ΠΈΠ· Π·Π½Π°ΡΠ΅Π½ΠΈΠΉ Π΄Π²ΡΡ ΡΡΠ΅Π΅ΠΊ. ΠΠ°ΠΏΡΠΈΠΌΠ΅Ρ, Π² Π½Π°ΡΠ΅ΠΌ ΡΠ»ΡΡΠ°Π΅ ΡΡΠΎ ΠΌΠΎΠΆΠ΅Ρ Π±ΡΡΡ Β«ΠΠ°ΡΠΊΠ° ΠΠ²ΡΠΎ β VIN ΠΠΎΠΌΠ΅ΡΒ», Π² ΠΊΠ°ΡΠ΅ΡΡΠ²Π΅ ΡΠ°Π·Π΄Π΅Π»ΠΈΡΠ΅Π»Ρ Ρ ΡΠΊΠ°Π·Π°Π» ΡΠΈΠΌΠ²ΠΎΠ» β (Π΄Π΅ΡΠΈΡ), Π½ΠΎ ΠΈΠΌ ΠΌΠΎΠΆΠ΅Ρ Π²ΡΡΡΡΠΏΠ°ΡΡ Π»ΡΠ±ΠΎΠΉ ΡΠΈΠΌΠ²ΠΎΠ» ΠΈΠ»ΠΈ Π²ΠΎΠ²ΡΠ΅ ΠΎΡΡΡΡΡΡΠ²ΠΎΠ²Π°ΡΡ.
Π ΡΡΠΎΠΌ ΠΏΡΠΈΠΌΠ΅ΡΠ΅ Ρ ΠΏΠΎΠΊΠ°ΠΆΡ, ΠΊΠ°ΠΊ ΠΌΠΎΠΆΠ½ΠΎ ΡΡΠΎ ΡΠ΅Π°Π»ΠΈΠ·ΠΎΠ²Π°ΡΡ Ρ ΠΏΡΠΈΠ²ΡΠ·ΠΊΠΎΠΉ ΠΊ ΠΊΠΎΠ½ΠΊΡΠ΅ΡΠ½ΡΠΌ ΡΡΠ΅ΠΉΠΊΠ°ΠΌ, Π² Π½Π°ΡΠ΅ΠΌ ΡΠ»ΡΡΠ°Π΅ B14 ΠΈ D14.
ΠΠΎΠ΄ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ Π² Π΄Π°Π½Π½ΠΎΠΌ ΡΠ»ΡΡΠ°Π΅ Π±ΡΠ΄Π΅Ρ Π²ΡΠ³Π»ΡΠ΄Π΅ΡΡ ΡΠ»Π΅Π΄ΡΡΡΠΈΠΌ ΠΎΠ±ΡΠ°Π·ΠΎΠΌ.
Sub SaveFile() 'ΠΠ±ΡΡΠ²Π»Π΅Π½ΠΈΠ΅ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ Dim CellValue As String Dim Path As String Dim FinalFileName As String 'ΠΡΠ΅ΠΌΠ΅Π½Π½ΠΎ ΠΎΡΠΊΠ»ΡΡΠ°Π΅ΠΌ ΠΏΠΎΠΊΠ°Π· Π²ΡΠΏΠΎΠΌΠΎΠ³Π°ΡΠ΅Π»ΡΠ½ΡΡ ΡΠΎΠΎΠ±ΡΠ΅Π½ΠΈΠΉ Application.DisplayAlerts = False 'ΠΠ°Π΄Π°ΡΠΌ ΠΊΠ°ΡΠ°Π»ΠΎΠ³ ΡΠΎΡ ΡΠ°Π½Π΅Π½ΠΈΡ ΡΠ°ΠΉΠ»Π° (Π² Π΄Π°Π½Π½ΠΎΠΌ ΡΠ»ΡΡΠ°Π΅ ΡΠ΅ΠΊΡΡΠΈΠΉ ΠΊΠ°ΡΠ°Π»ΠΎΠ³) Path = ThisWorkbook.Path & "\" 'ΠΡΠΎΠ²Π΅ΡΠΊΠ° Π·Π½Π°ΡΠ΅Π½ΠΈΡ ΡΡΠ΅Π΅ΠΊ B14 ΠΈ D14 If Range("B14").Value = "" Or Range("D14").Value = "" Then MsgBox "Π ΡΡΠ΅ΠΉΠΊΠ΅ ΠΎΡΡΡΡΡΡΠ²ΡΠ΅Ρ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅", vbCritical, "ΠΡΠΈΠ±ΠΊΠ°!" Exit Sub End If 'Π‘ΠΊΠ»Π°Π΄ΡΠ²Π°Π΅ΠΌ Π·Π½Π°ΡΠ΅Π½ΠΈΡ ΠΈΠ· Π΄Π²ΡΡ ΡΡΠ΅Π΅ΠΊ B14 ΠΈ D14 CellValue = Range("B14").Value & " - " & Range("D14").Value 'Π€ΠΎΡΠΌΠΈΡΡΠ΅ΠΌ ΠΈΡΠΎΠ³ΠΎΠ²ΡΠΉ ΠΏΡΡΡ ΠΈ Π½Π°Π·Π²Π°Π½ΠΈΠ΅ ΡΠ°ΠΉΠ»Π° FinalFileName = Path & CellValue 'Π‘ΠΎΡ ΡΠ°Π½ΡΠ΅ΠΌ ΡΠ°ΠΉΠ» ActiveWorkbook.SaveAs FileName:=FinalFileName, _ FileFormat:=xlOpenXMLWorkbook 'FileFormat:=xlOpenXMLWorkbookMacroEnabled 'ΠΠ»Ρ ΡΠΎΡ ΡΠ°Π½Π΅Π½ΠΈΡ ΡΠ°ΠΉΠ»Π° Ρ ΠΌΠ°ΠΊΡΠΎΡΠΎΠΌ 'ΠΠΊΠ»ΡΡΠ°Π΅ΠΌ Π²ΡΠ²ΠΎΠ΄ ΡΠΎΠΎΠ±ΡΠ΅Π½ΠΈΠΉ Application.DisplayAlerts = True MsgBox "Π€Π°ΠΉΠ» ΡΡΠΏΠ΅ΡΠ½ΠΎ ΡΠΎΡ ΡΠ°Π½Π΅Π½ Ρ Π½Π°Π·Π²Π°Π½ΠΈΠ΅ΠΌ - " & CellValue, vbInformation, "Π Π΅Π·ΡΠ»ΡΡΠ°Ρ" End Sub
ΠΠ°ΠΏΡΡΠΊΠ°Π΅ΠΌ ΠΌΠ°ΠΊΡΠΎΡ.
ΠΡΠ΅ ΠΠ, ΡΠ°ΠΉΠ» ΡΠΎΠ·Π΄Π°Π½.
ΠΠ°ΠΌΠ΅ΡΠΊΠ°! ΠΠ°ΠΊ ΠΈΠ·ΠΌΠ΅ΡΠΈΡΡ ΡΠ»ΠΎΠΆΠ½ΠΎΡΡΡ ΠΊΠΎΠ΄Π° ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΠΏΡΠΈ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΠΈ?
ΠΡΠ»ΠΈ Π²Π΄ΡΡΠ³ Π½ΡΠΆΠ½ΠΎ ΡΠ΅Π°Π»ΠΈΠ·ΠΎΠ²Π°ΡΡ Π±Π΅Π· ΠΏΡΠΈΠ²ΡΠ·ΠΊΠΈ ΠΊ ΠΊΠΎΠ½ΠΊΡΠ΅ΡΠ½ΡΠΌ ΡΡΠ΅ΠΉΠΊΠ°ΠΌ, Π½Π°ΠΏΡΠΈΠΌΠ΅Ρ, Π·Π½Π°ΡΠ΅Π½ΠΈΡ Ρ ΡΠ°Π½ΡΡΡΡ Π² ΠΎΠΏΡΠ΅Π΄Π΅Π»ΡΠ½Π½ΡΡ ΡΡΠΎΠ»Π±ΡΠ°Ρ , Π½ΠΎ ΠΊΠΎΠ½ΠΊΡΠ΅ΡΠ½Π°Ρ ΡΡΡΠΎΠΊΠ° Π½Π΅ΠΈΠ·Π²Π΅ΡΡΠ½Π° ΠΠ°ΠΌ Π·Π°ΡΠ°Π½Π΅Π΅. ΠΠ°ΠΏΡΠΈΠΌΠ΅Ρ, Ρ ΠΌΠ΅Π½Ρ Π½Π΅ΡΠΊΠΎΠ»ΡΠΊΠΎ ΡΡΡΠΎΠΊ ΡΠΎ Π·Π½Π°ΡΠ΅Π½ΠΈΡΠΌΠΈ, ΠΈ ΠΊΠ°ΠΊΠΈΠ΅ ΠΊΠΎΠ½ΠΊΡΠ΅ΡΠ½ΠΎ Π·Π½Π°ΡΠ΅Π½ΠΈΡ Π²Π·ΡΡΡ Π·Π° ΠΎΡΠ½ΠΎΠ²Ρ Π½Π°Π·Π²Π°Π½ΠΈΡ ΡΠ°ΠΉΠ»Π°, Ρ Ρ ΠΎΡΡ ΡΠΊΠ°Π·ΡΠ²Π°ΡΡ ΡΠ°ΠΌΠΎΡΡΠΎΡΡΠ΅Π»ΡΠ½ΠΎ, Π½Π΅ΠΏΠΎΡΡΠ΅Π΄ΡΡΠ²Π΅Π½Π½ΠΎ ΠΏΠ΅ΡΠ΅Π΄ ΡΠΎΡ ΡΠ°Π½Π΅Π½ΠΈΠ΅ΠΌ, Π½ΠΎ ΠΏΡΠΈ ΡΡΠΎΠΌ Π½Π΅ ΡΠ΅Π΄Π°ΠΊΡΠΈΡΠΎΠ²Π°ΡΡ ΠΊΠΎΠ΄ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ.
ΠΠ»Ρ ΡΡΠΎΠ³ΠΎ ΠΌΡ ΡΠ½ΠΎΠ²Π° Π²Π½Π΅ΡΠ΅ΠΌ ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΡ Π² Π½Π°ΡΡ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ, ΠΊΠΎΡΠΎΡΠ°Ρ Π±ΡΠ΄Π΅Ρ ΡΠ°Π±ΠΎΡΠ°ΡΡ ΠΎΡ Π°ΠΊΡΠΈΠ²Π½ΠΎΠΉ ΡΡΠ΅ΠΉΠΊΠΈ (ΡΠΌΠ΅ΡΠ΅Π½ΠΈΠ΅ ΠΎΡ Π°ΠΊΡΠΈΠ²Π½ΠΎΠΉ ΡΡΠ΅ΠΉΠΊΠΈ), ΡΠΎΠ»ΡΠΊΠΎ Ρ ΡΡΠ»ΠΎΠ²ΠΈΠ΅ΠΌ ΡΠΎΠ³ΠΎ, ΡΡΠΎ Π²ΡΠ±ΡΠ°Π½ ΡΡΠΎΠ»Π±Π΅Ρ Ρ ΡΠ΅ΠΌΠΈ Π·Π½Π°ΡΠ΅Π½ΠΈΡΠΌΠΈ, ΠΊΠΎΡΠΎΡΡΠ΅ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ.
ΠΠΎΠ΄ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ
Sub SaveFile() 'ΠΠ±ΡΡΠ²Π»Π΅Π½ΠΈΠ΅ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ Dim CellValue As String Dim Path As String Dim FinalFileName As String 'ΠΡΠ΅ΠΌΠ΅Π½Π½ΠΎ ΠΎΡΠΊΠ»ΡΡΠ°Π΅ΠΌ ΠΏΠΎΠΊΠ°Π· Π²ΡΠΏΠΎΠΌΠΎΠ³Π°ΡΠ΅Π»ΡΠ½ΡΡ ΡΠΎΠΎΠ±ΡΠ΅Π½ΠΈΠΉ Application.DisplayAlerts = False 'ΠΠ°Π΄Π°ΡΠΌ ΠΊΠ°ΡΠ°Π»ΠΎΠ³ ΡΠΎΡ ΡΠ°Π½Π΅Π½ΠΈΡ ΡΠ°ΠΉΠ»Π° (Π² Π΄Π°Π½Π½ΠΎΠΌ ΡΠ»ΡΡΠ°Π΅ ΡΠ΅ΠΊΡΡΠΈΠΉ ΠΊΠ°ΡΠ°Π»ΠΎΠ³) Path = ThisWorkbook.Path & "\" 'ΠΡΠΎΠ²Π΅ΡΠΊΠ° Π½ΠΎΠΌΠ΅ΡΠ° ΡΡΠΎΠ»Π±ΡΠ° If ActiveCell.Column <> 2 Then MsgBox "Π£ΠΊΠ°Π·Π°Π½ Π½Π΅ΠΊΠΎΡΡΠ΅ΠΊΡΠ½ΡΠΉ ΡΡΠΎΠ»Π±Π΅Ρ", vbCritical, "ΠΡΠΈΠ±ΠΊΠ°!" Exit Sub End If 'ΠΡΠΎΠ²Π΅ΡΠΊΠ° Π·Π½Π°ΡΠ΅Π½ΠΈΡ ΡΡΠ΅ΠΉΠΊΠΈ If ActiveCell.Value = "" Then MsgBox "Π ΡΡΠ΅ΠΉΠΊΠ΅ ΠΎΡΡΡΡΡΡΠ²ΡΠ΅Ρ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅", vbCritical, "ΠΡΠΈΠ±ΠΊΠ°!" Exit Sub End If 'ΠΠΎΠ»ΡΡΠ°Π΅ΠΌ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ Π°ΠΊΡΠΈΠ²Π½ΠΎΠΉ ΡΡΠ΅ΠΉΠΊΠΈ CellValue = ActiveCell.Value 'Π‘ΠΌΠ΅ΡΠ°Π΅ΠΌΡΡ Π½Π° 2 ΡΡΠΎΠ»Π±ΡΠ°, ΠΎΡΠ½ΠΎΡΠΈΡΠ΅Π»ΡΠ½ΠΎ Π°ΠΊΡΠΈΠ²Π½ΠΎΠΉ ΡΡΠ΅ΠΉΠΊΠΈ ActiveCell.Offset(0, 2).Select 'Π‘ΠΊΠ»Π°Π΄ΡΠ²Π°Π΅ΠΌ Π·Π½Π°ΡΠ΅Π½ΠΈΡ ΠΈΠ· Π΄Π²ΡΡ ΡΡΠ΅Π΅ΠΊ CellValue = CellValue & " - " & ActiveCell.Value 'Π€ΠΎΡΠΌΠΈΡΡΠ΅ΠΌ ΠΈΡΠΎΠ³ΠΎΠ²ΡΠΉ ΠΏΡΡΡ ΠΈ Π½Π°Π·Π²Π°Π½ΠΈΠ΅ ΡΠ°ΠΉΠ»Π° FinalFileName = Path & CellValue 'Π‘ΠΎΡ ΡΠ°Π½ΡΠ΅ΠΌ ΡΠ°ΠΉΠ» ActiveWorkbook.SaveAs FileName:=FinalFileName, _ FileFormat:=xlOpenXMLWorkbook 'FileFormat:=xlOpenXMLWorkbookMacroEnabled 'ΠΠ»Ρ ΡΠΎΡ ΡΠ°Π½Π΅Π½ΠΈΡ ΡΠ°ΠΉΠ»Π° Ρ ΠΌΠ°ΠΊΡΠΎΡΠΎΠΌ 'ΠΠΊΠ»ΡΡΠ°Π΅ΠΌ Π²ΡΠ²ΠΎΠ΄ ΡΠΎΠΎΠ±ΡΠ΅Π½ΠΈΠΉ Application.DisplayAlerts = True MsgBox "Π€Π°ΠΉΠ» ΡΡΠΏΠ΅ΡΠ½ΠΎ ΡΠΎΡ ΡΠ°Π½Π΅Π½ Ρ Π½Π°Π·Π²Π°Π½ΠΈΠ΅ΠΌ - " & CellValue, vbInformation, "Π Π΅Π·ΡΠ»ΡΡΠ°Ρ" End Sub
Π‘ΡΠ°Π½ΠΎΠ²ΠΈΡΠ΅ΡΡ Π½Π° Π»ΡΠ±ΡΡ ΡΡΠ΅ΠΉΠΊΡ ΡΠΎ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ΠΌ Π² ΡΡΠΎΠ»Π±ΡΠ΅ B, ΠΈ Π·Π°ΠΏΡΡΠΊΠ°ΠΉΡΠ΅ ΠΌΠ°ΠΊΡΠΎΡ.
ΠΠ°ΠΌΠ΅ΡΠΊΠ°! ΠΠΏΡΠΎΡ. ΠΠ°ΠΊΠΎΠΉ ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠΎΠ½Π½ΠΎΠΉ ΡΠΈΡΡΠ΅ΠΌΠΎΠΉ ΠΡ ΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΠ΅ΡΡ?
Π£ ΠΌΠ΅Π½Ρ Π½Π° ΡΡΠΎΠΌ Π²ΡΠ΅, Π½Π°Π΄Π΅ΡΡΡ, ΠΌΠ°ΡΠ΅ΡΠΈΠ°Π» Π±ΡΠ» ΠΠ°ΠΌ ΠΏΠΎΠ»Π΅Π·Π΅Π½, ΠΏΠΎΠΊΠ°!
ΠΡΠ°Π²ΠΈΡΡΡ3ΠΠ΅ Π½ΡΠ°Π²ΠΈΡΡΡ
VBA Excel. Π Π°Π±ΠΎΡΠ°Ρ ΠΊΠ½ΠΈΠ³Π° (ΠΎΡΠΊΡΡΡΡ, ΡΠΎΠ·Π΄Π°ΡΡ Π½ΠΎΠ²ΡΡ, Π·Π°ΠΊΡΡΡΡ)
ΠΡΠΊΡΡΡΠΈΠ΅ ΠΊΠ½ΠΈΠ³ΠΈ Excel ΠΈΠ· ΠΊΠΎΠ΄Π° VBA. Π‘ΠΎΠ·Π΄Π°Π½ΠΈΠ΅ Π½ΠΎΠ²ΠΎΠΉ ΠΊΠ½ΠΈΠ³ΠΈ, ΠΏΡΠΈΡΠ²ΠΎΠ΅Π½ΠΈΠ΅ Π΅ΠΉ ΠΈΠΌΠ΅Π½ΠΈ. ΠΠ±ΡΠ°ΡΠ΅Π½ΠΈΠ΅ ΠΊ ΠΎΡΠΊΡΡΡΠΎΠΉ ΠΊΠ½ΠΈΠ³Π΅ ΠΈ Π·Π°ΠΊΡΡΡΠΈΠ΅. ΠΠ΅ΡΠΎΠ΄Ρ Open, Add ΠΈ Close ΠΎΠ±ΡΠ΅ΠΊΡΠ° Workbooks.
ΠΡΠΊΡΡΡΠΈΠ΅ ΡΡΡΠ΅ΡΡΠ²ΡΡΡΠ΅ΠΉ ΠΊΠ½ΠΈΠ³ΠΈ
Π‘ΡΡΠ΅ΡΡΠ²ΡΡΡΠ°Ρ ΠΊΠ½ΠΈΠ³Π° ΠΎΡΠΊΡΡΠ²Π°Π΅ΡΡΡ ΠΈΠ· ΠΊΠΎΠ΄Π° VBA Excel Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΠΌΠ΅ΡΠΎΠ΄Π° Open:
Workbooks.Open Filename:=»D:\test1.xls» |
ΠΈΠ»ΠΈ
Workbooks.Open («D:\test1.xls») |
Π ΠΊΠ°Π²ΡΡΠΊΠ°Ρ
ΡΠΊΠ°Π·ΡΠ²Π°Π΅ΡΡΡ ΠΏΠΎΠ»Π½ΡΠΉ ΠΏΡΡΡ ΠΊ ΠΎΡΠΊΡΡΠ²Π°Π΅ΠΌΠΎΠΌΡ ΡΠ°ΠΉΠ»Ρ Excel. ΠΡΠ»ΠΈ ΡΠ°ΠΊΠΎΠΉ ΡΠ°ΠΉΠ» Π½Π΅ ΡΡΡΠ΅ΡΡΠ²ΡΠ΅Ρ, ΠΏΡΠΎΠΈΠ·ΠΎΠΉΠ΄Π΅Ρ ΠΎΡΠΈΠ±ΠΊΠ°.
ΠΡΠΎΠ²Π΅ΡΠΈΡΡ ΡΡΡΠ΅ΡΡΠ²ΠΎΠ²Π°Π½ΠΈΠ΅ ΡΠ°ΠΉΠ»Π° ΠΌΠΎΠΆΠ½ΠΎ Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΡΡΠ½ΠΊΡΠΈΠΈΒ Dir:
If Dir(«D:\test1.xls») = «» Then Β Β Β Β MsgBox «Π€Π°ΠΉΠ» Π½Π΅ ΡΡΡΠ΅ΡΡΠ²ΡΠ΅Ρ» Else Β Β Β Β MsgBox «Π€Π°ΠΉΠ» ΡΡΡΠ΅ΡΡΠ²ΡΠ΅Ρ» End If |
ΠΠ»ΠΈ, Π΅ΡΠ»ΠΈ ΡΠ°ΠΉΠ» ΡΡΡΠ΅ΡΡΠ²ΡΠ΅Ρ, ΠΌΠΎΠΆΠ½ΠΎ ΡΡΠ°Π·Ρ Π΅Π³ΠΎ ΠΎΡΠΊΡΡΡΡ:
If Dir(«D:\test1.xls») = «» Then Β Β Β Β MsgBox «Π€Π°ΠΉΠ» Π½Π΅ ΡΡΡΠ΅ΡΡΠ²ΡΠ΅Ρ» Else Β Β Β Β Workbooks.Open Filename:=»D:\test1.xls» End If |
Π‘ΠΎΠ·Π΄Π°Π½ΠΈΠ΅ Π½ΠΎΠ²ΠΎΠΉ ΠΊΠ½ΠΈΠ³ΠΈ
ΠΠΎΠ²Π°Ρ ΡΠ°Π±ΠΎΡΠ°Ρ ΠΊΠ½ΠΈΠ³Π° Excel ΡΠΎΠ·Π΄Π°Π΅ΡΡΡ Π² VBA Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΠΌΠ΅ΡΠΎΠ΄Π° Add:
Π‘ΠΎΠ·Π΄Π°Π½Π½ΡΡ ΠΊΠ½ΠΈΠ³Ρ, Π΅ΡΠ»ΠΈ ΠΎΠ½Π° Π½Π΅ Π±ΡΠ΄Π΅Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡΡΡ ΠΊΠ°ΠΊ Π²ΡΠ΅ΠΌΠ΅Π½Π½Π°Ρ, Π»ΡΡΡΠ΅ ΡΡΠ°Π·Ρ ΡΠΎΡ ΡΠ°Π½ΠΈΡΡ:
Workbooks.Add ActiveWorkbook.SaveAs Filename:=»D:\test2.xls» |
Π ΠΊΠ°Π²ΡΡΠΊΠ°Ρ ΡΠΊΠ°Π·ΡΠ²Π°Π΅ΡΡΡ ΠΏΠΎΠ»Π½ΡΠΉ ΠΏΡΡΡ ΡΠΎΡ ΡΠ°Π½ΡΠ΅ΠΌΠΎΠ³ΠΎ ΡΠ°ΠΉΠ»Π° Excel, Π²ΠΊΠ»ΡΡΠ°Ρ ΠΏΡΠΈΡΠ²Π°ΠΈΠ²Π°Π΅ΠΌΠΎΠ΅ ΠΈΠΌΡ, Π² ΠΏΡΠΈΠΌΠ΅ΡΠ΅ β ΡΡΠΎ Β«test2.xlsΒ».
ΠΠ±ΡΠ°ΡΠ΅Π½ΠΈΠ΅ ΠΊ ΠΎΡΠΊΡΡΡΠΎΠΉ ΠΊΠ½ΠΈΠ³Π΅
ΠΠ±ΡΠ°ΡΠ΅Π½ΠΈΠ΅ ΠΊ Π°ΠΊΡΠΈΠ²Π½ΠΎΠΉ ΠΊΠ½ΠΈΠ³Π΅:
ΠΠ±ΡΠ°ΡΠ΅Π½ΠΈΠ΅ ΠΊ ΠΊΠ½ΠΈΠ³Π΅ Ρ Π²ΡΠΏΠΎΠ»Π½ΡΠ΅ΠΌΡΠΌ ΠΊΠΎΠ΄ΠΎΠΌ:
ΠΠ±ΡΠ°ΡΠ΅Π½ΠΈΠ΅ ΠΊ ΠΊΠ½ΠΈΠ³Π΅ ΠΏΠΎ ΠΈΠΌΠ΅Π½ΠΈ:
Workbooks(«test1.xls») Workbooks(«test2.xls») |
ΠΠ±ΡΠ°ΡΠΈΡΡΡΡ ΠΏΠΎ ΠΈΠΌΠ΅Π½ΠΈ ΠΌΠΎΠΆΠ½ΠΎ ΡΠΎΠ»ΡΠΊΠΎ ΠΊ ΡΠΆΠ΅ ΠΎΡΠΊΡΡΡΠΎΠΉ ΠΊΠ½ΠΈΠ³Π΅, Π° ΡΡΠΎΠ±Ρ ΠΈΠ· ΠΊΠΎΠ΄Π° VBA Excel ΠΊΠ½ΠΈΠ³Ρ ΠΎΡΠΊΡΡΡΡ, Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ ΡΠΊΠ°Π·Π°ΡΡ ΠΏΠΎΠ»Π½ΡΠΉ ΠΏΡΡΡ ΠΊ ΡΠ°ΠΉΠ»Ρ.
ΠΠ°ΠΊ Π·Π°ΠΊΡΡΡΡ ΠΊΠ½ΠΈΠ³Ρ Excel ΠΈΠ· ΠΊΠΎΠ΄Π° VBA
ΠΡΠΊΡΡΡΠ°Ρ ΡΠ°Π±ΠΎΡΠ°Ρ ΠΊΠ½ΠΈΠ³Π° Π·Π°ΠΊΡΡΠ²Π°Π΅ΡΡΡ ΠΈΠ· ΠΊΠΎΠ΄Π° VBA Excel Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΠΌΠ΅ΡΠΎΠ΄Π° Close:
Workbooks(«test1.xlsx»).Close |
ΠΡΠ»ΠΈ Π·Π°ΠΊΡΡΠ²Π°Π΅ΠΌΠ°Ρ ΠΊΠ½ΠΈΠ³Π° ΡΠ΅Π΄Π°ΠΊΡΠΈΡΠΎΠ²Π°Π»Π°ΡΡ, Π° Π²Π½Π΅ΡΠ΅Π½Π½ΡΠ΅ ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΡ Π½Π΅ Π±ΡΠ»ΠΈ ΡΠΎΡ ΡΠ°Π½Π΅Π½Ρ, ΡΠΎΠ³Π΄Π° ΠΏΡΠΈ Π΅Π΅ Π·Π°ΠΊΡΡΡΠΈΠΈ Excel ΠΎΡΠΎΠ±ΡΠ°Π·ΠΈΡ Π΄ΠΈΠ°Π»ΠΎΠ³ΠΎΠ²ΠΎΠ΅ ΠΎΠΊΠ½ΠΎ Ρ Π²ΠΎΠΏΡΠΎΡΠΎΠΌ: ΠΡ Ρ ΠΎΡΠΈΡΠ΅ ΡΠΎΡ ΡΠ°Π½ΠΈΡΡ ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΡ Π² ΡΠ°ΠΉΠ»Π΅ test1.xlsx? Π§ΡΠΎΠ±Ρ ΡΠ°ΠΉΠ» Π±ΡΠ» Π·Π°ΠΊΡΡΡ Π±Π΅Π· ΡΠΎΡ ΡΠ°Π½Π΅Π½ΠΈΡ ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΠΉ ΠΈ Π²ΡΠ²ΠΎΠ΄Π° Π΄ΠΈΠ°Π»ΠΎΠ³ΠΎΠ²ΠΎΠ³ΠΎ ΠΎΠΊΠ½Π°, ΠΌΠΎΠΆΠ½ΠΎ Π²ΠΎΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡΡΡ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΠΎΠΌ ΠΌΠ΅ΡΠΎΠ΄Π° Close β SaveChanges:
Π‘ΠΎΡ ΡΠ°Π½Π΅Π½ΠΈΠ΅ ΠΌΠ°ΠΊΡΠΎΡΠ° — Excel
ΠΡΠΈΠΌΠ΅ΡΠ°Π½ΠΈΠ΅:Β
ΠΡ ΡΡΠ°ΡΠ°Π΅ΠΌΡΡ ΠΊΠ°ΠΊ ΠΌΠΎΠΆΠ½ΠΎ ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠ²Π½Π΅Π΅ ΠΎΠ±Π΅ΡΠΏΠ΅ΡΠΈΠ²Π°ΡΡ Π²Π°Ρ Π°ΠΊΡΡΠ°Π»ΡΠ½ΡΠΌΠΈ ΡΠΏΡΠ°Π²ΠΎΡΠ½ΡΠΌΠΈ ΠΌΠ°ΡΠ΅ΡΠΈΠ°Π»Π°ΠΌΠΈ Π½Π° Π²Π°ΡΠ΅ΠΌ ΡΠ·ΡΠΊΠ΅. ΠΡΠ° ΡΡΡΠ°Π½ΠΈΡΠ° ΠΏΠ΅ΡΠ΅Π²Π΅Π΄Π΅Π½Π° Π°Π²ΡΠΎΠΌΠ°ΡΠΈΡΠ΅ΡΠΊΠΈ, ΠΏΠΎΡΡΠΎΠΌΡ Π΅Π΅ ΡΠ΅ΠΊΡΡ ΠΌΠΎΠΆΠ΅Ρ ΡΠΎΠ΄Π΅ΡΠΆΠ°ΡΡ Π½Π΅ΡΠΎΡΠ½ΠΎΡΡΠΈ ΠΈ Π³ΡΠ°ΠΌΠΌΠ°ΡΠΈΡΠ΅ΡΠΊΠΈΠ΅ ΠΎΡΠΈΠ±ΠΊΠΈ. ΠΠ»Ρ Π½Π°Ρ Π²Π°ΠΆΠ½ΠΎ, ΡΡΠΎΠ±Ρ ΡΡΠ° ΡΡΠ°ΡΡΡ Π±ΡΠ»Π° Π²Π°ΠΌ ΠΏΠΎΠ»Π΅Π·Π½Π°. ΠΡΠΎΡΠΈΠΌ Π²Π°Ρ ΡΠ΄Π΅Π»ΠΈΡΡ ΠΏΠ°ΡΡ ΡΠ΅ΠΊΡΠ½Π΄ ΠΈ ΡΠΎΠΎΠ±ΡΠΈΡΡ, ΠΏΠΎΠΌΠΎΠ³Π»Π° Π»ΠΈ ΠΎΠ½Π° Π²Π°ΠΌ, Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΠΊΠ½ΠΎΠΏΠΎΠΊ Π²Π½ΠΈΠ·Ρ ΡΡΡΠ°Π½ΠΈΡΡ. ΠΠ»Ρ ΡΠ΄ΠΎΠ±ΡΡΠ²Π° ΡΠ°ΠΊΠΆΠ΅ ΠΏΡΠΈΠ²ΠΎΠ΄ΠΈΠΌ
ΡΡΡΠ»ΠΊΡ Π½Π° ΠΎΡΠΈΠ³ΠΈΠ½Π°Π» (Π½Π° Π°Π½Π³Π»ΠΈΠΉΡΠΊΠΎΠΌ ΡΠ·ΡΠΊΠ΅)
.
Π‘ΠΎΠ·Π΄Π°ΡΡ ΠΌΠ°ΠΊΡΠΎΡ Π² Excel ΠΌΠΎΠΆΠ½ΠΎ, Π·Π°ΠΏΡΡΡΠΈΠ² ΡΡΠ΅Π΄ΡΡΠ²ΠΎ Π·Π°ΠΏΠΈΡΠΈ ΠΌΠ°ΠΊΡΠΎΡΠΎΠ² ΠΈΠ»ΠΈ Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΡΠ΅Π΄Π°ΠΊΡΠΎΡΠ° Visual Basic Π΄Π»Ρ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠΉ (VBA). ΠΠΎΡΠ»Π΅ ΡΠΎΠ·Π΄Π°Π½ΠΈΡ ΠΌΠ°ΠΊΡΠΎΡΠ° ΡΠ»Π΅Π΄ΡΠ΅Ρ ΡΠΎΡ ΡΠ°Π½ΠΈΡΡ Π΅Π³ΠΎ Π΄Π»Ρ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎΡΡΠΈ ΠΏΠΎΠ²ΡΠΎΡΠ½ΠΎΠ³ΠΎ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΡ Π² ΡΠ΅ΠΊΡΡΠ΅ΠΉ ΠΈΠ»ΠΈ Π² Π΄ΡΡΠ³ΠΈΡ ΠΊΠ½ΠΈΠ³Π°Ρ .
Π‘ΠΎΡ ΡΠ°Π½Π΅Π½ΠΈΠ΅ ΠΌΠ°ΠΊΡΠΎΡΠ° Π² ΡΠ΅ΠΊΡΡΠ΅ΠΉ ΠΊΠ½ΠΈΠ³Π΅
ΠΡΠ»ΠΈ ΠΏΠΎΠ½Π°Π΄ΠΎΠ±ΠΈΡΡΡ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΠΌΠ°ΠΊΡΠΎΡ ΡΠΎΠ»ΡΠΊΠΎ Π² ΡΠΎΠΉ ΠΊΠ½ΠΈΠ³Π΅, Π³Π΄Π΅ ΠΎΠ½ Π±ΡΠ» ΡΠΎΠ·Π΄Π°Π½, Π½Π°ΠΆΠΌΠΈΡΠ΅ ΠΊΠ½ΠΎΠΏΠΊΡ Π‘ΠΎΡ ΡΠ°Π½ΠΈΡΡ ΠΈΠ»ΠΈ Π‘ΠΎΡ ΡΠ°Π½ΠΈΡΡ ΠΊΠ°ΠΊ ΡΠ°ΠΊ ΠΆΠ΅, ΠΊΠ°ΠΊ ΠΏΡΠΈ ΠΎΠ±ΡΡΠ½ΠΎΠΌ ΡΠΎΡ ΡΠ°Π½Π΅Π½ΠΈΠΈ. ΠΠΎ ΡΠΎΡ ΡΠ°Π½Π΅Π½ΠΈΠ΅ ΠΊΠ½ΠΈΠ³ΠΈ Ρ ΠΌΠ°ΠΊΡΠΎΡΠ°ΠΌΠΈ ΠΏΡΠΎΠΈΡΡ ΠΎΠ΄ΠΈΡ Π½Π΅ΡΠΊΠΎΠ»ΡΠΊΠΎ ΠΈΠ½Π°ΡΠ΅, ΠΏΠΎΡΠΊΠΎΠ»ΡΠΊΡ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΡΠΏΠ΅ΡΠΈΠ°Π»ΡΠ½ΡΠΉ ΡΠΎΡΠΌΠ°Ρ ΡΠ°ΠΉΠ»Π° Β«Ρ ΠΏΠΎΠ΄Π΄Π΅ΡΠΆΠΊΠΎΠΉ ΠΌΠ°ΠΊΡΠΎΡΠΎΠ²Β». ΠΠΎΡΡΠΎΠΌΡ ΠΏΡΠΈ ΠΏΠΎΠΏΡΡΠΊΠ΅ ΡΠΎΡ ΡΠ°Π½ΠΈΡΡ ΠΌΠ°ΠΊΡΠΎΡ Excel ΠΏΡΠ΅Π΄Π»ΠΎΠΆΠΈΡ Π΄Π²Π° Π²Π°ΡΠΈΠ°Π½ΡΠ°:
-
Π‘ΠΎΡ ΡΠ°Π½ΠΈΡΡ Π² Π²ΠΈΠ΄Π΅ ΠΊΠ½ΠΈΠ³ΠΈ Ρ ΠΏΠΎΠ΄Π΄Π΅ΡΠΆΠΊΠΎΠΉ ΠΌΠ°ΠΊΡΠΎΡΠΎΠ² (XLSM-ΡΠ°ΠΉΠ»), Π²ΡΠ±ΡΠ°Π² ΠΠ΅Ρ.
-
Π‘ΠΎΡ ΡΠ°Π½ΠΈΡΡ Π² Π²ΠΈΠ΄Π΅ ΠΊΠ½ΠΈΠ³ΠΈ Π±Π΅Π· ΠΏΠΎΠ΄Π΄Π΅ΡΠΆΠΊΠΈ ΠΌΠ°ΠΊΡΠΎΡΠΎΠ², Π²ΡΠ±ΡΠ°Π² ΠΠ°.
Π§ΡΠΎΠ±Ρ ΡΠΎΡ ΡΠ°Π½ΠΈΡΡ ΠΌΠ°ΠΊΡΠΎΡ ΠΊΠ°ΠΊ ΠΊΠ½ΠΈΠ³Ρ Ρ ΠΏΠΎΠ΄Π΄Π΅ΡΠΆΠΊΠΎΠΉ ΠΌΠ°ΠΊΡΠΎΡΠΎΠ²,
-
ΡΠ΅Π»ΠΊΠ½ΠΈΡΠ΅ ΠΠ΅Ρ.
-
Π ΠΎΠΊΠ½Π΅ Π‘ΠΎΡ ΡΠ°Π½ΠΈΡΡ ΠΊΠ°ΠΊ Π² ΡΠ°ΡΠΊΡΡΠ²Π°ΡΡΠ΅ΠΌΡΡ ΡΠΏΠΈΡΠΊΠ΅ Π’ΠΈΠΏ ΡΠ°ΠΉΠ»Π° Π²ΡΠ±Π΅ΡΠΈΡΠ΅ ΠΠ½ΠΈΠ³Π° Excel Ρ ΠΏΠΎΠ΄Π΄Π΅ΡΠΆΠΊΠΎΠΉ ΠΌΠ°ΠΊΡΠΎΡΠΎΠ².
-
ΠΠ°ΠΆΠΌΠΈΡΠ΅ ΠΊΠ½ΠΎΠΏΠΊΡ Π‘ΠΎΡ ΡΠ°Π½ΠΈΡΡ.
Π‘ΠΎΠ·Π΄Π°Π½ΠΈΠ΅ ΠΈ ΡΠΎΡ ΡΠ°Π½Π΅Π½ΠΈΠ΅ ΠΌΠ°ΠΊΡΠΎΡΠΎΠ² Π² Π»ΠΈΡΠ½ΠΎΠΉ ΠΊΠ½ΠΈΠ³Π΅
Π§ΡΠΎΠ±Ρ ΠΌΠ°ΠΊΡΠΎΡΡ Π±ΡΠ»ΠΈ Π΄ΠΎΡΡΡΠΏΠ½Ρ ΠΏΡΠΈ ΠΊΠ°ΠΆΠ΄ΠΎΠΌ Π·Π°ΠΏΡΡΠΊΠ΅ Excel, ΡΠΎΠ·Π΄Π°ΠΉΡΠ΅ ΠΈΡ Π² ΠΊΠ½ΠΈΠ³Π΅ Β«Personal.xlsbΒ». ΠΡΠΎ ΡΠΊΡΡΡΠ°Ρ ΠΊΠ½ΠΈΠ³Π° Π½Π° Π²Π°ΡΠ΅ΠΌ ΠΊΠΎΠΌΠΏΡΡΡΠ΅ΡΠ΅, ΠΊΠΎΡΠΎΡΠ°Ρ ΠΎΡΠΊΡΡΠ²Π°Π΅ΡΡΡ ΠΏΡΠΈ ΠΊΠ°ΠΆΠ΄ΠΎΠΌ Π·Π°ΠΏΡΡΠΊΠ΅ Excel. ΠΠ»Ρ ΠΏΠΎΠ»ΡΡΠ΅Π½ΠΈΡ ΡΠ²Π΅Π΄Π΅Π½ΠΈΠΉ ΠΎ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΠΈ ΡΡΠΈΡ Π΄Π΅ΠΉΡΡΠ²ΠΈΠΉ ΡΠΌ. ΡΡΠ°ΡΡΡ Π‘ΠΎΠ·Π΄Π°Π½ΠΈΠ΅ ΠΈ ΡΠΎΡ ΡΠ°Π½Π΅Π½ΠΈΠ΅ Π²ΡΠ΅Ρ ΠΌΠ°ΠΊΡΠΎΡΠΎΠ² Π² ΠΎΠ΄Π½ΠΎΠΉ ΠΊΠ½ΠΈΠ³Π΅.
Π‘ΠΌ. ΡΠ°ΠΊΠΆΠ΅
Π‘ΠΎΡ
ΡΠ°Π½Π΅Π½ΠΈΠ΅ Π²ΡΠ΅Ρ
ΠΌΠ°ΠΊΡΠΎΡΠΎΠ² Π² Π»ΠΈΡΠ½ΠΎΠΉ ΠΊΠ½ΠΈΠ³Π΅ ΠΌΠ°ΠΊΡΠΎΡΠΎΠ²
ΠΡΠ°ΡΠΊΠΎΠ΅ ΡΡΠΊΠΎΠ²ΠΎΠ΄ΡΡΠ²ΠΎ: Π‘ΠΎΠ·Π΄Π°Π½ΠΈΠ΅ ΠΌΠ°ΠΊΡΠΎΡΠ°
Π‘ΠΎΠ·Π΄Π°Π½ΠΈΠ΅ ΠΈΠ»ΠΈ ΡΠ΄Π°Π»Π΅Π½ΠΈΠ΅ ΠΌΠ°ΠΊΡΠΎΡΠ°
ΠΠ°ΠΏΡΡΠΊ ΠΌΠ°ΠΊΡΠΎΡΠ°
Excel vba ΡΠΎΡ ΡΠ°Π½Π΅Π½ΠΈΠ΅ ΠΊΠ½ΠΈΠ³ΠΈ Excelka.ru
ΠΠ°ΠΊ Π½Π° VBA ΡΠΎΡ ΡΠ°Π½ΠΈΡΡ ΡΠ°ΠΉΠ» Excel Ρ Π½Π°Π·Π²Π°Π½ΠΈΠ΅ΠΌ, Π²Π·ΡΡΡΠΌ ΠΈΠ· ΡΡΠ΅ΠΉΠΊΠΈ?
ΠΡΠΈΠ²Π΅Ρ, ΡΠ΅ΠΉΡΠ°Ρ ΠΌΡ ΡΠ°ΡΡΠΌΠΎΡΡΠΈΠΌ ΡΠΈΡΡΠ°ΡΠΈΡ, ΠΊΠΎΠ³Π΄Π° Ρ ΠΠ°Ρ Π²ΠΎΠ·Π½ΠΈΠΊΠ»Π° Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎΡΡΡ Π² Excel ΡΠΎΡ ΡΠ°Π½ΡΡΡ ΡΠ°ΠΉΠ» Ρ ΠΎΠΏΡΠ΅Π΄Π΅Π»Π΅Π½Π½ΡΠΌ Π½Π°Π·Π²Π°Π½ΠΈΠ΅ΠΌ, ΠΊΠΎΡΠΎΡΠΎΠ΅ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ ΡΡΠΎΡΠΌΠΈΡΠΎΠ²Π°ΡΡ ΠΈΠ· Π·Π½Π°ΡΠ΅Π½ΠΈΡ ΡΡΠ΅ΠΉΠΊΠΈ ΠΈΠ»ΠΈ Π΄Π°ΠΆΠ΅ Π½Π΅ΡΠΊΠΎΠ»ΡΠΊΠΈΡ . Π ΡΡΠΎΠΉ Π·Π°ΠΌΠ΅ΡΠΊΠ΅ Ρ ΠΏΡΠΈΠ²Π΅Π΄Ρ ΠΏΡΠΎΡΡΠΎΠΉ ΠΏΡΠΈΠΌΠ΅Ρ ΡΠ΅Π°Π»ΠΈΠ·Π°ΡΠΈΠΈ Π΄Π°Π½Π½ΠΎΠΉ Π·Π°Π΄Π°ΡΠΈ.
ΠΡΡ ΠΎΠ΄Π½ΡΠ΅ Π΄Π°Π½Π½ΡΠ΅
Π‘Π½Π°ΡΠ°Π»Π° Π΄Π°Π²Π°ΠΉΡΠ΅ ΡΠ°Π·Π±Π΅ΡΠ΅ΠΌ ΠΈΡΡ ΠΎΠ΄Π½ΡΠ΅ Π΄Π°Π½Π½ΡΠ΅, ΠΊΠΎΡΠΎΡΡΠ΅ Ρ Π±ΡΠ΄Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ Π² ΠΏΡΠΈΠΌΠ΅ΡΠ°Ρ . ΠΡΡΡΡ ΡΡΠΎ Π±ΡΠ΄Π΅Ρ Π½Π΅ΠΊΠ°Ρ Π°Π±ΡΡΡΠ°ΠΊΡΠΈΡ ΠΌΠ°ΡΠΎΠΊ Π°Π²ΡΠΎΠΌΠΎΠ±ΠΈΠ»Π΅ΠΉ Ρ ΡΠΊΠ°Π·Π°Π½ΠΈΠ΅ΠΌ ΠΈΡ VIN Π½ΠΎΠΌΠ΅ΡΠ°.
ΠΡΠΈΠΌΠ΅ΡΠ°Π½ΠΈΠ΅! Π― ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΡ Excel 2013.
Π Π·Π°Π²ΠΈΡΠΈΠΌΠΎΡΡΠΈ ΠΎΡ ΠΊΠΎΠ½ΠΊΡΠ΅ΡΠ½ΡΡ ΡΡΠ΅Π±ΠΎΠ²Π°Π½ΠΈΠΉ ΠΈ ΡΡΠ»ΠΎΠ²ΠΈΠΉ, Π·Π°Π΄Π°ΡΡ ΠΌΠΎΠΆΠ½ΠΎ ΡΠ΅Π°Π»ΠΈΠ·ΠΎΠ²Π°ΡΡ ΠΏΠΎ-ΡΠ°Π·Π½ΠΎΠΌΡ, Ρ ΠΎΡΡ ΠΏΡΠΈΠ½ΡΠΈΠΏ Π±ΡΠ΄Π΅Ρ ΠΎΠ΄ΠΈΠ½ ΠΈ ΡΠΎΡ ΠΆΠ΅, Π² ΡΡΠΎΠΉ ΡΡΠ°ΡΡΠ΅ ΠΌΡ ΡΠ°ΡΡΠΌΠΎΡΡΠΈΠΌ Π½Π΅ΡΠΊΠΎΠ»ΡΠΊΠΎ Π²Π°ΡΠΈΠ°ΡΠΈΠΉ ΡΠ΅Π°Π»ΠΈΠ·Π°ΡΠΈΠΈ.
ΠΠ°ΡΠ½Π΅ΠΌ ΠΌΡ Ρ ΡΠ°ΠΌΠΎΠΉ ΠΏΡΠΎΡΡΠΎΠΉ ΡΠΈΡΡΠ°ΡΠΈΠΈ, ΠΊΠΎΠ³Π΄Π° Π·Π°ΡΠ°Π½Π΅Π΅ ΠΈΠ·Π²Π΅ΡΡΠ½Π° ΡΡΠ΅ΠΉΠΊΠ°, Π½Π° ΠΎΡΠ½ΠΎΠ²Π΅ ΠΊΠΎΡΠΎΡΠΎΠΉ Π±ΡΠ΄Π΅Ρ ΡΡΠΎΡΠΌΠΈΡΠΎΠ²Π°Π½ΠΎ ΠΈΠΌΡ ΡΠ°ΠΉΠ»Π°, ΠΈ Π°Π΄ΡΠ΅Ρ ΡΡΠΎΠΉ ΡΡΠ΅ΠΉΠΊΠΈ ΠΈΠ·ΠΌΠ΅Π½ΡΡΡΡΡ Π½Π΅ Π±ΡΠ΄Π΅Ρ.
Π‘ΠΎΡ ΡΠ°Π½Π΅Π½ΠΈΠ΅ ΡΠ°ΠΉΠ»Π° Excel Ρ Π½Π°Π·Π²Π°Π½ΠΈΠ΅ΠΌ ΠΈΠ· ΡΡΠ΅ΠΉΠΊΠΈ β Ρ ΠΏΡΠΈΠ²ΡΠ·ΠΊΠΎΠΉ ΠΊ ΡΡΠΎΠΉ ΡΡΠ΅ΠΉΠΊΠ΅
ΠΡΠ°ΠΊ, Π΄Π°Π½Π½ΡΠ΅ Ρ Π½Π°Ρ Π΅ΡΡΡ, ΡΠ΅ΠΏΠ΅ΡΡ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ Π½Π°ΠΏΠΈΡΠ°ΡΡ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ Π½Π° VBA (ΠΌΠ°ΠΊΡΠΎΡ), ΠΊΠΎΡΠΎΡΠ°Ρ Π±ΡΠ°Π»Π° Π±Ρ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ΠΈΠ· ΠΊΠΎΠ½ΠΊΡΠ΅ΡΠ½ΠΎΠΉ ΡΡΠ΅ΠΉΠΊΠΈ, Π² Π΄Π°Π½Π½ΠΎΠΌ ΡΠ»ΡΡΠ°Π΅ ΡΡΠΎ Π±ΡΠ΄Π΅Ρ ΡΡΠ΅ΠΉΠΊΠ° B14, ΠΈ ΠΏΡΠΈΡΠ²Π°ΠΈΠ²Π°Π»Π° Π±Ρ ΡΡΠΎ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ΠΈΠΌΠ΅Π½ΠΈ ΡΠ°ΠΉΠ»Π°.
ΠΠΈΠΆΠ΅ ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»Π΅Π½ ΠΊΠΎΠ΄ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ, Ρ Π΅Π³ΠΎ ΠΏΠΎΠ΄ΡΠΎΠ±Π½ΠΎ ΠΏΡΠΎΠΊΠΎΠΌΠΌΠ΅Π½ΡΠΈΡΠΎΠ²Π°Π». ΠΠ΄ΠΈΠ½ΡΡΠ²Π΅Π½Π½ΠΎΠ΅ ΡΠΊΠ°ΠΆΡ, ΡΡΠΎ Ρ Π²ΠΎ Π²ΡΠ΅Ρ ΠΏΡΠΈΠΌΠ΅ΡΠ°Ρ ΡΠΎΡ ΡΠ°Π½ΡΡ Π½ΠΎΠ²ΡΠ΅ ΡΠ°ΠΉΠ»Ρ Π±Π΅Π· ΠΌΠ°ΠΊΡΠΎΡΠΎΠ² (ΡΠ°ΡΡΠΈΡΠ΅Π½ΠΈΠ΅ .xlsx), Ρ.Π΅. ΠΏΠΎ ΡΠ°ΠΊΡΡ Π±ΡΠ΄Π΅Ρ ΠΎΠ΄ΠΈΠ½ ΡΠ°ΠΉΠ» Ρ ΠΏΠΎΠ΄Π΄Π΅ΡΠΆΠΊΠΎΠΉ ΠΌΠ°ΠΊΡΠΎΡΠΎΠ², Π° Π²ΡΠ΅ ΠΏΡΠΎΠΈΠ·Π²ΠΎΠ΄Π½ΡΠ΅ β Π±Π΅Π·.
ΠΡΠ»ΠΈ Π½ΡΠΆΠ½ΠΎ ΡΠΎΡ ΡΠ°Π½ΡΡΡ ΠΌΠ°ΠΊΡΠΎΡ Π² ΠΊΠ°ΠΆΠ΄ΠΎΠΌ ΡΠ°ΠΉΠ»Π΅, Ρ.Π΅. ΡΠ°ΠΉΠ»Ρ Ρ ΠΏΠΎΠ΄Π΄Π΅ΡΠΆΠΊΠΎΠΉ ΠΌΠ°ΠΊΡΠΎΡΠΎΠ² (ΡΠ°ΡΡΠΈΡΠ΅Π½ΠΈΠ΅ .xlsm), ΡΠΎ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ ΠΏΡΠΎΡΡΠΎ ΡΠΊΠ°Π·Π°ΡΡ Π΄ΡΡΠ³ΠΎΠΉ ΡΠΈΠΏ ΡΠ°ΠΉΠ»Π° ΠΏΡΠΈ ΡΠΎΡ ΡΠ°Π½Π΅Π½ΠΈΠΈ, Π° ΠΈΠΌΠ΅Π½Π½ΠΎ xlOpenXMLWorkbookMacroEnabled, Π² ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ°Ρ Π² ΠΊΠΎΠΌΠΌΠ΅Π½ΡΠ°ΡΠΈΡΡ Ρ ΡΡΠΎ ΡΠΊΠ°Π·ΡΠ²Π°Ρ.
ΠΡΠΊΡΡΠ²Π°Π΅ΠΌ Π² Excel ΡΠ΅Π΄Π°ΠΊΡΠΎΡ Visual Basic, ΠΈ Π²ΡΡΠ°Π²Π»ΡΠ΅ΠΌ ΠΊΠΎΠ΄ ΡΠ»Π΅Π΄ΡΡΡΠ΅ΠΉ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ Π² ΠΈΡΡ ΠΎΠ΄Π½ΡΠΉ ΠΊΠΎΠ΄ ΡΡΠΎΠΉ ΠΊΠ½ΠΈΠ³ΠΈ (ΠΡΠ°ΠΠ½ΠΈΠ³Π°, ΠΎΡΠΊΡΡΡΡ Π΄Π²ΠΎΠΉΠ½ΡΠΌ ΠΊΠ»ΠΈΠΊΠΎΠΌ) ΠΈΠ»ΠΈ Π² ΠΌΠΎΠ΄ΡΠ»Ρ, ΠΊΠΎΡΠΎΡΡΠΉ ΠΡ ΠΏΡΠ΅Π΄Π²Π°ΡΠΈΡΠ΅Π»ΡΠ½ΠΎ Π΄ΠΎΠ»ΠΆΠ½Ρ ΡΠΎΠ·Π΄Π°ΡΡ.
ΠΡΠΈΠΌΠ΅ΡΠ°Π½ΠΈΠ΅! ΠΠ»Ρ ΡΠΎΠ³ΠΎ ΡΡΠΎΠ±Ρ ΠΎΡΠΊΡΡΡΡ ΡΠ΅Π΄Π°ΠΊΡΠΎΡ Visual Basic Π² Excel, Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ ΠΏΠ΅ΡΠ΅ΠΉΡΠΈ Π½Π° Π²ΠΊΠ»Π°Π΄ΠΊΡ Β«Π Π°Π·ΡΠ°Π±ΠΎΡΡΠΈΠΊΒ» ΠΈ Π½Π°ΠΆΠ°ΡΡ Π½Π° ΠΊΠ½ΠΎΠΏΠΊΡ Β«Visual BasicΒ». Π€Π°ΠΉΠ» Excel Ρ ΠΊΠΎΠ΄ΠΎΠΌ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ ΡΠΎΡ ΡΠ°Π½ΠΈΡΡ Ρ ΡΠΈΠΏΠΎΠΌ Β«ΠΠ½ΠΈΠ³Π° Excel Ρ ΠΏΠΎΠ΄Π΄Π΅ΡΠΆΠΊΠΎΠΉ ΠΌΠ°ΠΊΡΠΎΡΠΎΠ²Β».
ΠΠΎΠ΄ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ
ΠΠΎΡΠ»Π΅ ΡΠΎΡ ΡΠ°Π½Π΅Π½ΠΈΡ ΡΠ°ΠΉΠ»Π° Π·Π°ΠΏΡΡΡΠΈΡΠ΅ ΠΌΠ°ΠΊΡΠΎΡ (Β«ΠΠ°ΠΊΡΠΎΡΡ -> ΠΡΠΏΠΎΠ»Π½ΠΈΡΡ -> SaveFileΒ»).
Π ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΠ΅ Π² ΠΌΠΎΠ΅ΠΌ ΡΠ»ΡΡΠ°Π΅ ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ° ΡΡΠΏΠ΅ΡΠ½ΠΎ Π²ΡΠΏΠΎΠ»Π½ΠΈΠ»Π°ΡΡ, ΡΠ°ΠΉΠ» ΡΠΎΡ ΡΠ°Π½ΠΈΠ»ΡΡ Ρ Π½Π°Π·Π²Π°Π½ΠΈΠ΅ΠΌ Β«ΠΠ°ΡΠΊΠ° ΠΠ²ΡΠΎ 1Β», Π΄Π°Π½Π½ΠΎΠ΅ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ Π²Π·ΡΡΠΎ ΠΈΠ· ΡΡΠ΅ΠΉΠΊΠΈ B14, ΠΎ ΡΠ΅ΠΌ Π±ΡΠ΄Π΅Ρ ΡΠ²ΠΈΠ΄Π΅ΡΠ΅Π»ΡΡΡΠ²ΠΎΠ²Π°ΡΡ ΡΠΎΠΎΠ±ΡΠ΅Π½ΠΈΠ΅ Π² ΠΊΠΎΠ½ΡΠ΅ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ. Π€Π°ΠΉΠ» ΡΠΎΡ ΡΠ°Π½Π΅Π½ Π² ΠΊΠ°ΡΠ°Π»ΠΎΠ³Π΅, Π³Π΄Π΅ ΠΈ ΠΈΡΡ ΠΎΠ΄Π½ΡΠΉ ΡΠ°ΠΉΠ» (Π²ΠΎ Π²ΡΠ΅Ρ ΠΏΡΠΈΠΌΠ΅ΡΠ°Ρ Π½ΠΈΠΆΠ΅ ΠΏΡΠΎΠΏΠΈΡΠ°Π½ΠΎ ΡΠΎ ΠΆΠ΅ ΡΠ°ΠΌΠΎΠ΅, Ρ.Π΅. ΡΠΎΡ ΡΠ°Π½Π΅Π½ΠΈΠ΅ ΡΡΠ΄ΠΎΠΌ Ρ ΠΈΡΡ ΠΎΠ΄Π½ΠΈΠΊΠΎΠΌ, Π½ΠΎ ΡΡΠΎ ΠΡ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΠΈΠ·ΠΌΠ΅Π½ΠΈΡΡ).
ΠΠΎΠ±Π°Π²Π»Π΅Π½ΠΈΠ΅ ΠΊΠ½ΠΎΠΏΠΊΠΈ Π² Excel Π΄Π»Ρ Π·Π°ΠΏΡΡΠΊΠ° ΠΌΠ°ΠΊΡΠΎΡΠ°
ΠΠ°ΠΆΠ΄ΡΠΉ ΡΠ°Π· ΠΎΡΠΊΡΡΠ²Π°ΡΡ ΠΎΠΊΠ½ΠΎ Ρ ΠΌΠ°ΠΊΡΠΎΡΠ°ΠΌΠΈ ΠΈ Π²ΡΠ±ΠΈΡΠ°ΡΡ Π½ΡΠΆΠ½ΡΠΉ ΠΌΠ°ΠΊΡΠΎΡ Π½Π΅ ΠΎΡΠ΅Π½Ρ ΡΠ΄ΠΎΠ±Π½ΠΎ, ΠΏΠΎΡΡΠΎΠΌΡ ΠΌΠΎΠΆΠ½ΠΎ Π»Π΅Π³ΠΊΠΎ Π΄ΠΎΠ±Π°Π²ΠΈΡΡ ΠΊΠ½ΠΎΠΏΠΊΡ Π³Π΄Π΅-Π½ΠΈΠ±ΡΠ΄Ρ ΡΡΠ΄ΠΎΠΌ Ρ Π΄Π°Π½Π½ΡΠΌΠΈ ΠΈ ΠΏΡΠΎΡΡΠΎ Π½Π°ΠΆΠΈΠΌΠ°ΡΡ Π΅Π΅. ΠΡΠΎ Π΄Π΅Π»Π°Π΅ΡΡΡ ΡΠ»Π΅Π΄ΡΡΡΠΈΠΌ ΠΎΠ±ΡΠ°Π·ΠΎΠΌ Β«ΠΠΊΠ»Π°Π΄ΠΊΠ° Π Π°Π·ΡΠ°Π±ΠΎΡΡΠΈΠΊ -> ΠΡΡΠ°Π²ΠΈΡΡ -> ΠΠ½ΠΎΠΏΠΊΠ° (ΡΠ»Π΅ΠΌΠ΅Π½Ρ ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ ΡΠΎΡΠΌΡ)Β».
ΠΠ°ΡΠ΅ΠΌ Π²ΡΠ±Π΅ΡΠΈΡΠ΅ ΠΌΠ΅ΡΡΠΎ, Π³Π΄Π΅ Π²ΡΡΠ°Π²ΠΈΡΡ ΠΊΠ½ΠΎΠΏΠΊΡ, ΠΈ Π½Π°ΠΆΠΌΠΈΡΠ΅ ΡΡΠ΄Π°. ΠΠΎΡΠ»Π΅ ΡΡΠΎΠ³ΠΎ ΠΏΠΎΡΠ²ΠΈΡΡΡ ΠΎΠΊΠ½ΠΎ Π½Π°Π·Π½Π°ΡΠ΅Π½ΠΈΡ Π΄Π΅ΠΉΡΡΠ²ΠΈΡ, Ρ.Π΅. Π½ΡΠΆΠ½ΠΎ Π²ΡΠ±ΡΠ°ΡΡ, ΠΊΠ°ΠΊΠΎΠΉ ΠΌΠ°ΠΊΡΠΎΡ Π·Π°ΠΏΡΡΠΊΠ°ΡΡ ΠΏΡΠΈ Π½Π°ΠΆΠ°ΡΠΈΠΈ ΡΡΠΎΠΉ ΠΊΠ½ΠΎΠΏΠΊΠΈ, Π²ΡΠ±ΠΈΡΠ°Π΅ΠΌ Π½Π°Ρ ΠΌΠ°ΠΊΡΠΎΡ, Ρ.Π΅. SaveFile, ΠΈ Π½Π°ΠΆΠΈΠΌΠ°Π΅ΠΌ Β«ΠΠΒ».
Π ΠΈΡΠΎΠ³Π΅ ΠΏΠΎΡΠ²ΠΈΡΡΡ ΠΊΠ½ΠΎΠΏΠΊΠ° Ρ Π½Π°Π·Π²Π°Π½ΠΈΠ΅ΠΌ Β«ΠΠ½ΠΎΠΏΠΊΠ°Β», ΡΡΠΎ Π½Π°Π·Π²Π°Π½ΠΈΠ΅ Π»ΡΡΡΠ΅ ΠΈΠ·ΠΌΠ΅Π½ΠΈΡΡ, Π½Π°ΠΏΡΠΈΠΌΠ΅Ρ, Π½Π° Β«Π‘ΠΎΡ ΡΠ°Π½ΠΈΡΡ ΡΠ°ΠΉΠ»Β». ΠΠ»Ρ ΡΡΠΎΠ³ΠΎ Π½Π°ΠΆΠΌΠΈΡΠ΅ ΠΏΡΠ°Π²ΠΎΠΉ ΠΊΠ½ΠΎΠΏΠΊΠΎΠΉ ΠΌΡΡΠΈ Π½Π° ΠΊΠ½ΠΎΠΏΠΊΡ ΠΈ Π²ΡΠ±Π΅ΡΠΈΡΠ΅ Π½Π°ΡΡΡΠΎΠΉΠΊΠΈ Β«ΠΠ·ΠΌΠ΅Π½ΠΈΡΡ ΡΠ΅ΠΊΡΡΒ». Π ΠΈΡΠΎΠ³Π΅ Ρ ΠΠ°Ρ Π΄ΠΎΠ»ΠΆΠ½ΠΎ ΠΏΠΎΠ»ΡΡΠΈΡΡΡΡ ΡΡΠΎ-ΡΠΎ Π²ΡΠΎΠ΄Π΅ ΡΡΠΎΠ³ΠΎ.
Π‘ΠΎΡ ΡΠ°Π½Π΅Π½ΠΈΠ΅ ΡΠ°ΠΉΠ»Π° Excel Ρ Π½Π°Π·Π²Π°Π½ΠΈΠ΅ΠΌ ΠΈΠ· ΡΡΠ΅ΠΉΠΊΠΈ β Π±Π΅Π· ΠΏΡΠΈΠ²ΡΠ·ΠΊΠΈ ΠΊ ΡΡΠ΅ΠΉΠΊΠ΅
Π’Π΅ΠΏΠ΅ΡΡ Π΄Π°Π²Π°ΠΉΡΠ΅ ΠΏΡΠ΅Π΄ΡΡΠ°Π²ΠΈΠΌ, ΡΡΠΎ Π·Π°ΡΠ°Π½Π΅Π΅ ΠΌΡ Π½Π΅ ΠΌΠΎΠΆΠ΅ΠΌ ΠΎΠΏΡΠ΅Π΄Π΅Π»ΠΈΡΡ, ΠΊΠ°ΠΊΠ°Ρ ΠΈΠΌΠ΅Π½Π½ΠΎ ΡΡΠ΅ΠΉΠΊΠ° Π±ΡΠ΄Π΅Ρ ΡΠΎΡΠΌΠΈΡΠΎΠ²Π°ΡΡ Π½Π°Π·Π²Π°Π½ΠΈΠ΅ ΡΠ°ΠΉΠ»Π° (ΠΌΠΎΠΆΠ΅Ρ B14, Π° ΠΌΠΎΠΆΠ΅Ρ ΠΈ Π½Π΅Ρ), ΠΏΠΎΡΡΠΎΠΌΡ ΠΌΡ ΠΌΠΎΠΆΠ΅ΠΌ Π½Π΅ΠΌΠ½ΠΎΠ³ΠΎ ΡΠΊΠΎΡΡΠ΅ΠΊΡΠΈΡΠΎΠ²Π°ΡΡ Π°Π»Π³ΠΎΡΠΈΡΠΌ ΡΠ°ΠΊΠΈΠΌ ΠΎΠ±ΡΠ°Π·ΠΎΠΌ, ΡΡΠΎΠ±Ρ ΠΎΠ½ Π±ΡΠ°Π» Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ΠΈΠ· ΡΡΠ΅ΠΉΠΊΠΈ, ΠΊΠΎΡΠΎΡΠ°Ρ ΡΠ²Π»ΡΠ΅ΡΡΡ Π°ΠΊΡΠΈΠ²Π½ΠΎΠΉ, Π½ΠΎ Π² ΡΡΠΎΠΌ ΡΠ»ΡΡΠ°Π΅ ΠΡ, ΠΊΠΎΠ½Π΅ΡΠ½ΠΎ ΠΆΠ΅, ΠΏΡΠ΅Π΄Π²Π°ΡΠΈΡΠ΅Π»ΡΠ½ΠΎ, Π΄ΠΎΠ»ΠΆΠ½Ρ Π²ΡΠ±ΡΠ°ΡΡ Π΅Π΅ (Ρ.Π΅. Π²ΡΡΠ°ΡΡ Π½Π° Π½Π΅Π΅).
ΠΠ°ΠΌΠ΅Π½ΠΈΡΠ΅ ΠΊΠΎΠ΄ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ ΡΠ»Π΅Π΄ΡΡΡΠΈΠΌ ΠΊΠΎΠ΄ΠΎΠΌ, ΠΊΠΎΡΠΎΡΡΠΉ ΡΠΎΠ²ΡΠ΅ΠΌ Π½Π΅ΠΌΠ½ΠΎΠ³ΠΎ, Π½ΠΎ ΠΈΠ·ΠΌΠ΅Π½Π΅Π½.
ΠΡΠΎΠ²Π΅ΡΡΠ΅ΠΌ ΡΠ°Π±ΠΎΡΡ, ΡΡΠ°Π½ΠΎΠ²ΠΈΠΌΡΡ Π½Π° Π½ΡΠΆΠ½ΡΡ ΡΡΠ΅ΠΉΠΊΡ, ΠΈ Π·Π°ΠΏΡΡΠΊΠ°Π΅ΠΌ ΠΌΠ°ΠΊΡΠΎΡ (Π² ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ΅ Ρ Π΄ΠΎΠ±Π°Π²ΠΈΠ» ΠΏΡΠΎΠ²Π΅ΡΠΊΡ, Π΅ΡΠ»ΠΈ Π²ΡΠ±ΡΠ°Π½Π° ΠΏΡΡΡΠ°Ρ ΡΡΠ΅ΠΉΠΊΠ°, Π²ΠΎΠ·Π½ΠΈΠΊΠ½Π΅Ρ ΠΎΡΠΈΠ±ΠΊΠ°).
ΠΠ°ΠΊ Π²ΠΈΠ΄ΠΈΠΌ, Π²ΡΠ΅ ΠΎΡΡΠ°Π±ΠΎΡΠ°Π»ΠΎ.
Π‘ΠΎΡ ΡΠ°Π½Π΅Π½ΠΈΠ΅ ΡΠ°ΠΉΠ»Π° Excel Ρ Π½Π°Π·Π²Π°Π½ΠΈΠ΅ΠΌ, ΠΊΠΎΡΠΎΡΠΎΠ΅ ΡΡΠΎΡΠΌΠΈΡΠΎΠ²Π°Π½ΠΎ ΠΈΠ· Π·Π½Π°ΡΠ΅Π½ΠΈΠΉ Π΄Π²ΡΡ ΡΡΠ΅Π΅ΠΊ
Π’Π΅ΠΏΠ΅ΡΡ ΠΏΡΠ΅Π΄ΡΡΠ°Π²ΠΈΠΌ, ΡΡΠΎ Π½Π°ΠΌ Π½ΡΠΆΠ½ΠΎ ΡΡΠΎΡΠΌΠΈΡΠΎΠ²Π°ΡΡ ΡΠ°ΠΉΠ» Ρ Π½Π°Π·Π²Π°Π½ΠΈΠ΅ΠΌ ΠΈΠ· Π·Π½Π°ΡΠ΅Π½ΠΈΠΉ Π΄Π²ΡΡ ΡΡΠ΅Π΅ΠΊ. ΠΠ°ΠΏΡΠΈΠΌΠ΅Ρ, Π² Π½Π°ΡΠ΅ΠΌ ΡΠ»ΡΡΠ°Π΅ ΡΡΠΎ ΠΌΠΎΠΆΠ΅Ρ Π±ΡΡΡ Β«ΠΠ°ΡΠΊΠ° ΠΠ²ΡΠΎ β VIN ΠΠΎΠΌΠ΅ΡΒ», Π² ΠΊΠ°ΡΠ΅ΡΡΠ²Π΅ ΡΠ°Π·Π΄Π΅Π»ΠΈΡΠ΅Π»Ρ Ρ ΡΠΊΠ°Π·Π°Π» ΡΠΈΠΌΠ²ΠΎΠ» β (Π΄Π΅ΡΠΈΡ), Π½ΠΎ ΠΈΠΌ ΠΌΠΎΠΆΠ΅Ρ Π²ΡΡΡΡΠΏΠ°ΡΡ Π»ΡΠ±ΠΎΠΉ ΡΠΈΠΌΠ²ΠΎΠ» ΠΈΠ»ΠΈ Π²ΠΎΠ²ΡΠ΅ ΠΎΡΡΡΡΡΡΠ²ΠΎΠ²Π°ΡΡ.
Π ΡΡΠΎΠΌ ΠΏΡΠΈΠΌΠ΅ΡΠ΅ Ρ ΠΏΠΎΠΊΠ°ΠΆΡ, ΠΊΠ°ΠΊ ΠΌΠΎΠΆΠ½ΠΎ ΡΡΠΎ ΡΠ΅Π°Π»ΠΈΠ·ΠΎΠ²Π°ΡΡ Ρ ΠΏΡΠΈΠ²ΡΠ·ΠΊΠΎΠΉ ΠΊ ΠΊΠΎΠ½ΠΊΡΠ΅ΡΠ½ΡΠΌ ΡΡΠ΅ΠΉΠΊΠ°ΠΌ, Π² Π½Π°ΡΠ΅ΠΌ ΡΠ»ΡΡΠ°Π΅ B14 ΠΈ D14.
ΠΠΎΠ΄ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ Π² Π΄Π°Π½Π½ΠΎΠΌ ΡΠ»ΡΡΠ°Π΅ Π±ΡΠ΄Π΅Ρ Π²ΡΠ³Π»ΡΠ΄Π΅ΡΡ ΡΠ»Π΅Π΄ΡΡΡΠΈΠΌ ΠΎΠ±ΡΠ°Π·ΠΎΠΌ.
ΠΡΠ΅ ΠΠ, ΡΠ°ΠΉΠ» ΡΠΎΠ·Π΄Π°Π½.
ΠΡΠ»ΠΈ Π²Π΄ΡΡΠ³ Π½ΡΠΆΠ½ΠΎ ΡΠ΅Π°Π»ΠΈΠ·ΠΎΠ²Π°ΡΡ Π±Π΅Π· ΠΏΡΠΈΠ²ΡΠ·ΠΊΠΈ ΠΊ ΠΊΠΎΠ½ΠΊΡΠ΅ΡΠ½ΡΠΌ ΡΡΠ΅ΠΉΠΊΠ°ΠΌ, Π½Π°ΠΏΡΠΈΠΌΠ΅Ρ, Π·Π½Π°ΡΠ΅Π½ΠΈΡ Ρ ΡΠ°Π½ΡΡΡΡ Π² ΠΎΠΏΡΠ΅Π΄Π΅Π»ΡΠ½Π½ΡΡ ΡΡΠΎΠ»Π±ΡΠ°Ρ , Π½ΠΎ ΠΊΠΎΠ½ΠΊΡΠ΅ΡΠ½Π°Ρ ΡΡΡΠΎΠΊΠ° Π½Π΅ΠΈΠ·Π²Π΅ΡΡΠ½Π° ΠΠ°ΠΌ Π·Π°ΡΠ°Π½Π΅Π΅. ΠΠ°ΠΏΡΠΈΠΌΠ΅Ρ, Ρ ΠΌΠ΅Π½Ρ Π½Π΅ΡΠΊΠΎΠ»ΡΠΊΠΎ ΡΡΡΠΎΠΊ ΡΠΎ Π·Π½Π°ΡΠ΅Π½ΠΈΡΠΌΠΈ, ΠΈ ΠΊΠ°ΠΊΠΈΠ΅ ΠΊΠΎΠ½ΠΊΡΠ΅ΡΠ½ΠΎ Π·Π½Π°ΡΠ΅Π½ΠΈΡ Π²Π·ΡΡΡ Π·Π° ΠΎΡΠ½ΠΎΠ²Ρ Π½Π°Π·Π²Π°Π½ΠΈΡ ΡΠ°ΠΉΠ»Π°, Ρ Ρ ΠΎΡΡ ΡΠΊΠ°Π·ΡΠ²Π°ΡΡ ΡΠ°ΠΌΠΎΡΡΠΎΡΡΠ΅Π»ΡΠ½ΠΎ, Π½Π΅ΠΏΠΎΡΡΠ΅Π΄ΡΡΠ²Π΅Π½Π½ΠΎ ΠΏΠ΅ΡΠ΅Π΄ ΡΠΎΡ ΡΠ°Π½Π΅Π½ΠΈΠ΅ΠΌ, Π½ΠΎ ΠΏΡΠΈ ΡΡΠΎΠΌ Π½Π΅ ΡΠ΅Π΄Π°ΠΊΡΠΈΡΠΎΠ²Π°ΡΡ ΠΊΠΎΠ΄ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ.
ΠΠ»Ρ ΡΡΠΎΠ³ΠΎ ΠΌΡ ΡΠ½ΠΎΠ²Π° Π²Π½Π΅ΡΠ΅ΠΌ ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΡ Π² Π½Π°ΡΡ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ, ΠΊΠΎΡΠΎΡΠ°Ρ Π±ΡΠ΄Π΅Ρ ΡΠ°Π±ΠΎΡΠ°ΡΡ ΠΎΡ Π°ΠΊΡΠΈΠ²Π½ΠΎΠΉ ΡΡΠ΅ΠΉΠΊΠΈ (ΡΠΌΠ΅ΡΠ΅Π½ΠΈΠ΅ ΠΎΡ Π°ΠΊΡΠΈΠ²Π½ΠΎΠΉ ΡΡΠ΅ΠΉΠΊΠΈ), ΡΠΎΠ»ΡΠΊΠΎ Ρ ΡΡΠ»ΠΎΠ²ΠΈΠ΅ΠΌ ΡΠΎΠ³ΠΎ, ΡΡΠΎ Π²ΡΠ±ΡΠ°Π½ ΡΡΠΎΠ»Π±Π΅Ρ Ρ ΡΠ΅ΠΌΠΈ Π·Π½Π°ΡΠ΅Π½ΠΈΡΠΌΠΈ, ΠΊΠΎΡΠΎΡΡΠ΅ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ.
ΠΠΎΠ΄ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ
Π‘ΡΠ°Π½ΠΎΠ²ΠΈΡΠ΅ΡΡ Π½Π° Π»ΡΠ±ΡΡ ΡΡΠ΅ΠΉΠΊΡ ΡΠΎ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ΠΌ Π² ΡΡΠΎΠ»Π±ΡΠ΅ B, ΠΈ Π·Π°ΠΏΡΡΠΊΠ°ΠΉΡΠ΅ ΠΌΠ°ΠΊΡΠΎΡ.
Π£ ΠΌΠ΅Π½Ρ Π½Π° ΡΡΠΎΠΌ Π²ΡΠ΅, Π½Π°Π΄Π΅ΡΡΡ, ΠΌΠ°ΡΠ΅ΡΠΈΠ°Π» Π±ΡΠ» ΠΠ°ΠΌ ΠΏΠΎΠ»Π΅Π·Π΅Π½, ΠΏΠΎΠΊΠ°!
Π‘ΠΎΡ ΡΠ°Π½Π΅Π½ΠΈΠ΅ Π»ΠΈΡΡΠ° Π² ΠΈΠ· ΠΊΠ½ΠΈΠ³ΠΈ ΠΊΠ°ΠΊ ΠΎΡΠ΄Π΅Π»ΡΠ½ΡΠΉ ΡΠ°ΠΉΠ».xls
ΠΠ°ΠΊΡΠΎΡ ΡΠΎΡ
ΡΠ°Π½Π΅Π½ΠΈΠ΅ Π°ΠΊΡΠΈΠ²Π½ΠΎΠ³ΠΎ Π»ΠΈΡΡΠ° ΠΊΠ½ΠΈΠ³ΠΈ Π² ΠΎΡΠ΄Π΅Π»ΡΠ½ΡΠΉ ΡΠ°ΠΉΠ»
ΠΠΎΠ΄ ΡΠΎΡ
ΡΠ°Π½ΡΠ΅Ρ ΡΠ°ΠΉΠ», Π½ΠΎ Ρ ΠΏΡΡΡΡΠΌ ΡΠΎΠ΄Π΅ΡΠΆΠ°Π½ΠΈΠ΅ΠΌ. ΠΠΎΠ΄ΡΠΊΠ°ΠΆΠΈΡΠ΅, Π² ΡΠ΅ΠΌ ΠΌΠΎΠΆΠ΅Ρ Π±ΡΡΡ ΠΏΡΠΎΠ±Π»Π΅ΠΌΠ°? With.
Π‘ΠΎΡ
ΡΠ°Π½Π΅Π½ΠΈΠ΅ Π»ΠΈΡΡΠ° ΠΊΠ½ΠΈΠ³ΠΈ Π² ΠΎΡΠ΄Π΅Π»ΡΠ½ΡΠΉ ΡΠ°ΠΉΠ» Π² Π°Π»ΡΠ±ΠΎΠΌΠ½ΠΎΠΌ Π²ΠΈΠ΄Π΅
ΠΠΎΠ±ΡΡΠΉ Π΄Π΅Π½Ρ! ΠΡΡΡ Π΄Π°Π½Π½ΡΠΉ ΠΌΠ°ΠΊΡΠΎΡ, ΠΎΠ½ ΡΠΎΡ
ΡΠ°Π½ΡΠ΅Ρ Π»ΠΈΡΡ ΠΈΠ· ΠΊΠ½ΠΈΠ³ΠΈ Π² ΠΎΡΠ΄Π΅Π»ΡΠ½ΡΠΉ ΡΠ°ΠΉΠ», Π½ΠΎ Π½Π΅ ΡΠΎΠ²ΡΠ΅ΠΌ ΡΠ°ΠΊ ΠΊΠ°ΠΊ.
Π‘ΠΎΡ
ΡΠ°Π½Π΅Π½ΠΈΠ΅ ΠΊΠ½ΠΈΠ³ΠΈ ΠΊΠ°ΠΊ ΠΎΡΠ΄Π΅Π»ΡΠ½ΡΠΉ ΡΠ°ΠΉΠ»
ΠΠΎΠ»Π»Π΅Π³ΠΈ, Π΄ΠΎΠ±ΡΠΎΠ³ΠΎ Π΄Π½Ρ. ΠΠΎΠ΄ΡΠΊΠ°ΠΆΠΈΡΠ΅ ΡΠΎΠ²Π΅ΡΠΎΠΌ β Π½Π°Ρ
ΠΎΠΆΡΡΡ Π½Π° ΡΠ°Π·Π²ΠΈΠ»ΠΊΠ΅ ΠΌΠ΅ΠΆΠ΄Ρ ΡΠ΄ΠΎΠ±ΡΡΠ²ΠΎΠΌ ΠΈ Π°Π²ΡΠΎΠΌΠ°ΡΠΈΠ·Π°ΡΠΈΠ΅ΠΉ.
Π‘ΠΎΡ
ΡΠ°Π½Π΅Π½ΠΈΠ΅ ΡΠ΅ΠΊΡΡΠ΅Π³ΠΎ Π»ΠΈΡΡΠ° Excel Π² ΠΎΡΠ΄Π΅Π»ΡΠ½ΡΠΉ ΡΠ°ΠΉΠ»
ΠΠΎΠ±ΡΠΎΠ³ΠΎ Π²ΡΠ΅ΠΌ Π²ΡΠ΅ΠΌΠ΅Π½ΠΈ ΡΡΡΠΎΠΊ! ΠΠΎΠΌΠΎΠ³ΠΈΡΠ΅ ΡΠΏΡΠ°Π²ΠΈΡΡΡΡ Ρ Π½Π΅Π±ΠΎΠ»ΡΡΠΎΠΉ ΠΏΡΠΎΠ±Π»Π΅ΠΌΠΊΠΎΠΉ. ΠΡΡΡ ΡΠ°ΠΉΠ» Excel Ρ.
Π‘ΠΎΡ
ΡΠ°Π½Π΅Π½ΠΈΠ΅ Π»ΠΈΡΡΠ° ΠΊΠ½ΠΈΠ³ΠΈ Π² ΡΠ°ΠΉΠ»Π΅ β ΠΏΡΠΎΠ±Π»Π΅ΠΌΠ° Ρ Π·Π°ΡΠΈΡΠΎΠΉ Π»ΠΈΡΡΠ° ΠΈ ΠΏΡΠΈΠ²ΡΠ·ΠΊΠΎΠΉ ΠΌΠ°ΠΊΡΠΎΡΠΎΠ²
Π‘ ΡΠΎΠ»ΠΊΠ½ΡΠ»ΡΡ Ρ ΡΠ°ΠΊΠΎΠΉ ΠΏΡΠΎΠ±Π»Π΅ΠΌΠΎΠΉ ΠΏΡΠΈ ΡΠΎΡ
ΡΠ°Π½Π΅Π½ΠΈΠΈ Π»ΠΈΡΡΠ° Π² ΡΠ°ΠΉΠ»Π΅ Π²ΠΎΡ ΠΊΠΎΠ΄ ΠΊΠΎΡΠΎΡΡΠΉ ΡΠΎΡ
ΡΠ°Π½ΡΠ΅Ρ Π»ΠΈΡΡ Π².
Klim_ul, Π΄Π°Π²Π°ΠΉ Π΄Π»Ρ Π½Π°ΡΠ°Π»Π° Ρ ΡΠ°Π·Π΄Π΅Π»ΠΎΠΌ ΠΎΠΏΡΠ΅Π΄Π΅Π»ΠΈΠΌΡΡ β ΡΡΠΎ VB6 ΠΈΠ»ΠΈ VBA(Excel)?
ΠΠ΄Π΅ ΡΠ°ΠΊΠ°Ρ ΠΊΠ½ΠΎΠΏΠΊΠ° Π΅ΡΡΡ β Π½Π° ΡΠΎΡΠΌΠ΅, Π½Π° Π»ΠΈΡΡΠ΅, Π² ΡΡΠ»Π±Π°ΡΠ΅?
ΠΡΠ΄Π΅Π»ΡΠ½ΠΎ ΠΎΡ ΡΠ°ΠΌΠΎΠΉ ΠΊΠ½ΠΈΠ³ΠΈ. Π½Π°ΠΏΡΠΈΠΌΠ΅Ρ ΠΎΡΠΊΡΡΡΠ° ΠΠ½ΠΈΠ³Π°.xls ΡΠΎΡΡΠΎΡΡΠ°Ρ ΠΈΠ· 3-Ρ Π»ΠΈΡΡΠΎΠ², Π΄Π°Π»Π΅Π΅ Π½Π° ΠΊΠ°ΠΆΠ΄ΠΎΠΌ ΠΈΠ· Π»ΠΈΡΡΠΎΠ² Π²Π²Π΅Π»ΠΈ ΠΊΠ°ΠΊΡΡ Π»ΠΈΠ±ΠΎ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΡ. ΠΠ½Π΅ Π½ΡΠΆΠ½ΠΎ ΡΠΎΡ ΡΠ°Π½ΠΈΡΡ ΡΠΎΠ»ΡΠΊΠΎ Π»ΠΈΡΡ ΠΠΈΡΡ3 ΠΈΠ· ΡΡΠΎΠΉ ΠΊΠ½ΠΈΠ³ΠΈ, ΠΊΠ°ΠΊ ΠΎΡΠ΄Π΅Π»ΡΠ½ΡΠΉ ΡΠ°ΠΉΠ».xls Π½Π°Π·Π²Π°Π½ΠΈΠ΅ ΠΊΠΎΡΠΎΡΠΎΠ³ΠΎ Π±ΡΠ΄Π΅Ρ ΡΠ΅ΠΊΡΡΠ°Ρ Π΄Π°ΡΠ°.
ΠΠΎΠ±Π°Π²Π»Π΅Π½ΠΎ ΡΠ΅ΡΠ΅Π· 2 ΠΌΠΈΠ½ΡΡΡ
ΠΡΠΎ VBA(Excel)! Π ΠΊΠ½ΠΎΠΏΠΊΡ ΡΠΎΠ·Π΄Π°Π΅ΠΌ ΡΠ°ΠΌΠΈ CommandButton ΠΈ ΠΏΡΠΈΠ²ΡΠ·ΡΠ²Π°Π΅ΠΌ ΠΠ°ΠΊΡΠΎΡ!
ΠΠΎΠ±Π°Π²Π»Π΅Π½ΠΎ ΡΠ΅ΡΠ΅Π· 40 ΡΠ΅ΠΊΡΠ½Π΄
ΠΠ½ΠΎΠΏΠΊΠ° Π½Π° Π»ΠΈΡΡΠ΅!
ΠΠΎΠ±Π°Π²Π»Π΅Π½ΠΎ ΡΠ΅ΡΠ΅Π· 43 ΡΠ΅ΠΊΡΠ½Π΄Ρ
ΠΠΏΠΎΡΡΡΠΎΡΡ, ΠΡΠ΄Ρ ΠΎΡ. Π±Π»Π°Π³ΠΎΠ΄Π°ΡΠ΅Π½ Π·Π° ΠΏΠΎΠΌΠΎΡΡ!
ΠΠ³ΡΠΎΠΌΠ½ΠΎΠ΅ ΠΡΠ΅ΠΌ ΡΠΏΠ°ΡΠΈΠ±ΠΎ.
ΠΠΎΠ±Π°Π²Π»Π΅Π½ΠΎ ΡΠ΅ΡΠ΅Π· 15 ΠΌΠΈΠ½ΡΡ
Π Π΅ΡΠ΅ ΠΎΠ΄ΠΈΠ½ Π²ΠΎΠΏΡΠΎΡ. ΠΠ΄Π΅ ΡΠΊΠ°Π·Π°ΡΡ ΠΏΡΡΡ ΠΊΡΠ΄Π° Π±ΡΠ΄Π΅Ρ ΡΠΎΡ
ΡΠ°Π½ΡΡΡΡΡ ΡΠ°ΠΉΠ». Π Π΄Π°Π½Π½ΡΡ
ΠΏΡΠΈΠΌΠ΅ΡΠ°Ρ
Ρ ΠΌΠ΅Π½Ρ ΡΠΎΡ
ΡΠ°Π½ΡΠ΅Ρ Π² ΡΠ΅ΠΊΡΡΡΡ Π΄ΠΈΡΠ΅ΠΊΡΠΎΡΠΈΡ, Π° ΠΌΠ½Π΅ Π½ΡΠΆΠ½ΠΎ ΡΠΊΠ°Π·Π°ΡΡ Π΄ΡΡΠ³ΠΎΠΉ ΠΏΡΡΡ!
ΠΠ»ΠΎΡ ΠΎ, ΠΊΠΎΠ³Π΄Π° Π½ΠΎΠ³ΠΈ Ρ Π³ΠΎΠ»ΠΎΠ²ΠΎΠΉ Π½Π΅ Π΄ΡΡΠΆΠ°Ρ:D
Π‘ΠΏΠ°ΡΠΈΠ±ΠΎ! ΠΡΠΎ ΠΌΠΎΠΉ ΠΏΠ΅ΡΠ²ΡΠΉ ΠΎΠΏΡΡ Π² VBA. ΠΠ΅ ΡΡΠ΄ΠΈΡΠ΅ ΡΡΡΠΎΠ³ΠΎ!
ΠΠ΅ ΠΏΠΎΠ΄ΡΠΊΠ°ΠΆΠΈΡΠ΅, ΡΠ»ΠΎΠΆΠ½ΠΎ Π»ΠΈ ΡΠ΄Π΅Π»Π°ΡΡ ΡΠ°ΠΊ, ΡΡΠΎΠ±Ρ Π²ΡΠ΅ Π²ΡΡΠ°ΠΆΠ΅Π½ΠΈΡ Π² ΡΠΊΠΎΠΏΠΈΡΠΎΠ²Π°Π½Π½ΡΡ
Π»ΠΈΡΡΠ°Ρ
Π±ΡΠ»ΠΈ ΡΠΎΡ
ΡΠ°Π½Π΅Π½Ρ ΠΊΠ°ΠΊ Π·Π½Π°ΡΠ΅Π½ΠΈΡ?
ΠΠΎΠ±Π°Π²Π»Π΅Π½ΠΎ ΡΠ΅ΡΠ΅Π· 49 ΠΌΠΈΠ½ΡΡ
Π ΠΊΠΎΠ΄Π΅ Π½ΠΈΠΆΠ΅ ΡΠΎΡ
ΡΠ°Π½ΡΡΡ ΠΊΠ°ΠΊ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅, Π΅ΡΠ»ΠΈ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΠΌΠ°ΡΡΠΈΠ²Ρ Π½Π΅ ΠΏΠΎΠ»ΡΡΠ°Π΅ΡΡΡ:
ΠΠΎΡ ΡΡΠΎ ΠΏΠΎΡΡΠΈ ΠΏΠΎΡ ΠΎΠΆΠ΅ Π½Π° ΠΏΡΠ°Π²Π΄Ρ. Π’ΠΎ ΡΡΠΎ ΡΠ΄Π°Π»ΡΠ΅Ρ Π²ΡΠ΅ Π·Π° ΠΎΠ±Π»Π°ΡΡΡΡ ΠΏΠ΅ΡΠ°ΡΠΈ β ΡΡΠΎ Π½Π΅ ΡΡΡΠ°ΡΠ½ΠΎ. ΠΡΠΈ ΡΠΎΡ ΡΠ°Π½Π΅Π½ΠΈΠΈ ΠΌΠΎΠΆΠ½ΠΎ ΡΠΊΠ°Π·Π°ΡΡ ΠΏΡΡΡ ΠΈ ΠΈΠΌΡ, ΠΈ ΡΡΠΎ ΡΠΎΡ ΡΠ°Π½ΡΠ΅Ρ Π·Π½Π°ΡΠ΅Π½ΠΈΡ, Π° Π½Π΅ ΡΠΎΡΠΌΡΠ»Ρ β ΡΡΠΎ Π²ΡΠ΅ ΡΠΎ ΡΡΠΎ Π½Π°Π΄ΠΎ. Π’ΠΎΠ»ΡΠΊΠΎ ΠΊΠ°ΠΊ Π±Ρ Π½Π΅ΠΌΠ½ΠΎΠ³ΠΎ Π΄ΠΎΡΠ°Π±ΠΎΡΠ°ΡΡ, ΡΡΠΎΠ±Ρ ΡΠΎΡ ΡΠ°Π½ΡΠ»ΡΡ Π½Π΅ Π²ΡΠ΄Π΅Π»Π΅Π½Π½ΡΠΉ Π»ΠΈΡΡ, Π° ΠΊ ΠΏΡΠΈΠΌΠ΅ΡΡ ΡΠ°ΠΊ: Π½Π° ΠΏΠ΅ΡΠ²ΠΎΠΌ Π»ΠΈΡΡΠ΅ Π±ΡΠ΄ΡΡ ΠΊΠ°ΠΊΠΈΠ΅-ΡΠΎ ΡΠ°ΡΡΠ΅ΡΡ ΠΈ ΠΊΠ½ΠΎΠΏΠΊΠ° ΡΠΎΡ ΡΠ°Π½ΠΈΡΡ, Π° ΡΠ°Π±Π»ΠΈΡΡ Ρ ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΠ°ΠΌΠΈ Π½Π° Π²ΡΠΎΡΠΎΠΌ ΠΈ ΡΡΠ΅ΡΡΠ΅ΠΌ Π»ΠΈΡΡΠ΅. Π Π²ΠΎΡ ΠΏΡΠΈ Π½Π°ΠΆΠ°ΡΠΈΠΈ Π½Π° ΠΊΠ½ΠΎΠΏΠΊΡ ΡΠΎΡ ΡΠ°Π½ΠΈΡΡ, ΡΠΎΡ ΡΠ°Π½ΡΠ»ΠΈΡΡ Π±Ρ Π²ΡΠΎΡΠΎΠΉ ΠΈ ΡΡΠ΅ΡΠΈΠΉ Π»ΠΈΡΡΡ Π² ΠΎΡΠ΄Π΅Π»ΡΠ½ΠΎΠΉ ΠΊΠ½ΠΈΠ³Π΅.
ΠΠΎΠ±Π°Π²Π»Π΅Π½ΠΎ ΡΠ΅ΡΠ΅Π· 2 ΡΠ°ΡΠ° 30 ΠΌΠΈΠ½ΡΡ
DanAttess, Π ΠΌΠΎΠΆΠ½ΠΎ ΡΠ²ΠΈΠ΄Π΅ΡΡ ΡΠ°ΠΉΠ» Ρ ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΠΎΠΌ ΡΠΎΡ
ΡΠ°Π½Π΅Π½ΠΈΠΉ?
ΠΠ°ΠΊΡΠΎΡ ΡΠΎΡ ΡΠ°Π½Π΅Π½ΠΈΡ Π»ΠΈΡΡΠ° Excel Π² ΡΠ°ΠΉΠ»
ΠΠ°Π½Π½ΡΠΉ ΠΌΠ°ΠΊΡΠΎΡ ΠΏΠΎΠ·Π²ΠΎΠ»ΡΠ΅Ρ ΡΠΏΡΠΎΡΡΠΈΡΡ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ ΡΠΎΡ ΡΠ°Π½Π΅Π½ΠΈΡ Π°ΠΊΡΠΈΠ²Π½ΠΎΠ³ΠΎ Π»ΠΈΡΡΠ° Π² ΠΊΠ½ΠΈΠ³Π΅ Excel Π² ΠΎΡΠ΄Π΅Π»ΡΠ½ΡΠΉ ΡΠ°ΠΉΠ».
ΠΠ»Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΡ ΡΡΠΎΠ³ΠΎ ΠΌΠ°ΠΊΡΠΎΡΠ° Π½Π° Π»ΡΠ±ΠΎΠΌ Π»ΠΈΡΡΠ΅ Π² ΠΊΠ½ΠΈΠ³Π΅ Excel ΡΠΎΠ·Π΄Π°ΠΉΡΠ΅ ΠΊΠ½ΠΎΠΏΠΊΡ, ΠΈ Π½Π°Π·Π½Π°ΡΡΡΠ΅ Π΅ΠΉ ΠΌΠ°ΠΊΡΠΎΡ Π‘ΠΎΡ ΡΠ°Π½ΠΈΡΡΠΠΈΡΡΠΠ€Π°ΠΉΠ».
ΠΡΠΈ Π·Π°ΠΏΡΡΠΊΠ΅ ΠΌΠ°ΠΊΡΠΎΡΠ° (Π½Π°ΠΆΠ°ΡΠΈΠΈ ΠΊΠ½ΠΎΠΏΠΊΠΈ) Π±ΡΠ΄Π΅Ρ Π²ΡΠ²Π΅Π΄Π΅Π½ΠΎ Π΄ΠΈΠ°Π»ΠΎΠ³ΠΎΠ²ΠΎΠ΅ ΠΎΠΊΠ½ΠΎ Π²ΡΠ±ΠΎΡΠ° ΠΈΠΌΠ΅Π½ΠΈ Π΄Π»Ρ ΡΠΎΡ ΡΠ°Π½ΡΠ΅ΠΌΠΎΠ³ΠΎ ΡΠ°ΠΉΠ»Π°, ΠΏΠΎΡΠ»Π΅ ΡΠ΅Π³ΠΎ ΡΠ΅ΠΊΡΡΠΈΠΉ Π»ΠΈΡΡ Π±ΡΠ΄Π΅Ρ ΡΠΎΡ ΡΠ°Π½ΡΠ½ ΠΏΠΎΠ΄ Π·Π°Π΄Π°Π½Π½ΡΠΌ ΠΈΠΌΠ΅Π½Π΅ΠΌ Π² Π²ΡΠ±ΡΠ°Π½Π½ΠΎΠΉ ΠΏΠ°ΠΏΠΊΠ΅.
Π‘ΠΎΡ
ΡΠ°Π½Π΅Π½ΠΈΠ΅ ΠΏΡΠΎΠΈΠ·Π²ΠΎΠ΄ΠΈΡΡΡ Π² ΡΠΎΡΠΌΠ°ΡΠ΅ XLS (ΡΠΎΡΠΌΠ°Ρ Excel 2003)
ΠΡΠ»ΠΈ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ ΠΎΡΠΊΠ°Π·Π°Π»ΡΡ ΠΎΡ Π²Π²ΠΎΠ΄Π° ΠΈΠΌΠ΅Π½ΠΈ ΡΠ°ΠΉΠ»Π° (Π½Π°ΠΆΠ°Π» ΠΊΠ»Π°Π²ΠΈΡΡ ESC ΠΈΠ»ΠΈ ΠΊΠ½ΠΎΠΏΠΊΡ Β«ΠΡΠΌΠ΅Π½Π°Β» Π² Π΄ΠΈΠ°Π»ΠΎΠ³ΠΎΠ²ΠΎΠΌ ΠΎΠΊΠ½Π΅),
ΡΠΎ ΡΠΎΡ
ΡΠ°Π½Π΅Π½ΠΈΡ Π»ΠΈΡΡΠ° Π² ΡΠ°ΠΉΠ» Π½Π΅ ΠΏΡΠΎΠΈΡΡ
ΠΎΠ΄ΠΈΡ.
PS: ΠΡΠΎ-ΡΠΎ ΠΌΠΎΠΆΠ΅Ρ ΡΠΊΠ°Π·Π°ΡΡ, ΡΡΠΎ Π΄Π»Ρ ΡΠΎΡ ΡΠ°Π½Π΅Π½ΠΈΡ Π»ΠΈΡΡΠ° Π² ΡΠ°ΠΉΠ» Π² ΠΎΠ±ΡΠ΅ΠΊΡΠ½ΠΎΠΉ ΠΌΠΎΠ΄Π΅Π»ΠΈ Excel Π΅ΡΡΡ ΠΌΠ΅ΡΠΎΠ΄ SaveAs, ΠΏΡΠΈΠΌΠ΅Π½ΠΈΠΌΡΠΉ ΠΊ ΠΎΠ±ΡΠ΅ΠΊΡΡ Worksheet.
ΠΠΎ, ΠΊΠ°ΠΊ Π½ΠΈ ΡΡΡΠ°Π½Π½ΠΎ, Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΠ΅ ΠΊΠΎΠ΄Π° ActiveSheet.SaveAs Β» Β« ΠΏΡΠΈΠ²ΠΎΠ΄ΠΈΡ ΠΊ ΡΠΎΡ ΡΠ°Π½Π΅Π½ΠΈΡ ΠΊΠ½ΠΈΠ³ΠΈ ΡΠ΅Π»ΠΈΠΊΠΎΠΌ, ΡΡΠΎ ΡΠ°Π²Π½ΠΎΡΠΈΠ»ΡΠ½ΠΎ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΡ ΠΊΠΎΠ΄Π° ActiveWorkbook.SaveAs Β» Β«
ΠΠΎΡΠ΅ΠΌΡ ΡΡΠΎΡ ΠΌΠ΅ΡΠΎΠ΄ ΡΠΎΡ ΡΠ°Π½Π΅Π½ΠΈΡ ΡΠ°Π±ΠΎΡΠ°Π΅Ρ ΡΠ°ΠΊ Π½Π΅Π»ΠΎΠ³ΠΈΡΠ½ΠΎ β Π»ΠΈΡΠ½ΠΎ ΠΌΠ½Π΅ Π½Π΅ ΠΏΠΎΠ½ΡΡΠ½ΠΎ (Π²ΠΈΠ΄ΠΈΠΌΠΎ, Microsoft ΡΡΠΎ-ΡΠΎ ΡΠ°ΠΌ ΠΏΠ΅ΡΠ΅ΠΌΡΠ΄ΡΠΈΠ»)
- 145582 ΠΏΡΠΎΡΠΌΠΎΡΡΠ°
ΠΠΎΠΌΠΌΠ΅Π½ΡΠ°ΡΠΈΠΈ
Π‘ΠΏΠ°ΡΠΈΠ±ΠΎ. Π Π°Π·ΠΎΠ±ΡΠ°Π»ΡΡ. ΠΠ°ΡΡΠ» ΠΎΡΠΈΠ±ΠΊΠΈ Π² Π±ΠΈΠ±Π»ΠΈΠΎΡΠ΅ΠΊΠ°Ρ .)
Π‘ΠΏΠ°ΡΠΈΠ±ΠΎ. ΠΡΡ Π·Π°ΠΏΡΡΡΠΈΠ», Π½ΠΎ Π½Π΅ ΡΠ°Π±ΠΎΡΠ°Π΅Ρ. ΠΠΈΡΠ΅Ρ Π½Π΅ Π½Π°ΠΉΠ΄Π΅Π½ ΠΏΡΠΎΠ΅ΠΊΡ ΠΈΠ»ΠΈ Π±ΠΈΠ±Π»ΠΈΠΎΡΠ΅ΠΊΠ°. ΠΡΠΎΡΡΠΈΡΠ΅, Π½Π΅ ΡΡΠΎΡΠ½ΠΈΠ», ΠΏΠΎΠΌΠ΅Π½ΡΠ» Π΅ΡΡ ΡΠ°ΠΌΡ ΡΠΈΡΡΠ΅ΠΌΡ (Π±ΡΠ» XP ΡΡΠ°Π» Win7 x64).
ΠΠΎΡ ΠΌΠΎΠΉ ΠΊΠΎΠ΄:
Private Sub CommandButton2_Click()
On Error Resume Next
Const REPORTS_FOLDER = Β«C:Users. . . Β»
MkDir ThisWorkbook.Path & «» & REPORTS_FOLDER
ChDrive Left(ThisWorkbook.Path, 1): ChDir ThisWorkbook.Path & «» & REPORTS_FOLDER
FileName = [b8] & Β«_Β» & [b6] & Β«_Β» & [b4] & Β«_Β» & Format([b2], Β«DDMMMMYYΒ») & Β«_Β» & [c2] & Β«.xlsxΒ»
Err.Clear: Worksheets(Array(. Β«, Β«. Β«)).Copy: DoEvents
If Err Then Exit Sub
If ActiveWorkbook.Worksheets.Count = 2 And ActiveWorkbook.Path = «» Then
ActiveWorkbook.SaveAs FileName, xlWorkbookNormal
ActiveWorkbook.Close False
End If
End Sub
Π£Π±Π΅Π΄ΠΈΡΠ΅ΡΡ, ΡΡΠΎ ΠΌΠ°ΠΊΡΠΎΡΡ Π²ΠΎΠΎΠ±ΡΠ΅ Π²ΠΊΠ»ΡΡΠ΅Π½Ρ Π² Π½Π°ΡΡΡΠΎΠΉΠΊΠ°Ρ
Excel.
ΠΠ΅ΡΠ΅Π΄ Π·Π°ΠΏΡΡΠΊΠΎΠΌ ΡΠ°ΠΉΠ»Π° Ρ ΠΌΠ°ΠΊΡΠΎΡΠ°ΠΌΠΈ, Π½Π΅ΠΎΠ±Ρ
ΠΎΠ΄ΠΈΠΌΠΎ Π²ΡΠΏΠΎΠ»Π½ΠΈΡΡ ΡΠ»Π΅Π΄ΡΡΡΠ΅Π΅:
> Π½Π°ΠΉΡΠΈ ΡΠ°ΠΉΠ» Ρ ΠΌΠ°ΠΊΡΠΎΡΠ°ΠΌΠΈ Π² ΠΏΠ°ΠΏΠΊΠ΅
> ΡΠ΅Π»ΠΊΠ½ΡΡΡ ΠΏΡΠ°Π²ΠΎΠΉ ΠΊΠ½ΠΎΠΏΠΊΠΎΠΉ ΠΌΡΡΠΈ Π½Π° ΡΠ°ΠΉΠ»Π΅ β Π‘Π²ΠΎΠΉΡΡΠ²Π° β Π Π°Π·Π±Π»ΠΎΠΊΠΈΡΠΎΠ²Π°ΡΡ β ΠΠ
> ΠΈ ΡΠΎΠ»ΡΠΊΠΎ ΠΏΠΎΡΠ»Π΅ ΡΡΠΎΠ³ΠΎ Π·Π°ΠΏΡΡΠΊΠ°ΡΡ
ΠΠ΅ΡΠ΅ΡΡΠ» Ρ 2007 Π½Π° Office 2016, ΠΏΠ΅ΡΠ΅ΡΡΠ°Π»ΠΈ ΡΠ°Π±ΠΎΡΠ°ΡΡ ΠΌΠ°ΠΊΡΠΎΡΡ. Π ΡΡΠΎΡ. (((
ΠΠΎΠ±ΡΡΠΉ Π΄Π΅Π½Ρ, ΠΏΠΎΠ΄ΡΠΊΠ°ΠΆΠΈΡΠ΅, ΠΏΠΎΠΆΠ°Π»ΡΠΉΡΡΠ°, ΡΡΠΎ Π½Π°Π΄ΠΎ ΠΈΠ·ΠΌΠ΅Π½ΠΈΡΡ Π² ΠΌΠ°ΠΊΡΠΎΡΠ΅, ΡΡΠΎΠ±Ρ:
1. ΠΠ½ ΠΊΠΎΠΏΠΈΡΠΎΠ²Π°Π» Π½Π΅ Π²Π΅ΡΡ Π»ΠΈΡΡ ΡΠ΅Π»Π΅ΠΊΠΎΠΌ, Π° ΡΠΎΠ»ΡΠΊΠΎ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ ΠΠΠΠΠΠ«Π₯ ΡΡΠ΅Π΅ΠΊ (A1:L50), Ρ.ΠΊ. ΡΡΠΎΡ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ ΡΠΎΠ»ΡΠΊΠΎ ΡΠ°ΡΡΡ ΠΎΡΡΠΈΠ»ΡΡΡΠΎΠ²Π°Π½Π½ΠΎΠ³ΠΎ ΡΠΏΠΈΡΠΊΠ°.
2. ΠΠ½ ΠΊΠΎΠΏΠΈΡΠΎΠ²Π°Π» ΡΠΎΠ»ΡΠΊΠΎ Π·Π½Π°ΡΠ΅Π½ΠΈΡ, Π±Π΅Π· ΡΠΎΡΠΌΡΠ» ΡΡΠ΅Π΅ΠΊ.
ΠΠ΄ΡΠ°Π²ΡΡΠ²ΡΠΉΡΠ΅, ΠΠ»Π΅ΠΊΡΠ΅ΠΉ
ΠΠ°, ΠΌΠΎΠΆΠ½ΠΎ ΡΠ°ΠΊΠΎΠ΅ ΡΠ΄Π΅Π»Π°ΡΡ, β ΠΌΠΎΠ³Ρ Π½Π°ΠΏΠΈΡΠ°ΡΡ ΠΌΠ°ΠΊΡΠΎΡ ΠΏΠΎΠ΄ Π·Π°ΠΊΠ°Π·.
ΠΠ΄ΡΠ°Π²ΡΡΠ²ΡΠΉΡΠ΅, ΠΠ³ΠΎΡΡ.
ΠΠΎΠ΄ΡΠΊΠ°ΠΆΠΈΡΠ΅, ΠΏΠΎΠΆΠ°Π»ΡΠΉΡΡΠ°, Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎ Π»ΠΈ ΡΠ°ΠΊΠΎΠ΅, ΡΡΠΎΠ±Ρ ΠΠΈΡΡ ΠΌΠΎΠΆΠ½ΠΎ Π±ΡΠ»ΠΎ ΡΠΎΡ
ΡΠ°Π½ΡΡΡ Π½Π΅ Π΅Π΄ΠΈΠ½ΠΎΠΆΠ΄Ρ (ΠΏΠΎ ΠΈΠΌΠ΅Π½ΠΈ Π² ΠΎΠ΄Π½ΠΎΠΉ ΡΡΠ΅ΠΉΠΊΠ΅) Π° ΡΠΎΡΠ»Π°Π²ΡΠΈΡΡ Π½Π° ΠΊΠ°ΠΊΠΎΠΉ-Π»ΠΈΠ±ΠΎ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ ΡΡΠ΅Π΅ΠΊ. ΠΡΡΡ ΠΏΠΎΡΡΠ΅Π±Π½ΠΎΡΡΡ ΡΠ΄Π΅Π»Π°ΡΡ Π² ΠΊΠΎΠ½ΠΊΡΠ΅ΡΠ½ΠΎΠΉ ΠΏΠ°ΠΏΠΊΠ΅ ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ ΡΠ°ΠΉΠ»ΠΎΠ² ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΡΡΡΠ΅Π΅ ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²Ρ Π΄Π½Π΅ΠΉ Π² ΠΌΠ΅ΡΡΡΠ΅(ΠΎΡΡΠ΅Ρ Π½Π° ΠΊΠ°ΠΆΠ΄ΡΠΉ Π΄Π΅Π½Ρ). ΠΡΠ»ΠΈ Π² Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½Π΅ ΡΡΠ΅Π΅ΠΊ ΡΠΊΠ°Π·Π°ΡΡ Π΄Π°ΡΡ ΠΌΠ΅ΡΡΡΠ° ΠΈ ΠΏΠΎ Π½Π°ΠΆΠ°ΡΠΈΡ ΠΌΠ°ΠΊΡΠΎΡ ΡΠΎΡ
ΡΠ°Π½ΡΠ» Π±Ρ, ΡΠ°ΠΉΠ»Ρ Ρ ΠΈΠΌΠ΅Π½Π΅ΠΌ ΠΠ°ΡΡ.
ΠΠΎΠΆΠ΅ΡΠ΅ Π½Π°ΠΏΠΈΡΠ°ΡΡ ΠΌΠ°ΠΊΡΠΎΡ ΠΏΠΎΠ΄ Π·Π°ΠΊΠ°Π·? ΠΠ½Π΅ Π½Π°Π΄ΠΎ Π΄ΠΎ ΠΏΠΎΠ½Π΅Π΄Π΅Π»ΡΠ½ΠΈΠΊΠ°
ΠΠ°ΠΏΠΈΡΠΈΡΠ΅ Π²Π°ΡΠΈ ΠΊΠΎΠ½ΡΠ°ΠΊΡΡ, Π΅ΡΡΡ Π½Π΅ΡΠΊΠΎΠ»ΡΠΊΠΎ Π·Π°Π΄Π°Ρ.
ΠΠΌΠΈΡΡΠΈΠΉ, ΠΌΠΎΠΆΠ΅ΠΌ ΡΠ΄Π΅Π»Π°ΡΡ Π²Π°ΠΌ ΠΌΠ°ΠΊΡΠΎΡ ΠΏΠΎΠ΄ Π·Π°ΠΊΠ°Π·.
ΠΡΠΎΡΠΌΠ»ΡΠΉΡΠ΅ Π·Π°ΠΊΠ°Π·, ΠΏΡΠΈΠΊΡΠ΅ΠΏΠ»ΡΠΉΡΠ΅ ΡΠ°ΠΉΠ» (Π² ΠΊΠΎΡΠΎΡΡΠΉ Π½Π°Π΄ΠΎ Π²ΡΡΡΠΎΠΈΡΡ ΠΌΠ°ΠΊΡΠΎΡ), ΠΈ ΠΏΠΎΠ΄ΡΠΎΠ±Π½ΠΎ ΠΎΠΏΠΈΡΡΠ²Π°ΠΉΡΠ΅, ΡΡΠΎ ΠΊΡΠ΄Π° Π² ΠΊΠ°ΠΊΠΎΠΌ Π²ΠΈΠ΄Π΅ ΠΈ ΠΏΠΎΠ΄ ΠΊΠ°ΠΊΠΈΠΌ ΠΈΠΌΠ΅Π½Π΅ΠΌ ΡΠΎΡ
ΡΠ°Π½ΡΡΡ.
ΠΠ΅Π»ΠΎ Π² ΡΠΎΠΌ, ΡΡΠΎ Π² ΠΊΠ½ΠΈΠ³Π΅ ΠΏΠΎΡΡΠ΄ΠΊΠ° 20-30 Π»ΠΈΡΡΠΎΠ² ΠΈ ΠΊΠ°ΠΆΠ΄ΡΠΉ Π»ΠΈΡΡ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ ΡΠΎΡ ΡΠ°Π½ΠΈΡΡ Π² ΠΎΡΠ΄Π΅Π»ΡΠ½ΡΠ΅ ΠΏΠ°ΠΏΠΊΠΈ, ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΡΡΡΠΈΠ΅ ΠΈΠΌΠ΅Π½ΠΈ Π»ΠΈΡΡΠ°.
ΠΠΌΠΈΡΡΠΈΠΉ, Π° ΠΊΡΠ΄Π° ΡΠΆ ΠΏΡΠΎΡΠ΅-ΡΠΎ. Π²Ρ Π½Π°ΠΆΠΈΠΌΠ°Π΅ΡΠ΅ ΠΎΠ΄Π½Ρ ΠΊΠ½ΠΎΠΏΠΊΡ Β«ΠΠ΅ΡΠ°ΡΡΒ», ΠΈ ΠΏΠΎΠ»ΡΡΠ°Π΅ΡΠ΅ Π³ΠΎΡΠΎΠ²ΡΠΉ ΡΠ°ΠΉΠ» JPG
ΠΠ°ΡΠ΅ΠΌ Π΅ΡΡ-ΡΠΎ ΡΠΏΡΠΎΡΠ°ΡΡ.
ΠΠΎΠΆΠ½ΠΎ, ΠΊΠΎΠ½Π΅ΡΠ½ΠΎ, ΠΈ ΠΌΠ°ΠΊΡΠΎΡ ΠΏΠΎΠ΄ Π·Π°ΠΊΠ°Π· Π½Π°ΠΏΠΈΡΠ°ΡΡ
ΠΡΠ»ΠΈ Π² ΡΠΎΡΠΌΠ°Ρ BMP (ΠΈΠ»ΠΈ EMF) ΠΊΠ°ΡΡΠΈΠ½ΠΊΡ ΡΠΎΡ
ΡΠ°Π½ΡΡΡ β ΡΠΎ ΠΌΠ°ΠΊΡΠΎΡ Π½Π΅ΡΠ»ΠΎΠΆΠ½ΡΠΉ, Π΅ΡΠ»ΠΈ Π² ΡΠΎΡΠΌΠ°Ρ JPG β ΡΠΎ ΠΌΠ°ΠΊΡΠΎΡ ΡΠ»ΠΎΠΆΠ½Π΅Π΅ Π±ΡΠ΄Π΅Ρ (ΠΈ Π΄ΠΎΡΠΎΠΆΠ΅)
ΠΠΎ Ρ Π±Ρ Π½Π° Π²Π°ΡΠ΅ΠΌ ΠΌΠ΅ΡΡΠ΅ Π½Π΅ ΡΡΠ°Π» ΠΈΠ·ΠΎΠ±ΡΠ΅ΡΠ°ΡΡ Π²Π΅Π»ΠΎΡΠΈΠΏΠ΅Π΄, Π° ΠΎΡΡΠ°Π²ΠΈΠ» Π±Ρ Π²ΡΠ΅ ΠΊΠ°ΠΊ Π΅ΡΡΡ.
Π‘ΠΎΡ ΡΠ°Π½ΡΡ Π»ΠΈΡΡΡ Π² JPEG ΡΠΎΡΠΌΠ°ΡΠ΅, ΠΏΡΠΈ ΠΏΠΎΠΌΠΎΡΠΈ Π²ΠΈΡΡΡΠ°Π»ΡΠ½ΠΎΠ³ΠΎ ΠΏΡΠΈΠ½ΡΠ΅ΡΠ° Β«universal document converterΒ» Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎ Π»ΠΈ ΡΠΏΡΠΎΡΡΠΈΡΡ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ ΡΠΎΡ ΡΠ°Π½Π΅Π½ΠΈΡ Π°ΠΊΡΠΈΠ²Π½ΠΎΠ³ΠΎ Π»ΠΈΡΡΠ°?
ΠΠ΄ΡΠ°Π²ΡΡΠ²ΡΠΉΡΠ΅, ΠΠ³ΠΎΡΡ. ΠΡΠ΄ΡΡΠ΅ Π»ΡΠ±Π΅Π·Π½Ρ, Π²Π·Π³Π»ΡΠ½ΠΈΡΠ΅ Π½Π° ΠΊΠΎΠ΄. ΠΡΠ½ΠΎΠ²Π½Π°Ρ ΡΠ°ΡΡΡ Π±ΡΠ»Π° Π²Π·ΡΡΠ° Ρ Π΄ΡΡΠ³ΠΎΠ³ΠΎ ΡΠ°ΠΉΡΠ°, ΡΠ°ΡΡΡ Ρ ΠΠ°ΡΠ΅Π³ΠΎ. Π‘ΡΡΡ ΡΠ°ΠΊΠ°Ρ: Π½Π° ΠΏΠ΅ΡΠ²ΠΎΠΌ Π»ΠΈΡΡΠ΅ ΠΈΡΡ ΠΎΠ΄Π½ΡΠ΅ Π΄Π°Π½Π½ΡΠ΅ ΠΈ ΠΊΠ½ΠΎΠΏΠΊΠ°, Π½Π° ΡΡΠ΅ΡΡΠ΅ΠΌ β ΡΠ°ΡΡΠ΅ΡΡ Ρ ΡΠΎΡΠΌΡΠ»Π°ΠΌΠΈ. ΠΠ΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ ΡΡΠΎΠ±Ρ ΠΏΡΠΈ Π½Π°ΠΆΠ°ΡΠΈΠΈ ΠΊΠ½ΠΎΠΏΠΊΠΈ ΡΠΎΠ·Π΄Π°Π²Π°Π»Π°ΡΡ ΠΏΠ°ΠΏΠΊΠ° Β«ΠΠ²Π΅ΡΠΈΒ» Π² ΡΠ΅ΠΊΡΡΠ΅ΠΉ ΠΏΠ°ΠΏΠΊΠ΅, Π³Π΄Π΅ Π»Π΅ΠΆΠΈΡ ΡΡΠΎΡ ΡΠ°ΠΉΠ» (Π° Π΅ΡΠ»ΠΈ ΠΎΠ½Π° Π΅ΡΡΡ, ΡΠΎ ΡΠΎΡ ΡΠ°Π½ΡΠ»ΠΎΡΡ Π² Π½Π΅Π΅), Π° ΠΈΠΌΡ ΡΠ°ΠΉΠ»Π° Π±ΡΠ°Π»ΠΎΡΡ Ρ Π»ΠΈΡΡΠ° 1 ΠΈΠ· ΡΡΠ΅Π΅ΠΊ a17 & b17. Π‘ΠΎΡ ΡΠ°Π½ΡΡΡΡΡ Π΄ΠΎΠ»ΠΆΠ΅Π½ ΡΡΠ΅ΡΠΈΠΉ Π»ΠΈΡΡ (ΠΎΠ½ ΡΠΊΡΡΡ), ΡΠΎΡΠΌΡΠ»Ρ Π½Π° Π½Π΅ΠΌ Π·Π°ΠΌΠ΅Π½ΠΈΡΡ Π½Π° Π·Π½Π°ΡΠ΅Π½ΠΈΡ. ΠΠΎΡΠ»Π΅ ΡΠΎΡ ΡΠ°Π½Π΅Π½ΠΈΡ Π½ΠΎΠ²Π°Ρ ΠΊΠ½ΠΈΠ³Π° Π·Π°ΠΊΡΡΠ²Π°Π΅ΡΡΡ ΠΈ Π²ΡΠ²ΠΎΠ΄ΠΈΡΡΡ ΡΠΎΠΎΠ±ΡΠ΅Π½ΠΈΠ΅ ΠΎΠ± ΡΠ΄Π°ΡΠ½ΠΎΠΌ ΡΠΎΡ ΡΠ°Π½Π΅Π½ΠΈΠΈ ΡΠ°ΠΉΠ»Π° Ρ ΠΈΠΌΠ΅Π½Π΅ΠΌ ΠΈΠ· ΡΡΠ΅Π΅ΠΊ a17 & b17. Π‘Π°ΠΌ Ρ ΠΌΠ΅ΡΠΎΠ΄ΠΎΠΌ ΡΡΠΊΠ° ΠΏΡΡΠ°Π»ΡΡ Π²ΠΎΠΏΠ»ΠΎΡΠΈΡΡ ΡΡΠΎ, Π½ΠΎ Π»ΠΈΡΡ Π½Π΅ Ρ ΠΎΡΠ΅Ρ ΡΠΎΡ ΡΠ°Π½ΡΡΡΡΡ Ρ ΡΠΊΠ°Π·Π°Π½Π½ΡΠΌ ΠΈΠΌΠ΅Π½Π΅ΠΌ (ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ ΠΈΠΌΡ ΠΏΠΎ ΡΠΌΠΎΠ»ΡΠ°Π½ΠΈΡ Β«ΠΠ½ΠΈΠ³Π° 2. ΠΠ½ΠΈΠ³Π° 3. ). Π’Π°ΠΊΠΆΠ΅ Π½Π΅ΠΏΠΎΠ½ΡΡΠ½ΠΎ ΠΌΠ½Π΅ ΠΊΠ°ΠΊ ΡΠ΄Π΅Π»Π°ΡΡ ΡΡΠΎΠ±Ρ Π²ΡΡΠΊΠ°ΠΊΠΈΠ²Π°Π»ΠΎ ΡΠΎΠΎΠ±ΡΠ΅Π½ΠΈΠ΅ ΠΎ ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΠ΅ ΡΠΎΡ ΡΠ°Π½Π΅Π½ΠΈΡ. ΠΠΎΠ΄ΡΠΊΠ°ΠΆΠΈΡΠ΅ ΠΏΠΎΠΆΠ°Π»ΡΠΉΡΡΠ°.
On Error Resume Next
Const REPORTS_FOLDER = Β«ΠΠ²Π΅ΡΠΈΒ»
β Π½Π°Π·Π²Π°Π½ΠΈΠ΅ ΠΏΠΎΠ΄ΠΏΠ°ΠΏΠΊΠΈ, Π² ΠΊΠΎΡΠΎΡΡΡ ΠΏΠΎ-ΡΠΌΠΎΠ»ΡΠ°Π½ΠΈΡ Π±ΡΠ΄Π΅Ρ ΠΏΡΠ΅Π΄Π»ΠΎΠΆΠ΅Π½ΠΎ ΡΠΎΡ
ΡΠ°Π½ΠΈΡΡ ΡΠ°ΠΉΠ»
MkDir ThisWorkbook.Path & «» & REPORTS_FOLDER
β ΡΠΎΠ·Π΄Π°ΡΠΌ ΠΏΠ°ΠΏΠΊΡ Π΄Π»Ρ ΡΠ°ΠΉΠ»Π°, Π΅ΡΠ»ΠΈ Π΅Ρ Π΅ΡΡ Π½Π΅Ρ
ChDrive Left(ThisWorkbook.Path, 1): ChDir ThisWorkbook.Path & «» & REPORTS_FOLDER
β Π²ΡΠ±ΠΈΡΠ°Π΅ΠΌ ΡΡΠ°ΡΡΠΎΠ²ΡΡ ΠΏΠ°ΠΏΠΊΡ
Filename = Range(Β«a17Β») & (Β«b17Β») & Β«.xlsΒ»
β Π²ΡΠ²ΠΎΠ΄ Π΄ΠΈΠ°Π»ΠΎΠ³ΠΎΠ²ΠΎΠ³ΠΎ ΠΎΠΊΠ½Π° Π΄Π»Ρ Π·Π°ΠΏΡΠΎΡΠ° ΠΈΠΌΠ΅Π½ΠΈ ΡΠΎΡ
ΡΠ°Π½ΡΠ΅ΠΌΠΎΠ³ΠΎ ΡΠ°ΠΉΠ»Π°
If VarType(Filename) = vbBoolean Then Exit Sub
β Π΅ΡΠ»ΠΈ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ ΠΎΡΠΊΠ°Π·Π°Π»ΡΡ ΠΎΡ Π²ΡΠ±ΠΎΡΠ° ΠΈΠΌΠ΅Π½ΠΈ ΡΠ°ΠΉΠ»Π° β ΠΎΡΠΌΠ΅Π½ΡΠ΅ΠΌ ΡΠΎΡ
ΡΠ°Π½Π΅Π½ΠΈΠ΅ Π»ΠΈΡΡΠ° Π² ΡΠ°ΠΉΠ»
Dim Ar(), ArAll&(), Sh As Excel.Worksheet, n
Select Case Sheets(1).[Π£ΡΠ»ΠΎΠ²ΠΈΠ΅]
Case 1
Ar = Array(3)
Case Else
End Select
ReDim Preserve ArAll(0 To ThisWorkbook.Worksheets.Count β 1)
For Each Sh In ThisWorkbook.Worksheets
ArAll(n) = Sh.Index
n = n + 1
Next
ThisWorkbook.Worksheets(ArAll).Copy
Application.Volatile
Application.Calculate
Application.ScreenUpdating = False
For Each n In Ar
With ActiveWorkbook.Worksheets(n).UsedRange.Cells
.Value = .Value
End With
Next
Erase ArAll: n = 0
ReDim Preserve ArAll(0 To ThisWorkbook.Worksheets.Count β 1 β (UBound(Ar) + 1))
For Each Sh In ActiveWorkbook.Worksheets
If IsError(Application.Match(Sh.Index, Ar, 0)) Then
ArAll(n) = Sh.Index
n = n + 1
Else: If Sh.Visible = False Then Sh.Visible = True
End If
Next
ActiveWorkbook.Sheets(Ar(0)).Activate
Application.DisplayAlerts = False
ActiveWorkbook.Worksheets(ArAll).Delete
Application.DisplayAlerts = True
Application.ScreenUpdating = True
Application.Dialogs(xlDialogSaveAs).Show
ActiveWorkbook.Close False
End Sub
Dim WB As Workbook
Dim ind As Integer
ind = ActiveSheet.Index
Application.DisplayAlerts = False
Set WB = Workbooks.Add
Dim li As Long
Application.DisplayAlerts = False
ind = 3
For n = ind To 2 Step -1
ThisWorkbook.Sheets(n).Copy Before:=WB.Sheets(1)
Next
pdfFilename = Application.DefaultFilePath & Application.PathSeparator & Β«ΠΈΠΌΡ ΡΠ°ΠΉΠ»Π°Β» & Range(Β«D9Β»).Value & Β«.pdfΒ»
WB.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=pdfFilename, OpenAfterPublish:=False
ΠΡΠΈ ΡΡΠΎΠΌ ΡΠ°ΠΉΠ» ΡΠΎΠ·Π΄Π°Π΅ΡΡΡ Ρ Π½Π°Π·Π²Π°Π½ΠΈΠ΅ΠΌ Β«ΠΈΠΌΡ ΡΠ°ΠΉΠ»Π°.pdfΒ» Π½Π°ΡΠΈΡΡΠΎ ΠΈΠ³Π½ΠΎΡΠΈΡΡΡ ΡΠΎΠ΄Π΅ΡΠΆΠΈΠΌΠΎΠ΅ ΡΡΠ΅ΠΉΠΊΠΈ ΡΠΊΠ°Π·Π°Π½Π½ΠΎΠΉ.
ΠΠΎΡ ΠΌΠ°ΠΊΡΠΎΡ, ΠΊΠΎΡΠΎΡΡΠΉ ΡΠΎΡ ΡΠ°Π½ΡΠ΅Ρ Π±Π΅Π· ΠΎΠ³ΡΠ°Π½ΠΈΡΠ΅Π½ΠΈΡ 255-ΡΠΈ ΡΠΈΠΌΠ²ΠΎΠ»ΠΎΠ² Π² ΡΡΠ΅ΠΉΠΊΠ΅:
Π‘ΠΎΡ ΡΠ°Π½Π΅Π½ΠΈΠ΅ Π»ΠΈΡΡΠΎΠ² ΠΊΠ½ΠΈΠ³ΠΈ Π² ΡΠ°ΠΉΠ» Excel
Π Π°Π·Π±Π΅ΡΠ΅ΠΌ ΠΊΠΎΠ΄ ΠΌΠ°ΠΊΡΠΎΡΠ°, ΠΊΠΎΡΠΎΡΡΠΉ ΠΏΠΎΠ·Π²ΠΎΠ»ΡΠ΅Ρ ΡΠΊΠΎΠΏΠΈΡΠΎΠ²Π°ΡΡ Π²ΡΠ΅ Π»ΠΈΡΡΡ ΠΊΠ½ΠΈΠ³ΠΈ ΠΈ ΡΠΎΡ ΡΠ°Π½ΠΈΡΡ ΠΈΡ Π² ΠΎΡΠ΄Π΅Π»ΡΠ½ΡΠ΅ ΡΠ°ΠΉΠ»Ρ Π² Excel.
ΠΠ°Π΄Π°ΡΠ° ΡΠ°Π·Π΄Π΅Π»Π΅Π½ΠΈΡ ΠΊΠ½ΠΈΠ³ΠΈ Π½Π° ΠΎΡΠ΄Π΅Π»ΡΠ½ΡΠ΅ Π»ΠΈΡΡΡ ΡΠ°ΡΡΠΎ Π²ΡΡΠ°Π΅Ρ ΠΏΠ΅ΡΠ΅Π΄ Π½Π°ΠΌΠΈ, ΠΊΠΎΠ³Π΄Π°, Π½Π°ΠΏΡΠΈΠΌΠ΅Ρ, Π½Π΅ΠΎΠ±Ρ
ΠΎΠ΄ΠΈΠΌΠΎ ΡΠ°Π·ΠΎΡΠ»Π°ΡΡ Π² ΠΏΠΎΠ΄ΡΠ°Π·Π΄Π΅Π»Π΅Π½ΠΈΡ ΠΊΠΎΠΌΠΏΠ°Π½ΠΈΠΈ Π² ΡΠ΅Π³ΠΈΠΎΠ½Π°Ρ
ΡΠ°ΠΉΠ»Ρ, ΡΠΎΠ΄Π΅ΡΠΆΠ°ΡΠΈΠ΅ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΡ ΡΠΎΠ»ΡΠΊΠΎ ΠΏΠΎ ΠΊΠΎΠ½ΠΊΡΠ΅ΡΠ½ΠΎΠΌΡ ΡΠ΅Π³ΠΈΠΎΠ½Ρ, ΡΡΠΎΠ±Ρ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»ΠΈ Π½Π΅ ΡΠ²ΠΈΠ΄Π΅Π»ΠΈ Π»ΠΈΡΠ½Π΅ΠΉ ΠΈ Π½Π΅Π½ΡΠΆΠ½ΠΎΠΉ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΈ, ΠΈ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²ΠΎ ΠΏΠΎΠ΄ΠΎΠ±Π½ΡΡ
ΠΏΡΠΈΠΌΠ΅ΡΠΎΠ².
ΠΡΡΠ³ΠΈΠΌΠΈ ΡΠ»ΠΎΠ²Π°ΠΌΠΈ, ΠΈΠ·Π½Π°ΡΠ°Π»ΡΠ½ΠΎ Ρ Π½Π°Ρ ΠΈΠΌΠ΅Π΅ΡΡΡ ΠΊΠ½ΠΈΠ³Π° Ρ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²ΠΎΠΌ Π»ΠΈΡΡΠΎΠ², ΠΊΠΎΡΠΎΡΡΡ ΠΌΡ Ρ
ΠΎΡΠΈΠΌ ΡΠ°Π·Π΄Π΅Π»ΠΈΡΡ Π½Π° ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²ΠΎ ΡΠ°ΠΉΠ»ΠΎΠ², ΡΠΎΡΡΠΎΡΡΠΈΡ
ΠΈΠ· Π»ΠΈΡΡΠΎΠ² ΠΈΡΡ
ΠΎΠ΄Π½ΠΎΠΉ ΠΊΠ½ΠΈΠ³ΠΈ.
ΠΠ°ΠΊ ΡΠΎΡ ΡΠ°Π½ΠΈΡΡ Π»ΠΈΡΡ Excel Π² ΠΎΡΠ΄Π΅Π»ΡΠ½ΡΠΉ ΡΠ°ΠΉΠ»?
ΠΠ»Ρ ΡΠΎΡ
ΡΠ°Π½Π΅Π½ΠΈΡ Π»ΠΈΡΡΠ° Π² ΠΎΡΠ΄Π΅Π»ΡΠ½ΡΡ ΠΊΠ½ΠΈΠ³Ρ ΠΌΠΎΠΆΠ½ΠΎ Π²ΠΎΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡΡΡ ΡΡΠ°Π½Π΄Π°ΡΡΠ½ΡΠΌΠΈ ΡΡΠ΅Π΄ΡΡΠ²Π°ΠΌΠΈ Excel.
ΠΠ°ΠΆΠΈΠΌΠ°Π΅ΠΌ ΠΏΡΠ°Π²ΠΎΠΉ ΠΊΠ½ΠΎΠΏΠΊΠΎΠΉ ΠΌΡΡΠΈ ΠΏΠΎ ΠΈΠΌΠ΅Π½ΠΈ Π»ΠΈΡΡΠ° Π² Π½ΠΈΠΆΠ½Π΅ΠΉ ΠΏΠ°Π½Π΅Π»ΠΈ ΠΈ Π²ΡΠ±ΠΈΡΠ°Π΅ΠΌ ΠΠ΅ΡΠ΅ΠΌΠ΅ΡΡΠΈΡΡ/ΡΠΊΠΎΠΏΠΈΡΠΎΠ²Π°ΡΡ:
ΠΠ°Π»Π΅Π΅ ΠΏΠ΅ΡΠ΅ΠΌΠ΅ΡΠ°Π΅ΠΌ Π»ΠΈΡΡ Π² Π½ΠΎΠ²ΡΡ ΠΊΠ½ΠΈΠ³Ρ, ΡΠΎΡ
ΡΠ°Π½ΡΠ΅ΠΌ Π΅Ρ ΠΈ Π΄Π°Π΅ΠΌ Π½Π°Π·Π²Π°Π½ΠΈΠ΅ ΡΠ°ΠΉΠ»Ρ.
ΠΠ΄Π½Π°ΠΊΠΎ Π² ΡΠ»ΡΡΠ°Π΅ Π±ΠΎΠ»ΡΡΠΎΠ³ΠΎ ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²Π° Π»ΠΈΡΡΠΎΠ², ΠΊΠΎΡΠΎΡΡΠ΅ Π½ΡΠΆΠ½ΠΎ ΡΠΎΡ
ΡΠ°Π½ΠΈΡΡ, ΡΡΠ° ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ° ΠΌΠΎΠΆΠ΅Ρ Π·Π°Π½ΡΡΡ Π΄ΠΎΡΡΠ°ΡΠΎΡΠ½ΠΎ Π±ΠΎΠ»ΡΡΠΎΠ΅ ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ Π²ΡΠ΅ΠΌΠ΅Π½ΠΈ.
ΠΡΠ»ΠΈ ΠΏΡΠ΅Π΄ΠΏΠΎΠ»ΠΎΠΆΠΈΡΡ, ΡΡΠΎ Π½Π° ΡΠΎΡ
ΡΠ°Π½Π΅Π½ΠΈΠ΅ ΠΊΠ°ΠΆΠ΄ΠΎΠ³ΠΎ Π»ΠΈΡΡΠ° ΡΡΠ°ΡΠΈΡΡΡ ΠΏΠΎ 30 ΡΠ΅ΠΊΡΠ½Π΄, ΡΠΎ Π΄Π»Ρ ΠΊΠ½ΠΈΠ³ΠΈ ΠΈΠ· 20 Π»ΠΈΡΡΠΎΠ² ΠΌΡ ΡΠΆΠ΅ ΠΏΠΎΡΡΠ°ΡΠΈΠΌ 10 ΠΌΠΈΠ½ΡΡ.
ΠΠΎΡΡΠΎΠΌΡ, ΡΡΠΎΠ±Ρ ΠΈΠΌΠ΅ΡΡ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎΡΡΡ Π±ΡΡΡΡΠΎ ΡΠΎΡ
ΡΠ°Π½ΠΈΡΡ Π»ΠΈΡΡΡ Π² ΠΎΡΠ΄Π΅Π»ΡΠ½ΡΠ΅ ΡΠ°ΠΉΠ»Ρ Π²ΠΎΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΠΌΡΡ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎΡΡΡΠΌΠΈ VBA ΠΈ Π½Π°ΠΏΠΈΡΠ΅ΠΌ ΠΌΠ°ΠΊΡΠΎΡ Π΄Π»Ρ ΡΠΎΡ
ΡΠ°Π½Π΅Π½ΠΈΡ Π»ΠΈΡΡΠΎΠ², ΠΊΠΎΡΠΎΡΡΠΉ ΠΏΠΎΠ·Π²ΠΎΠ»ΠΈΡ ΠΏΡΠΎΠΈΠ·Π²ΠΎΠ΄ΠΈΡΡ ΡΡΠΈ Π΄Π΅ΠΉΡΡΠ²ΠΈΡ Π·Π° Π½Π΅ΡΠΊΠΎΠ»ΡΠΊΠΎ ΡΠ΅ΠΊΡΠ½Π΄.
ΠΠ°ΠΊΡΠΎΡ ΡΠΎΡ ΡΠ°Π½Π΅Π½ΠΈΡ Π»ΠΈΡΡΠ° Excel Π² ΡΠ°ΠΉΠ»
ΠΠ΅ΡΠ΅Ρ
ΠΎΠ΄ΠΈΠΌ Π² ΡΠ΅Π΄Π°ΠΊΡΠΎΡ Visual Basic, Π΄Π»Ρ ΡΡΠΎΠ³ΠΎ Π² ΠΏΠ°Π½Π΅Π»ΠΈ Π²ΠΊΠ»Π°Π΄ΠΎΠΊ Π²ΡΠ±ΠΈΡΠ°Π΅ΠΌ Π Π°Π·ΡΠ°Π±ΠΎΡΡΠΈΠΊ -> Visual Basic (ΠΈΠ»ΠΈ Π²ΠΎΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΠΌΡΡ ΡΠΎΡΠ΅ΡΠ°Π½ΠΈΠ΅ΠΌ ΠΊΠ»Π°Π²ΠΈΡ Alt + F11).
Π‘ΠΎΠ·Π΄Π°Π΅ΠΌ Π½ΠΎΠ²ΡΠΉ ΠΌΠΎΠ΄ΡΠ»Ρ ΠΈ Π·Π°ΠΏΠΈΡΡΠ²Π°Π΅ΠΌ Π² Π½Π΅Π³ΠΎ ΠΌΠ°ΠΊΡΠΎΡ (ΠΊΠ°ΠΊ ΠΎΠ±ΡΡΠ½ΠΎ, Π½Π°ΠΏΡΠΎΡΠΈΠ² ΠΊΠ°ΠΆΠ΄ΠΎΠΉ ΡΡΡΠΎΡΠΊΠΈ Π΄Π°Π΅ΡΡΡ ΠΏΠΎΡΡΠ½Π΅Π½ΠΈΠ΅ ΠΊ ΠΊΠΎΠ΄Ρ):
ΠΠ°ΠΊ ΡΠ΄Π΅Π»Π°ΡΡ Β«Π‘ΠΎΡ ΡΠ°Π½ΠΈΡΡ ΠΊΠ°ΠΊΒ» Π² ΠΊΠΎΠ΄Π΅ vba, ΡΠΎΡ ΡΠ°Π½ΡΡ ΠΌΠΎΡ ΡΠ΅ΠΊΡΡΡΡ ΠΊΠ½ΠΈΠ³Ρ Excel Ρ ΠΌΠ΅ΡΠΊΠΎΠΉ Π΄Π°ΡΡ?
Π£ ΠΌΠ΅Π½Ρ Π΅ΡΡΡ ΠΊΠ½ΠΈΠ³Π° Excel, ΠΊΠΎΡΠΎΡΠ°Ρ ΠΏΡΠΈ Π½Π°ΠΆΠ°ΡΠΈΠΈ ΠΊΠ½ΠΎΠΏΠΊΠΈ ΡΠΎΡΠΌΡ Ρ Ρ ΠΎΡΡ ΡΠΎΡ ΡΠ°Π½ΠΈΡΡ ΠΊΠΎΠΏΠΈΡ ΠΊΠ½ΠΈΠ³ΠΈ Ρ ΠΈΠΌΠ΅Π½Π΅ΠΌ ΡΠ°ΠΉΠ»Π°, ΡΠ²Π»ΡΡΡΠΈΠΌΡΡ ΡΠ΅ΠΊΡΡΠ΅ΠΉ Π΄Π°ΡΠΎΠΉ.
Π― ΠΏΡΡΠ°ΡΡΡ ΡΠ»Π΅Π΄ΡΡΡΠ΅Π΅ ActiveWorkbook.SaveAs (Β«filePathFormFlow To MSExcelΒ» & Left(Now(), 10)) Π½ΠΎ ΠΏΠΎΠ»ΡΡΠΈΠ² Run-time error β1004β: Method βSaveAsβ of objectβ_Workbookβ failed.
ΠΌΠΎΠΆΠ΅Ρ ΠΊΡΠΎ-Π½ΠΈΠ±ΡΠ΄Ρ ΠΏΠΎΠΌΠΎΡΡ ΠΌΠ½Π΅ Ρ ΡΡΠΈΠΌ? Π― Π²ΡΠ΅ Π΅ΡΠ΅ ΠΎΡΠ΅Π½Ρ Π½ΠΎΠ²ΠΈΡΠΎΠΊ Π² ΡΠ°Π·ΡΠ°Π±ΠΎΡΠΊΠ΅ Π΄Π»Ρ Excel.
ΡΠΊΠΎΡΠ΅Π΅ Π²ΡΠ΅Π³ΠΎ, ΠΏΡΡΡ, ΠΊ ΠΊΠΎΡΠΎΡΠΎΠΌΡ Π²Ρ ΠΏΡΡΠ°Π΅ΡΠ΅ΡΡ ΠΏΠΎΠ»ΡΡΠΈΡΡ Π΄ΠΎΡΡΡΠΏ, Π½Π΅ ΡΡΡΠ΅ΡΡΠ²ΡΠ΅Ρ. ΠΠ°ΠΆΠ΅ΡΡΡ, Π²Ρ ΠΏΡΡΠ°Π΅ΡΠ΅ΡΡ ΡΠΎΡ ΡΠ°Π½ΠΈΡΡ Π² ΠΎΡΠ½ΠΎΡΠΈΡΠ΅Π»ΡΠ½ΠΎΠΌ ΠΌΠ΅ΡΡΠ΅, ΠΈ Ρ Π²Π°Ρ Π½Π΅Ρ ΡΠ°ΡΡΠΈΡΠ΅Π½ΠΈΡ ΡΠ°ΠΉΠ»Π° Π² ΡΡΠΎΠΉ ΡΡΡΠΎΠΊΠ΅. ΠΡΠ»ΠΈ Π²Π°ΠΌ Π½ΡΠΆΠ½ΠΎ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΠΎΡΠ½ΠΎΡΠΈΡΠ΅Π»ΡΠ½ΡΠ΅ ΠΏΡΡΠΈ, Π²Ρ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΠΏΡΠΎΠ°Π½Π°Π»ΠΈΠ·ΠΈΡΠΎΠ²Π°ΡΡ ΠΏΡΡΡ ΠΈΠ· ActiveWorkbook.FullName
ΠΈΠ·ΠΌΠ΅Π½ΠΈΡΡ: ΠΡΡΡΠΈΠΌ ΡΠΈΠ½ΡΠ°ΠΊΡΠΈΡΠΎΠΌ ΡΠ°ΠΊΠΆΠ΅ Π±ΡΠ΄Π΅Ρ
ΡΠ°ΠΌΡΠΉ ΠΏΡΠΎΡΡΠΎΠΉ ΡΠΏΠΎΡΠΎΠ± ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΡΡΡ ΡΡΠ½ΠΊΡΠΈΡ-Π½Π°ΡΠ°ΡΡ Ρ Β«Π·Π°ΠΏΠΈΡΠΈ ΠΌΠ°ΠΊΡΠΎΡΠ°Β». ΠΠ°ΠΊ ΡΠΎΠ»ΡΠΊΠΎ Π²Ρ Π½Π°ΡΠ½Π΅ΡΠ΅ Π·Π°ΠΏΠΈΡΡ, ΡΠΎΡ ΡΠ°Π½ΠΈΡΠ΅ ΡΠ°ΠΉΠ» Π² Π½ΡΠΆΠ½ΠΎΠΌ ΠΌΠ΅ΡΡΠ΅ Ρ Π½ΡΠΆΠ½ΡΠΌ ΠΈΠΌΠ΅Π½Π΅ΠΌ, Π° Π·Π°ΡΠ΅ΠΌ, ΠΊΠΎΠ½Π΅ΡΠ½ΠΎ, ΡΡΡΠ°Π½ΠΎΠ²ΠΈΡΠ΅ ΡΠΈΠΏ ΡΠ°ΠΉΠ»Π°, ΡΠΊΠΎΡΠ΅Π΅ Π²ΡΠ΅Π³ΠΎ, Β«Excel Macro Enabled WorkbookΒ»
ΠΎΡΡΠ°Π½ΠΎΠ²ΠΈΡΡ Π·Π°ΠΏΠΈΡΡ, ΠΈ Π²Ρ ΠΌΠΎΠΆΠ΅ΡΠ΅ Π½Π°ΡΠ°ΡΡ ΠΏΡΠΎΠ²Π΅ΡΠΊΡ ΠΊΠΎΠ΄Π°.
Π― Π½Π°ΠΏΠΈΡΠ°Π» ΠΊΠΎΠ΄ Π½ΠΈΠΆΠ΅, ΠΊΠΎΡΠΎΡΡΠΉ ΠΏΠΎΠ·Π²ΠΎΠ»ΡΠ΅Ρ ΡΠΎΡ ΡΠ°Π½ΠΈΡΡ ΠΊΠ½ΠΈΠ³Ρ, ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΡ ΠΏΡΡΡ, Π³Π΄Π΅ ΡΠ°ΠΉΠ» Π±ΡΠ» ΠΏΠ΅ΡΠ²ΠΎΠ½Π°ΡΠ°Π»ΡΠ½ΠΎ ΡΠ°ΡΠΏΠΎΠ»ΠΎΠΆΠ΅Π½, Π½Π°Π·Π²Π°Π² Π΅Π³ΠΎ ΠΊΠ°ΠΊ Β» ΡΠΎΠ±ΡΡΠΈΠ΅ [Π΄Π°ΡΠ° Π² ΡΡΠ΅ΠΉΠΊΠ΅ Β«Π1β³]Β»
ΡΠΊΠΎΠΏΠΈΡΡΠΉΡΠ΅ ΠΊΠΎΠ΄ Π² Π½ΠΎΠ²ΡΠΉ ΠΌΠΎΠ΄ΡΠ»Ρ, Π° Π·Π°ΡΠ΅ΠΌ Π½Π°ΠΏΠΈΡΠΈΡΠ΅ Π΄Π°ΡΡ Π² ΡΡΠ΅ΠΉΠΊΠ΅Β» A1β³, Π½Π°ΠΏΡΠΈΠΌΠ΅Ρ 01-01-2016 -> Π½Π°Π·Π½Π°ΡΡΡΠ΅ sub ΠΊΠ½ΠΎΠΏΠΊΠ΅ ΠΈ Π·Π°ΠΏΡΡΡΠΈΡΠ΅. [ΠΡΠΈΠΌΠ΅ΡΠ°Π½ΠΈΠ΅] Π²Π°ΠΌ Π½ΡΠΆΠ½ΠΎ ΡΠ΄Π΅Π»Π°ΡΡ ΡΠ°ΠΉΠ» ΡΠΎΡ ΡΠ°Π½Π΅Π½ΠΈΡ, ΠΏΡΠ΅ΠΆΠ΄Π΅ ΡΠ΅ΠΌ ΡΡΠΎΡ ΡΠΊΡΠΈΠΏΡ Π±ΡΠ΄Π΅Ρ ΡΠ°Π±ΠΎΡΠ°ΡΡ, ΠΏΠΎΡΠΎΠΌΡ ΡΡΠΎ Π½ΠΎΠ²Π°Ρ ΠΊΠ½ΠΈΠ³Π° ΡΠΎΡ ΡΠ°Π½ΡΠ΅ΡΡΡ Π² ΠΏΠ°ΠΏΠΊΡ Π°Π²ΡΠΎΡΠΎΡ ΡΠ°Π½Π΅Π½ΠΈΡ ΠΏΠΎ ΡΠΌΠΎΠ»ΡΠ°Π½ΠΈΡ!
Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎ, Π²Π°Ρ ΡΠΎΡΠΌΠ°Ρ ΠΏΠΎ ΡΠΌΠΎΠ»ΡΠ°Π½ΠΈΡ Π½Π΅ ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΡΠ΅Ρ ΡΠ°ΡΡΠΈΡΠ΅Π½ΠΈΡ ΡΠ°ΠΉΠ»Π°. ΠΡ Π΄ΠΎΠ»ΠΆΠ½Ρ ΡΠΊΠ°Π·Π°ΡΡ ΡΠΎΡΠΌΠ°Ρ ΡΠ°ΠΉΠ»Π° Π²ΠΌΠ΅ΡΡΠ΅ Ρ ΠΈΠΌΠ΅Π½Π΅ΠΌ ΡΠ°ΠΉΠ»Π°, ΡΠ±Π΅Π΄ΠΈΠ²ΡΠΈΡΡ, ΡΡΠΎ ΡΠΎΡΠΌΠ°Ρ ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΡΠ΅Ρ ΡΠ°ΡΡΠΈΡΠ΅Π½ΠΈΡ:
OTOH, Ρ Π½Π΅ Π²ΠΈΠΆΡ ΡΠ°ΡΡΠΈΡΠ΅Π½ΠΈΡ Π½Π° Π²Π°ΡΠ΅ΠΌ .Π‘ΠΎΡ ΡΠ°Π½ΠΈΡΡ ΠΊΠ°ΠΊ ΠΈΠΌΡ ΡΠ°ΠΉΠ»Π°. ΠΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎ, Π²Π°ΠΌ Π½ΡΠΆΠ½ΠΎ ΠΏΡΠ΅Π΄ΠΎΡΡΠ°Π²ΠΈΡΡ Π΅Π³ΠΎ ΠΏΡΠΈ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΠΈ ΡΡΠΎΠ³ΠΎ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΠΎ. ΠΡΠΎ ΠΈΠΌΠ΅Π΅Ρ ΡΠΌΡΡΠ»-Π½Π΅ Π½ΡΠΆΠ½ΠΎ ΠΏΡΠ΅Π΄ΠΎΡΡΠ°Π²Π»ΡΡΡ ΡΠ°ΡΡΠΈΡΠ΅Π½ΠΈΠ΅ ΠΈΠ· ΠΈΠ½ΡΠ΅ΡΡΠ΅ΠΉΡΠ° GUI ΡΠ΄ΠΎΠ±Π½ΠΎ, Π½ΠΎ ΠΌΡ, ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΡΡ, Π΄ΠΎΠ»ΠΆΠ½Ρ ΠΏΠΈΡΠ°ΡΡ ΠΎΠ΄Π½ΠΎΠ·Π½Π°ΡΠ½ΡΠΉ ΠΊΠΎΠ΄. Π― ΠΏΡΠ΅Π΄Π»Π°Π³Π°Ρ Π΄ΠΎΠ±Π°Π²Π»Π΅Π½ΠΈΠ΅ ΡΠ°ΡΡΠΈΡΠ΅Π½ΠΈΡ ΠΈ ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΡΡΡΠ΅Π³ΠΎ ΡΠΎΡΠΌΠ°ΡΠ°. Π‘ΠΌ.ΡΡΠ° ΡΡΡΠ°Π½ΠΈΡΠ° msdn Π΄Π»Ρ ΡΠΏΠΈΡΠΊΠ° ΡΠΎΡΠΌΠ°ΡΠΎΠ² ΡΠ°ΠΉΠ»ΠΎΠ². Π§Π΅ΡΡΠ½ΠΎ Π³ΠΎΠ²ΠΎΡΡ, Ρ Π½Π΅ ΡΠ·Π½Π°Ρ ΠΌΠ½ΠΎΠ³ΠΎ ΠΎ descripions.
xlExcel8 = 56-ΡΡΠΎ .ΡΠΎΡΠΌΠ°Ρ xls
xlExcel12 = 50-ΡΡΠΎ .ΡΠ°ΠΉΠ» xlsb ΡΠΎΡΠΌΠ°ΡΠ΅
xlOpenXMLWorkbook = 51 ΡΠ²Π»ΡΠ΅ΡΡΡ .ΡΠΎΡΠΌΠ°Ρ xlsx
xlOpenXMLWorkbookMacroEnabled = 52 ΡΠ²Π»ΡΠ΅ΡΡΡ .ΡΠΎΡΠΌΠ°ΡΠ° xlsm
xlWorkbookDefault ΡΠ²Π»ΡΠ΅ΡΡΡ ΠΈ ΡΠΊΠ°Π·Π°Π½ ΡΠΎ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ΠΌ 51, ΡΡΠΎ ΠΎΠ·Π°Π΄Π°ΡΠΈΠ²Π°Π΅Ρ ΠΌΠ΅Π½Ρ, ΡΠ°ΠΊ ΠΊΠ°ΠΊ Ρ Π΄ΡΠΌΠ°Π», ΡΡΠΎ ΡΠΎΡΠΌΠ°Ρ ΠΏΠΎ ΡΠΌΠΎΠ»ΡΠ°Π½ΠΈΡ ΠΌΠΎΠΆΠ΅Ρ Π±ΡΡΡ ΠΈΠ·ΠΌΠ΅Π½Π΅Π½.
Π― Π·Π½Π°Ρ, ΡΡΠΎ ΡΡΠΎ ΡΡΠ°ΡΡΠΉ ΠΏΠΎΡΡ, Π½ΠΎ Ρ ΠΈΡΠΊΠ°Π» ΡΡΠΎ-ΡΠΎ ΠΏΠΎΠ΄ΠΎΠ±Π½ΠΎΠ΅. Π― Π΄ΡΠΌΠ°Ρ, Π²Π°ΡΠ° ΠΏΡΠΎΠ±Π»Π΅ΠΌΠ° Π·Π°ΠΊΠ»ΡΡΠ°Π»Π°ΡΡ Π² ΡΠΎΠΌ, ΡΡΠΎ ΠΏΡΠΈ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠΈ Now () Π²ΡΡ ΠΎΠ΄ Π±ΡΠ΄Π΅Ρ Β«6/20/2014β³. ΠΡΠΎ ΠΏΡΠΎΠ±Π»Π΅ΠΌΠ° Π΄Π»Ρ ΠΈΠΌΠ΅Π½ΠΈ ΡΠ°ΠΉΠ»Π°, ΠΏΠΎΡΠΊΠΎΠ»ΡΠΊΡ Π² Π½Π΅ΠΌ Π΅ΡΡΡΒ»/Β». ΠΠ°ΠΊ Π²Ρ Π·Π½Π°Π΅ΡΠ΅, Π½Π΅Π»ΡΠ·Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΠΎΠΏΡΠ΅Π΄Π΅Π»Π΅Π½Π½ΡΠ΅ ΡΠΈΠΌΠ²ΠΎΠ»Ρ Π² ΠΈΠΌΠ΅Π½ΠΈ ΡΠ°ΠΉΠ»Π°.
Π― ΡΡΠΏΠ΅ΡΠ½ΠΎ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΡ ΡΠ»Π΅Π΄ΡΡΡΠΈΠΉ ΠΌΠ΅ΡΠΎΠ΄ Π² ΠΎΠ΄Π½ΠΎΠΌ ΡΠ°ΠΉΠ»Π΅
Π½ΠΎ Ρ ΡΠ°ΠΊΠΎΠΉ ΠΆΠ΅ ΠΎΡΠΈΠ±ΠΊΠΈ. Π’ΠΎΠ»ΡΠΊΠΎ ΠΏΠΎΡΠ»Π΅Π΄Π½ΡΡ ΡΡΡΠΎΠΊΠ° ΠΏΡΠΈΠ΄ΡΠΌΡΠ²Π°Π΅Ρ ΠΎΡΠΈΠ±ΠΊΡ
Π‘ΠΎΠ·Π΄Π°Π½ΠΈΠ΅ ΠΈ ΡΠΎΡ ΡΠ°Π½Π΅Π½ΠΈΠ΅ Π²ΡΠ΅Ρ ΠΌΠ°ΠΊΡΠΎΡΠΎΠ² Π² ΠΎΠ΄Π½ΠΎΠΉ ΠΊΠ½ΠΈΠ³Π΅
ΠΠ°ΠΊΡΠΎΡΡ ΠΈ ΡΡΠ΅Π΄ΡΡΠ²Π° VBA Π½Π°Ρ ΠΎΠ΄ΡΡΡΡ Π½Π° Π²ΠΊΠ»Π°Π΄ΠΊΠ΅ Π Π°Π·ΡΠ°Π±ΠΎΡΡΠΈΠΊ, ΠΊΠΎΡΠΎΡΠ°Ρ ΠΏΠΎ ΡΠΌΠΎΠ»ΡΠ°Π½ΠΈΡ ΡΠΊΡΡΡΠ°, ΠΏΠΎΡΡΠΎΠΌΡ ΡΠ½Π°ΡΠ°Π»Π° Π½ΡΠΆΠ½ΠΎ Π²ΠΊΠ»ΡΡΠΈΡΡ Π΅Π΅. ΠΠΎΠΏΠΎΠ»Π½ΠΈΡΠ΅Π»ΡΠ½ΡΠ΅ ΡΠ²Π΅Π΄Π΅Π½ΠΈΡ ΡΠΌ. Π² ΡΡΠ°ΡΡΠ΅ ΠΡΠΎΠ±ΡΠ°ΠΆΠ΅Π½ΠΈΠ΅ Π²ΠΊΠ»Π°Π΄ΠΊΠΈ «Π Π°Π·ΡΠ°Π±ΠΎΡΡΠΈΠΊ».
ΠΠ°ΡΠ΅ΠΌ ΡΠΎΠ·Π΄Π°ΠΉΡΠ΅ ΠΌΠ°ΠΊΡΠΎΡ. ΠΠ°ΠΏΠΈΡΡ ΠΌΠ°ΠΊΡΠΎΡΠ°, Π½Π΅ Π²ΡΠΏΠΎΠ»Π½ΡΡΡΠ΅Π³ΠΎ Π½ΠΈΠΊΠ°ΠΊΠΈΡ Π΄Π΅ΠΉΡΡΠ²ΠΈΠΉ, ΠΏΡΠΈΠ²Π΅Π΄Π΅Ρ ΠΊ ΡΠΎΠ·Π΄Π°Π½ΠΈΡ Π»ΠΈΡΠ½ΠΎΠΉ ΠΊΠ½ΠΈΠ³ΠΈ ΠΌΠ°ΠΊΡΠΎΡΠΎΠ².
ΠΠΎΠΏΠΎΠ»Π½ΠΈΡΠ΅Π»ΡΠ½ΡΠ΅ ΡΠ²Π΅Π΄Π΅Π½ΠΈΡ ΠΎ ΡΠΎΠ·Π΄Π°Π½ΠΈΠΈ ΠΌΠ°ΠΊΡΠΎΡΠΎΠ² ΡΠΌ. Π² ΡΠ°Π·Π΄Π΅Π»Π΅ ΠΡΠ°ΡΠΊΠΎΠ΅ ΡΡΠΊΠΎΠ²ΠΎΠ΄ΡΡΠ²ΠΎ. Π‘ΠΎΠ·Π΄Π°Π½ΠΈΠ΅ ΠΌΠ°ΠΊΡΠΎΡΠ°.
-
ΠΠ΅ΡΠ΅ΠΉΠ΄ΠΈΡΠ΅ Π½Π° Π²ΠΊΠ»Π°Π΄ΠΊΡ ΡΠ°Π·ΡΠ°Π±ΠΎΡΡΠΈΠΊ ΠΈ Π½Π°ΠΆΠΌΠΈΡΠ΅ ΠΊΠ½ΠΎΠΏΠΊΡ Π·Π°ΠΏΠΈΡΡ ΠΌΠ°ΠΊΡΠΎΡΠ°.
-
Π Π΄ΠΈΠ°Π»ΠΎΠ³ΠΎΠ²ΠΎΠΌ ΠΎΠΊΠ½Π΅ Π·Π°ΠΏΠΈΡΡ ΠΌΠ°ΠΊΡΠΎΡΠ° Π½Π΅ ΠΏΡΡΠ°ΠΉΡΠ΅ΡΡ Π²Π²Π΅ΡΡΠΈ ΠΈΠΌΡ ΠΌΠ°ΠΊΡΠΎΡΠ° Π² ΠΏΠΎΠ»Π΅ ΠΈΠΌΡ ΠΌΠ°ΠΊΡΠΎΡΠ°. ΠΡ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΠΏΡΠΈΠ½ΡΡΡ ΠΈΠΌΡ, ΠΊΠΎΡΠΎΡΠΎΠ΅ Excel ΠΏΡΠ΅Π΄ΠΎΡΡΠ°Π²ΠΈΡ Π²Π°ΠΌ, Π½Π°ΠΏΡΠΈΠΌΠ΅Ρ ΠΠ°ΠΊΡΠΎ1, ΡΠ°ΠΊ ΠΊΠ°ΠΊ ΡΡΠΎ ΠΏΡΠΎΡΡΠΎ Π²ΡΠ΅ΠΌΠ΅Π½Π½ΡΠΉ ΠΌΠ°ΠΊΡΠΎΡ.
ΠΠΎΠ³Π΄Π° Π²Ρ Π½Π°ΡΠ½Π΅ΡΠ΅ ΡΠΎΠ·Π΄Π°Π²Π°ΡΡ ΡΠΎΠ±ΡΡΠ²Π΅Π½Π½ΡΠ΅ ΠΌΠ°ΠΊΡΠΎΡΡ, Π²Π°ΠΌ Π½ΡΠΆΠ½ΠΎ Π±ΡΠ΄Π΅Ρ ΠΏΡΠΈΡΠ²ΠΎΠΈΡΡ ΠΈΠΌ ΠΎΠΏΠΈΡΠ°ΡΠ΅Π»ΡΠ½ΡΠ΅ ΠΈΠΌΠ΅Π½Π°, ΡΡΠΎΠ±Ρ Π²Ρ Π·Π½Π°Π»ΠΈ, ΡΡΠΎ ΠΎΠ½ΠΈ ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»ΡΡΡ.
-
Π ΠΏΠΎΠ»Π΅ Π‘ΠΎΡ ΡΠ°Π½ΠΈΡΡΒ Π² Π²ΡΠ±Π΅ΡΠΈΡΠ΅ Π²Π°ΡΠΈΠ°Π½Ρ ΠΠΈΡΠ½Π°Ρ ΠΊΠ½ΠΈΠ³Π° ΠΌΠ°ΠΊΡΠΎΡΠΎΠ² ΠΈ Π½Π°ΠΆΠΌΠΈΡΠ΅ ΠΊΠ½ΠΎΠΏΠΊΡ ΠΠ. ΠΡΠΎ ΡΠ°ΠΌΡΠΉ Π²Π°ΠΆΠ½ΡΠΉ ΡΡΠ°ΠΏ. ΠΡΠ»ΠΈ Ρ Π²Π°Ρ Π΅ΡΠ΅ Π½Π΅Ρ Π»ΠΈΡΠ½ΠΎΠΉ ΠΊΠ½ΠΈΠ³ΠΈ ΠΌΠ°ΠΊΡΠΎΡΠΎΠ², Excel ΡΠΎΠ·Π΄Π°ΡΡ Π΅Π΅.
-
ΠΠ° Π²ΠΊΠ»Π°Π΄ΠΊΠ΅ ΡΠ°Π·ΡΠ°Π±ΠΎΡΡΠΈΠΊ Π½Π°ΠΆΠΌΠΈΡΠ΅ ΠΊΠ½ΠΎΠΏΠΊΡ ΠΡΡΠ°Π½ΠΎΠ²ΠΊΠ° Π·Π°ΠΏΠΈΡΠΈ, ΠΈ Π² Excel Π±ΡΠ΄Π΅Ρ ΡΠΎΠ·Π΄Π°Π½ Π»ΠΈΡΠ½ΡΠΉ ΠΌΠ°ΠΊΡΠΎΡ Π²ΠΎΡΠ±ΡΠΊ.
-
ΠΠΎΠ³Π΄Π° Π²Ρ Π·Π°ΠΊΡΠΎΠ΅ΡΠ΅ ΠΊΠ½ΠΈΠ³Ρ, Π²Π°ΠΌ Π±ΡΠ΄Π΅Ρ ΠΏΡΠ΅Π΄Π»ΠΎΠΆΠ΅Π½ΠΎ ΡΠΎΡ ΡΠ°Π½ΠΈΡΡ ΠΊΠ°ΠΊ ΠΊΠ½ΠΈΠ³Ρ, ΡΠ°ΠΊ ΠΈ Π»ΠΈΡΠ½ΡΡ ΠΊΠ½ΠΈΠ³Ρ ΠΌΠ°ΠΊΡΠΎΡΠΎΠ².
Π§ΡΠΎΠ±Ρ ΠΏΡΠΎΡΠΌΠΎΡΡΠ΅ΡΡ ΡΠΎΠ·Π΄Π°Π½Π½ΡΠΉ ΠΌΠ°ΠΊΡΠΎΡ, Π²ΡΠΏΠΎΠ»Π½ΠΈΡΠ΅ ΡΠΊΠ°Π·Π°Π½Π½ΡΠ΅ Π½ΠΈΠΆΠ΅ Π΄Π΅ΠΉΡΡΠ²ΠΈΡ.
-
ΠΠ΅ΡΠ΅ΠΉΠ΄ΠΈΡΠ΅ Π² ΡΠ°Π·Π΄Π΅Π» ΡΠ°Π·ΡΠ°Π±ΠΎΡΡΠΈΠΊ > Visual Basic, ΡΡΠΎΠ±Ρ Π·Π°ΠΏΡΡΡΠΈΡΡ Π Π΅Π΄Π°ΠΊΡΠΎΡ Visual Basic (VBE), Π² ΠΊΠΎΡΠΎΡΠΎΠΌ Ρ ΡΠ°Π½ΡΡΡΡ Π²Π°ΡΠΈ ΠΌΠ°ΠΊΡΠΎΡΡ.
-
ΠΡ ΠΌΠΎΠΆΠ΅ΡΠ΅ Π½Π°ΠΉΡΠΈ ΡΠ²ΠΎΡ Π»ΠΈΡΠ½ΡΡ ΠΊΠ½ΠΈΠ³Ρ ΠΌΠ°ΠΊΡΠΎΡΠΎΠ² Π½Π° ΠΏΠ°Π½Π΅Π»ΠΈ » ΠΠ±ΠΎΠ·ΡΠ΅Π²Π°ΡΠ΅Π»Ρ ΠΏΡΠΎΠ΅ΠΊΡΠΎΠ² » Π² Π»Π΅Π²ΠΎΠΉ ΡΠ°ΡΡΠΈ ΡΠΊΡΠ°Π½Π°. ΠΡΠ»ΠΈ Π²Ρ Π½Π΅ Π²ΠΈΠ΄ΠΈΡΠ΅ Π΅Π³ΠΎ, Π²ΡΠ±Π΅ΡΠΈΡΠ΅ Π²ΠΈΠ΄ > ΠΠ±ΠΎΠ·ΡΠ΅Π²Π°ΡΠ΅Π»Ρ ΠΏΡΠΎΠ΅ΠΊΡΠΎΠ².
-
ΠΠ²Π°ΠΆΠ΄Ρ ΡΠ΅Π»ΠΊΠ½ΠΈΡΠ΅ ΠΏΡΠΎΠ΅ΠΊΡ VBA (Π»ΠΈΡΠ½Π°Ρ. xlsb) > ΠΌΠΎΠ΄ΡΠ»ΠΈ > Module1, ΡΡΠΎΠ±Ρ Π½Π°ΠΉΡΠΈ Π·Π°ΠΏΠΈΡΠ°Π½Π½ΡΠ΅ ΠΏΡΡΡΡΠ΅ ΠΌΠ°ΠΊΡΠΎ1. ΠΡ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΡΠ΄Π°Π»ΠΈΡΡ Π΅Π³ΠΎ ΠΈΠ»ΠΈ Π΄ΠΎΠ±Π°Π²ΠΈΡΡ ΠΊΠΎΠ΄ ΠΏΠΎΠ·ΠΆΠ΅.
ΠΡΠΈΠΌΠ΅ΡΠ°Π½ΠΈΠ΅:Β ΠΠΎΠ³Π΄Π° Π²Ρ ΡΠ΅Π³ΠΈΡΡΡΠΈΡΡΠ΅ΡΠ΅ ΠΌΠ°ΠΊΡΠΎΡ Π² Π½ΠΎΠ²ΠΎΠΌ ΡΠΊΠ·Π΅ΠΌΠΏΠ»ΡΡΠ΅ Excel, VBA Π°Π²ΡΠΎΠΌΠ°ΡΠΈΡΠ΅ΡΠΊΠΈ ΡΠΎΠ·Π΄Π°Π΅Ρ Π½ΠΎΠ²ΡΡ ΠΏΠ°ΠΏΠΊΡ ΠΌΠΎΠ΄ΡΠ»Π΅ΠΉ ΠΈ ΡΠ²Π΅Π»ΠΈΡΠΈΠ²Π°Π΅Ρ Π΅Π΅ ΡΠΈΡΠ»ΠΎ. ΠΠΎΡΡΠΎΠΌΡ, Π΅ΡΠ»ΠΈ Ρ Π²Π°Ρ ΡΠΆΠ΅ Π΅ΡΡΡ Module1 ΠΈ ΠΠΎΠ΄ΡΠ»Π΅2, VBA ΡΠΎΠ·Π΄Π°ΡΡ ΠΠΎΠ΄ΡΠ»Π΅3. ΠΡ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΠΏΠ΅ΡΠ΅ΠΈΠΌΠ΅Π½ΠΎΠ²ΡΠ²Π°ΡΡ ΠΌΠΎΠ΄ΡΠ»ΠΈ Π² ΠΎΠΊΠ½Π΅ » Π‘Π²ΠΎΠΉΡΡΠ²Π° » Π² ΡΠ°Π·Π΄Π΅Π»Π΅ « ΠΠ±ΠΎΠ·ΡΠ΅Π²Π°ΡΠ΅Π»Ρ ΠΏΡΠΎΠ΅ΠΊΡΠΎΠ² «, ΡΡΠΎΠ±Ρ ΠΎΠ½ΠΈ Π»ΡΡΡΠ΅ ΠΎΡΡΠ°ΠΆΠ°Π»ΠΈ ΠΌΠ°ΠΊΡΠΎΡΡ Π²Π½ΡΡΡΠΈ Π½ΠΈΡ .
ΠΠ΅ΡΠ΅ΠΌΠ΅ΡΠ΅Π½ΠΈΠ΅ ΠΌΠ°ΠΊΡΠΎΡΠΎΠ² Π½Π° Π΄ΡΡΠ³ΠΎΠΉ ΠΊΠΎΠΌΠΏΡΡΡΠ΅Ρ
Π€Π°ΠΉΠ» Π»ΠΈΡΠ½ΡΡ . xlsb Ρ ΡΠ°Π½ΠΈΡΡΡ Π² ΠΏΠ°ΠΏΠΊΠ΅ XLStart. ΠΡΠ»ΠΈ Π²Ρ Ρ ΠΎΡΠΈΡΠ΅ ΡΠΎΠ²ΠΌΠ΅ΡΡΠ½ΠΎ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΡΠ²ΠΎΠΈ ΠΌΠ°ΠΊΡΠΎΡΡ Ρ Π΄ΡΡΠ³ΠΈΠΌΠΈ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»ΡΠΌΠΈ, Π²Ρ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΡΠΊΠΎΠΏΠΈΡΠΎΠ²Π°ΡΡ ΠΈΡ Π² ΠΏΠ°ΠΏΠΊΡ XLSTART Π½Π° Π΄ΡΡΠ³ΠΈΡ ΠΊΠΎΠΌΠΏΡΡΡΠ΅ΡΠ°Ρ ΠΈΠ»ΠΈ ΡΠΊΠΎΠΏΠΈΡΠΎΠ²Π°ΡΡ Π½Π΅ΠΊΠΎΡΠΎΡΡΠ΅ ΠΌΠ°ΠΊΡΠΎΡΡ Π² ΡΠ°ΠΉΠ» Personal. xlsb Π½Π° Π΄ΡΡΠ³ΠΈΡ ΠΊΠΎΠΌΠΏΡΡΡΠ΅ΡΠ°Ρ . ΠΠ°ΠΉΡΠΈ ΡΠ°ΠΉΠ» XLStart ΠΌΠΎΠΆΠ½ΠΎ Π² ΠΏΡΠΎΠ²ΠΎΠ΄Π½ΠΈΠΊΠ΅ Windows.
ΠΡΠ»ΠΈ Ρ Π²Π°Ρ Π΅ΡΡΡ Π½Π΅ΡΠΊΠΎΠ»ΡΠΊΠΎ ΠΌΠ°ΠΊΡΠΎΡΠΎΠ², ΠΊ ΠΊΠΎΡΠΎΡΡΠΌ Π²Ρ Ρ ΠΎΡΠΈΡΠ΅ ΠΏΡΠ΅Π΄ΠΎΡΡΠ°Π²ΠΈΡΡ Π΄ΠΎΡΡΡΠΏ Π΄ΡΡΠ³ΠΈΠΌ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»ΡΠΌ, Π²Ρ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΠΎΡΠΏΡΠ°Π²ΠΈΡΡ ΠΈΠΌ ΠΊΠ½ΠΈΠ³Ρ, Π² ΠΊΠΎΡΠΎΡΠΎΠΉ ΠΎΠ½ΠΈ ΡΠΎΠ΄Π΅ΡΠΆΠ°ΡΡΡ. ΠΠ½ΠΈΠ³Ρ ΠΌΠΎΠΆΠ½ΠΎ ΡΠ°ΠΊΠΆΠ΅ ΡΠ΄Π΅Π»Π°ΡΡ Π΄ΠΎΡΡΡΠΏΠ½ΠΎΠΉ Π½Π° ΠΎΠ±ΡΠ΅ΠΌ ΡΠ΅ΡΠ΅Π²ΠΎΠΌ Π΄ΠΈΡΠΊΠ΅ ΠΈΠ»ΠΈ Π² Π±ΠΈΠ±Π»ΠΈΠΎΡΠ΅ΠΊΠ΅ SharePoint Services.
ΠΠΎΠΏΠΎΠ»Π½ΠΈΡΠ΅Π»ΡΠ½ΡΠ΅ ΡΠ²Π΅Π΄Π΅Π½ΠΈΡ ΠΎ ΠΊΠΎΠΏΠΈΡΠΎΠ²Π°Π½ΠΈΠΈ ΠΌΠ°ΠΊΡΠΎΡΠΎΠ² ΠΈΠ· ΠΎΠ΄Π½ΠΎΠΉ ΠΊΠ½ΠΈΠ³ΠΈ Π² Π΄ΡΡΠ³ΡΡ ΡΠΌ. Π² ΡΡΠ°ΡΡΠ΅ ΠΠΎΠΏΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ ΠΌΠΎΠ΄ΡΠ»Ρ ΠΌΠ°ΠΊΡΠΎΡΠ° Π² Π΄ΡΡΠ³ΡΡ ΠΊΠ½ΠΈΠ³Ρ.
Π£Π±Π΅Π΄ΠΈΡΠ΅ΡΡ Π² ΡΠΎΠΌ, ΡΡΠΎ Π½Π° Π»Π΅Π½ΡΠ΅ ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ°Π΅ΡΡΡ Π²ΠΊΠ»Π°Π΄ΠΊΠ° Π Π°Π·ΡΠ°Π±ΠΎΡΡΠΈΠΊ. ΠΠΎ ΡΠΌΠΎΠ»ΡΠ°Π½ΠΈΡ Π²ΠΊΠ»Π°Π΄ΠΊΠ° Π Π°Π·ΡΠ°Π±ΠΎΡΡΠΈΠΊ Π½Π΅ Π²ΠΈΠ΄Π½Π°, ΠΏΠΎΡΡΠΎΠΌΡ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ Π²ΡΠΏΠΎΠ»Π½ΠΈΡΡ ΡΠΊΠ°Π·Π°Π½Π½ΡΠ΅ Π½ΠΈΠΆΠ΅ Π΄Π΅ΠΉΡΡΠ²ΠΈΡ.
-
ΠΡΠ±Π΅ΡΠΈΡΠ΅ Excel > ΠΠ°ΡΠ°ΠΌΠ΅ΡΡΡ> ΠΠ΅Π½ΡΠ° ΠΈ ΠΏΠ°Π½Π΅Π»Ρ.
-
Π ΠΊΠ°ΡΠ΅Π³ΠΎΡΠΈΠΈ ΠΠ°ΡΡΡΠΎΠΈΡΡ Π»Π΅Π½ΡΡ Π² ΡΠΏΠΈΡΠΊΠ΅ ΠΡΠ½ΠΎΠ²Π½ΡΠ΅ Π²ΠΊΠ»Π°Π΄ΠΊΠΈ ΡΡΡΠ°Π½ΠΎΠ²ΠΈΡΠ΅ ΡΠ»Π°ΠΆΠΎΠΊ Π Π°Π·ΡΠ°Π±ΠΎΡΡΠΈΠΊ, Π° Π·Π°ΡΠ΅ΠΌ Π½Π°ΠΆΠΌΠΈΡΠ΅ ΠΊΠ½ΠΎΠΏΠΊΡ Π‘ΠΎΡ ΡΠ°Π½ΠΈΡΡ.
ΠΠ°ΡΠ΅ΠΌ ΡΠΎΠ·Π΄Π°ΠΉΡΠ΅ ΠΌΠ°ΠΊΡΠΎΡ. ΠΠ°ΠΏΠΈΡΡ ΠΌΠ°ΠΊΡΠΎΡΠ°, Π½Π΅ Π²ΡΠΏΠΎΠ»Π½ΡΡΡΠ΅Π³ΠΎ Π½ΠΈΠΊΠ°ΠΊΠΈΡ Π΄Π΅ΠΉΡΡΠ²ΠΈΠΉ, ΠΏΡΠΈΠ²Π΅Π΄Π΅Ρ ΠΊ ΡΠΎΠ·Π΄Π°Π½ΠΈΡ Π»ΠΈΡΠ½ΠΎΠΉ ΠΊΠ½ΠΈΠ³ΠΈ ΠΌΠ°ΠΊΡΠΎΡΠΎΠ².
ΠΠΎΠΏΠΎΠ»Π½ΠΈΡΠ΅Π»ΡΠ½ΡΠ΅ ΡΠ²Π΅Π΄Π΅Π½ΠΈΡ ΠΎ ΡΠΎΠ·Π΄Π°Π½ΠΈΠΈ ΠΌΠ°ΠΊΡΠΎΡΠΎΠ² ΡΠΌ. Π² ΡΠ°Π·Π΄Π΅Π»Π΅ ΠΡΠ°ΡΠΊΠΎΠ΅ ΡΡΠΊΠΎΠ²ΠΎΠ΄ΡΡΠ²ΠΎ. Π‘ΠΎΠ·Π΄Π°Π½ΠΈΠ΅ ΠΌΠ°ΠΊΡΠΎΡΠ°.
-
ΠΠ΅ΡΠ΅ΠΉΠ΄ΠΈΡΠ΅ Π½Π° Π²ΠΊΠ»Π°Π΄ΠΊΡ ΡΠ°Π·ΡΠ°Π±ΠΎΡΡΠΈΠΊ ΠΈ Π½Π°ΠΆΠΌΠΈΡΠ΅ ΠΊΠ½ΠΎΠΏΠΊΡ Π·Π°ΠΏΠΈΡΡ ΠΌΠ°ΠΊΡΠΎΡΠ°.
-
Π Π΄ΠΈΠ°Π»ΠΎΠ³ΠΎΠ²ΠΎΠΌ ΠΎΠΊΠ½Π΅ Π·Π°ΠΏΠΈΡΡ ΠΌΠ°ΠΊΡΠΎΡΠ° Π½Π΅ ΠΏΡΡΠ°ΠΉΡΠ΅ΡΡ Π²Π²Π΅ΡΡΠΈ ΠΈΠΌΡ ΠΌΠ°ΠΊΡΠΎΡΠ° Π² ΠΏΠΎΠ»Π΅ ΠΈΠΌΡ ΠΌΠ°ΠΊΡΠΎΡΠ°. ΠΡ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΠΏΡΠΈΠ½ΡΡΡ ΠΈΠΌΡ, ΠΊΠΎΡΠΎΡΠΎΠ΅ Excel ΠΏΡΠ΅Π΄ΠΎΡΡΠ°Π²ΠΈΡ Π²Π°ΠΌ, Π½Π°ΠΏΡΠΈΠΌΠ΅Ρ ΠΠ°ΠΊΡΠΎ1, ΡΠ°ΠΊ ΠΊΠ°ΠΊ ΡΡΠΎ ΠΏΡΠΎΡΡΠΎ Π²ΡΠ΅ΠΌΠ΅Π½Π½ΡΠΉ ΠΌΠ°ΠΊΡΠΎΡ.
ΠΠΎΠ³Π΄Π° Π²Ρ Π½Π°ΡΠ½Π΅ΡΠ΅ ΡΠΎΠ·Π΄Π°Π²Π°ΡΡ ΡΠΎΠ±ΡΡΠ²Π΅Π½Π½ΡΠ΅ ΠΌΠ°ΠΊΡΠΎΡΡ, Π²Π°ΠΌ Π½ΡΠΆΠ½ΠΎ Π±ΡΠ΄Π΅Ρ ΠΏΡΠΈΡΠ²ΠΎΠΈΡΡ ΠΈΠΌ ΠΎΠΏΠΈΡΠ°ΡΠ΅Π»ΡΠ½ΡΠ΅ ΠΈΠΌΠ΅Π½Π°, ΡΡΠΎΠ±Ρ Π²Ρ Π·Π½Π°Π»ΠΈ, ΡΡΠΎ ΠΎΠ½ΠΈ ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»ΡΡΡ.
-
Π ΠΏΠΎΠ»Π΅ Π‘ΠΎΡ ΡΠ°Π½ΠΈΡΡΒ Π² Π²ΡΠ±Π΅ΡΠΈΡΠ΅ Π²Π°ΡΠΈΠ°Π½Ρ ΠΠΈΡΠ½Π°Ρ ΠΊΠ½ΠΈΠ³Π° ΠΌΠ°ΠΊΡΠΎΡΠΎΠ² ΠΈ Π½Π°ΠΆΠΌΠΈΡΠ΅ ΠΊΠ½ΠΎΠΏΠΊΡ ΠΠ. ΠΡΠΎ ΡΠ°ΠΌΡΠΉ Π²Π°ΠΆΠ½ΡΠΉ ΡΡΠ°ΠΏ. ΠΡΠ»ΠΈ Ρ Π²Π°Ρ Π΅ΡΠ΅ Π½Π΅Ρ Π»ΠΈΡΠ½ΠΎΠΉ ΠΊΠ½ΠΈΠ³ΠΈ ΠΌΠ°ΠΊΡΠΎΡΠΎΠ², Excel ΡΠΎΠ·Π΄Π°ΡΡ Π΅Π΅.
-
ΠΠ° Π²ΠΊΠ»Π°Π΄ΠΊΠ΅ ΡΠ°Π·ΡΠ°Π±ΠΎΡΡΠΈΠΊ Π½Π°ΠΆΠΌΠΈΡΠ΅ ΠΊΠ½ΠΎΠΏΠΊΡ ΠΡΡΠ°Π½ΠΎΠ²ΠΊΠ° Π·Π°ΠΏΠΈΡΠΈ, ΠΈ Π² Excel Π±ΡΠ΄Π΅Ρ ΡΠΎΠ·Π΄Π°Π½ Π»ΠΈΡΠ½ΡΠΉ ΠΌΠ°ΠΊΡΠΎΡ Π²ΠΎΡΠ±ΡΠΊ.
-
ΠΠΎΠ³Π΄Π° Π²Ρ Π·Π°ΠΊΡΠΎΠ΅ΡΠ΅ ΠΊΠ½ΠΈΠ³Ρ, Π²Π°ΠΌ Π±ΡΠ΄Π΅Ρ ΠΏΡΠ΅Π΄Π»ΠΎΠΆΠ΅Π½ΠΎ ΡΠΎΡ ΡΠ°Π½ΠΈΡΡ ΠΊΠ°ΠΊ ΠΊΠ½ΠΈΠ³Ρ, ΡΠ°ΠΊ ΠΈ Π»ΠΈΡΠ½ΡΡ ΠΊΠ½ΠΈΠ³Ρ ΠΌΠ°ΠΊΡΠΎΡΠΎΠ².
Π§ΡΠΎΠ±Ρ ΠΏΡΠΎΡΠΌΠΎΡΡΠ΅ΡΡ ΡΠΎΠ·Π΄Π°Π½Π½ΡΠΉ ΠΌΠ°ΠΊΡΠΎΡ, Π²ΡΠΏΠΎΠ»Π½ΠΈΡΠ΅ ΡΠΊΠ°Π·Π°Π½Π½ΡΠ΅ Π½ΠΈΠΆΠ΅ Π΄Π΅ΠΉΡΡΠ²ΠΈΡ.
-
ΠΠ° Π²ΠΊΠ»Π°Π΄ΠΊΠ΅ ΡΠ°Π·ΡΠ°Π±ΠΎΡΡΠΈΠΊ Π½Π°ΠΆΠΌΠΈΡΠ΅ ΠΊΠ½ΠΎΠΏΠΊΡ Visual Basic, ΡΡΠΎΠ±Ρ Π·Π°ΠΏΡΡΡΠΈΡΡ Π Π΅Π΄Π°ΠΊΡΠΎΡ Visual Basic (VBE), Π² ΠΊΠΎΡΠΎΡΠΎΠΌ Ρ ΡΠ°Π½ΡΡΡΡ Π²Π°ΡΠΈ ΠΌΠ°ΠΊΡΠΎΡΡ.
-
ΠΡ ΠΌΠΎΠΆΠ΅ΡΠ΅ Π½Π°ΠΉΡΠΈ ΡΠ²ΠΎΡ Π»ΠΈΡΠ½ΡΡ ΠΊΠ½ΠΈΠ³Ρ ΠΌΠ°ΠΊΡΠΎΡΠΎΠ² Π½Π° ΠΏΠ°Π½Π΅Π»ΠΈ » ΠΠ±ΠΎΠ·ΡΠ΅Π²Π°ΡΠ΅Π»Ρ ΠΏΡΠΎΠ΅ΠΊΡΠΎΠ² » Π² Π»Π΅Π²ΠΎΠΉ ΡΠ°ΡΡΠΈ ΡΠΊΡΠ°Π½Π°. ΠΡΠ»ΠΈ Π²Ρ Π½Π΅ Π²ΠΈΠ΄ΠΈΡΠ΅ Π΅Π³ΠΎ, Π²ΡΠ±Π΅ΡΠΈΡΠ΅ Π²ΠΈΠ΄ > ΠΠ±ΠΎΠ·ΡΠ΅Π²Π°ΡΠ΅Π»Ρ ΠΏΡΠΎΠ΅ΠΊΡΠΎΠ².
-
ΠΠ²Π°ΠΆΠ΄Ρ ΡΠ΅Π»ΠΊΠ½ΠΈΡΠ΅ ΠΏΡΠΎΠ΅ΠΊΡ VBA (Π»ΠΈΡΠ½Π°Ρ. xlsb) > ΠΌΠΎΠ΄ΡΠ»ΠΈ > Module1, ΡΡΠΎΠ±Ρ Π½Π°ΠΉΡΠΈ Π·Π°ΠΏΠΈΡΠ°Π½Π½ΡΠ΅ ΠΏΡΡΡΡΠ΅ ΠΌΠ°ΠΊΡΠΎ1. ΠΡ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΡΠ΄Π°Π»ΠΈΡΡ Π΅Π³ΠΎ ΠΈΠ»ΠΈ Π΄ΠΎΠ±Π°Π²ΠΈΡΡ ΠΊΠΎΠ΄ ΠΏΠΎΠ·ΠΆΠ΅.
ΠΡΠΈΠΌΠ΅ΡΠ°Π½ΠΈΠ΅:Β ΠΠΎΠ³Π΄Π° Π²Ρ ΡΠ΅Π³ΠΈΡΡΡΠΈΡΡΠ΅ΡΠ΅ ΠΌΠ°ΠΊΡΠΎΡ Π² Π½ΠΎΠ²ΠΎΠΌ ΡΠΊΠ·Π΅ΠΌΠΏΠ»ΡΡΠ΅ Excel, VBA Π°Π²ΡΠΎΠΌΠ°ΡΠΈΡΠ΅ΡΠΊΠΈ ΡΠΎΠ·Π΄Π°Π΅Ρ Π½ΠΎΠ²ΡΡ ΠΏΠ°ΠΏΠΊΡ ΠΌΠΎΠ΄ΡΠ»Π΅ΠΉ ΠΈ ΡΠ²Π΅Π»ΠΈΡΠΈΠ²Π°Π΅Ρ Π΅Π΅ ΡΠΈΡΠ»ΠΎ. ΠΠΎΡΡΠΎΠΌΡ, Π΅ΡΠ»ΠΈ Ρ Π²Π°Ρ ΡΠΆΠ΅ Π΅ΡΡΡ Module1 ΠΈ ΠΠΎΠ΄ΡΠ»Π΅2, VBA ΡΠΎΠ·Π΄Π°ΡΡ ΠΠΎΠ΄ΡΠ»Π΅3. ΠΡ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΠΏΠ΅ΡΠ΅ΠΈΠΌΠ΅Π½ΠΎΠ²ΡΠ²Π°ΡΡ ΠΌΠΎΠ΄ΡΠ»ΠΈ Π² ΠΎΠΊΠ½Π΅ » Π‘Π²ΠΎΠΉΡΡΠ²Π° » Π² ΡΠ°Π·Π΄Π΅Π»Π΅ « ΠΠ±ΠΎΠ·ΡΠ΅Π²Π°ΡΠ΅Π»Ρ ΠΏΡΠΎΠ΅ΠΊΡΠΎΠ² «, ΡΡΠΎΠ±Ρ ΠΎΠ½ΠΈ Π»ΡΡΡΠ΅ ΠΎΡΡΠ°ΠΆΠ°Π»ΠΈ ΠΌΠ°ΠΊΡΠΎΡΡ Π²Π½ΡΡΡΠΈ Π½ΠΈΡ
.
ΠΠ΅ΡΠ΅ΠΌΠ΅ΡΠ΅Π½ΠΈΠ΅ ΠΌΠ°ΠΊΡΠΎΡΠΎΠ² Π½Π° Π΄ΡΡΠ³ΠΎΠΉ ΠΊΠΎΠΌΠΏΡΡΡΠ΅Ρ
Π€Π°ΠΉΠ» Π»ΠΈΡΠ½ΡΡ . xlsb Ρ ΡΠ°Π½ΠΈΡΡΡ Π² ΠΏΠ°ΠΏΠΊΠ΅ Π°Π²ΡΠΎΠ·Π°Π³ΡΡΠ·ΠΊΠΈ ΡΠΈΡΡΠ΅ΠΌΡ. ΠΡΠ»ΠΈ Π²Ρ Ρ ΠΎΡΠΈΡΠ΅ ΡΠΎΠ²ΠΌΠ΅ΡΡΠ½ΠΎ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΡΠ²ΠΎΠΈ ΠΌΠ°ΠΊΡΠΎΡΡ Ρ Π΄ΡΡΠ³ΠΈΠΌΠΈ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»ΡΠΌΠΈ, Π²Ρ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΡΠΊΠΎΠΏΠΈΡΠΎΠ²Π°ΡΡ ΠΏΠ΅ΡΡΠΎΠ½Π°Π»ΡΠ½ΡΠΉ. xlsb Π² ΠΏΠ°ΠΏΠΊΡ «ΠΠ²ΡΠΎΠ·Π°Π³ΡΡΠ·ΠΊΠ°» Π½Π° Π΄ΡΡΠ³ΠΈΡ ΠΊΠΎΠΌΠΏΡΡΡΠ΅ΡΠ°Ρ ΠΈΠ»ΠΈ ΡΠΊΠΎΠΏΠΈΡΠΎΠ²Π°ΡΡ Π½Π΅ΠΊΠΎΡΠΎΡΡΠ΅ ΠΈΠ»ΠΈ Π²ΡΠ΅ ΡΠ²ΠΎΠΈ ΠΌΠ°ΠΊΡΠΎΡΡ Π² ΡΠ°ΠΉΠ» Personal. xlsb Π½Π° Π΄ΡΡΠ³ΠΈΡ ΠΊΠΎΠΌΠΏΡΡΡΠ΅ΡΠ°Ρ . Π Finder Π²ΡΠ±Π΅ΡΠΈΡΠ΅ ΠΊΠΎΠΌΠ°Π½Π΄Ρ ΠΠ΅ΡΠ΅ΠΉΡΠΈ, Π° Π·Π°ΡΠ΅ΠΌ Π½Π°ΠΆΠΌΠΈΡΠ΅ ΠΈ ΡΠ΄Π΅ΡΠΆΠΈΠ²Π°ΠΉΡΠ΅ ΠΊΠ»Π°Π²ΠΈΡΡ Option, Π° Π·Π°ΡΠ΅ΠΌ Π²ΡΠ±Π΅ΡΠΈΡΠ΅ ΠΠΈΠ±Π»ΠΈΠΎΡΠ΅ΠΊΠ°. ΠΠ° ΠΏΠ°Π½Π΅Π»ΠΈ ΠΠΈΠ±Π»ΠΈΠΎΡΠ΅ΠΊΠ° ΠΏΠ΅ΡΠ΅ΠΉΠ΄ΠΈΡΠ΅ Π² ΡΠ°Π·Π΄Π΅Π» ΠΊΠΎΠ½ΡΠ΅ΠΉΠ½Π΅ΡΡ Π³ΡΡΠΏΠΏ > XYZ. Office (Π³Π΄Π΅ XYZ β ΡΡΠΎ ΡΠ΅ΠΊΡΡΠΎΠ²Π°Ρ ΡΡΡΠΎΠΊΠ°, Π½Π°ΠΏΡΠΈΠΌΠ΅Ρ «ΡΠ±Ρ8Ρ346Π³9») > ΡΠΎΠ΄Π΅ΡΠΆΠΈΠΌΠΎΠ΅ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ > ΠΠ°ΠΏΡΡΠΊ > Excel. ΠΡΡΠ°Π²ΡΡΠ΅ ΡΠ°ΠΉΠ» Personal. xlsb Π² ΠΏΠ°ΠΏΠΊΡ Excel.
ΠΡΠ»ΠΈ Ρ Π²Π°Ρ Π΅ΡΡΡ Π½Π΅ΡΠΊΠΎΠ»ΡΠΊΠΎ ΠΌΠ°ΠΊΡΠΎΡΠΎΠ², ΠΊ ΠΊΠΎΡΠΎΡΡΠΌ Π²Ρ Ρ ΠΎΡΠΈΡΠ΅ ΠΏΡΠ΅Π΄ΠΎΡΡΠ°Π²ΠΈΡΡ Π΄ΠΎΡΡΡΠΏ Π΄ΡΡΠ³ΠΈΠΌ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»ΡΠΌ, Π²Ρ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΠΎΡΠΏΡΠ°Π²ΠΈΡΡ ΠΈΠΌ ΠΊΠ½ΠΈΠ³Ρ, Π² ΠΊΠΎΡΠΎΡΠΎΠΉ ΠΎΠ½ΠΈ ΡΠΎΠ΄Π΅ΡΠΆΠ°ΡΡΡ. ΠΠ½ΠΈΠ³Ρ ΠΌΠΎΠΆΠ½ΠΎ ΡΠ°ΠΊΠΆΠ΅ ΡΠ΄Π΅Π»Π°ΡΡ Π΄ΠΎΡΡΡΠΏΠ½ΠΎΠΉ Π½Π° ΠΎΠ±ΡΠ΅ΠΌ ΡΠ΅ΡΠ΅Π²ΠΎΠΌ Π΄ΠΈΡΠΊΠ΅ ΠΈΠ»ΠΈ Π² Π±ΠΈΠ±Π»ΠΈΠΎΡΠ΅ΠΊΠ΅ SharePoint Services.
ΠΠΎΠΏΠΎΠ»Π½ΠΈΡΠ΅Π»ΡΠ½ΡΠ΅ ΡΠ²Π΅Π΄Π΅Π½ΠΈΡ ΠΎ ΠΊΠΎΠΏΠΈΡΠΎΠ²Π°Π½ΠΈΠΈ ΠΌΠ°ΠΊΡΠΎΡΠΎΠ² ΠΈΠ· ΠΎΠ΄Π½ΠΎΠΉ ΠΊΠ½ΠΈΠ³ΠΈ Π² Π΄ΡΡΠ³ΡΡ ΡΠΌ. Π² ΡΡΠ°ΡΡΠ΅ ΠΠΎΠΏΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ ΠΌΠΎΠ΄ΡΠ»Ρ ΠΌΠ°ΠΊΡΠΎΡΠ° Π² Π΄ΡΡΠ³ΡΡ ΠΊΠ½ΠΈΠ³Ρ.
Π‘ΠΎΡ ΡΠ°Π½Π΅Π½ΠΈΠ΅ Π»ΠΈΡΡΠΎΠ² ΠΊΠ½ΠΈΠ³ΠΈ Π² ΡΠ°ΠΉΠ» Excel
Π Π°Π·Π±Π΅ΡΠ΅ΠΌ ΠΊΠΎΠ΄ ΠΌΠ°ΠΊΡΠΎΡΠ°, ΠΊΠΎΡΠΎΡΡΠΉ ΠΏΠΎΠ·Π²ΠΎΠ»ΡΠ΅Ρ ΡΠΊΠΎΠΏΠΈΡΠΎΠ²Π°ΡΡ Π²ΡΠ΅ Π»ΠΈΡΡΡ ΠΊΠ½ΠΈΠ³ΠΈ ΠΈ ΡΠΎΡ ΡΠ°Π½ΠΈΡΡ ΠΈΡ Π² ΠΎΡΠ΄Π΅Π»ΡΠ½ΡΠ΅ ΡΠ°ΠΉΠ»Ρ Π² Excel.
ΠΠ°Π΄Π°ΡΠ° ΡΠ°Π·Π΄Π΅Π»Π΅Π½ΠΈΡ ΠΊΠ½ΠΈΠ³ΠΈ Π½Π° ΠΎΡΠ΄Π΅Π»ΡΠ½ΡΠ΅ Π»ΠΈΡΡΡ ΡΠ°ΡΡΠΎ Π²ΡΡΠ°Π΅Ρ ΠΏΠ΅ΡΠ΅Π΄ Π½Π°ΠΌΠΈ, ΠΊΠΎΠ³Π΄Π°, Π½Π°ΠΏΡΠΈΠΌΠ΅Ρ, Π½Π΅ΠΎΠ±Ρ
ΠΎΠ΄ΠΈΠΌΠΎ ΡΠ°Π·ΠΎΡΠ»Π°ΡΡ Π² ΠΏΠΎΠ΄ΡΠ°Π·Π΄Π΅Π»Π΅Π½ΠΈΡ ΠΊΠΎΠΌΠΏΠ°Π½ΠΈΠΈ Π² ΡΠ΅Π³ΠΈΠΎΠ½Π°Ρ
ΡΠ°ΠΉΠ»Ρ, ΡΠΎΠ΄Π΅ΡΠΆΠ°ΡΠΈΠ΅ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΡ ΡΠΎΠ»ΡΠΊΠΎ ΠΏΠΎ ΠΊΠΎΠ½ΠΊΡΠ΅ΡΠ½ΠΎΠΌΡ ΡΠ΅Π³ΠΈΠΎΠ½Ρ, ΡΡΠΎΠ±Ρ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»ΠΈ Π½Π΅ ΡΠ²ΠΈΠ΄Π΅Π»ΠΈ Π»ΠΈΡΠ½Π΅ΠΉ ΠΈ Π½Π΅Π½ΡΠΆΠ½ΠΎΠΉ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΈ, ΠΈ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²ΠΎ ΠΏΠΎΠ΄ΠΎΠ±Π½ΡΡ
ΠΏΡΠΈΠΌΠ΅ΡΠΎΠ².
ΠΡΡΠ³ΠΈΠΌΠΈ ΡΠ»ΠΎΠ²Π°ΠΌΠΈ, ΠΈΠ·Π½Π°ΡΠ°Π»ΡΠ½ΠΎ Ρ Π½Π°Ρ ΠΈΠΌΠ΅Π΅ΡΡΡ ΠΊΠ½ΠΈΠ³Π° Ρ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²ΠΎΠΌ Π»ΠΈΡΡΠΎΠ², ΠΊΠΎΡΠΎΡΡΡ ΠΌΡ Ρ
ΠΎΡΠΈΠΌ ΡΠ°Π·Π΄Π΅Π»ΠΈΡΡ Π½Π° ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²ΠΎ ΡΠ°ΠΉΠ»ΠΎΠ², ΡΠΎΡΡΠΎΡΡΠΈΡ
ΠΈΠ· Π»ΠΈΡΡΠΎΠ² ΠΈΡΡ
ΠΎΠ΄Π½ΠΎΠΉ ΠΊΠ½ΠΈΠ³ΠΈ.
ΠΠ°ΠΊ ΡΠΎΡ ΡΠ°Π½ΠΈΡΡ Π»ΠΈΡΡ Excel Π² ΠΎΡΠ΄Π΅Π»ΡΠ½ΡΠΉ ΡΠ°ΠΉΠ»?
ΠΠ»Ρ ΡΠΎΡ
ΡΠ°Π½Π΅Π½ΠΈΡ Π»ΠΈΡΡΠ° Π² ΠΎΡΠ΄Π΅Π»ΡΠ½ΡΡ ΠΊΠ½ΠΈΠ³Ρ ΠΌΠΎΠΆΠ½ΠΎ Π²ΠΎΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡΡΡ ΡΡΠ°Π½Π΄Π°ΡΡΠ½ΡΠΌΠΈ ΡΡΠ΅Π΄ΡΡΠ²Π°ΠΌΠΈ Excel.
ΠΠ°ΠΆΠΈΠΌΠ°Π΅ΠΌ ΠΏΡΠ°Π²ΠΎΠΉ ΠΊΠ½ΠΎΠΏΠΊΠΎΠΉ ΠΌΡΡΠΈ ΠΏΠΎ ΠΈΠΌΠ΅Π½ΠΈ Π»ΠΈΡΡΠ° Π² Π½ΠΈΠΆΠ½Π΅ΠΉ ΠΏΠ°Π½Π΅Π»ΠΈ ΠΈ Π²ΡΠ±ΠΈΡΠ°Π΅ΠΌ ΠΠ΅ΡΠ΅ΠΌΠ΅ΡΡΠΈΡΡ/ΡΠΊΠΎΠΏΠΈΡΠΎΠ²Π°ΡΡ:
ΠΠ°Π»Π΅Π΅ ΠΏΠ΅ΡΠ΅ΠΌΠ΅ΡΠ°Π΅ΠΌ Π»ΠΈΡΡ Π² Π½ΠΎΠ²ΡΡ ΠΊΠ½ΠΈΠ³Ρ, ΡΠΎΡ
ΡΠ°Π½ΡΠ΅ΠΌ Π΅Ρ ΠΈ Π΄Π°Π΅ΠΌ Π½Π°Π·Π²Π°Π½ΠΈΠ΅ ΡΠ°ΠΉΠ»Ρ.
ΠΠ΄Π½Π°ΠΊΠΎ Π² ΡΠ»ΡΡΠ°Π΅ Π±ΠΎΠ»ΡΡΠΎΠ³ΠΎ ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²Π° Π»ΠΈΡΡΠΎΠ², ΠΊΠΎΡΠΎΡΡΠ΅ Π½ΡΠΆΠ½ΠΎ ΡΠΎΡ
ΡΠ°Π½ΠΈΡΡ, ΡΡΠ° ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ° ΠΌΠΎΠΆΠ΅Ρ Π·Π°Π½ΡΡΡ Π΄ΠΎΡΡΠ°ΡΠΎΡΠ½ΠΎ Π±ΠΎΠ»ΡΡΠΎΠ΅ ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ Π²ΡΠ΅ΠΌΠ΅Π½ΠΈ.
ΠΡΠ»ΠΈ ΠΏΡΠ΅Π΄ΠΏΠΎΠ»ΠΎΠΆΠΈΡΡ, ΡΡΠΎ Π½Π° ΡΠΎΡ
ΡΠ°Π½Π΅Π½ΠΈΠ΅ ΠΊΠ°ΠΆΠ΄ΠΎΠ³ΠΎ Π»ΠΈΡΡΠ° ΡΡΠ°ΡΠΈΡΡΡ ΠΏΠΎ 30 ΡΠ΅ΠΊΡΠ½Π΄, ΡΠΎ Π΄Π»Ρ ΠΊΠ½ΠΈΠ³ΠΈ ΠΈΠ· 20 Π»ΠΈΡΡΠΎΠ² ΠΌΡ ΡΠΆΠ΅ ΠΏΠΎΡΡΠ°ΡΠΈΠΌ 10 ΠΌΠΈΠ½ΡΡ.
ΠΠΎΡΡΠΎΠΌΡ, ΡΡΠΎΠ±Ρ ΠΈΠΌΠ΅ΡΡ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎΡΡΡ Π±ΡΡΡΡΠΎ ΡΠΎΡ
ΡΠ°Π½ΠΈΡΡ Π»ΠΈΡΡΡ Π² ΠΎΡΠ΄Π΅Π»ΡΠ½ΡΠ΅ ΡΠ°ΠΉΠ»Ρ Π²ΠΎΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΠΌΡΡ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎΡΡΡΠΌΠΈ VBA ΠΈ Π½Π°ΠΏΠΈΡΠ΅ΠΌ ΠΌΠ°ΠΊΡΠΎΡ Π΄Π»Ρ ΡΠΎΡ
ΡΠ°Π½Π΅Π½ΠΈΡ Π»ΠΈΡΡΠΎΠ², ΠΊΠΎΡΠΎΡΡΠΉ ΠΏΠΎΠ·Π²ΠΎΠ»ΠΈΡ ΠΏΡΠΎΠΈΠ·Π²ΠΎΠ΄ΠΈΡΡ ΡΡΠΈ Π΄Π΅ΠΉΡΡΠ²ΠΈΡ Π·Π° Π½Π΅ΡΠΊΠΎΠ»ΡΠΊΠΎ ΡΠ΅ΠΊΡΠ½Π΄.
ΠΠ°ΠΊΡΠΎΡ ΡΠΎΡ ΡΠ°Π½Π΅Π½ΠΈΡ Π»ΠΈΡΡΠ° Excel Π² ΡΠ°ΠΉΠ»
ΠΠ΅ΡΠ΅Ρ
ΠΎΠ΄ΠΈΠΌ Π² ΡΠ΅Π΄Π°ΠΊΡΠΎΡ Visual Basic, Π΄Π»Ρ ΡΡΠΎΠ³ΠΎ Π² ΠΏΠ°Π½Π΅Π»ΠΈ Π²ΠΊΠ»Π°Π΄ΠΎΠΊ Π²ΡΠ±ΠΈΡΠ°Π΅ΠΌ Π Π°Π·ΡΠ°Π±ΠΎΡΡΠΈΠΊ -> Visual Basic (ΠΈΠ»ΠΈ Π²ΠΎΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΠΌΡΡ ΡΠΎΡΠ΅ΡΠ°Π½ΠΈΠ΅ΠΌ ΠΊΠ»Π°Π²ΠΈΡ Alt + F11).
Π‘ΠΎΠ·Π΄Π°Π΅ΠΌ Π½ΠΎΠ²ΡΠΉ ΠΌΠΎΠ΄ΡΠ»Ρ ΠΈ Π·Π°ΠΏΠΈΡΡΠ²Π°Π΅ΠΌ Π² Π½Π΅Π³ΠΎ ΠΌΠ°ΠΊΡΠΎΡ (ΠΊΠ°ΠΊ ΠΎΠ±ΡΡΠ½ΠΎ, Π½Π°ΠΏΡΠΎΡΠΈΠ² ΠΊΠ°ΠΆΠ΄ΠΎΠΉ ΡΡΡΠΎΡΠΊΠΈ Π΄Π°Π΅ΡΡΡ ΠΏΠΎΡΡΠ½Π΅Π½ΠΈΠ΅ ΠΊ ΠΊΠΎΠ΄Ρ):
Sub SaveSheetsAsFiles()
Application.ScreenUpdating = False ‘ΠΡΠΊΠ»ΡΡΠ΅Π½ΠΈΠ΅ ΠΎΠ±Π½ΠΎΠ²Π»Π΅Π½ΠΈΡ ΡΠΊΡΠ°Π½Π°
Dim MySheet As Worksheet ‘ΠΠ²ΠΎΠ΄ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ MySheet ΡΠΈΠΏΠ° «Π»ΠΈΡΡ»
Dim MyWorkbook As Workbook ‘ΠΠ²ΠΎΠ΄ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ MyWorkbook ΡΠΈΠΏΠ° «ΠΊΠ½ΠΈΠ³Π°»
Set MyWorkbook = ActiveWorkbook
For Each MySheet In MyWorkbook.Worksheets ‘Π¦ΠΈΠΊΠ» ΠΏΠΎ ΠΊΠ°ΠΆΠ΄ΠΎΠΌΡ Π»ΠΈΡΡΡ ΠΊΠ½ΠΈΠ³ΠΈ (ΡΠ°ΠΉΠ»Π°)
MySheet.Copy ‘ΠΠΎΠΏΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ Π»ΠΈΡΡΠ° Π² Π½ΠΎΠ²ΡΡ ΠΊΠ½ΠΈΠ³Ρ (ΡΠ°ΠΉΠ»)
ActiveWorkbook.SaveAs MyWorkbook.Path & «\» & MySheet.Name & «.xlsx» ‘Π‘ΠΎΡ
ΡΠ°Π½Π΅Π½ΠΈΠ΅ Π½ΠΎΠ²ΠΎΠΉ ΠΊΠ½ΠΈΠ³ΠΈ (ΡΠ°ΠΉΠ»Π°)
ActiveWorkbook.Close ‘ΠΠ°ΠΊΡΡΡΠΈΠ΅ Π½ΠΎΠ²ΠΎΠΉ ΠΊΠ½ΠΈΠ³ΠΈ (ΡΠ°ΠΉΠ»Π°)
Next
Application.ScreenUpdating = True ‘ΠΠΊΠ»ΡΡΠ΅Π½ΠΈΠ΅ ΠΎΠ±Π½ΠΎΠ²Π»Π΅Π½ΠΈΡ ΡΠΊΡΠ°Π½Π°
End Sub
| Sub SaveSheetsAsFiles() Β Β Β Β Application.ScreenUpdating = False ‘ΠΡΠΊΠ»ΡΡΠ΅Π½ΠΈΠ΅ ΠΎΠ±Π½ΠΎΠ²Π»Π΅Π½ΠΈΡ ΡΠΊΡΠ°Π½Π° Β Β Β Β Dim MySheet As Worksheet ‘ΠΠ²ΠΎΠ΄ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ MySheet ΡΠΈΠΏΠ° «Π»ΠΈΡΡ» Β Β Β Β Dim MyWorkbook As Workbook ‘ΠΠ²ΠΎΠ΄ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ MyWorkbook ΡΠΈΠΏΠ° «ΠΊΠ½ΠΈΠ³Π°» Β Β Β Β Set MyWorkbook = ActiveWorkbook Β Β Β Β For Each MySheet In MyWorkbook.Worksheets ‘Π¦ΠΈΠΊΠ» ΠΏΠΎ ΠΊΠ°ΠΆΠ΄ΠΎΠΌΡ Π»ΠΈΡΡΡ ΠΊΠ½ΠΈΠ³ΠΈ (ΡΠ°ΠΉΠ»Π°) Β Β Β Β Β Β Β Β MySheet.Copy ‘ΠΠΎΠΏΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ Π»ΠΈΡΡΠ° Π² Π½ΠΎΠ²ΡΡ ΠΊΠ½ΠΈΠ³Ρ (ΡΠ°ΠΉΠ») Β Β Β Β Β Β Β Β ActiveWorkbook.SaveAs MyWorkbook.Path & «\» & MySheet.Name & «.xlsx» ‘Π‘ΠΎΡ ΡΠ°Π½Π΅Π½ΠΈΠ΅ Π½ΠΎΠ²ΠΎΠΉ ΠΊΠ½ΠΈΠ³ΠΈ (ΡΠ°ΠΉΠ»Π°) Β Β Β Β Β Β Β Β ActiveWorkbook.Close ‘ΠΠ°ΠΊΡΡΡΠΈΠ΅ Π½ΠΎΠ²ΠΎΠΉ ΠΊΠ½ΠΈΠ³ΠΈ (ΡΠ°ΠΉΠ»Π°) Β Β Β Β Next Β Β Β Β Application.ScreenUpdating = True ‘ΠΠΊΠ»ΡΡΠ΅Π½ΠΈΠ΅ ΠΎΠ±Π½ΠΎΠ²Π»Π΅Π½ΠΈΡ ΡΠΊΡΠ°Π½Π° End Sub |
ΠΠ΅ΡΠ΅Ρ ΠΎΠ΄ΠΈΠΌ ΠΎΠ±ΡΠ°ΡΠ½ΠΎ Π² Excel ΠΈ ΡΠ΅ΠΏΠ΅ΡΡ ΠΌΠΎΠΆΠ΅ΠΌ Π²ΠΎΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡΡΡ ΠΌΠ°ΠΊΡΠΎΡΠΎΠΌ Π΄Π»Ρ ΡΠ°Π·Π±ΠΈΠ΅Π½ΠΈΡ Π»ΠΈΡΡΠΎΠ² ΠΏΠΎ ΠΎΡΠ΄Π΅Π»ΡΠ½ΡΠΌ ΡΠ°ΠΉΠ»Π°ΠΌ.
ΠΠ°ΠΌΠ΅ΡΠ°Π½ΠΈΡ
ΠΡΠΈ ΡΠ°Π±ΠΎΡΠ΅ Ρ Π΄Π°Π½Π½ΡΠΌ ΠΌΠ°ΠΊΡΠΎΡΠΎΠΌ ΠΎΠ±ΡΠ°ΡΠΈΡΠ΅ Π²Π½ΠΈΠΌΠ°Π½ΠΈΠ΅ Π½Π° Π½Π΅ΡΠΊΠΎΠ»ΡΠΊΠΎ Π²Π°ΠΆΠ½ΡΡ Π°ΡΠΏΠ΅ΠΊΡΠΎΠ²:
- ΠΠΎΠ΄ MyWorkbook.Path ΠΎΠΏΡΠ΅Π΄Π΅Π»ΡΠ΅Ρ ΡΠ΅ΠΊΡΡΠ΅Π΅ ΠΌΠ΅ΡΡΠΎΠΏΠΎΠ»ΠΎΠΆΠ΅Π½ΠΈΡ ΡΠ°ΠΉΠ»Π°, ΠΈ ΡΠΎΡ ΡΠ°Π½Π΅Π½ΠΈΠ΅ ΠΏΡΠΎΠΈΡΡ ΠΎΠ΄ΠΈΡ Π² Π΄Π°Π½Π½ΡΡ ΠΏΠ°ΠΏΠΊΡ. ΠΠ»Ρ ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΡ ΠΌΠ΅ΡΡΠ° ΡΠΎΡ ΡΠ°Π½Π΅Π½ΠΈΡ ΠΌΠΎΠΆΠ½ΠΎ Π²ΠΏΠΈΡΠ°ΡΡ Π»ΡΠ±ΠΎΠΉ Π΄ΡΡΠ³ΠΎΠΉ ΠΏΡΡΡ, Π½Π°ΠΏΡΠΈΠΌΠ΅Ρ «C:\ΠΡΠ³ΡΡΠ·ΠΊΠ°\ΠΠ²Π³ΡΡΡ»;
- Π§ΡΠΎΠ±Ρ ΡΠΊΠΎΠΏΠΈΡΠΎΠ²Π°ΡΡ Π»ΠΈΡΡ Π² Π΄ΡΡΠ³ΠΎΠΉ ΡΠ°ΠΉΠ» Π±Π΅Π· Π°Π²ΡΠΎΠΌΠ°ΡΠΈΡΠ΅ΡΠΊΠΎΠ³ΠΎ ΡΠΎΡ ΡΠ°Π½Π΅Π½ΠΈΡ, ΡΠΎ ΡΠ΄Π°Π»ΡΠ΅ΠΌ ΠΈΠ· ΠΊΠΎΠ΄Π° ΠΌΠ°ΠΊΡΠΎΡΠ° ΡΡΡΠΎΠΊΡ β8;
- ΠΠΎΠ΄ ActiveWorkbook.Close Π·Π°ΠΊΡΡΠ²Π°Π΅Ρ Π½ΠΎΠ²ΡΡ ΡΠΎΠ·Π΄Π°Π½Π½ΡΡ ΠΊΠ½ΠΈΠ³Ρ, Π΅ΡΠ»ΠΈ Π² ΡΡΠΎΠΌ Π½Π΅Ρ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎΡΡΠΈ, ΡΠΎ Π΄Π°Π½Π½ΡΡ ΡΡΡΠΎΠΊΡ ΠΌΠΎΠΆΠ½ΠΎ ΡΠ΄Π°Π»ΠΈΡΡ (ΡΡΡΠΎΠΊΠ° β9).
Π£Π΄Π°ΡΠΈ Π²Π°ΠΌ ΠΈ Π΄ΠΎ ΡΠΊΠΎΡΡΡ Π²ΡΡΡΠ΅Ρ Π½Π° ΡΡΡΠ°Π½ΠΈΡΠ°Ρ Π±Π»ΠΎΠ³Π° Tutorexcel.ru!
ΠΠΎΠ΄Π΅Π»ΠΈΡΡΡΡ Ρ Π΄ΡΡΠ·ΡΡΠΌΠΈ:
ΠΠΎΠΈΡΠΊ ΠΏΠΎ ΡΠ°ΠΉΡΡ:
ΠΠ΅ΡΠΎΠ΄ Workbook.Save (Excel) | ΠΠΎΠΊΡΠΌΠ΅Π½ΡΡ Microsoft
- 2 ΠΌΠΈΠ½ΡΡΡ Π½Π° ΡΡΠ΅Π½ΠΈΠ΅
Π ΡΡΠΎΠΉ ΡΡΠ°ΡΡΠ΅
Π‘ΠΎΡ ΡΠ°Π½ΡΠ΅Ρ ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΡ Π² ΡΠΊΠ°Π·Π°Π½Π½ΠΎΠΉ ΠΊΠ½ΠΈΠ³Π΅.
Π‘ΠΈΠ½ΡΠ°ΠΊΡΠΈΡ
Π²ΡΡΠ°ΠΆΠ΅Π½ΠΈΠ΅ . Π‘ΠΎΡ ΡΠ°Π½ΠΈΡΡ
Π²ΡΡΠ°ΠΆΠ΅Π½ΠΈΠ΅ ΠΠ΅ΡΠ΅ΠΌΠ΅Π½Π½Π°Ρ, ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»ΡΡΡΠ°Ρ ΠΎΠ±ΡΠ΅ΠΊΡ Workbook .
ΠΠ°ΠΌΠ΅ΡΠ°Π½ΠΈΡ
Π§ΡΠΎΠ±Ρ ΠΎΡΠΊΡΡΡΡ ΡΠ°ΠΉΠ» ΠΊΠ½ΠΈΠ³ΠΈ, ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠΉΡΠ΅ ΠΌΠ΅ΡΠΎΠ΄ ΠΡΠΊΡΡΡΡ .
Π§ΡΠΎΠ±Ρ ΠΏΠΎΠΌΠ΅ΡΠΈΡΡ ΠΊΠ½ΠΈΠ³Ρ ΠΊΠ°ΠΊ ΡΠΎΡ ΡΠ°Π½Π΅Π½Π½ΡΡ Π±Π΅Π· Π·Π°ΠΏΠΈΡΠΈ Π΅Π΅ Π½Π° Π΄ΠΈΡΠΊ, ΡΡΡΠ°Π½ΠΎΠ²ΠΈΡΠ΅ Π΄Π»Ρ ΡΠ²ΠΎΠΉΡΡΠ²Π° Saved Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ True .
ΠΡΠΈ ΠΏΠ΅ΡΠ²ΠΎΠΌ ΡΠΎΡ ΡΠ°Π½Π΅Π½ΠΈΠΈ ΠΊΠ½ΠΈΠ³ΠΈ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠΉΡΠ΅ ΠΌΠ΅ΡΠΎΠ΄ SaveAs , ΡΡΠΎΠ±Ρ ΡΠΊΠ°Π·Π°ΡΡ ΠΈΠΌΡ ΡΠ°ΠΉΠ»Π°.
ΠΡΠΈΠΌΠ΅Ρ
Π ΡΡΠΎΠΌ ΠΏΡΠΈΠΌΠ΅ΡΠ΅ ΡΠΎΡ ΡΠ°Π½ΡΠ΅ΡΡΡ Π°ΠΊΡΠΈΠ²Π½Π°Ρ ΠΊΠ½ΠΈΠ³Π°.
ActiveWorkbook.Save
Π ΡΡΠΎΠΌ ΠΏΡΠΈΠΌΠ΅ΡΠ΅ ΡΠΎΡ ΡΠ°Π½ΡΡΡΡΡ Π²ΡΠ΅ ΠΎΡΠΊΡΡΡΡΠ΅ ΠΊΠ½ΠΈΠ³ΠΈ, Π° Π·Π°ΡΠ΅ΠΌ Π·Π°ΠΊΡΡΠ²Π°Π΅ΡΡΡ Microsoft Excel.
Π΄Π»Ρ ΠΊΠ°ΠΆΠ΄ΠΎΠ³ΠΎ w Π² ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠΈ.
w.Save
Π‘Π»Π΅Π΄ΡΡΡΠ°Ρ ΠΆ
Application.Quit
Π ΡΡΠΎΠΌ ΠΏΡΠΈΠΌΠ΅ΡΠ΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ ΡΠΎΠ±ΡΡΠΈΠ΅ BeforeSave Π΄Π»Ρ ΠΏΡΠΎΠ²Π΅ΡΠΊΠΈ ΡΠΎΠ³ΠΎ, ΡΡΠΎ ΠΎΠΏΡΠ΅Π΄Π΅Π»Π΅Π½Π½ΡΠ΅ ΡΡΠ΅ΠΉΠΊΠΈ ΡΠΎΠ΄Π΅ΡΠΆΠ°Ρ Π΄Π°Π½Π½ΡΠ΅, ΠΏΡΠ΅ΠΆΠ΄Π΅ ΡΠ΅ΠΌ ΠΌΠΎΠΆΠ½ΠΎ Π±ΡΠ΄Π΅Ρ ΡΠΎΡ ΡΠ°Π½ΠΈΡΡ ΠΊΠ½ΠΈΠ³Ρ. ΠΠ½ΠΈΠ³Ρ Π½Π΅Π»ΡΠ·Ρ ΡΠΎΡ ΡΠ°Π½ΠΈΡΡ, ΠΏΠΎΠΊΠ° Π΄Π°Π½Π½ΡΠ΅ Π½Π΅ Π±ΡΠ΄ΡΡ Π² ΠΊΠ°ΠΆΠ΄ΠΎΠΉ ΠΈΠ· ΡΠ»Π΅Π΄ΡΡΡΠΈΡ ΡΡΠ΅Π΅ΠΊ: D5, D7, D9, D11, D13 ΠΈ D15.
Π§Π°ΡΡΠ½Π°Ρ Π²Π»ΠΎΠΆΠ΅Π½Π½Π°Ρ ΠΊΠ½ΠΈΠ³Π°_BeforeSave (ByVal SaveAsUI as Boolean, Cancel As Boolean)
'ΠΡΠ»ΠΈ ΡΠ΅ΡΡΡ ΡΠΊΠ°Π·Π°Π½Π½ΡΡ
ΡΡΠ΅Π΅ΠΊ Π½Π΅ ΡΠΎΠ΄Π΅ΡΠΆΠ°Ρ Π΄Π°Π½Π½ΡΡ
, ΠΎΡΠΎΠ±ΡΠ°Π·ΠΈΡΡ ΠΎΠΊΠ½ΠΎ ΡΠΎΠΎΠ±ΡΠ΅Π½ΠΈΡ Ρ ΠΎΡΠΈΠ±ΠΊΠΎΠΉ
'ΠΈ ΠΎΡΠΌΠ΅Π½ΠΈΡΠ΅ ΠΏΠΎΠΏΡΡΠΊΡ ΡΠΎΡ
ΡΠ°Π½Π΅Π½ΠΈΡ.ΠΡΠ»ΠΈ WorksheetFunction.CountA (Worksheets ("Sheet1"). Range ("D5, D7, D9, D11, D13, D15")) <6, ΡΠΎ
MsgBox "ΠΠ½ΠΈΠ³Π° Π½Π΅ Π±ΡΠ΄Π΅Ρ ΡΠΎΡ
ΡΠ°Π½Π΅Π½Π°, Π΅ΡΠ»ΠΈ" & vbCrLf & _
"ΠΡΠ΅ ΠΎΠ±ΡΠ·Π°ΡΠ΅Π»ΡΠ½ΡΠ΅ ΠΏΠΎΠ»Ρ Π·Π°ΠΏΠΎΠ»Π½Π΅Π½Ρ!"
ΠΡΠΌΠ΅Π½Π° = True
ΠΠΎΠ½Π΅Ρ, Π΅ΡΠ»ΠΈ
ΠΠΎΠ½Π΅Ρ ΠΏΠΎΠ΄ΠΏΠΈΡΠΊΠΈ
ΠΠΎΠ΄Π΄Π΅ΡΠΆΠΊΠ° ΠΈ ΠΎΡΠ·ΡΠ²Ρ
ΠΡΡΡ Π²ΠΎΠΏΡΠΎΡΡ ΠΈΠ»ΠΈ ΠΎΡΠ·ΡΠ²Ρ ΠΎΠ± Office VBA ΠΈΠ»ΠΈ ΡΡΠΎΠΉ Π΄ΠΎΠΊΡΠΌΠ΅Π½ΡΠ°ΡΠΈΠΈ? Π‘ΠΌ. Π Π°Π·Π΄Π΅Π» ΠΠΎΠ΄Π΄Π΅ΡΠΆΠΊΠ° ΠΈ ΠΎΡΠ·ΡΠ²Ρ Office VBA, ΡΡΠΎΠ±Ρ ΡΠ·Π½Π°ΡΡ, ΠΊΠ°ΠΊ ΠΏΠΎΠ»ΡΡΠΈΡΡ ΠΏΠΎΠ΄Π΄Π΅ΡΠΆΠΊΡ ΠΈ ΠΎΡΡΠ°Π²ΠΈΡΡ ΠΎΡΠ·ΡΠ².
.
ΠΠ΅ΡΠΎΠ΄ Workbook.SaveAs (Excel) | ΠΠΎΠΊΡΠΌΠ΅Π½ΡΡ Microsoft
- 3 ΠΌΠΈΠ½ΡΡΡ Π½Π° ΡΡΠ΅Π½ΠΈΠ΅
Π ΡΡΠΎΠΉ ΡΡΠ°ΡΡΠ΅
Π‘ΠΎΡ ΡΠ°Π½ΡΠ΅Ρ ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΡ Π² ΠΊΠ½ΠΈΠ³Π΅ Π² Π΄ΡΡΠ³ΠΎΠΌ ΡΠ°ΠΉΠ»Π΅.
ΠΡΠΈΠΌΠ΅ΡΠ°Π½ΠΈΠ΅
ΠΠ°ΠΈΠ½ΡΠ΅ΡΠ΅ΡΠΎΠ²Π°Π½Ρ Π² ΡΠ°Π·ΡΠ°Π±ΠΎΡΠΊΠ΅ ΡΠ΅ΡΠ΅Π½ΠΈΠΉ, ΡΠ°ΡΡΠΈΡΡΡΡΠΈΡ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎΡΡΠΈ Office Π½Π° Π½Π΅ΡΠΊΠΎΠ»ΡΠΊΠΈΡ ΠΏΠ»Π°ΡΡΠΎΡΠΌΠ°Ρ ? ΠΠ·Π½Π°ΠΊΠΎΠΌΡΡΠ΅ΡΡ Ρ Π½ΠΎΠ²ΠΎΠΉ ΠΌΠΎΠ΄Π΅Π»ΡΡ Π½Π°Π΄ΡΡΡΠΎΠ΅ΠΊ Office.ΠΠ°Π΄ΡΡΡΠΎΠΉΠΊΠΈ Office Π·Π°Π½ΠΈΠΌΠ°ΡΡ ΠΌΠ΅Π½ΡΡΠ΅ ΠΌΠ΅ΡΡΠ° ΠΏΠΎ ΡΡΠ°Π²Π½Π΅Π½ΠΈΡ Ρ Π½Π°Π΄ΡΡΡΠΎΠΉΠΊΠ°ΠΌΠΈ ΠΈ ΡΠ΅ΡΠ΅Π½ΠΈΡΠΌΠΈ VSTO, ΠΈ Π²Ρ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΡΠΎΠ·Π΄Π°Π²Π°ΡΡ ΠΈΡ , ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΡ ΠΏΡΠ°ΠΊΡΠΈΡΠ΅ΡΠΊΠΈ Π»ΡΠ±ΡΠ΅ ΡΠ΅Ρ Π½ΠΎΠ»ΠΎΠ³ΠΈΠΈ Π²Π΅Π±-ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ, ΡΠ°ΠΊΠΈΠ΅ ΠΊΠ°ΠΊ HTML5, JavaScript, CSS3 ΠΈ XML.
Π‘ΠΈΠ½ΡΠ°ΠΊΡΠΈΡ
Π²ΡΡΠ°ΠΆΠ΅Π½ΠΈΠ΅ . SaveAs ( FileName , FileFormat , Password , WriteResPassword , ReadOnlyRecommended , CreateBackup , AccessMode , ConflictResolution , AddToMru , TextCode )
Π²ΡΡΠ°ΠΆΠ΅Π½ΠΈΠ΅ ΠΠ΅ΡΠ΅ΠΌΠ΅Π½Π½Π°Ρ, ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»ΡΡΡΠ°Ρ ΠΎΠ±ΡΠ΅ΠΊΡ Workbook .
ΠΠ°ΡΠ°ΠΌΠ΅ΡΡΡ
ΠΠΌΡ | ΠΠ±ΡΠ·Π°ΡΠ΅Π»ΡΠ½ΠΎ / ΠΠΎΠΏΠΎΠ»Π½ΠΈΡΠ΅Π»ΡΠ½ΠΎ | Π’ΠΈΠΏ Π΄Π°Π½Π½ΡΡ | ΠΠΏΠΈΡΠ°Π½ΠΈΠ΅ |
---|---|---|---|
ΠΠΌΡ ΡΠ°ΠΉΠ»Π° | ΠΠΎΠΏΠΎΠ»Π½ΠΈΡΠ΅Π»ΡΠ½ΠΎ | ΠΠ°ΡΠΈΠ°Π½Ρ | Π‘ΡΡΠΎΠΊΠ°, ΡΠΊΠ°Π·ΡΠ²Π°ΡΡΠ°Ρ ΠΈΠΌΡ ΡΠ°ΠΉΠ»Π°, ΠΊΠΎΡΠΎΡΡΠΉ Π½ΡΠΆΠ½ΠΎ ΡΠΎΡ ΡΠ°Π½ΠΈΡΡ. ΠΡ ΠΌΠΎΠΆΠ΅ΡΠ΅ Π²ΠΊΠ»ΡΡΠΈΡΡ ΠΏΠΎΠ»Π½ΡΠΉ ΠΏΡΡΡ; Π² ΠΏΡΠΎΡΠΈΠ²Π½ΠΎΠΌ ΡΠ»ΡΡΠ°Π΅ Microsoft Excel ΡΠΎΡ ΡΠ°Π½ΠΈΡ ΡΠ°ΠΉΠ» Π² ΡΠ΅ΠΊΡΡΠ΅ΠΉ ΠΏΠ°ΠΏΠΊΠ΅. |
Π€ΠΎΡΠΌΠ°Ρ ΡΠ°ΠΉΠ»Π° | ΠΠΎΠΏΠΎΠ»Π½ΠΈΡΠ΅Π»ΡΠ½ΠΎ | ΠΠ°ΡΠΈΠ°Π½Ρ | Π€ΠΎΡΠΌΠ°Ρ ΡΠ°ΠΉΠ»Π°, ΠΊΠΎΡΠΎΡΡΠΉ Π±ΡΠ΄Π΅Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡΡΡ ΠΏΡΠΈ ΡΠΎΡ ΡΠ°Π½Π΅Π½ΠΈΠΈ ΡΠ°ΠΉΠ»Π°.Π‘ΠΏΠΈΡΠΎΠΊ Π΄ΠΎΠΏΡΡΡΠΈΠΌΡΡ Π²Π°ΡΠΈΠ°Π½ΡΠΎΠ² ΡΠΌ. Π ΠΏΠ΅ΡΠ΅ΡΠΈΡΠ»Π΅Π½ΠΈΠΈ XlFileFormat . ΠΠ»Ρ ΡΡΡΠ΅ΡΡΠ²ΡΡΡΠ΅Π³ΠΎ ΡΠ°ΠΉΠ»Π° ΡΠΎΡΠΌΠ°ΡΠΎΠΌ ΠΏΠΎ ΡΠΌΠΎΠ»ΡΠ°Π½ΠΈΡ ΡΠ²Π»ΡΠ΅ΡΡΡ ΠΏΠΎΡΠ»Π΅Π΄Π½ΠΈΠΉ ΡΠΊΠ°Π·Π°Π½Π½ΡΠΉ ΡΠΎΡΠΌΠ°Ρ ΡΠ°ΠΉΠ»Π°; Π΄Π»Ρ Π½ΠΎΠ²ΠΎΠ³ΠΎ ΡΠ°ΠΉΠ»Π° ΠΏΠΎ ΡΠΌΠΎΠ»ΡΠ°Π½ΠΈΡ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ ΡΠΎΡΠΌΠ°Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΠΌΠΎΠΉ Π²Π΅ΡΡΠΈΠΈ Excel. |
ΠΠ°ΡΠΎΠ»Ρ | ΠΠΎΠΏΠΎΠ»Π½ΠΈΡΠ΅Π»ΡΠ½ΠΎ | ΠΠ°ΡΠΈΠ°Π½Ρ | Π‘ΡΡΠΎΠΊΠ° Ρ ΡΡΠ΅ΡΠΎΠΌ ΡΠ΅Π³ΠΈΡΡΡΠ° (Π½Π΅ Π±ΠΎΠ»Π΅Π΅ 15 ΡΠΈΠΌΠ²ΠΎΠ»ΠΎΠ²), ΡΠΊΠ°Π·ΡΠ²Π°ΡΡΠ°Ρ ΠΏΠ°ΡΠΎΠ»Ρ Π·Π°ΡΠΈΡΡ, ΠΊΠΎΡΠΎΡΡΠΉ Π΄ΠΎΠ»ΠΆΠ΅Π½ Π±ΡΡΡ ΠΏΡΠΈΡΠ²ΠΎΠ΅Π½ ΡΠ°ΠΉΠ»Ρ. |
WriteResPassword | ΠΠΎΠΏΠΎΠ»Π½ΠΈΡΠ΅Π»ΡΠ½ΠΎ | ΠΠ°ΡΠΈΠ°Π½Ρ | Π‘ΡΡΠΎΠΊΠ°, ΡΠΊΠ°Π·ΡΠ²Π°ΡΡΠ°Ρ ΠΏΠ°ΡΠΎΠ»Ρ ΡΠ΅Π·Π΅ΡΠ²ΠΈΡΠΎΠ²Π°Π½ΠΈΡ Π·Π°ΠΏΠΈΡΠΈ Π΄Π»Ρ ΡΡΠΎΠ³ΠΎ ΡΠ°ΠΉΠ»Π°.ΠΡΠ»ΠΈ ΡΠ°ΠΉΠ» ΡΠΎΡ ΡΠ°Π½Π΅Π½ Ρ ΠΏΠ°ΡΠΎΠ»Π΅ΠΌ, Π° ΠΏΠ°ΡΠΎΠ»Ρ Π½Π΅ ΡΠΊΠ°Π·Π°Π½ ΠΏΡΠΈ ΠΎΡΠΊΡΡΡΠΈΠΈ ΡΠ°ΠΉΠ»Π°, ΡΠ°ΠΉΠ» ΠΎΡΠΊΡΡΠ²Π°Π΅ΡΡΡ ΡΠΎΠ»ΡΠΊΠΎ Π΄Π»Ρ ΡΡΠ΅Π½ΠΈΡ. |
Π’ΠΎΠ»ΡΠΊΠΎ Π΄Π»Ρ ΡΡΠ΅Π½ΠΈΡ Π Π΅ΠΊΠΎΠΌΠ΅Π½Π΄ΡΠ΅ΡΡΡ | ΠΠΎΠΏΠΎΠ»Π½ΠΈΡΠ΅Π»ΡΠ½ΠΎ | ΠΠ°ΡΠΈΠ°Π½Ρ | ΠΡΡΠΈΠ½Π½ΠΎ , ΡΡΠΎΠ±Ρ ΠΏΡΠΈ ΠΎΡΠΊΡΡΡΠΈΠΈ ΡΠ°ΠΉΠ»Π° ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ°Π»ΠΎΡΡ ΡΠΎΠΎΠ±ΡΠ΅Π½ΠΈΠ΅ Ρ ΡΠ΅ΠΊΠΎΠΌΠ΅Π½Π΄Π°ΡΠΈΠ΅ΠΉ ΠΎΡΠΊΡΡΡΡ ΡΠ°ΠΉΠ» ΡΠΎΠ»ΡΠΊΠΎ Π΄Π»Ρ ΡΡΠ΅Π½ΠΈΡ. |
CreateBackup | ΠΠΎΠΏΠΎΠ»Π½ΠΈΡΠ΅Π»ΡΠ½ΠΎ | ΠΠ°ΡΠΈΠ°Π½Ρ | True Π΄Π»Ρ ΡΠΎΠ·Π΄Π°Π½ΠΈΡ ΡΠ°ΠΉΠ»Π° ΡΠ΅Π·Π΅ΡΠ²Π½ΠΎΠΉ ΠΊΠΎΠΏΠΈΠΈ. |
Π Π΅ΠΆΠΈΠΌ Π΄ΠΎΡΡΡΠΏΠ° | ΠΠΎΠΏΠΎΠ»Π½ΠΈΡΠ΅Π»ΡΠ½ΠΎ | XlSaveAsAccessMode | Π Π΅ΠΆΠΈΠΌ Π΄ΠΎΡΡΡΠΏΠ° ΠΊ ΠΊΠ½ΠΈΠ³Π΅. |
Π Π°Π·ΡΠ΅ΡΠ΅Π½ΠΈΠ΅ ΠΊΠΎΠ½ΡΠ»ΠΈΠΊΡΠΎΠ² | ΠΠΎΠΏΠΎΠ»Π½ΠΈΡΠ΅Π»ΡΠ½ΠΎ | XlSaveConflictResolution | ΠΠ½Π°ΡΠ΅Π½ΠΈΠ΅ XlSaveConflictResolution , ΠΊΠΎΡΠΎΡΠΎΠ΅ ΠΎΠΏΡΠ΅Π΄Π΅Π»ΡΠ΅Ρ, ΠΊΠ°ΠΊ ΠΌΠ΅ΡΠΎΠ΄ ΡΠ°Π·ΡΠ΅ΡΠ°Π΅Ρ ΠΊΠΎΠ½ΡΠ»ΠΈΠΊΡ ΠΏΡΠΈ ΡΠΎΡ
ΡΠ°Π½Π΅Π½ΠΈΠΈ ΠΊΠ½ΠΈΠ³ΠΈ. ΠΡΠ»ΠΈ ΡΡΡΠ°Π½ΠΎΠ²Π»Π΅Π½ΠΎ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ xlUserResolution , ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ°Π΅ΡΡΡ Π΄ΠΈΠ°Π»ΠΎΠ³ΠΎΠ²ΠΎΠ΅ ΠΎΠΊΠ½ΠΎ ΡΠ°Π·ΡΠ΅ΡΠ΅Π½ΠΈΡ ΠΊΠΎΠ½ΡΠ»ΠΈΠΊΡΠΎΠ². ΠΡΠ»ΠΈ ΡΡΡΠ°Π½ΠΎΠ²Π»Π΅Π½ΠΎ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ xlLocalSessionChanges , ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΡ Π»ΠΎΠΊΠ°Π»ΡΠ½ΠΎΠ³ΠΎ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ ΠΏΡΠΈΠ½ΠΈΠΌΠ°ΡΡΡΡ Π°Π²ΡΠΎΠΌΠ°ΡΠΈΡΠ΅ΡΠΊΠΈ. ΠΡΠ»ΠΈ ΡΡΡΠ°Π½ΠΎΠ²Π»Π΅Π½ΠΎ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ xlOtherSessionChanges , ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΡ ΠΈΠ· Π΄ΡΡΠ³ΠΈΡ ΡΠ΅Π°Π½ΡΠΎΠ² Π°Π²ΡΠΎΠΌΠ°ΡΠΈΡΠ΅ΡΠΊΠΈ ΠΏΡΠΈΠ½ΠΈΠΌΠ°ΡΡΡΡ Π²ΠΌΠ΅ΡΡΠΎ ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΠΉ Π»ΠΎΠΊΠ°Π»ΡΠ½ΠΎΠ³ΠΎ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ. ΠΡΠ»ΠΈ ΡΡΠΎΡ Π°ΡΠ³ΡΠΌΠ΅Π½Ρ ΠΎΠΏΡΡΠ΅Π½, ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ°Π΅ΡΡΡ Π΄ΠΈΠ°Π»ΠΎΠ³ΠΎΠ²ΠΎΠ΅ ΠΎΠΊΠ½ΠΎ ΡΠ°Π·ΡΠ΅ΡΠ΅Π½ΠΈΡ ΠΊΠΎΠ½ΡΠ»ΠΈΠΊΡΠ°. |
AddToMru | ΠΠΎΠΏΠΎΠ»Π½ΠΈΡΠ΅Π»ΡΠ½ΠΎ | ΠΠ°ΡΠΈΠ°Π½Ρ | True , ΡΡΠΎΠ±Ρ Π΄ΠΎΠ±Π°Π²ΠΈΡΡ ΡΡΡ ΠΊΠ½ΠΈΠ³Ρ Π² ΡΠΏΠΈΡΠΎΠΊ Π½Π΅Π΄Π°Π²Π½ΠΎ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½Π½ΡΡ ΡΠ°ΠΉΠ»ΠΎΠ².ΠΠ½Π°ΡΠ΅Π½ΠΈΠ΅ ΠΏΠΎ ΡΠΌΠΎΠ»ΡΠ°Π½ΠΈΡ - ΠΠΎΠΆΡ . |
ΠΠΎΠ΄ΠΎΠ²Π°Ρ ΡΡΡΠ°Π½ΠΈΡΠ° ΡΠ΅ΠΊΡΡΠ° | ΠΠΎΠΏΠΎΠ»Π½ΠΈΡΠ΅Π»ΡΠ½ΠΎ | ΠΠ°ΡΠΈΠ°Π½Ρ | ΠΠ³Π½ΠΎΡΠΈΡΡΠ΅ΡΡΡ Π΄Π»Ρ Π²ΡΠ΅Ρ
ΡΠ·ΡΠΊΠΎΠ² Π² Microsoft Excel. ΠΠ ΠΠΠΠ§ΠΠΠΠ : ΠΠΎΠ³Π΄Π° Excel ΡΠΎΡ ΡΠ°Π½ΡΠ΅Ρ ΠΊΠ½ΠΈΠ³Ρ Π² ΠΎΠ΄Π½ΠΎΠΌ ΠΈΠ· CSV ΠΈΠ»ΠΈ ΡΠ΅ΠΊΡΡΠΎΠ²ΡΡ ΡΠΎΡΠΌΠ°ΡΠΎΠ², ΠΊΠΎΡΠΎΡΡΠ΅ ΡΠΊΠ°Π·Π°Π½Ρ Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΠ° FileFormat , ΠΎΠ½ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅Ρ ΠΊΠΎΠ΄ΠΎΠ²ΡΡ ΡΡΡΠ°Π½ΠΈΡΡ, ΠΊΠΎΡΠΎΡΠ°Ρ ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΡΠ΅Ρ ΡΠ·ΡΠΊΡ Π΄Π»Ρ ΡΠ·ΡΠΊΠΎΠ²ΠΎΠ³ΠΎ ΡΡΠ°Π½Π΄Π°ΡΡΠ° ΡΠΈΡΡΠ΅ΠΌΡ, ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΠΌΠΎΠ³ΠΎ Π½Π° ΡΠ΅ΠΊΡΡΠ΅ΠΌ ΠΊΠΎΠΌΠΏΡΡΡΠ΅ΡΠ΅. . ΠΡΠΎΡ ΡΠΈΡΡΠ΅ΠΌΠ½ΡΠΉ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡ Π΄ΠΎΡΡΡΠΏΠ΅Π½ Π½Π° ΠΏΠ°Π½Π΅Π»ΠΈ ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ > Π Π΅Π³ΠΈΠΎΠ½ ΠΈ ΡΠ·ΡΠΊ > ΠΠΊΠ»Π°Π΄ΠΊΠ° Π² ΡΠ°Π·Π΄Π΅Π»Π΅ Π’Π΅ΠΊΡΡΠ΅Π΅ ΠΌΠ΅ΡΡΠΎΠΏΠΎΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅ . |
TextVisualLayout | ΠΠΎΠΏΠΎΠ»Π½ΠΈΡΠ΅Π»ΡΠ½ΠΎ | ΠΠ°ΡΠΈΠ°Π½Ρ | ΠΠ³Π½ΠΎΡΠΈΡΡΠ΅ΡΡΡ Π΄Π»Ρ Π²ΡΠ΅Ρ
ΡΠ·ΡΠΊΠΎΠ² Π² Microsoft Excel. ΠΠ ΠΠΠΠ§ΠΠΠΠ : ΠΠΎΠ³Π΄Π° Excel ΡΠΎΡ ΡΠ°Π½ΡΠ΅Ρ ΠΊΠ½ΠΈΠ³Ρ Π² ΠΎΠ΄Π½ΠΎΠΌ ΠΈΠ· CSV ΠΈΠ»ΠΈ ΡΠ΅ΠΊΡΡΠΎΠ²ΡΡ ΡΠΎΡΠΌΠ°ΡΠΎΠ², ΠΊΠΎΡΠΎΡΡΠ΅ ΡΠΊΠ°Π·Π°Π½Ρ Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΠ° FileFormat , ΠΎΠ½ ΡΠΎΡ ΡΠ°Π½ΡΠ΅Ρ ΡΡΠΈ ΡΠΎΡΠΌΠ°ΡΡ Π² Π»ΠΎΠ³ΠΈΡΠ΅ΡΠΊΠΎΠΉ ΡΡΡΡΠΊΡΡΡΠ΅. ΠΡΠ»ΠΈ ΡΠ΅ΠΊΡΡ Ρ Π½Π°ΠΏΡΠ°Π²Π»Π΅Π½ΠΈΠ΅ΠΌ ΡΠ»Π΅Π²Π° Π½Π°ΠΏΡΠ°Π²ΠΎ (LTR) Π²ΡΡΡΠΎΠ΅Π½ Π² ΡΠ΅ΠΊΡΡ Ρ Π½Π°ΠΏΡΠ°Π²Π»Π΅Π½ΠΈΠ΅ΠΌ ΡΠΏΡΠ°Π²Π° Π½Π°Π»Π΅Π²ΠΎ (RTL) Π² ΡΠ°ΠΉΠ»Π΅, ΠΈΠ»ΠΈ Π½Π°ΠΎΠ±ΠΎΡΠΎΡ, Π»ΠΎΠ³ΠΈΡΠ΅ΡΠΊΠ°Ρ ΠΊΠΎΠΌΠΏΠΎΠ½ΠΎΠ²ΠΊΠ° ΡΠΎΡ ΡΠ°Π½ΡΠ΅Ρ ΡΠΎΠ΄Π΅ΡΠΆΠΈΠΌΠΎΠ΅ ΡΠ°ΠΉΠ»Π° Π² ΠΏΡΠ°Π²ΠΈΠ»ΡΠ½ΠΎΠΌ ΠΏΠΎΡΡΠ΄ΠΊΠ΅ ΡΡΠ΅Π½ΠΈΡ Π΄Π»Ρ Π²ΡΠ΅Ρ ΡΠ·ΡΠΊΠΎΠ² Π² ΡΠ°ΠΉΠ»Π΅ Π±Π΅Π· ΠΎΡΠ½ΠΎΡΠΈΡΠ΅Π»ΡΠ½ΠΎ Π½Π°ΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ.ΠΠΎΠ³Π΄Π° ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅ ΠΎΡΠΊΡΡΠ²Π°Π΅Ρ ΡΠ°ΠΉΠ», ΠΊΠ°ΠΆΠ΄ΡΠΉ Π·Π°ΠΏΡΡΠΊ ΡΠΈΠΌΠ²ΠΎΠ»ΠΎΠ² LTR ΠΈΠ»ΠΈ RTL ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ°Π΅ΡΡΡ Π² ΠΏΡΠ°Π²ΠΈΠ»ΡΠ½ΠΎΠΌ Π½Π°ΠΏΡΠ°Π²Π»Π΅Π½ΠΈΠΈ Π² ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΠΈΠΈ Ρ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½Π°ΠΌΠΈ Π·Π½Π°ΡΠ΅Π½ΠΈΠΉ ΡΠΈΠΌΠ²ΠΎΠ»ΠΎΠ² Π²Π½ΡΡΡΠΈ ΠΊΠΎΠ΄ΠΎΠ²ΠΎΠΉ ΡΡΡΠ°Π½ΠΈΡΡ (Π΅ΡΠ»ΠΈ ΡΠΎΠ»ΡΠΊΠΎ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅ Π½Π΅ ΠΏΡΠ΅Π΄Π½Π°Π·Π½Π°ΡΠ΅Π½ΠΎ Π΄Π»Ρ ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ΅Π½ΠΈΡ ΡΠΎΡΠ½ΠΎΠΉ ΡΡΡΡΠΊΡΡΡΡ ΠΏΠ°ΠΌΡΡΠΈ ΡΠ°ΠΉΠ»Π°, Π½Π°ΠΏΡΠΈΠΌΠ΅Ρ ΠΎΡΠ»Π°Π΄ΡΠΈΠΊ ΠΈΠ»ΠΈ ΡΠ΅Π΄Π°ΠΊΡΠΎΡ, ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ Π΄Π»Ρ ΠΎΡΠΊΡΡΡΠΈΡ ΡΠ°ΠΉΠ»Π°). |
ΠΠ΅ΡΡΠ½ΡΠΉ | ΠΠΎΠΏΠΎΠ»Π½ΠΈΡΠ΅Π»ΡΠ½ΠΎ | ΠΠ°ΡΠΈΠ°Π½Ρ | True ΡΠΎΡ ΡΠ°Π½ΡΠ΅Ρ ΡΠ°ΠΉΠ»Ρ Π½Π° ΡΠ·ΡΠΊΠ΅ Microsoft Excel (Π²ΠΊΠ»ΡΡΠ°Ρ Π½Π°ΡΡΡΠΎΠΉΠΊΠΈ ΠΏΠ°Π½Π΅Π»ΠΈ ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ). ΠΠΎΠΆΡ (ΠΏΠΎ ΡΠΌΠΎΠ»ΡΠ°Π½ΠΈΡ) ΡΠΎΡ ΡΠ°Π½ΡΠ΅Ρ ΡΠ°ΠΉΠ»Ρ Π½Π° ΡΠ·ΡΠΊΠ΅ Visual Basic Π΄Π»Ρ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠΉ (VBA) (ΠΊΠΎΡΠΎΡΡΠΉ ΠΎΠ±ΡΡΠ½ΠΎ ΡΠ²Π»ΡΠ΅ΡΡΡ Π°ΠΌΠ΅ΡΠΈΠΊΠ°Π½ΡΠΊΠΈΠΌ Π°Π½Π³Π»ΠΈΠΉΡΠΊΠΈΠΌ ΡΠ·ΡΠΊΠΎΠΌ, Π΅ΡΠ»ΠΈ ΡΠΎΠ»ΡΠΊΠΎ ΠΏΡΠΎΠ΅ΠΊΡ VBA, Π² ΠΊΠΎΡΠΎΡΠΎΠΌ Π·Π°ΠΏΡΡΠΊΠ°Π΅ΡΡΡ Workbooks.Open , Π½Π΅ ΡΠ²Π»ΡΠ΅ΡΡΡ ΡΡΠ°ΡΡΠΌ ΠΈΠ½ΡΠ΅ΡΠ½Π°ΡΠΈΠΎΠ½Π°Π»ΠΈΠ·ΠΈΡΠΎΠ²Π°Π½Π½ΡΠΌ ΠΏΡΠΎΠ΅ΠΊΡΠΎΠΌ XL5 / 95 VBA). |
ΠΡΠΈΠΌΠ΅ΡΠ°Π½ΠΈΡ
ΠΡΠΏΠΎΠ»ΡΠ·ΡΠΉΡΠ΅ Π½Π°Π΄Π΅ΠΆΠ½ΡΠ΅ ΠΏΠ°ΡΠΎΠ»ΠΈ, ΡΠΎΡΡΠΎΡΡΠΈΠ΅ ΠΈΠ· ΠΏΡΠΎΠΏΠΈΡΠ½ΡΡ ΠΈ ΡΡΡΠΎΡΠ½ΡΡ Π±ΡΠΊΠ², ΡΠΈΡΡ ΠΈ ΡΠΈΠΌΠ²ΠΎΠ»ΠΎΠ². Π‘Π»Π°Π±ΡΠ΅ ΠΏΠ°ΡΠΎΠ»ΠΈ Π½Π΅ ΡΠΌΠ΅ΡΠΈΠ²Π°ΡΡ ΡΡΠΈ ΡΠ»Π΅ΠΌΠ΅Π½ΡΡ.
- ΠΠ°Π΄Π΅ΠΆΠ½ΡΠΉ ΠΏΠ°ΡΠΎΠ»Ρ: Y6dh! Et5
- Π‘Π»Π°Π±ΡΠΉ ΠΏΠ°ΡΠΎΠ»Ρ: House27
ΠΡΠΏΠΎΠ»ΡΠ·ΡΠΉΡΠ΅ Π½Π°Π΄Π΅ΠΆΠ½ΡΠΉ ΠΏΠ°ΡΠΎΠ»Ρ, ΠΊΠΎΡΠΎΡΡΠΉ Π²Ρ ΠΌΠΎΠΆΠ΅ΡΠ΅ Π·Π°ΠΏΠΎΠΌΠ½ΠΈΡΡ, ΡΡΠΎΠ±Ρ Π²Π°ΠΌ Π½Π΅ ΠΏΡΠΈΡ ΠΎΠ΄ΠΈΠ»ΠΎΡΡ Π΅Π³ΠΎ Π·Π°ΠΏΠΈΡΡΠ²Π°ΡΡ.
ΠΡΠΈΠΌΠ΅Ρ
Π ΡΡΠΎΠΌ ΠΏΡΠΈΠΌΠ΅ΡΠ΅ ΡΠΎΠ·Π΄Π°Π΅ΡΡΡ Π½ΠΎΠ²Π°Ρ ΠΊΠ½ΠΈΠ³Π°, Ρ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ Π·Π°ΠΏΡΠ°ΡΠΈΠ²Π°Π΅ΡΡΡ ΠΈΠΌΡ ΡΠ°ΠΉΠ»Π°, Π° Π·Π°ΡΠ΅ΠΌ ΠΊΠ½ΠΈΠ³Π° ΡΠΎΡ ΡΠ°Π½ΡΠ΅ΡΡΡ.
Π£ΡΡΠ°Π½ΠΎΠ²ΠΈΡΡ NewBook ββ= Workbooks.Add
ΠΠ΅Π»Π°ΡΡ
fName = Application.GetSaveAsFilename
Π¦ΠΈΠΊΠ» Π΄ΠΎ fName <> False
NewBook.SaveAs ΠΠΌΡ ΡΠ°ΠΉΠ»Π°: = fName
ΠΠΎΠ΄Π΄Π΅ΡΠΆΠΊΠ° ΠΈ ΠΎΡΠ·ΡΠ²Ρ
ΠΡΡΡ Π²ΠΎΠΏΡΠΎΡΡ ΠΈΠ»ΠΈ ΠΎΡΠ·ΡΠ²Ρ ΠΎΠ± Office VBA ΠΈΠ»ΠΈ ΡΡΠΎΠΉ Π΄ΠΎΠΊΡΠΌΠ΅Π½ΡΠ°ΡΠΈΠΈ? Π‘ΠΌ. Π Π°Π·Π΄Π΅Π» ΠΠΎΠ΄Π΄Π΅ΡΠΆΠΊΠ° ΠΈ ΠΎΡΠ·ΡΠ²Ρ Office VBA, ΡΡΠΎΠ±Ρ ΡΠ·Π½Π°ΡΡ, ΠΊΠ°ΠΊ ΠΏΠΎΠ»ΡΡΠΈΡΡ ΠΏΠΎΠ΄Π΄Π΅ΡΠΆΠΊΡ ΠΈ ΠΎΡΡΠ°Π²ΠΈΡΡ ΠΎΡΠ·ΡΠ².
.
ΠΠΎΠ»Π½ΠΎΠ΅ ΡΡΠΊΠΎΠ²ΠΎΠ΄ΡΡΠ²ΠΎ ΠΏΠΎ ΠΊΠ½ΠΈΠ³Π΅ VBA
Β«ΠΡ ΡΠΎΠ½Π΅ΠΌ Π² ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΈ, Π½ΠΎ Π³ΠΎΠ»ΠΎΠ΄Π°Π΅ΠΌΒ». - ΠΠΆΠΎΠ½ ΠΠ΅ΠΉΡΠ±ΠΈΡΡ
ΠΡΠΎΡ ΠΏΠΎΡΡ ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»ΡΠ΅Ρ ΡΠΎΠ±ΠΎΠΉ ΠΏΠΎΠ»Π½ΠΎΠ΅ ΡΡΠΊΠΎΠ²ΠΎΠ΄ΡΡΠ²ΠΎ ΠΏΠΎ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΡ ΠΊΠ½ΠΈΠ³ΠΈ VBA.
ΠΡΠ»ΠΈ Π²Ρ Ρ ΠΎΡΠΈΡΠ΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ VBA Π΄Π»Ρ . ΠΡΠΊΡΠΎΠΉΡΠ΅ ΠΊΠ½ΠΈΠ³Ρ , Π·Π°ΡΠ΅ΠΌ ΠΎΠ·Π½Π°ΠΊΠΎΠΌΡΡΠ΅ΡΡ Ρ Open Workbook
.
ΠΡΠ»ΠΈ Π²Ρ Ρ ΠΎΡΠΈΡΠ΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ VBA Π΄Π»Ρ , ΡΠΎΠ·Π΄Π°ΠΉΡΠ΅ Π½ΠΎΠ²ΡΡ ΠΊΠ½ΠΈΠ³Ρ , ΠΏΠ΅ΡΠ΅ΠΉΠ΄ΠΈΡΠ΅ Π² Create New Workbook
ΠΠ»Ρ Π²ΡΠ΅Ρ Π΄ΡΡΠ³ΠΈΡ Π·Π°Π΄Π°Ρ ΠΊΠ½ΠΈΠ³ΠΈ VBA, ΠΎΠ·Π½Π°ΠΊΠΎΠΌΡΡΠ΅ΡΡ Ρ ΠΊΡΠ°ΡΠΊΠΈΠΌ ΡΡΠΊΠΎΠ²ΠΎΠ΄ΡΡΠ²ΠΎΠΌ Π½ΠΈΠΆΠ΅ .
ΠΡΠ°ΡΠΊΠΎΠ΅ ΡΡΠΊΠΎΠ²ΠΎΠ΄ΡΡΠ²ΠΎ ΠΊ ΠΊΠ½ΠΈΠ³Π΅ VBA
Π ΡΠ»Π΅Π΄ΡΡΡΠ΅ΠΉ ΡΠ°Π±Π»ΠΈΡΠ΅ ΠΏΡΠΈΠ²Π΅Π΄Π΅Π½Ρ ΠΊΡΠ°ΡΠΊΠΈΠ΅ ΠΈΠ½ΡΡΡΡΠΊΡΠΈΠΈ ΠΏΠΎ ΠΎΡΠ½ΠΎΠ²Π½ΡΠΌ Π·Π°Π΄Π°ΡΠ°ΠΌ ΠΊΠ½ΠΈΠ³ΠΈ VBA.
ΠΠ°Π΄Π°ΡΠ° | ΠΠ°ΠΊ Π²ΡΠΏΠΎΠ»Π½ΠΈΡΡ |
---|---|
ΠΠΎΡΡΡΠΏ ΠΊ ΠΎΡΠΊΡΡΡΠΎΠΉ ΠΊΠ½ΠΈΠ³Π΅ Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ΠΌ ΠΈΠΌΠ΅Π½ΠΈ | Π Π°Π±ΠΎΡΠΈΠ΅ ΠΊΠ½ΠΈΠ³ΠΈ (Β«Example.xlsxΒ») |
ΠΡΠΊΡΡΡΠ°Ρ ΠΊΠ½ΠΈΠ³Π° Π΄ΠΎΡΡΡΠΏΠ° (ΠΏΠ΅ΡΠ²Π°Ρ ΠΎΡΠΊΡΡΠ²Π°Π΅ΠΌΠ°Ρ) | Π Π°Π±ΠΎΡΠΈΠ΅ ΡΠ΅ΡΡΠ°Π΄ΠΈ (1) |
ΠΡΠΊΡΡΡΠ°Ρ ΡΠ°Π±ΠΎΡΠ°Ρ ΠΊΠ½ΠΈΠ³Π° Π΄ΠΎΡΡΡΠΏΠ° (ΠΏΠΎΡΠ»Π΅Π΄Π½ΡΡ ΠΎΡΠΊΡΡΡΠ°Ρ) | Π Π°Π±ΠΎΡΠΈΠ΅ ΠΊΠ½ΠΈΠ³ΠΈ (Workbooks.Π‘ΡΠ΅ΡΡΠΈΠΊ) |
ΠΠΎΡΡΡΠΏ ΠΊ Π°ΠΊΡΠΈΠ²Π½ΠΎΠΉ ΠΊΠ½ΠΈΠ³Π΅ | ActiveWorkbook |
ΠΠΎΡΡΡΠΏ ΠΊ ΠΊΠ½ΠΈΠ³Π΅, ΡΠΎΠ΄Π΅ΡΠΆΠ°ΡΠ΅ΠΉ ΠΊΠΎΠ΄ VBA | ThisWorkbook |
ΠΠ±ΡΡΠ²ΠΈΡΡ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ ΠΊΠ½ΠΈΠ³ΠΈ | Dim wk As Workbook |
ΠΠ°Π·Π½Π°ΡΡΡΠ΅ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ ΠΊΠ½ΠΈΠ³ΠΈ | Π£ΡΡΠ°Π½ΠΎΠ²ΠΈΡΡ wk = Workbooks ("Example.xlsx") Set wk = ThisWorkbook Set wk = Workbooks (1) |
ΠΠΊΡΠΈΠ²ΠΈΡΠΎΠ²Π°ΡΡ ΠΊΠ½ΠΈΠ³Ρ | Π½Π΅Π΄. ΠΠΊΡΠΈΠ²ΠΈΡΠΎΠ²Π°ΡΡ |
ΠΠ°ΠΊΡΡΡΡ ΠΊΠ½ΠΈΠ³Ρ Π±Π΅Π· ΡΠΎΡ ΡΠ°Π½Π΅Π½ΠΈΡ | Π½Π΅Π΄.ΠΠ°ΠΊΡΡΡΡ SaveChanges: = False |
ΠΠ°ΠΊΡΠΎΠΉΡΠ΅ ΠΊΠ½ΠΈΠ³Ρ ΠΈ ΡΠΎΡ ΡΠ°Π½ΠΈΡΠ΅ | Π½Π΅Π΄. ΠΠ°ΠΊΡΡΡΡ SaveChanges: = True |
Π‘ΠΎΠ·Π΄Π°ΡΡ Π½ΠΎΠ²ΡΡ ΠΊΠ½ΠΈΠ³Ρ | Π£ΡΡΠ°Π½ΠΎΠ²ΠΈΡΡ wk = Workbooks.Add |
ΠΡΠΊΡΡΡΡ ΠΊΠ½ΠΈΠ³Ρ | Π£ΡΡΠ°Π½ΠΎΠ²ΠΈΡΡ wk = Workbooks.Open ("C: \ Docs \ Example.xlsx") |
ΠΡΠΊΡΡΡΡ ΠΊΠ½ΠΈΠ³Ρ ΡΠΎΠ»ΡΠΊΠΎ Π΄Π»Ρ ΡΡΠ΅Π½ΠΈΡ | Π£ΡΡΠ°Π½ΠΎΠ²ΠΈΡΡ wk = Workbooks.Open ("C: \ Docs \ Example.xlsx", ReadOnly: = True) |
ΠΠ½ΠΈΠ³Π° ΡΠ΅ΠΊΠΎΠ² ΡΡΡΠ΅ΡΡΠ²ΡΠ΅Ρ | ΠΡΠ»ΠΈ Dir ("C: \ Docs \ book1.xlsx ") =" "Π’ΠΎΠ³Π΄Π° MsgBox" Π€Π°ΠΉΠ» Π½Π΅ ΡΡΡΠ΅ΡΡΠ²ΡΠ΅Ρ. " EndIf |
ΠΠ½ΠΈΠ³Π° ΡΠ΅ΠΊΠΎΠ² ΠΎΡΠΊΡΡΡΠ° | Π‘ΠΌ. Π Π°Π·Π΄Π΅Π» Β«ΠΡΠΊΡΡΡΡ ΠΊΠ½ΠΈΠ³Ρ ΡΠ΅ΠΊΠΎΠ²Β» Π½ΠΈΠΆΠ΅ |
Π‘ΠΏΠΈΡΠΎΠΊ Π²ΡΠ΅Ρ ΠΎΡΠΊΡΡΡΡΡ ΠΊΠ½ΠΈΠ³ | ΠΠ»Ρ ΠΊΠ°ΠΆΠ΄ΠΎΠΉ Π½Π΅Π΄Π΅Π»ΠΈ Π² Application.Workbooks Debug.Print wk.FullName Next wk |
ΠΡΠΊΡΡΡΡ ΠΊΠ½ΠΈΠ³Ρ Ρ ΠΏΠΎΠΌΠΎΡΡΡ Π΄ΠΈΠ°Π»ΠΎΠ³ΠΎΠ²ΠΎΠ³ΠΎ ΠΎΠΊΠ½Π° Β«Π€Π°ΠΉΠ»Β» | Π‘ΠΌ. Π Π°Π·Π΄Π΅Π» Β«ΠΠΈΠ°Π»ΠΎΠ³ ΡΠ°ΠΉΠ»Π°Β» Π½ΠΈΠΆΠ΅, ΡΡΠ½ΠΊΡΠΈΡ Π½ΠΈΠΆΠ΅ |
Π‘ΠΎΡ ΡΠ°Π½ΠΈΡΡ ΠΊΠ½ΠΈΠ³Ρ | Π½Π΅Π΄. Π‘ΠΎΡ ΡΠ°Π½ΠΈΡΡ |
Π‘ΠΎΡ ΡΠ°Π½ΠΈΡΡ ΠΊΠΎΠΏΠΈΡ ΠΊΠ½ΠΈΠ³ΠΈ | Π½Π΅Π΄.SaveCopyAs "C: \ Copy.xlsm" |
ΠΠΎΠΏΠΈΡΠΎΠ²Π°ΡΡ ΠΊΠ½ΠΈΠ³Ρ, Π΅ΡΠ»ΠΈ Π·Π°ΠΊΡΡΡΠ° | FileCopy Β«C: \ file1.xlsxΒ», Β«C: \ Copy.xlsxΒ» |
ΠΠ½ΠΈΠ³Π° Β«Π‘ΠΎΡ ΡΠ°Π½ΠΈΡΡ ΠΊΠ°ΠΊΒ» | wk.SaveAs Β«Backup.xlsxΒ» |
ΠΠ΅Π±-ΡΠ΅ΠΌΠΈΠ½Π°Ρ ΠΏΠΎ ΡΠ°Π±ΠΎΡΠΈΠΌ ΠΊΠ½ΠΈΠ³Π°ΠΌ VBA
ΠΡΠ»ΠΈ Π²Ρ ΡΠ²Π»ΡΠ΅ΡΠ΅ΡΡ ΡΡΠ°ΡΡΠ½ΠΈΠΊΠΎΠΌ Π²Π΅Π±-ΡΠ°ΠΉΡΠ°, ΡΠ΅Π»ΠΊΠ½ΠΈΡΠ΅ ΠΈΠ·ΠΎΠ±ΡΠ°ΠΆΠ΅Π½ΠΈΠ΅ Π½ΠΈΠΆΠ΅, ΡΡΠΎΠ±Ρ ΠΏΠ΅ΡΠ΅ΠΉΡΠΈ ΠΊ Π²Π΅Π±-ΡΠ΅ΠΌΠΈΠ½Π°ΡΡ.
( ΠΡΠΈΠΌΠ΅ΡΠ°Π½ΠΈΠ΅: ΡΡΠ°ΡΡΠ½ΠΈΠΊΠΈ Π²Π΅Π±-ΡΠ°ΠΉΡΠ° ΠΈΠΌΠ΅ΡΡ Π΄ΠΎΡΡΡΠΏ ΠΊ ΠΏΠΎΠ»Π½ΠΎΠΌΡ Π°ΡΡ ΠΈΠ²Ρ Π²Π΅Π±ΠΈΠ½Π°ΡΠΎΠ².)
ΠΠ°ΡΠ°Π»ΠΎ ΡΠ°Π±ΠΎΡΡ Ρ ΠΊΠ½ΠΈΠ³ΠΎΠΉ VBA
ΠΡ ΠΌΠΎΠΆΠ΅ΠΌ ΠΏΠΎΠ»ΡΡΠΈΡΡ Π΄ΠΎΡΡΡΠΏ ΠΊ Π»ΡΠ±ΠΎΠΉ ΠΎΡΠΊΡΡΡΠΎΠΉ ΡΠ°Π±ΠΎΡΠ΅ΠΉ ΠΊΠ½ΠΈΠ³Π΅ , ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΡ ΠΊΠΎΠ΄ Workbooks ( Β«ΠΡΠΈΠΌΠ΅Ρ .xlsm β ). ΠΡΠΎΡΡΠΎ Π·Π°ΠΌΠ΅Π½ΠΈΡΠ΅ Example.xlsm Π½Π° ΠΈΠΌΡ ΠΊΠ½ΠΈΠ³ΠΈ, ΠΊΠΎΡΠΎΡΡΡ Π²Ρ Ρ ΠΎΡΠΈΡΠ΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ.
Π ΡΠ»Π΅Π΄ΡΡΡΠ΅ΠΌ ΠΏΡΠΈΠΌΠ΅ΡΠ΅ ΠΏΠΎΠΊΠ°Π·Π°Π½ΠΎ, ΠΊΠ°ΠΊ ΠΏΠΈΡΠ°ΡΡ Π² ΡΡΠ΅ΠΉΠΊΡ Π½Π° Π»ΠΈΡΡΠ΅. ΠΡ Π·Π°ΠΌΠ΅ΡΠΈΡΠ΅, ΡΡΠΎ Π½Π°ΠΌ ΠΏΡΠΈΡΠ»ΠΎΡΡ ΡΠΊΠ°Π·Π°ΡΡ ΠΊΠ½ΠΈΠ³Ρ, Π»ΠΈΡΡ ΠΈ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ ΡΡΠ΅Π΅ΠΊ.
https://excelmacromastery.com/ ΠΡΠ±Π»ΠΈΡΠ½Π°Ρ ΠΏΠΎΠ΄ΠΏΠΈΡΠΊΠ° WriteToA1 () 'ΠΠ°ΠΏΠΈΡΡΠ²Π°Π΅Ρ 100 Π² ΡΡΠ΅ΠΉΠΊΡ A1 ΡΠ°Π±ΠΎΡΠ΅Π³ΠΎ Π»ΠΈΡΡΠ° "Sheet1" Π² MyVBA.xlsm. Π Π°Π±ΠΎΡΠΈΠ΅ ΡΠ΅ΡΡΠ°Π΄ΠΈ ("MyVBA.xlsm"). Π Π°Π±ΠΎΡΠΈΠ΅ Π»ΠΈΡΡΡ ("Sheet1").ΠΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ ("A1") = 100 ΠΠΎΠ½Π΅Ρ ΠΏΠΎΠ΄ΠΏΠΈΡΠΊΠΈ
ΠΡΠΎΡ ΠΏΡΠΈΠΌΠ΅Ρ ΠΌΠΎΠΆΠ΅Ρ Π½Π΅ΠΌΠ½ΠΎΠ³ΠΎ ΡΠ±ΠΈΡΡ Ρ ΡΠΎΠ»ΠΊΡ Π½ΠΎΠ²ΠΎΠ³ΠΎ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ, Π½ΠΎ Π½Π° ΡΠ°ΠΌΠΎΠΌ Π΄Π΅Π»Π΅ ΠΎΠ½ Π΄ΠΎΠ²ΠΎΠ»ΡΠ½ΠΎ ΠΏΡΠΎΡΡ.
ΠΠ΅ΡΠ²Π°Ρ ΡΠ°ΡΡΡ Π΄ΠΎ Π΄Π΅ΡΡΡΠΈΡΠ½ΠΎΠΉ ΡΠΎΡΠΊΠΈ - ΡΡΠΎ ΡΠ°Π±ΠΎΡΠ°Ρ ΠΊΠ½ΠΈΠ³Π°, Π²ΡΠΎΡΠ°Ρ ΡΠ°ΡΡΡ - ΡΡΠΎ ΡΠ°Π±ΠΎΡΠΈΠΉ Π»ΠΈΡΡ, Π° ΡΡΠ΅ΡΡΡ - ΡΡΠΎ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½. ΠΠΎΡ Π΅ΡΠ΅ Π½Π΅ΡΠΊΠΎΠ»ΡΠΊΠΎ ΠΏΡΠΈΠΌΠ΅ΡΠΎΠ² Π·Π°ΠΏΠΈΡΠΈ Π² ΡΡΠ΅ΠΉΠΊΡ
https://excelmacromastery.com/ ΠΡΠ±Π»ΠΈΡΠ½Π°Ρ ΠΏΠΎΠ΄ΠΏΠΈΡΠΊΠ° WriteToMulti () 'ΠΠ°ΠΏΠΈΡΡΠ²Π°Π΅Ρ 100 Π² ΡΡΠ΅ΠΉΠΊΡ A1 ΡΠ°Π±ΠΎΡΠ΅Π³ΠΎ Π»ΠΈΡΡΠ° "Sheet1" Π² MyVBA.xlsm. Π Π°Π±ΠΎΡΠΈΠ΅ ΡΠ΅ΡΡΠ°Π΄ΠΈ ("MyVBA.xlsm "). Π Π°Π±ΠΎΡΠΈΠ΅ Π»ΠΈΡΡΡ (" Sheet1 "). ΠΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ (" A1 ") = 100 'ΠΠ°ΠΏΠΈΡΡΠ²Π°Π΅Ρ Β«ΠΠΆΠΎΠ½Β» Π² ΡΡΠ΅ΠΉΠΊΡ B1 ΡΠ°Π±ΠΎΡΠ΅Π³ΠΎ Π»ΠΈΡΡΠ° Β«Sheet1Β» Π² MyVBA.xlsm. Π Π°Π±ΠΎΡΠΈΠ΅ ΠΊΠ½ΠΈΠ³ΠΈ ("MyVBA.xlsm"). Π Π°Π±ΠΎΡΠΈΠ΅ Π»ΠΈΡΡΡ ("Sheet1"). Range ("B1") = "John" 'ΠΠ°ΠΏΠΈΡΡΠ²Π°Π΅Ρ 100 Π² ΡΡΠ΅ΠΉΠΊΡ A1 ΡΠ°Π±ΠΎΡΠ΅Π³ΠΎ Π»ΠΈΡΡΠ° Β«Π£ΡΠ΅ΡΠ½ΡΠ΅ Π·Π°ΠΏΠΈΡΠΈΒ» Π² MyVBA.xlsm. Π Π°Π±ΠΎΡΠΈΠ΅ ΠΊΠ½ΠΈΠ³ΠΈ ("MyVBA.xlsm"). Π Π°Π±ΠΎΡΠΈΠ΅ Π»ΠΈΡΡΡ ("Π£ΡΠ΅ΡΠ½ΡΠ΅ Π·Π°ΠΏΠΈΡΠΈ"). ΠΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ ("A1") = 100 'ΠΠ°ΠΏΠΈΡΡΠ²Π°Π΅Ρ Π΄Π°ΡΡ Π² ΡΡΠ΅ΠΉΠΊΡ D3 ΡΠ°Π±ΠΎΡΠ΅Π³ΠΎ Π»ΠΈΡΡΠ° Sheet2 Π² Book.xlsc Π Π°Π±ΠΎΡΠΈΠ΅ ΠΊΠ½ΠΈΠ³ΠΈ ("Book.xlsx"). Π Π°Π±ΠΎΡΠΈΠ΅ Π»ΠΈΡΡΡ ("Sheet2"). Range ("D3") = "1 \ 1 \ 2016" ΠΠΎΠ½Π΅Ρ ΠΏΠΎΠ΄ΠΏΠΈΡΠΊΠΈ
ΠΠ΄Π΅ΡΡ Π²Ρ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΡΠ²ΠΈΠ΄Π΅ΡΡ ΠΏΡΠΎΡΡΠΎΠΉ ΡΠ°Π±Π»ΠΎΠ½.ΠΡ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΠΏΠΈΡΠ°ΡΡ Π² Π»ΡΠ±ΡΡ ΡΡΠ΅ΠΉΠΊΡ Π½Π° Π»ΡΠ±ΠΎΠΌ Π»ΠΈΡΡΠ΅ ΠΈΠ· Π»ΡΠ±ΠΎΠΉ ΠΊΠ½ΠΈΠ³ΠΈ. ΠΡΠΎΡΡΠΎ ΠΈΠ·ΠΌΠ΅Π½ΠΈΡΠ΅ ΠΈΠΌΡ ΠΊΠ½ΠΈΠ³ΠΈ, ΠΈΠΌΡ Π»ΠΈΡΡΠ° ΠΈ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ Π² ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΠΈΠΈ Ρ Π²Π°ΡΠΈΠΌΠΈ ΠΏΠΎΡΡΠ΅Π±Π½ΠΎΡΡΡΠΌΠΈ.
ΠΠ·Π³Π»ΡΠ½ΠΈΡΠ΅ Π½Π° ΡΠ°ΡΡΡ ΡΠ°Π±ΠΎΡΠ΅ΠΉ ΡΠ΅ΡΡΠ°Π΄ΠΈ
ΠΠ½ΠΈΠ³ΠΈ ("Example.xlsx")
ΠΠ»ΡΡΠ΅Π²ΠΎΠ΅ ΡΠ»ΠΎΠ²ΠΎ Workbooks ΠΎΡΠ½ΠΎΡΠΈΡΡΡ ΠΊ ΡΠΎΠ²ΠΎΠΊΡΠΏΠ½ΠΎΡΡΠΈ Π²ΡΠ΅Ρ ΠΎΡΠΊΡΡΡΡΡ ΠΊΠ½ΠΈΠ³. ΠΠΎΠ±Π°Π²Π»Π΅Π½ΠΈΠ΅ ΠΈΠΌΠ΅Π½ΠΈ ΠΊΠ½ΠΈΠ³ΠΈ Π² ΠΊΠΎΠ»Π»Π΅ΠΊΡΠΈΡ Π΄Π°Π΅Ρ Π½Π°ΠΌ Π΄ΠΎΡΡΡΠΏ ΠΊ ΡΡΠΎΠΉ ΠΊΠ½ΠΈΠ³Π΅. ΠΠΎΠ³Π΄Π° Ρ Π½Π°Ρ Π΅ΡΡΡ ΠΎΠ±ΡΠ΅ΠΊΡ, ΠΌΡ ΠΌΠΎΠΆΠ΅ΠΌ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ Π΅Π³ΠΎ Π΄Π»Ρ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΡ Π·Π°Π΄Π°Ρ Ρ ΠΊΠ½ΠΈΠ³ΠΎΠΉ.
Π£ΡΡΡΠ°Π½Π΅Π½ΠΈΠ΅ Π½Π΅ΠΏΠΎΠ»Π°Π΄ΠΎΠΊ Ρ ΠΊΠΎΠ»Π»Π΅ΠΊΡΠΈΠ΅ΠΉ ΠΊΠ½ΠΈΠ³
ΠΡΠΈ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠΈ ΠΊΠΎΠ»Π»Π΅ΠΊΡΠΈΠΈ ΠΊΠ½ΠΈΠ³ Π΄Π»Ρ Π΄ΠΎΡΡΡΠΏΠ° ΠΊ ΠΊΠ½ΠΈΠ³Π΅ ΠΌΠΎΠΆΠ΅Ρ ΠΏΠΎΡΠ²ΠΈΡΡΡΡ ΡΠΎΠΎΠ±ΡΠ΅Π½ΠΈΠ΅ ΠΎΠ± ΠΎΡΠΈΠ±ΠΊΠ΅:
ΠΡΠΈΠ±ΠΊΠ° Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΡ 9: ΠΈΠ½Π΄Π΅ΠΊΡ Π²Π½Π΅ Π΄ΠΎΠΏΡΡΡΠΈΠΌΠΎΠ³ΠΎ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½Π°.
ΠΡΠΎ ΠΎΠ·Π½Π°ΡΠ°Π΅Ρ, ΡΡΠΎ VBA Π½Π΅ ΠΌΠΎΠΆΠ΅Ρ Π½Π°ΠΉΡΠΈ ΠΊΠ½ΠΈΠ³Ρ, ΠΊΠΎΡΠΎΡΡΡ Π²Ρ ΠΏΠ΅ΡΠ΅Π΄Π°Π»ΠΈ Π² ΠΊΠ°ΡΠ΅ΡΡΠ²Π΅ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΠ°.
ΠΡΠΎ ΠΌΠΎΠΆΠ΅Ρ ΠΏΡΠΎΠΈΠ·ΠΎΠΉΡΠΈ ΠΏΠΎ ΡΠ»Π΅Π΄ΡΡΡΠΈΠΌ ΠΏΡΠΈΡΠΈΠ½Π°ΠΌ
- ΠΠ½ΠΈΠ³Π° Π² Π½Π°ΡΡΠΎΡΡΠ΅Π΅ Π²ΡΠ΅ΠΌΡ Π·Π°ΠΊΡΡΡΠ°.
- ΠΡ Π½Π΅ΠΏΡΠ°Π²ΠΈΠ»ΡΠ½ΠΎ Π½Π°ΠΏΠΈΡΠ°Π»ΠΈ ΠΈΠΌΡ.
- ΠΡ ΡΠΎΠ·Π΄Π°Π»ΠΈ Π½ΠΎΠ²ΡΡ ΠΊΠ½ΠΈΠ³Ρ (e.Π³. Book1) ΠΈ ΠΏΠΎΠΏΡΡΠ°Π»ΡΡ ΠΏΠΎΠ»ΡΡΠΈΡΡ ΠΊ Π½Π΅ΠΌΡ Π΄ΠΎΡΡΡΠΏ Ρ ΠΏΠΎΠΌΠΎΡΡΡ Workbooks (Β«Book1.xlsxΒ»). ΠΠ³ΠΎ ΠΈΠΌΡ Π½Π΅ Book1.xlsx , ΠΏΠΎΠΊΠ° ΠΎΠ½ΠΎ Π½Π΅ Π±ΡΠ΄Π΅Ρ ΡΠΎΡ ΡΠ°Π½Π΅Π½ΠΎ Π² ΠΏΠ΅ΡΠ²ΡΠΉ ΡΠ°Π·.
- (ΡΠΎΠ»ΡΠΊΠΎ Excel 2007/2010) ΠΡΠ»ΠΈ Π²Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΠ΅ Π΄Π²Π° ΡΠΊΠ·Π΅ΠΌΠΏΠ»ΡΡΠ° Excel, ΡΠΎ Β«ΠΠ½ΠΈΠ³ΠΈΒ» () ΠΎΡΠ½ΠΎΡΡΡΡΡ ΡΠΎΠ»ΡΠΊΠΎ ΠΊ ΠΊΠ½ΠΈΠ³Π°ΠΌ, ΠΎΡΠΊΡΡΡΡΠΌ Π² ΡΠ΅ΠΊΡΡΠ΅ΠΌ ΡΠΊΠ·Π΅ΠΌΠΏΠ»ΡΡΠ΅ Excel.
- ΠΡ ΠΏΠ΅ΡΠ΅Π΄Π°Π»ΠΈ ΡΠΈΡΠ»ΠΎ Π² ΠΊΠ°ΡΠ΅ΡΡΠ²Π΅ ΠΈΠ½Π΄Π΅ΠΊΡΠ°, ΠΈ ΠΎΠ½ΠΎ Π±ΠΎΠ»ΡΡΠ΅, ΡΠ΅ΠΌ ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ ΠΎΡΠΊΡΡΡΡΡ ΠΊΠ½ΠΈΠ³, Π½Π°ΠΏΡΠΈΠΌΠ΅Ρ Π²Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π»ΠΈ ΡΠ°Π±ΠΎΡΠΈΠ΅ ΠΊΠ½ΠΈΠ³ΠΈ (3), ΠΈ ΠΎΡΠΊΡΡΡΡ ΡΠΎΠ»ΡΠΊΠΎ Π΄Π²Π΅ ΠΊΠ½ΠΈΠ³ΠΈ.
ΠΡΠ»ΠΈ Π½Π΅ ΡΠ΄Π°Π΅ΡΡΡ ΡΡΡΡΠ°Π½ΠΈΡΡ ΠΎΡΠΈΠ±ΠΊΡ, Π²ΠΎΡΠΏΠΎΠ»ΡΠ·ΡΠΉΡΠ΅ΡΡ Π»ΡΠ±ΠΎΠΉ ΠΈΠ· ΡΡΠ½ΠΊΡΠΈΠΉ ΠΈΠ· ΡΠ°Π·Π΄Π΅Π»Π° Β«ΠΠΎΠΈΡΠΊ Π²ΡΠ΅Ρ ΠΎΡΠΊΡΡΡΡΡ ΠΊΠ½ΠΈΠ³Β».ΠΠ½ΠΈ Π½Π°ΠΏΠ΅ΡΠ°ΡΠ°ΡΡ ΠΈΠΌΠ΅Π½Π° Π²ΡΠ΅Ρ ΠΎΡΠΊΡΡΡΡΡ ΠΊΠ½ΠΈΠ³ Π² ΠΎΠΊΠ½Π΅ Π½Π΅ΠΌΠ΅Π΄Π»Π΅Π½Π½ΠΎΠ³ΠΎ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΡ (Ctrl + G).
ΠΡΠΈΠΌΠ΅ΡΡ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΡ ΠΊΠ½ΠΈΠ³ΠΈ VBA
Π‘Π»Π΅Π΄ΡΡΡΠΈΠ΅ ΠΏΡΠΈΠΌΠ΅ΡΡ ΠΏΠΎΠΊΠ°Π·ΡΠ²Π°ΡΡ, ΡΡΠΎ Π²Ρ ΠΌΠΎΠΆΠ΅ΡΠ΅ Π΄Π΅Π»Π°ΡΡ Ρ ΠΊΠ½ΠΈΠ³ΠΎΠΉ.
ΠΡΠΈΠΌΠ΅ΡΠ°Π½ΠΈΠ΅: Π§ΡΠΎΠ±Ρ ΠΏΠΎΠΏΡΠΎΠ±ΠΎΠ²Π°ΡΡ ΡΡΠΎΡ ΠΏΡΠΈΠΌΠ΅Ρ, ΡΠΎΠ·Π΄Π°ΠΉΡΠ΅ Π΄Π²Π΅ ΠΎΡΠΊΡΡΡΡΠ΅ ΠΊΠ½ΠΈΠ³ΠΈ Ρ ΠΈΠΌΠ΅Π½Π°ΠΌΠΈ Test1.xlsx ΠΈ Test2.xlsx .
https://excelmacromastery.com/ Public Sub WorkbookProperties () 'ΠΠ΅ΡΠ°ΡΠ°Π΅Ρ ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ ΠΎΡΠΊΡΡΡΡΡ ΠΊΠ½ΠΈΠ³ ΠΡΠ»Π°ΠΆΠΈΠ²Π°ΡΡ.Π Π°ΡΠΏΠ΅ΡΠ°ΡΠ°ΡΡ Workbooks.Count 'ΠΠ΅ΡΠ°ΡΠ°Π΅Ρ ΠΏΠΎΠ»Π½ΠΎΠ΅ ΠΈΠΌΡ ΠΊΠ½ΠΈΠ³ΠΈ Debug.Print Workbooks ("Test1.xlsx"). FullName 'ΠΡΠΎΠ±ΡΠ°ΠΆΠ°Π΅Ρ ΠΏΠΎΠ»Π½ΠΎΠ΅ ΠΈΠΌΡ ΠΊΠ½ΠΈΠ³ΠΈ Π² Π΄ΠΈΠ°Π»ΠΎΠ³ΠΎΠ²ΠΎΠΌ ΠΎΠΊΠ½Π΅ ΡΠΎΠΎΠ±ΡΠ΅Π½ΠΈΡ ΠΠ½ΠΈΠ³ΠΈ MsgBox ("Test1.xlsx"). FullName 'ΠΠ΅ΡΠ°ΡΠ°Π΅Ρ ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ Π»ΠΈΡΡΠΎΠ² Π² Test2.xlsx Debug.Print Workbooks ("Test2.xlsx"). Worksheets.Count 'ΠΠ΅ΡΠ°ΡΠ°Π΅Ρ ΠΈΠΌΡ ΡΠ΅ΠΊΡΡΠ΅Π³ΠΎ Π°ΠΊΡΠΈΠ²Π½ΠΎΠ³ΠΎ Π»ΠΈΡΡΠ° Test2.xlsx Debug.Print Workbooks ("Test2.xlsx"). ActiveSheet.Name 'ΠΠ°ΠΊΡΡΠ²Π°Π΅Ρ ΠΊΠ½ΠΈΠ³Ρ ΠΏΠΎΠ΄ Π½Π°Π·Π²Π°Π½ΠΈΠ΅ΠΌ Test1.xlsx ΠΠ½ΠΈΠ³ΠΈ ("Test1.xlsx"). ΠΠ°ΠΊΡΡΡΡ 'ΠΠ°ΠΊΡΡΠ²Π°Π΅Ρ ΠΊΠ½ΠΈΠ³Ρ Test2.xlsx ΠΈ ΡΠΎΡ ΡΠ°Π½ΡΠ΅Ρ ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΡ ΠΠ½ΠΈΠ³ΠΈ ("Test2.xlsx"). ΠΠ°ΠΊΡΠΎΠΉΡΠ΅ SaveChanges: = True ΠΠΎΠ½Π΅Ρ ΠΏΠΎΠ΄ΠΏΠΈΡΠΊΠΈ
ΠΡΠΈΠΌΠ΅ΡΠ°Π½ΠΈΠ΅: Π ΠΏΡΠΈΠΌΠ΅ΡΠ°Ρ ΠΊΠΎΠ΄Π° Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΡ Debug.Print ΠΌΠ½ΠΎΠ³ΠΎ. ΠΡΠ° ΡΡΠ½ΠΊΡΠΈΡ ΠΏΠ΅ΡΠ°ΡΠ°Π΅Ρ Π·Π½Π°ΡΠ΅Π½ΠΈΡ Π² Π½Π΅ΠΏΠΎΡΡΠ΅Π΄ΡΡΠ²Π΅Π½Π½ΠΎΠΌ ΠΎΠΊΠ½Π΅. Π§ΡΠΎΠ±Ρ ΠΏΡΠΎΡΠΌΠΎΡΡΠ΅ΡΡ ΡΡΠΎ ΠΎΠΊΠ½ΠΎ, Π²ΡΠ±Π΅ΡΠΈΡΠ΅ Π² ΠΌΠ΅Π½Ρ View-> Immediate Window (ΡΠΎΡΠ΅ΡΠ°Π½ΠΈΠ΅ ΠΊΠ»Π°Π²ΠΈΡ Ctrl + G)
ΠΠΎΡΡΡΠΏ ΠΊ ΠΊΠ½ΠΈΠ³Π΅ VBA ΠΏΠΎ ΠΈΠ½Π΄Π΅ΠΊΡΡ
ΠΡ ΡΠ°ΠΊΠΆΠ΅ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ Π½ΠΎΠΌΠ΅Ρ Index Ρ Workbooks () . ΠΠ½Π΄Π΅ΠΊΡ ΠΎΡΠ½ΠΎΡΠΈΡΡΡ ΠΊ ΠΏΠΎΡΡΠ΄ΠΊΡ ΠΎΡΠΊΡΡΡΠΈΡ ΠΈΠ»ΠΈ ΡΠΎΠ·Π΄Π°Π½ΠΈΡ ΠΊΠ½ΠΈΠ³ΠΈ.
Π Π°Π±ΠΎΡΠΈΠ΅ ΠΊΠ½ΠΈΠ³ΠΈ (1) ΠΎΡΠ½ΠΎΡΡΡΡΡ ΠΊ ΠΊΠ½ΠΈΠ³Π΅, ΠΊΠΎΡΠΎΡΠ°Ρ Π±ΡΠ»Π° ΠΎΡΠΊΡΡΡΠ° ΠΏΠ΅ΡΠ²ΠΎΠΉ. Π Π°Π±ΠΎΡΠΈΠ΅ ΠΊΠ½ΠΈΠ³ΠΈ (2) ΠΎΡΠ½ΠΎΡΡΡΡΡ ΠΊ ΠΊΠ½ΠΈΠ³Π΅, ΠΊΠΎΡΠΎΡΠ°Ρ Π±ΡΠ»Π° ΠΎΡΠΊΡΡΡΠ° Π²ΡΠΎΡΠΎΠΉ, ΠΈ ΡΠ°ΠΊ Π΄Π°Π»Π΅Π΅.
'ΠΠ΅ΡΠ²Π°Ρ ΠΎΡΠΊΡΡΡΠ°Ρ ΡΠ°Π±ΠΎΡΠ°Ρ ΡΠ΅ΡΡΠ°Π΄Ρ ΠΡΠ»Π°Π΄ΠΊΠ°. ΠΠ΅ΡΠ°ΡΡ ΠΊΠ½ΠΈΠ³ (1). ΠΠΌΡ 'Π’ΡΠ΅ΡΡΡ ΠΎΡΠΊΡΡΡΠ°Ρ ΡΠ°Π±ΠΎΡΠ°Ρ ΡΠ΅ΡΡΠ°Π΄Ρ ΠΡΠ»Π°Π΄ΠΊΠ°. ΠΠ΅ΡΠ°ΡΡ ΠΊΠ½ΠΈΠ³ (3). ΠΠΌΡ 'ΠΠΎΡΠ»Π΅Π΄Π½ΡΡ ΠΎΡΠΊΡΡΡΠ°Ρ ΡΠ°Π±ΠΎΡΠ°Ρ ΡΠ΅ΡΡΠ°Π΄Ρ ΠΡΠ»Π°Π΄ΠΊΠ°.ΠΠ΅ΡΠ°ΡΡ ΠΊΠ½ΠΈΠ³ (Workbooks.Count) .Name
Π ΡΡΠΎΠΌ ΠΏΡΠΈΠΌΠ΅ΡΠ΅ ΠΌΡ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π»ΠΈ ΡΠ°Π±ΠΎΡΠΈΡ ΠΊΠ½ΠΈΠ³.ΠΠΎΠ΄ΡΡΠΈΡΠ°ΠΉΡΠ΅ . ΠΡΠΎ ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ ΠΊΠ½ΠΈΠ³, ΠΊΠΎΡΠΎΡΡΠ΅ Π² Π½Π°ΡΡΠΎΡΡΠ΅Π΅ Π²ΡΠ΅ΠΌΡ Π½Π°Ρ ΠΎΠ΄ΡΡΡΡ Π² ΠΊΠΎΠ»Π»Π΅ΠΊΡΠΈΠΈ Workbooks. Π’ΠΎ Π΅ΡΡΡ ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ ΡΠ°Π±ΠΎΡΠΈΡ ΠΊΠ½ΠΈΠ³, ΠΎΡΠΊΡΡΡΡΡ Π² Π΄Π°Π½Π½ΡΠΉ ΠΌΠΎΠΌΠ΅Π½Ρ. Π’Π°ΠΊΠΈΠΌ ΠΎΠ±ΡΠ°Π·ΠΎΠΌ, ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ Π΅Π³ΠΎ Π² ΠΊΠ°ΡΠ΅ΡΡΠ²Π΅ ΠΈΠ½Π΄Π΅ΠΊΡΠ° Π΄Π°Π΅Ρ Π½Π°ΠΌ ΠΏΠΎΡΠ»Π΅Π΄Π½ΡΡ ΠΎΡΠΊΡΡΡΡΡ ΠΊΠ½ΠΈΠ³Ρ
ΠΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ ΠΈΠ½Π΄Π΅ΠΊΡΠ° Π±Π΅ΡΠΏΠΎΠ»Π΅Π·Π½ΠΎ, Π΅ΡΠ»ΠΈ Π²Π°ΠΌ Π΄Π΅ΠΉΡΡΠ²ΠΈΡΠ΅Π»ΡΠ½ΠΎ Π½Π΅ Π½ΡΠΆΠ½ΠΎ Π·Π½Π°ΡΡ ΠΏΠΎΡΡΠ΄ΠΎΠΊ. ΠΠΎ ΡΡΠΎΠΉ ΠΏΡΠΈΡΠΈΠ½Π΅ Π²Π°ΠΌ ΡΠ»Π΅Π΄ΡΠ΅Ρ ΠΈΠ·Π±Π΅Π³Π°ΡΡ Π΅Π³ΠΎ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΡ. ΠΠΌΠ΅ΡΡΠΎ ΡΡΠΎΠ³ΠΎ ΡΠ»Π΅Π΄ΡΠ΅Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΠΈΠΌΡ ΠΊΠ½ΠΈΠ³ΠΈ Ρ Workbooks () .
ΠΠΎΠΈΡΠΊ Π²ΡΠ΅Ρ ΠΎΡΠΊΡΡΡΡΡ ΠΊΠ½ΠΈΠ³
ΠΠ½ΠΎΠ³Π΄Π° ΠΌΠΎΠΆΠ΅Ρ ΠΏΠΎΡΡΠ΅Π±ΠΎΠ²Π°ΡΡΡΡ ΠΏΠΎΠ»ΡΡΠΈΡΡ Π΄ΠΎΡΡΡΠΏ ΠΊΠΎ Π²ΡΠ΅ΠΌ ΠΎΡΠΊΡΡΡΡΠΌ ΠΊΠ½ΠΈΠ³Π°ΠΌ.ΠΡΡΠ³ΠΈΠΌΠΈ ΡΠ»ΠΎΠ²Π°ΠΌΠΈ, Π²ΡΠ΅ ΡΠ»Π΅ΠΌΠ΅Π½ΡΡ Π² ΠΊΠΎΠ»Π»Π΅ΠΊΡΠΈΠΈ Workbooks () .
ΠΡΠΎ ΠΌΠΎΠΆΠ½ΠΎ ΡΠ΄Π΅Π»Π°ΡΡ Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΡΠΈΠΊΠ»Π° For Each.
https://excelmacromastery.com/ ΠΠ±ΡΠ΅Π΄ΠΎΡΡΡΠΏΠ½Π°Ρ ΠΏΠΎΠ΄ΠΏΠΈΡΠΊΠ° PrintWrkFileName () 'Π Π°ΡΠΏΠ΅ΡΠ°ΡΡΠ²Π°Π΅Ρ ΠΏΠΎΠ»Π½ΠΎΠ΅ ΠΈΠΌΡ Π²ΡΠ΅Ρ ΠΎΡΠΊΡΡΡΡΡ ΠΊΠ½ΠΈΠ³ Dim wrk As Workbook ΠΠ»Ρ ΠΊΠ°ΠΆΠ΄ΠΎΠΉ ΡΠ°Π±ΠΎΡΡ Π² ΡΠ°Π±ΠΎΡΠΈΡ ΡΠ΅ΡΡΠ°Π΄ΡΡ Debug.Print wrk.FullName Π‘Π»Π΅Π΄ΡΡΡΠ°Ρ ΡΠ°Π±ΠΎΡΠ° ΠΠΎΠ½Π΅Ρ ΠΏΠΎΠ΄ΠΏΠΈΡΠΊΠΈ
ΠΡ ΡΠ°ΠΊΠΆΠ΅ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΡΡΠ°Π½Π΄Π°ΡΡΠ½ΡΠΉ ΡΠΈΠΊΠ» For Π΄Π»Ρ Π΄ΠΎΡΡΡΠΏΠ° ΠΊΠΎ Π²ΡΠ΅ΠΌ ΠΎΡΠΊΡΡΡΡΠΌ ΠΊΠ½ΠΈΠ³Π°ΠΌ
https: // excelmacromastery.com / ΠΠ±ΡΠ΅Π΄ΠΎΡΡΡΠΏΠ½ΡΠΉ Sub PrintWrkFileNameIdx () 'Π Π°ΡΠΏΠ΅ΡΠ°ΡΡΠ²Π°Π΅Ρ ΠΏΠΎΠ»Π½ΠΎΠ΅ ΠΈΠΌΡ Π²ΡΠ΅Ρ ΠΎΡΠΊΡΡΡΡΡ ΠΊΠ½ΠΈΠ³ Π’ΡΡΠΊΠ»ΡΠΉ Ρ ΠΊΠ°ΠΊ Π΄ΠΎΠ»Π³ΠΎ ΠΠ»Ρ i = 1 To Workbooks.Count ΠΡΠ»Π°Π΄ΠΊΠ°.ΠΠ΅ΡΠ°ΡΡ ΠΊΠ½ΠΈΠ³ (i) .FullName ΠΠ°Π»Π΅Π΅ Ρ ΠΠΎΠ½Π΅Ρ ΠΏΠΎΠ΄ΠΏΠΈΡΠΊΠΈ
ΠΠ»Ρ Π΄ΠΎΡΡΡΠΏΠ° ΠΊ ΠΊΠ½ΠΈΠ³Π°ΠΌ ΠΏΠΎΠ΄ΠΎΠΉΠ΄Π΅Ρ Π»ΡΠ±ΠΎΠΉ ΠΈΠ· ΡΡΠΈΡ ΡΠΈΠΊΠ»ΠΎΠ². Π‘ΡΠ°Π½Π΄Π°ΡΡΠ½ΡΠΉ ΡΠΈΠΊΠ» For ΠΏΠΎΠ»Π΅Π·Π΅Π½, Π΅ΡΠ»ΠΈ Π²Ρ Ρ ΠΎΡΠΈΡΠ΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ Π΄ΡΡΠ³ΠΎΠΉ ΠΏΠΎΡΡΠ΄ΠΎΠΊ ΠΈΠ»ΠΈ Π²Π°ΠΌ Π½ΡΠΆΠ½ΠΎ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΡΡΠ΅ΡΡΠΈΠΊ.
ΠΡΠΈΠΌΠ΅ΡΠ°Π½ΠΈΠ΅: ΠΠ±Π° ΠΏΡΠΈΠΌΠ΅ΡΠ° ΡΠΈΡΠ°ΡΡΡΡ Π² ΠΏΠΎΡΡΠ΄ΠΊΠ΅ ΠΎΡ ΠΏΠ΅ΡΠ²ΠΎΠ³ΠΎ ΠΎΡΠΊΡΡΡΠΎΠ³ΠΎ Π΄ΠΎ ΠΏΠΎΡΠ»Π΅Π΄Π½Π΅Π³ΠΎ ΠΎΡΠΊΡΡΡΠΎΠ³ΠΎ.ΠΡΠ»ΠΈ Π²Ρ Ρ ΠΎΡΠΈΡΠ΅ ΡΠΈΡΠ°ΡΡ Π² ΠΎΠ±ΡΠ°ΡΠ½ΠΎΠΌ ΠΏΠΎΡΡΠ΄ΠΊΠ΅ (ΠΎΡ ΠΏΠΎΡΠ»Π΅Π΄Π½Π΅Π³ΠΎ ΠΊ ΠΏΠ΅ΡΠ²ΠΎΠΌΡ), Π²Ρ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΡΠ΄Π΅Π»Π°ΡΡ ΡΡΠΎ
https://excelmacromastery.com/ ΠΠ±ΡΠ΅Π΄ΠΎΡΡΡΠΏΠ½Π°Ρ ΠΏΠΎΠ΄ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° PrintWrkFileNameIdxRev () 'Π Π°ΡΠΏΠ΅ΡΠ°ΡΡΠ²Π°Π΅Ρ ΠΏΠΎΠ»Π½ΠΎΠ΅ ΠΈΠΌΡ Π²ΡΠ΅Ρ ΠΎΡΠΊΡΡΡΡΡ ΠΊΠ½ΠΈΠ³ 'Π² ΠΎΠ±ΡΠ°ΡΠ½ΠΎΠΌ ΠΏΠΎΡΡΠ΄ΠΊΠ΅. Π’ΡΡΠΊΠ»ΡΠΉ Ρ ΠΊΠ°ΠΊ Π΄ΠΎΠ»Π³ΠΎ ΠΠ»Ρ i = Workbooks.Count To 1 Step -1 ΠΡΠ»Π°Π΄ΠΊΠ°.ΠΠ΅ΡΠ°ΡΡ ΠΊΠ½ΠΈΠ³ (i) .FullName ΠΠ°Π»Π΅Π΅ Ρ ΠΠΎΠ½Π΅Ρ ΠΏΠΎΠ΄ΠΏΠΈΡΠΊΠΈ
ΠΡΠΊΡΡΡΠ°Ρ ΡΠ°Π±ΠΎΡΠ°Ρ ΡΠ΅ΡΡΠ°Π΄Ρ
ΠΠΎ ΡΠΈΡ ΠΏΠΎΡ ΠΌΡ ΠΈΠΌΠ΅Π»ΠΈ Π΄Π΅Π»ΠΎ Ρ ΡΠΆΠ΅ ΠΎΡΠΊΡΡΡΡΠΌΠΈ ΠΊΠ½ΠΈΠ³Π°ΠΌΠΈ.ΠΠΎΠ½Π΅ΡΠ½ΠΎ, Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎΡΡΡ Π²ΡΡΡΠ½ΡΡ ΠΎΡΠΊΡΡΠ²Π°ΡΡ ΠΊΠ½ΠΈΠ³Ρ ΠΏΠ΅ΡΠ΅Π΄ Π·Π°ΠΏΡΡΠΊΠΎΠΌ ΠΌΠ°ΠΊΡΠΎΡΠ° Π½Π΅ ΠΏΠΎΠ·Π²ΠΎΠ»ΡΠ΅Ρ Π°Π²ΡΠΎΠΌΠ°ΡΠΈΠ·ΠΈΡΠΎΠ²Π°ΡΡ Π·Π°Π΄Π°ΡΠΈ. ΠΠ°Π΄Π°ΡΠ° Open Workbook Π΄ΠΎΠ»ΠΆΠ½Π° Π²ΡΠΏΠΎΠ»Π½ΡΡΡΡΡ VBA.
Π‘Π»Π΅Π΄ΡΡΡΠΈΠΉ ΠΊΠΎΠ΄ VBA ΠΎΡΠΊΡΡΠ²Π°Π΅Ρ ΠΊΠ½ΠΈΠ³Ρ Β«Book1.xlsmΒ» Π² ΠΏΠ°ΠΏΠΊΠ΅ Β«C: \ DocsΒ»
https://excelmacromastery.com/ ΠΡΠ±Π»ΠΈΡΠ½Π°Ρ ΠΏΠΎΠ΄ΠΏΠΈΡΠΊΠ° OpenWrk () 'ΠΡΠΊΡΠΎΠΉΡΠ΅ ΠΊΠ½ΠΈΠ³Ρ ΠΈ ΡΠ°ΡΠΏΠ΅ΡΠ°ΡΠ°ΠΉΡΠ΅ ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ Π»ΠΈΡΡΠΎΠ², ΠΊΠΎΡΠΎΡΡΠ΅ ΠΎΠ½Π° ΡΠΎΠ΄Π΅ΡΠΆΠΈΡ Workbooks.Open ("C: \ Docs \ Book1.xlsm") ΠΡΠ»Π°ΠΆΠΈΠ²Π°ΡΡ.ΠΠ΅ΡΠ°ΡΠ½ΡΠ΅ ΠΊΠ½ΠΈΠ³ΠΈ ("Book1.xlsm"). Worksheets.Count 'ΠΠ°ΠΊΡΠΎΠΉΡΠ΅ ΠΊΠ½ΠΈΠ³Ρ Π±Π΅Π· ΡΠΎΡ ΡΠ°Π½Π΅Π½ΠΈΡ ΠΠ½ΠΈΠ³ΠΈ ("Book1.xlsm"). ΠΠ°ΠΊΡΠΎΠΉΡΠ΅ saveChanges: = False ΠΠΎΠ½Π΅Ρ ΠΏΠΎΠ΄ΠΏΠΈΡΠΊΠΈ
Π Π΅ΠΊΠΎΠΌΠ΅Π½Π΄ΡΠ΅ΡΡΡ ΠΏΡΠΎΠ²Π΅ΡΠΈΡΡ, Π΄Π΅ΠΉΡΡΠ²ΠΈΡΠ΅Π»ΡΠ½ΠΎ Π»ΠΈ ΠΊΠ½ΠΈΠ³Π° ΡΡΡΠ΅ΡΡΠ²ΡΠ΅Ρ, ΠΏΡΠ΅ΠΆΠ΄Π΅ ΡΠ΅ΠΌ ΠΏΡΡΠ°ΡΡΡΡ Π΅Π΅ ΠΎΡΠΊΡΡΡΡ. ΠΡΠΎ ΠΏΡΠ΅Π΄ΠΎΡΠ²ΡΠ°ΡΠΈΡ ΠΏΠΎΡΠ²Π»Π΅Π½ΠΈΠ΅ ΠΎΡΠΈΠ±ΠΎΠΊ. Π€ΡΠ½ΠΊΡΠΈΡ Dir ΠΏΠΎΠ·Π²ΠΎΠ»ΡΠ΅Ρ Π»Π΅Π³ΠΊΠΎ ΡΡΠΎ ΡΠ΄Π΅Π»Π°ΡΡ.
https://excelmacromastery.com/ ΠΡΠ±Π»ΠΈΡΠ½Π°Ρ ΠΏΠΎΠ΄ΠΏΠΈΡΠΊΠ° OpenWrkDir () ΠΡΠ»ΠΈ Dir ("C: \ Docs \ Book1.xlsm ") =" "Π’ΠΎΠ³Π΄Π° 'Π€Π°ΠΉΠ» Π½Π΅ ΡΡΡΠ΅ΡΡΠ²ΡΠ΅Ρ - ΡΠΎΠΎΠ±ΡΠΈΡΡ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ MsgBox Β«ΠΠ΅ ΡΠ΄Π°Π»ΠΎΡΡ ΠΎΡΠΊΡΡΡΡ ΠΊΠ½ΠΈΠ³Ρ. Π£Π±Π΅Π΄ΠΈΡΠ΅ΡΡ, ΡΡΠΎ ΠΎΠ½Π° ΡΡΡΠ΅ΡΡΠ²ΡΠ΅ΡΒ» ΠΡΠ΅ 'ΠΎΡΠΊΡΡΡΡ ΠΊΠ½ΠΈΠ³Ρ ΠΈ ΡΡΠΎ-ΡΠΎ Ρ Π½Π΅ΠΉ ΡΠ΄Π΅Π»Π°ΡΡ Workbooks.Open ("C: \ Docs \ Book1.xlsm") ΠΠΎΠ½Π΅Ρ, Π΅ΡΠ»ΠΈ ΠΠΎΠ½Π΅Ρ ΠΏΠΎΠ΄ΠΏΠΈΡΠΊΠΈ
ΠΡΠΎΠ²Π΅ΡΠΈΡΡ Π½Π°Π»ΠΈΡΠΈΠ΅ ΠΎΡΠΊΡΡΡΠΎΠΉ ΠΊΠ½ΠΈΠ³ΠΈ
ΠΡΠ»ΠΈ Π²Ρ ΠΎΡΠΊΡΡΠ²Π°Π΅ΡΠ΅ ΠΊΠ½ΠΈΠ³Ρ ΠΊΠ°ΠΊ ΡΠΎΠ»ΡΠΊΠΎ Π΄Π»Ρ ΡΡΠ΅Π½ΠΈΡ , Π½Π΅ ΠΈΠΌΠ΅Π΅Ρ Π·Π½Π°ΡΠ΅Π½ΠΈΡ, ΠΎΡΠΊΡΡΡΠ° Π»ΠΈ ΠΎΠ½Π° ΡΠΆΠ΅. ΠΠ΄Π½Π°ΠΊΠΎ, Π΅ΡΠ»ΠΈ Π²Ρ ΡΠΎΠ±ΠΈΡΠ°Π΅ΡΠ΅ΡΡ ΠΎΠ±Π½ΠΎΠ²ΠΈΡΡ Π΄Π°Π½Π½ΡΠ΅ Π² ΠΊΠ½ΠΈΠ³Π΅, ΡΠ΅ΠΊΠΎΠΌΠ΅Π½Π΄ΡΠ΅ΡΡΡ ΠΏΡΠΎΠ²Π΅ΡΠΈΡΡ, ΠΎΡΠΊΡΡΡΠ° Π»ΠΈ ΠΎΠ½Π° ΡΠΆΠ΅.
ΠΡΠΈΠ²Π΅Π΄Π΅Π½Π½ΡΡ Π½ΠΈΠΆΠ΅ ΡΡΠ½ΠΊΡΠΈΡ ΠΌΠΎΠΆΠ½ΠΎ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ Π΄Π»Ρ ΠΏΡΠΎΠ²Π΅ΡΠΊΠΈ, ΠΎΡΠΊΡΡΡΠ° Π»ΠΈ ΠΊΠ½ΠΈΠ³Π° Π² Π΄Π°Π½Π½ΡΠΉ ΠΌΠΎΠΌΠ΅Π½Ρ. ΠΡΠ»ΠΈ Π½Π΅Ρ, ΡΠΎ ΠΎΡΠΊΡΠΎΠ΅ΡΡΡ ΠΊΠ½ΠΈΠ³Π°. Π Π»ΡΠ±ΠΎΠΌ ΡΠ»ΡΡΠ°Π΅ Ρ Π²Π°Ρ Π±ΡΠ΄Π΅Ρ ΠΎΡΠΊΡΡΡΠ°Ρ ΠΊΠ½ΠΈΠ³Π°.
(ΠΠΎΠ΄ Π½ΠΈΠΆΠ΅ Π²Π·ΡΡ ΠΈΠ· ΡΡΠΎΠΉ Π·Π°ΠΏΠΈΡΠΈ StackOverFlow.)
https://excelmacromastery.com/ Π€ΡΠ½ΠΊΡΠΈΡ GetWorkbook (ByVal sFullFilename ΠΊΠ°ΠΊ ΡΡΡΠΎΠΊΠ°) ΠΊΠ°ΠΊ ΡΠ°Π±ΠΎΡΠ°Ρ ΠΊΠ½ΠΈΠ³Π° Dim sFilename ΠΊΠ°ΠΊ ΡΡΡΠΎΠΊΠ° sFilename = Dir (sFullFilename) ΠΡΠΈ ΠΎΡΠΈΠ±ΠΊΠ΅ ΠΠΎΠ·ΠΎΠ±Π½ΠΎΠ²ΠΈΡΡ ΠΠ°Π»Π΅Π΅ Dim wk As Workbook Π£ΡΡΠ°Π½ΠΎΠ²ΠΈΡΡ wk = Workbooks (sFilename) ΠΡΠ»ΠΈ wk - Π½ΠΈΡΡΠΎ, ΡΠΎΠ³Π΄Π° Π£ΡΡΠ°Π½ΠΎΠ²ΠΈΡΠ΅ wk = Workbooks.ΠΡΠΊΡΡΡΡ (sFullFilename) ΠΠΎΠ½Π΅Ρ, Π΅ΡΠ»ΠΈ ΠΡΠΈ ΠΎΡΠΈΠ±ΠΊΠ΅ ΠΠ΅ΡΠ΅ΠΉΡΠΈ ΠΊ 0 Π£ΡΡΠ°Π½ΠΎΠ²ΠΈΡΠ΅ GetWorkbook = wk ΠΠΎΠ½Π΅ΡΠ½Π°Ρ ΡΡΠ½ΠΊΡΠΈΡ
ΠΡΡ ΡΡΠ½ΠΊΡΠΈΡ ΠΌΠΎΠΆΠ½ΠΎ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΡΠ°ΠΊ
https://excelmacromastery.com/ Sub ExampleOpenWorkbook () Dim sFilename ΠΊΠ°ΠΊ ΡΡΡΠΎΠΊΠ° sFilename = "C: \ Docs \ Book2.xlsx" Dim wk As Workbook Π£ΡΡΠ°Π½ΠΎΠ²ΠΈΡΠ΅ wk = GetWorkbook (sFilename) ΠΠΎΠ½Π΅Ρ ΠΏΠΎΠ΄ΠΏΠΈΡΠΊΠΈ
ΠΡΠΎΡ ΠΊΠΎΠ΄ ΠΏΠΎΠ΄Ρ ΠΎΠ΄ΠΈΡ Π΄Π»Ρ Π±ΠΎΠ»ΡΡΠΈΠ½ΡΡΠ²Π° ΡΠΈΡΡΠ°ΡΠΈΠΉ.ΠΠ΄Π½Π°ΠΊΠΎ, Π΅ΡΠ»ΠΈ ΠΊΠ½ΠΈΠ³Π° ΠΌΠΎΠΆΠ΅Ρ Π±ΡΡΡ Π² Π½Π°ΡΡΠΎΡΡΠ΅Π΅ Π²ΡΠ΅ΠΌΡ ΠΎΡΠΊΡΡΡΠ° Π² ΡΠ΅ΠΆΠΈΠΌΠ΅ ΡΠΎΠ»ΡΠΊΠΎ Π΄Π»Ρ ΡΡΠ΅Π½ΠΈΡ ΠΈΠ»ΠΈ ΠΌΠΎΠΆΠ΅Ρ Π±ΡΡΡ ΠΎΡΠΊΡΡΡΠ° Π΄ΡΡΠ³ΠΈΠΌ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Π΅ΠΌ, Π²Ρ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ Π½Π΅ΡΠΊΠΎΠ»ΡΠΊΠΎ ΠΈΠ½ΠΎΠΉ ΠΏΠΎΠ΄Ρ ΠΎΠ΄.
ΠΡΠΎΡΡΠΎΠΉ ΡΠΏΠΎΡΠΎΠ± ΡΠΏΡΠ°Π²ΠΈΡΡΡΡ Ρ ΡΡΠΈΠΌ Π² ΡΡΠΎΠΌ ΡΡΠ΅Π½Π°ΡΠΈΠΈ - Π½Π°ΡΡΠΎΡΡΡ Π½Π° ΡΠΎΠΌ, ΡΡΠΎΠ±Ρ ΡΠ°ΠΉΠ» Π±ΡΠ» Π·Π°ΠΊΡΡΡ Π΄Π»Ρ ΡΡΠΏΠ΅ΡΠ½ΠΎΠ³ΠΎ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΡ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΡ. ΠΡ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΠΏΡΠΈΠ²Π΅Π΄Π΅Π½Π½ΡΡ Π½ΠΈΠΆΠ΅ ΡΡΠ½ΠΊΡΠΈΡ, ΡΡΠΎΠ±Ρ ΠΏΡΠΎΡΡΠΎ ΠΏΡΠΎΠ²Π΅ΡΠΈΡΡ, ΠΎΡΠΊΡΡΡ Π»ΠΈ ΡΠΆΠ΅ ΡΠ°ΠΉΠ», ΠΈ, Π΅ΡΠ»ΠΈ Π΄Π°, ΡΠΎΠΎΠ±ΡΠΈΡΡ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ, ΡΡΠΎ ΠΎΠ½ Π΄ΠΎΠ»ΠΆΠ΅Π½ Π±ΡΡΡ ΡΠ½Π°ΡΠ°Π»Π° Π·Π°ΠΊΡΡΡ.
(ΠΏΡΠΈΠ²Π΅Π΄Π΅Π½Π½ΡΠΉ Π½ΠΈΠΆΠ΅ ΠΊΠΎΠ΄ ΡΠ°ΠΊΠΆΠ΅ Π²Π·ΡΡ ΠΈΠ· ΡΡΠΎΠΉ Π·Π°ΠΏΠΈΡΠΈ StackOverFlow)
https: // excelmacromastery.com / 'Π€ΡΠ½ΠΊΡΠΈΡ ΠΏΡΠΎΠ²Π΅ΡΠΊΠΈ, ΠΎΡΠΊΡΡΡΠ° Π»ΠΈ ΡΠΆΠ΅ ΠΊΠ½ΠΈΠ³Π° Π€ΡΠ½ΠΊΡΠΈΡ IsWorkBookOpen (strBookName As String) ΠΊΠ°ΠΊ Boolean Dim oBk As Workbook ΠΡΠΈ ΠΎΡΠΈΠ±ΠΊΠ΅ ΠΠΎΠ·ΠΎΠ±Π½ΠΎΠ²ΠΈΡΡ ΠΠ°Π»Π΅Π΅ Π£ΡΡΠ°Π½ΠΎΠ²ΠΈΡΠ΅ oBk = Workbooks (strBookName) ΠΡΠΈ ΠΎΡΠΈΠ±ΠΊΠ΅ GoTo 0 ΠΡΠ»ΠΈ Π½Π΅ oBk - ΡΡΠΎ Π½ΠΈΡΡΠΎ, ΡΠΎΠ³Π΄Π° IsWorkBookOpen = True ΠΠΎΠ½Π΅Ρ, Π΅ΡΠ»ΠΈ ΠΠΎΠ½Π΅ΡΠ½Π°Ρ ΡΡΠ½ΠΊΡΠΈΡ
ΠΡΠΈΠΌΠ΅Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΡ ΡΡΠΎΠΉ ΡΡΠ½ΠΊΡΠΈΠΈ ΠΏΠΎΠΊΠ°Π·Π°Π½ Π½ΠΈΠΆΠ΅. Π ΡΡΠΎΠΌ ΡΠ»ΡΡΠ°Π΅, Π΅ΡΠ»ΠΈ ΡΠ°Π±ΠΎΡΠ°Ρ ΠΊΠ½ΠΈΠ³Π° ΡΠΆΠ΅ ΠΎΡΠΊΡΡΡΠ°, Π²Ρ ΡΠΎΠΎΠ±ΡΠ°Π΅ΡΠ΅ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ, ΡΡΠΎ ΠΎΠ½Π° Π΄ΠΎΠ»ΠΆΠ½Π° Π±ΡΡΡ Π·Π°ΠΊΡΡΡΠ°, ΡΡΠΎΠ±Ρ ΠΌΠ°ΠΊΡΠΎΡ ΠΏΡΠΎΠ΄ΠΎΠ»ΠΆΠΈΠ» ΡΠ°Π±ΠΎΡΡ.
https://excelmacromastery.com/ Sub ExampleUse () Dim sFilename ΠΊΠ°ΠΊ ΡΡΡΠΎΠΊΠ° sFilename = "C: \ temp \ writedata.xlsx" ΠΡΠ»ΠΈ IsWorkBookOpen (Dir (sFilename)) = True, ΡΠΎ MsgBox Β«Π€Π°ΠΉΠ» ΡΠΆΠ΅ ΠΎΡΠΊΡΡΡ. ΠΠ°ΠΊΡΠΎΠΉΡΠ΅ ΡΠ°ΠΉΠ» ΠΈ ΡΠ½ΠΎΠ²Π° Π·Π°ΠΏΡΡΡΠΈΡΠ΅ ΠΌΠ°ΠΊΡΠΎΡΒ». ΠΡΡ ΠΎΠ΄ ΠΈΠ· ΠΏΠΎΠ΄Π²ΠΎΠ΄Π½ΠΎΠΉ Π»ΠΎΠ΄ΠΊΠΈ ΠΠΎΠ½Π΅Ρ, Π΅ΡΠ»ΠΈ 'ΠΠ°ΠΏΠΈΡΠΈΡΠ΅ ΡΡΠ΄Π° Π² ΡΠ°Π±ΠΎΡΡΡ ΡΠ΅ΡΡΠ°Π΄Ρ ΠΠΎΠ½Π΅Ρ ΠΏΠΎΠ΄ΠΏΠΈΡΠΊΠΈ
ΠΡΠ»ΠΈ Π²Π°ΠΌ Π½ΡΠΆΠ½ΠΎ ΠΏΡΠΎΠ²Π΅ΡΠΈΡΡ, ΠΎΡΠΊΡΡΡΠ° Π»ΠΈ ΠΊΠ½ΠΈΠ³Π° Π² Π΄ΡΡΠ³ΠΎΠΌ ΡΠΊΠ·Π΅ΠΌΠΏΠ»ΡΡΠ΅ Excel, Π²Ρ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ Π°ΡΡΠΈΠ±ΡΡ ReadOnly ΠΊΠ½ΠΈΠ³ΠΈ.ΠΡΠ΄Π΅Ρ ΡΡΡΠ°Π½ΠΎΠ²Π»Π΅Π½ΠΎ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ true, Π΅ΡΠ»ΠΈ ΠΎΠ½ ΠΎΡΠΊΡΡΡ Π² Π΄ΡΡΠ³ΠΎΠΌ ΡΠΊΠ·Π΅ΠΌΠΏΠ»ΡΡΠ΅.
ΠΠ°ΠΊΡΡΡΡ ΡΠ°Π±ΠΎΡΡΡ ΠΊΠ½ΠΈΠ³Ρ
ΠΠ°ΠΊΡΡΡΡ ΠΊΠ½ΠΈΠ³Ρ Π² Excel VBA ΠΎΡΠ΅Π½Ρ ΠΏΡΠΎΡΡΠΎ. ΠΡ ΠΏΡΠΎΡΡΠΎ Π²ΡΠ·ΡΠ²Π°Π΅ΡΠ΅ ΠΌΠ΅ΡΠΎΠ΄ Close ΠΊΠ½ΠΈΠ³ΠΈ.
Π½Π΅Π΄.ΠΠ°ΠΊΡΡΡΡ
ΠΠ±ΡΡΠ½ΠΎ, ΠΊΠΎΠ³Π΄Π° Π²Ρ Π·Π°ΠΊΡΡΠ²Π°Π΅ΡΠ΅ ΠΊΠ½ΠΈΠ³Ρ Π² VBA, Π²Ρ Π½Π΅ Ρ ΠΎΡΠΈΡΠ΅ Π²ΠΈΠ΄Π΅ΡΡ ΡΠΎΠΎΠ±ΡΠ΅Π½ΠΈΡ ΠΈΠ· Excel, ΡΠΏΡΠ°ΡΠΈΠ²Π°ΡΡΠΈΠ΅, Ρ ΠΎΡΠΈΡΠ΅ Π»ΠΈ Π²Ρ ΡΠΎΡ ΡΠ°Π½ΠΈΡΡ ΡΠ°ΠΉΠ».
ΠΡ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΡΠΊΠ°Π·Π°ΡΡ, ΡΠΎΡ ΡΠ°Π½ΡΡΡ ΠΊΠ½ΠΈΠ³Ρ ΠΈΠ»ΠΈ Π½Π΅Ρ, ΠΈ ΡΠΎΠ³Π΄Π° ΡΠΎΠΎΠ±ΡΠ΅Π½ΠΈΡ Excel Π½Π΅ Π±ΡΠ΄ΡΡ ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ°ΡΡΡΡ.
'ΠΠ΅ ΡΠΎΡ ΡΠ°Π½ΡΡΡ ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΡ wk.Close SaveChanges: = False 'Π‘ΠΎΡ ΡΠ°Π½ΠΈΡΡ ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΡ wk.Close SaveChanges: = True
ΠΡΠ΅Π²ΠΈΠ΄Π½ΠΎ, Π²Ρ Π½Π΅ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΡΠΎΡ ΡΠ°Π½ΠΈΡΡ ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΡ Π² ΠΊΠ½ΠΈΠ³Π΅, ΠΊΠΎΡΠΎΡΠ°Ρ Π² Π½Π°ΡΡΠΎΡΡΠ΅Π΅ Π²ΡΠ΅ΠΌΡ ΠΎΡΠΊΡΡΡΠ° ΡΠΎΠ»ΡΠΊΠΎ Π΄Π»Ρ ΡΡΠ΅Π½ΠΈΡ.
Π‘ΠΎΡ ΡΠ°Π½ΠΈΡΡ ΠΊΠ½ΠΈΠ³Ρ
ΠΡ ΡΠΎΠ»ΡΠΊΠΎ ΡΡΠΎ Π²ΠΈΠ΄Π΅Π»ΠΈ, ΡΡΠΎ Π²Ρ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΡΠΎΡ ΡΠ°Π½ΠΈΡΡ ΠΊΠ½ΠΈΠ³Ρ, ΠΊΠΎΠ³Π΄Π° Π·Π°ΠΊΡΡΠ²Π°Π΅ΡΠ΅ Π΅Π΅. ΠΡΠ»ΠΈ Π²Ρ Ρ ΠΎΡΠΈΡΠ΅ ΡΠΎΡ ΡΠ°Π½ΠΈΡΡ Π΅Π³ΠΎ Π½Π° Π»ΡΠ±ΠΎΠΌ Π΄ΡΡΠ³ΠΎΠΌ ΡΡΠ°ΠΏΠ΅, Π²Ρ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΠΏΡΠΎΡΡΠΎ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΠΌΠ΅ΡΠΎΠ΄ Π‘ΠΎΡ ΡΠ°Π½ΠΈΡΡ
Π½Π΅Π΄.Π‘ΠΎΡ ΡΠ°Π½ΠΈΡΡ
ΠΡ ΡΠ°ΠΊΠΆΠ΅ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΠΌΠ΅ΡΠΎΠ΄ SaveAs
wk.Save ΠΊΠ°ΠΊ "C: \ Backups \ accounts.xlsx"
ΠΠ΅ΡΠΎΠ΄ Workbook SaveAs ΠΈΠΌΠ΅Π΅Ρ Π΄Π²Π΅Π½Π°Π΄ΡΠ°ΡΡ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΠΎΠ², ΠΊΠΎΡΠΎΡΡΠ΅ ΠΏΠΎΠ·Π²ΠΎΠ»ΡΡΡ Π΄ΠΎΠ±Π°Π²ΠΈΡΡ ΠΏΠ°ΡΠΎΠ»Ρ, ΡΠ΄Π΅Π»Π°ΡΡ ΡΠ°ΠΉΠ» Π΄ΠΎΡΡΡΠΏΠ½ΡΠΌ ΡΠΎΠ»ΡΠΊΠΎ Π΄Π»Ρ ΡΡΠ΅Π½ΠΈΡ ΠΈ Ρ. Π. ΠΡ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΡΠ²ΠΈΠ΄Π΅ΡΡ ΠΏΠΎΠ΄ΡΠΎΠ±Π½ΠΎΡΡΠΈ Π·Π΄Π΅ΡΡ.
ΠΡ ΡΠ°ΠΊΠΆΠ΅ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ VBA Π΄Π»Ρ ΡΠΎΡ ΡΠ°Π½Π΅Π½ΠΈΡ ΠΊΠ½ΠΈΠ³ΠΈ Π² Π²ΠΈΠ΄Π΅ ΠΊΠΎΠΏΠΈΠΈ Ρ ΠΏΠΎΠΌΠΎΡΡΡ SaveCopyAs
wk.SaveCopyAs "C: \ Docs \ Copy.xlsm "
ΠΠΎΠΏΠΈΡ ΠΊΠ½ΠΈΠ³ΠΈ
ΠΡΠ»ΠΈ ΠΊΠ½ΠΈΠ³Π° ΠΎΡΠΊΡΡΡΠ°, Π²Ρ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ Π΄Π²Π° ΠΌΠ΅ΡΠΎΠ΄Π°, ΠΎΠΏΠΈΡΠ°Π½Π½ΡΠ΅ Π² ΠΏΡΠ΅Π΄ΡΠ΄ΡΡΠ΅ΠΌ ΡΠ°Π·Π΄Π΅Π»Π΅, Π΄Π»Ρ ΡΠΎΠ·Π΄Π°Π½ΠΈΡ ΠΊΠΎΠΏΠΈΠΈ, ΡΠΎ Π΅ΡΡΡ SaveAs ΠΈ SaveCopyAs .
ΠΡΠ»ΠΈ Π²Ρ Ρ ΠΎΡΠΈΡΠ΅ ΡΠΊΠΎΠΏΠΈΡΠΎΠ²Π°ΡΡ ΠΊΠ½ΠΈΠ³Ρ, Π½Π΅ ΠΎΡΠΊΡΡΠ²Π°Ρ Π΅Π΅, Π²Ρ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ FileCopy , ΠΊΠ°ΠΊ ΠΏΠΎΠΊΠ°Π·Π°Π½ΠΎ Π² ΡΠ»Π΅Π΄ΡΡΡΠ΅ΠΌ ΠΏΡΠΈΠΌΠ΅ΡΠ΅
Public Sub CopyWorkbook () FileCopy "C: \ Docs \ Docs.xlsm", "C: \ Docs \ Example_Copy.xlsm" ΠΠΎΠ½Π΅Ρ ΠΏΠΎΠ΄ΠΏΠΈΡΠΊΠΈ
ΠΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ Π΄ΠΈΠ°Π»ΠΎΠ³ΠΎΠ²ΠΎΠ³ΠΎ ΠΎΠΊΠ½Π° ΡΠ°ΠΉΠ»Π° Π΄Π»Ρ ΠΎΡΠΊΡΡΡΠΈΡ ΠΊΠ½ΠΈΠ³ΠΈ
Π ΠΏΡΠ΅Π΄ΡΠ΄ΡΡΠ΅ΠΌ ΡΠ°Π·Π΄Π΅Π»Π΅ ΠΏΠΎΠΊΠ°Π·Π°Π½ΠΎ, ΠΊΠ°ΠΊ ΠΎΡΠΊΡΡΡΡ ΠΊΠ½ΠΈΠ³Ρ Ρ Π·Π°Π΄Π°Π½Π½ΡΠΌ ΠΈΠΌΠ΅Π½Π΅ΠΌ.ΠΠ½ΠΎΠ³Π΄Π° Π²Ρ ΠΌΠΎΠΆΠ΅ΡΠ΅ Π·Π°Ρ ΠΎΡΠ΅ΡΡ, ΡΡΠΎΠ±Ρ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ Π²ΡΠ±ΡΠ°Π» ΠΊΠ½ΠΈΠ³Ρ. ΠΡ ΠΌΠΎΠΆΠ΅ΡΠ΅ Π»Π΅Π³ΠΊΠΎ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ Π΄ΠΈΠ°Π»ΠΎΠ³ΠΎΠ²ΠΎΠ΅ ΠΎΠΊΠ½ΠΎ Windows File Dialog , ΠΏΠΎΠΊΠ°Π·Π°Π½Π½ΠΎΠ΅ Π·Π΄Π΅ΡΡ.
ΠΠΈΠ°Π»ΠΎΠ³ ΡΠ°ΠΉΠ»Π° Windows
FileDialog Π½Π°ΡΡΡΠ°ΠΈΠ²Π°Π΅ΡΡΡ, ΠΈ Π²Ρ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ Π΅Π³ΠΎ Π΄Π»Ρ
- ΠΡΠ±Π΅ΡΠΈΡΠ΅ ΡΠ°ΠΉΠ».
- ΠΡΠ±Π΅ΡΠΈΡΠ΅ ΠΏΠ°ΠΏΠΊΡ.
- ΠΡΠΊΡΠΎΠΉΡΠ΅ ΡΠ°ΠΉΠ».
- Β«Π‘ΠΎΡ ΡΠ°Π½ΠΈΡΡ ΠΊΠ°ΠΊΒ» ΡΠ°ΠΉΠ».
ΠΡΠ»ΠΈ Π²Ρ ΠΏΡΠΎΡΡΠΎ Ρ ΠΎΡΠΈΡΠ΅, ΡΡΠΎΠ±Ρ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ Π²ΡΠ±ΡΠ°Π» ΡΠ°ΠΉΠ», Π²Ρ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΡΡΠ½ΠΊΡΠΈΡ GetOpenFilename.
Π‘Π»Π΅Π΄ΡΡΡΠ°Ρ ΡΡΠ½ΠΊΡΠΈΡ ΠΎΡΠΊΡΡΠ²Π°Π΅Ρ ΠΊΠ½ΠΈΠ³Ρ Ρ ΠΏΠΎΠΌΠΎΡΡΡ Π΄ΠΈΠ°Π»ΠΎΠ³ΠΎΠ²ΠΎΠ³ΠΎ ΠΎΠΊΠ½Π° "Π€Π°ΠΉΠ»". Π€ΡΠ½ΠΊΡΠΈΡ Π²ΠΎΠ·Π²ΡΠ°ΡΠ°Π΅Ρ ΠΏΠΎΠ»Π½ΠΎΠ΅ ΠΈΠΌΡ ΡΠ°ΠΉΠ»Π°, Π΅ΡΠ»ΠΈ ΡΠ°ΠΉΠ» Π±ΡΠ» Π²ΡΠ±ΡΠ°Π½. ΠΡΠ»ΠΈ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ ΠΎΡΠΌΠ΅Π½ΡΠ΅Ρ, ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ°Π΅ΡΡΡ ΡΠΎΠΎΠ±ΡΠ΅Π½ΠΈΠ΅ ΠΈ Π²ΠΎΠ·Π²ΡΠ°ΡΠ°Π΅ΡΡΡ ΠΏΡΡΡΠ°Ρ ΡΡΡΠΎΠΊΠ°.
https://excelmacromastery.com/ ΠΡΠΊΡΡΡΠ°Ρ ΡΡΠ½ΠΊΡΠΈΡ UserSelectWorkbook () ΠΊΠ°ΠΊ ΡΡΡΠΎΠΊΠ° ΠΡΠΈ ΠΎΡΠΈΠ±ΠΊΠ΅ ΠΠ΅ΡΠ΅ΠΉΡΠΈ ΠΊ ErrorHandler Dim sWorkbookName As String Dim FD ΠΊΠ°ΠΊ FileDialog Π£ΡΡΠ°Π½ΠΎΠ²ΠΈΡΠ΅ FD = Application.FileDialog (msoFileDialogFilePicker) 'ΠΡΠΊΡΡΡΡ Π΄ΠΈΠ°Π»ΠΎΠ³ΠΎΠ²ΠΎΠ΅ ΠΎΠΊΠ½ΠΎ ΡΠ°ΠΉΠ»Π° Π‘ FD 'Π£ΡΡΠ°Π½ΠΎΠ²ΠΈΡΡ Π·Π°Π³ΠΎΠ»ΠΎΠ²ΠΎΠΊ Π΄ΠΈΠ°Π»ΠΎΠ³Π° .Title = "ΠΠΎΠΆΠ°Π»ΡΠΉΡΡΠ°, Π²ΡΠ±Π΅ΡΠΈΡΠ΅ ΡΠ°ΠΉΠ»" 'ΠΠΎΠ±Π°Π²ΠΈΡΡ ΡΠΈΠ»ΡΡΡ .Filters.ΠΠΎΠ±Π°Π²ΡΡΠ΅ Β«Π€Π°ΠΉΠ»Ρ ExcelΒ», Β«* .xls; *. Xlsx; *. XlsmΒ». 'Π Π°Π·ΡΠ΅ΡΠΈΡΡ Π²ΡΠ±ΠΎΡ ΡΠΎΠ»ΡΠΊΠΎ ΠΎΠ΄Π½ΠΎΠ³ΠΎ ΡΠ°ΠΉΠ»Π° .AllowMultiSelect = ΠΠΎΠΆΡ 'ΠΠΎΠΊΠ°Π·Π°ΡΡ Π΄ΠΈΠ°Π»ΠΎΠ³ .ΠΠΎΠΊΠ°Π·Π°ΡΡ ΠΡΠ»ΠΈ .SelectedItems.Count> 0 Π’ΠΎΠ³Π΄Π° UserSelectWorkbook = .SelectedItems (1) ΠΡΠ΅ MsgBox Β«ΠΡΠ±ΠΎΡ ΡΠ°ΠΉΠ»Π° ΠΎΡΠΌΠ΅Π½Π΅Π½Β». UserSelectWorkbook = "" ΠΠΎΠ½Π΅Ρ, Π΅ΡΠ»ΠΈ ΠΠΎΠ½Π΅Ρ Ρ 'ΠΡΠΈΡΡΠΈΡΡ Π£ΡΡΠ°Π½ΠΎΠ²ΠΈΡΠ΅ FD = Nothing ΠΠΎΡΠΎΠ²ΠΎ: Π€ΡΠ½ΠΊΡΠΈΡ Π²ΡΡ ΠΎΠ΄Π° ErrorHandler: MsgBox "ΠΡΠΈΠ±ΠΊΠ°:" + Err.ΠΠΏΠΈΡΠ°Π½ΠΈΠ΅ ΠΠΎΠ½Π΅ΡΠ½Π°Ρ ΡΡΠ½ΠΊΡΠΈΡ
ΠΠΎΠ³Π΄Π° Π²Ρ Π²ΡΠ·ΡΠ²Π°Π΅ΡΠ΅ ΡΡΡ ΡΡΠ½ΠΊΡΠΈΡ, Π²Ρ Π΄ΠΎΠ»ΠΆΠ½Ρ ΠΏΡΠΎΠ²Π΅ΡΠΈΡΡ, ΠΎΡΠΌΠ΅Π½ΡΠ΅Ρ Π»ΠΈ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ Π΄ΠΈΠ°Π»ΠΎΠ³. Π ΡΠ»Π΅Π΄ΡΡΡΠ΅ΠΌ ΠΏΡΠΈΠΌΠ΅ΡΠ΅ ΠΏΠΎΠΊΠ°Π·Π°Π½ΠΎ, ΠΊΠ°ΠΊ Π»Π΅Π³ΠΊΠΎ Π²ΡΠ·Π²Π°ΡΡ ΡΡΠ½ΠΊΡΠΈΡ UserSelectWorkbook ΠΈ ΠΎΠ±ΡΠ°Π±ΠΎΡΠ°ΡΡ ΡΠ»ΡΡΠ°ΠΉ ΠΎΡΠΌΠ΅Π½Ρ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Π΅ΠΌ
.
https://excelmacromastery.com/ ΠΡΠΊΡΡΡΡΠΉ Sub TestUserSelect () Dim userBook As Workbook, sFilename As String 'ΠΡΠ·ΠΎΠ² ΡΡΠ½ΠΊΡΠΈΠΈ UserSelectworkbook sFilename = UserSelectWorkbook () 'ΠΡΠ»ΠΈ ΠΈΠΌΡ ΡΠ°ΠΉΠ»Π° Π²ΠΎΠ·Π²ΡΠ°ΡΠ°Π΅ΡΡΡ ΠΏΡΡΡΡΠΌ, ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ ΠΎΡΠΌΠ΅Π½ΠΈΠ» ΠΡΠ»ΠΈ sFilename "" Π’ΠΎΠ³Π΄Π° 'ΠΡΠΊΡΠΎΠΉΡΠ΅ ΠΊΠ½ΠΈΠ³Ρ ΠΈ ΡΡΠΎ-Π½ΠΈΠ±ΡΠ΄Ρ Ρ Π½Π΅ΠΉ ΡΠ΄Π΅Π»Π°ΠΉΡΠ΅ Π£ΡΡΠ°Π½ΠΎΠ²ΠΈΡΠ΅ userBook = Workbooks.ΠΡΠΊΡΡΡΡ (sFilename) ΠΠΎΠ½Π΅Ρ, Π΅ΡΠ»ΠΈ ΠΠΎΠ½Π΅Ρ ΠΏΠΎΠ΄ΠΏΠΈΡΠΊΠΈ
ΠΡ ΠΌΠΎΠΆΠ΅ΡΠ΅ Π½Π°ΡΡΡΠΎΠΈΡΡ Π΄ΠΈΠ°Π»ΠΎΠ³ΠΎΠ²ΠΎΠ΅ ΠΎΠΊΠ½ΠΎ, ΠΈΠ·ΠΌΠ΅Π½ΠΈΠ² Π·Π°Π³ΠΎΠ»ΠΎΠ²ΠΎΠΊ, ΡΠΈΠ»ΡΡΡΡ ΠΈ AllowMultiSelect Π² ΡΡΠ½ΠΊΡΠΈΠΈ UserSelectWorkbook .
ΠΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ ThisWorkbook
Π‘ΡΡΠ΅ΡΡΠ²ΡΠ΅Ρ Π±ΠΎΠ»Π΅Π΅ ΠΏΡΠΎΡΡΠΎΠΉ ΡΠΏΠΎΡΠΎΠ± ΠΏΠΎΠ»ΡΡΠΈΡΡ Π΄ΠΎΡΡΡΠΏ ΠΊ ΡΠ΅ΠΊΡΡΠ΅ΠΉ ΠΊΠ½ΠΈΠ³Π΅, ΡΠ΅ΠΌ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ Workbooks () . ΠΡ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΠΊΠ»ΡΡΠ΅Π²ΠΎΠ΅ ΡΠ»ΠΎΠ²ΠΎ ThisWorkbook . ΠΡΠΎ ΠΎΡΠ½ΠΎΡΠΈΡΡΡ ΠΊ ΡΠ΅ΠΊΡΡΠ΅ΠΉ ΠΊΠ½ΠΈΠ³Π΅, ΡΠΎ Π΅ΡΡΡ ΠΊΠ½ΠΈΠ³Π΅, ΡΠΎΠ΄Π΅ΡΠΆΠ°ΡΠ΅ΠΉ ΠΊΠΎΠ΄ VBA.
ΠΡΠ»ΠΈ Π½Π°Ρ ΠΊΠΎΠ΄ Π½Π°Ρ ΠΎΠ΄ΠΈΡΡΡ Π² ΠΊΠ½ΠΈΠ³Π΅, Π²ΡΠ·ΠΎΠ²ΠΈΡΠ΅ MyVBA.xlsm, ΡΠΎΠ³Π΄Π° ThisWorkbook ΠΈ Workbooks (Β«MyVBA.xlsmΒ») ΠΎΡΠ½ΠΎΡΡΡΡΡ ΠΊ ΡΠΎΠΉ ΠΆΠ΅ ΠΊΠ½ΠΈΠ³Π΅.
ΠΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ ThisWorkbook Π±ΠΎΠ»Π΅Π΅ ΠΏΠΎΠ»Π΅Π·Π½ΠΎ, ΡΠ΅ΠΌ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ Workbooks () . Π‘ ThisWorkbook Π½Π°ΠΌ Π½Π΅ Π½ΡΠΆΠ½ΠΎ Π±Π΅ΡΠΏΠΎΠΊΠΎΠΈΡΡΡΡ ΠΎΠ± ΠΈΠΌΠ΅Π½ΠΈ ΡΠ°ΠΉΠ»Π°. ΠΡΠΎ Π΄Π°Π΅Ρ Π½Π°ΠΌ Π΄Π²Π° ΠΏΡΠ΅ΠΈΠΌΡΡΠ΅ΡΡΠ²Π°:
- ΠΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΠ΅ ΠΈΠΌΠ΅Π½ΠΈ ΡΠ°ΠΉΠ»Π° Π½Π΅ ΠΏΠΎΠ²Π»ΠΈΡΠ΅Ρ Π½Π° ΠΊΠΎΠ΄
- ΠΠΎΠΏΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ ΠΊΠΎΠ΄Π° Π² Π΄ΡΡΠ³ΡΡ ΠΊΠ½ΠΈΠ³Ρ Π½Π΅ ΡΡΠ΅Π±ΡΠ΅Ρ ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΡ ΠΊΠΎΠ΄Π°
ΠΡΠΈ ΠΏΡΠ΅ΠΈΠΌΡΡΠ΅ΡΡΠ²Π° ΠΌΠΎΠ³ΡΡ ΠΏΠΎΠΊΠ°Π·Π°ΡΡΡΡ ΠΎΡΠ΅Π½Ρ Π½Π΅Π·Π½Π°ΡΠΈΡΠ΅Π»ΡΠ½ΡΠΌΠΈ.ΠΠ° ΡΠ°ΠΌΠΎΠΌ Π΄Π΅Π»Π΅ Π²Π°ΡΠΈ ΠΈΠΌΠ΅Π½Π° ΡΠ°ΠΉΠ»ΠΎΠ² Π±ΡΠ΄ΡΡ ΠΏΠΎΡΡΠΎΡΠ½Π½ΠΎ ΠΌΠ΅Π½ΡΡΡΡΡ. ΠΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ ThisWorkbook ΠΎΠ·Π½Π°ΡΠ°Π΅Ρ, ΡΡΠΎ Π²Π°Ρ ΠΊΠΎΠ΄ ΠΏΠΎ-ΠΏΡΠ΅ΠΆΠ½Π΅ΠΌΡ Π±ΡΠ΄Π΅Ρ ΡΠ°Π±ΠΎΡΠ°ΡΡ Π½ΠΎΡΠΌΠ°Π»ΡΠ½ΠΎ.
Π ΡΠ»Π΅Π΄ΡΡΡΠ΅ΠΌ ΠΏΡΠΈΠΌΠ΅ΡΠ΅ ΠΏΠΎΠΊΠ°Π·Π°Π½Ρ Π΄Π²Π΅ ΡΡΡΠΎΠΊΠΈ ΠΊΠΎΠ΄Π°. ΠΠ΄ΠΈΠ½ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅Ρ ThisWorkbook , Π° Π΄ΡΡΠ³ΠΎΠΉ - Workbooks () . Π’ΠΎΡ, ΠΊΠΎΡΠΎΡΡΠΉ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅Ρ ΡΠ°Π±ΠΎΡΠΈΠ΅ ΠΊΠ½ΠΈΠ³ΠΈ, Π±ΠΎΠ»ΡΡΠ΅ Π½Π΅ Π±ΡΠ΄Π΅Ρ ΡΠ°Π±ΠΎΡΠ°ΡΡ, Π΅ΡΠ»ΠΈ ΠΈΠΌΡ MyVBA.xlsm ΠΈΠ·ΠΌΠ΅Π½ΠΈΡΡΡ.
https://excelmacromastery.com/ ΠΠ±ΡΠ΅Π΄ΠΎΡΡΡΠΏΠ½Π°Ρ ΠΏΠΎΠ΄ΠΏΠΈΡΠΊΠ° WriteToCellUsingThis () ΠΠ±Π΅ ΡΡΡΠΎΡΠΊΠΈ Π΄Π΅Π»Π°ΡΡ ΠΎΠ΄Π½ΠΎ ΠΈ ΡΠΎ ΠΆΠ΅.Debug.Print ThisWorkbook.FullName Debug.Print Workbooks ("MyVBA.xlsm"). FullName ΠΠΎΠ½Π΅Ρ ΠΏΠΎΠ΄ΠΏΠΈΡΠΊΠΈ
ΠΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ ActiveWorkbook
ActiveWorkbook ΠΎΡΠ½ΠΎΡΠΈΡΡΡ ΠΊ ΡΠ°Π±ΠΎΡΠ΅ΠΉ ΠΊΠ½ΠΈΠ³Π΅, ΠΊΠΎΡΠΎΡΠ°Ρ Π² Π½Π°ΡΡΠΎΡΡΠ΅Π΅ Π²ΡΠ΅ΠΌΡ Π°ΠΊΡΠΈΠ²Π½Π°. ΠΡΠΎ ΡΠΎΡ, ΠΊΠΎΡΠΎΡΡΠΉ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ ΡΠ΅Π»ΠΊΠ½ΡΠ» Π² ΠΏΠΎΡΠ»Π΅Π΄Π½ΠΈΠΉ ΡΠ°Π·.
ΠΠΎΠ½Π°ΡΠ°Π»Ρ ΡΡΠΎ ΠΌΠΎΠΆΠ΅Ρ ΠΏΠΎΠΊΠ°Π·Π°ΡΡΡΡ ΠΏΠΎΠ»Π΅Π·Π½ΡΠΌ. ΠΡΠΎΠ±Π»Π΅ΠΌΠ° Π² ΡΠΎΠΌ, ΡΡΠΎ Π»ΡΠ±ΡΡ ΠΊΠ½ΠΈΠ³Ρ ΠΌΠΎΠΆΠ½ΠΎ Π°ΠΊΡΠΈΠ²ΠΈΡΠΎΠ²Π°ΡΡ ΠΏΡΠΎΡΡΡΠΌ ΡΠ΅Π»ΡΠΊΠΎΠΌ ΠΌΡΡΠΈ. ΠΡΠΎ ΠΎΠ·Π½Π°ΡΠ°Π΅Ρ, ΡΡΠΎ Π²Ρ ΠΌΠΎΠΆΠ΅ΡΠ΅ Π»Π΅Π³ΠΊΠΎ Π·Π°ΠΏΠΈΡΠ°ΡΡ Π΄Π°Π½Π½ΡΠ΅ Π½Π΅ Π² ΡΡ ΠΊΠ½ΠΈΠ³Ρ.
ΠΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ ActiveWorkbook ΡΠ°ΠΊΠΆΠ΅ Π·Π°ΡΡΡΠ΄Π½ΡΠ΅Ρ ΡΡΠ΅Π½ΠΈΠ΅ ΠΊΠΎΠ΄Π°. ΠΠ· ΠΊΠΎΠ΄Π° ΠΌΠΎΠΆΠ΅Ρ Π±ΡΡΡ Π½Π΅ ΠΎΡΠ΅Π²ΠΈΠ΄Π½ΠΎ, ΠΊΠ°ΠΊΠ°Ρ ΠΊΠ½ΠΈΠ³Π° Π΄ΠΎΠ»ΠΆΠ½Π° Π±ΡΡΡ Π°ΠΊΡΠΈΠ²Π½ΠΎΠΉ.
ΠΠ°Π΄Π΅ΡΡΡ, Ρ ΡΡΠ½ΠΎ Π΄Π°Π» ΠΏΠΎΠ½ΡΡΡ, ΡΡΠΎ Π²Π°ΠΌ ΡΠ»Π΅Π΄ΡΠ΅Ρ ΠΈΠ·Π±Π΅Π³Π°ΡΡ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΡ ActiveWorkbook , Π΅ΡΠ»ΠΈ Π² ΡΡΠΎΠΌ Π½Π΅Ρ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎΡΡΠΈ. ΠΡΠ»ΠΈ Π½ΡΠΆΠ½ΠΎ, Π±ΡΠ΄ΡΡΠ΅ ΠΎΡΠ΅Π½Ρ ΠΎΡΡΠΎΡΠΎΠΆΠ½Ρ.
ΠΡΠΈΠΌΠ΅ΡΡ Π΄ΠΎΡΡΡΠΏΠ° ΠΊ ΠΊΠ½ΠΈΠ³Π΅
ΠΡ ΡΠ°ΡΡΠΌΠΎΡΡΠ΅Π»ΠΈ Π²ΡΠ΅ ΡΠΏΠΎΡΠΎΠ±Ρ Π΄ΠΎΡΡΡΠΏΠ° ΠΊ ΠΊΠ½ΠΈΠ³Π΅. Π ΡΠ»Π΅Π΄ΡΡΡΠ΅ΠΌ ΠΊΠΎΠ΄Π΅ ΠΏΠΎΠΊΠ°Π·Π°Π½Ρ ΠΏΡΠΈΠΌΠ΅ΡΡ ΡΡΠΈΡ ΡΠΏΠΎΡΠΎΠ±ΠΎΠ²
https: // excelmacromastery.com / ΠΠ±ΡΠ΅Π΄ΠΎΡΡΡΠΏΠ½ΡΠ΅ Π²ΡΠΏΠΎΠΌΠΎΠ³Π°ΡΠ΅Π»ΡΠ½ΡΠ΅ ΠΊΠ½ΠΈΠ³ΠΈ 'ΠΡΠΎ ΠΊΠ½ΠΈΠ³Π°, ΠΊΠΎΡΠΎΡΠ°Ρ ΡΠΆΠ΅ ΠΎΡΠΊΡΡΡΠ° ΠΈ Π½Π°Π·ΡΠ²Π°Π΅ΡΡΡ MyVBA.xlsm Debug.Print Workbooks ("MyVBA.xlsm"). FullName 'ΠΠ½ΠΈΠ³Π°, ΡΠΎΠ΄Π΅ΡΠΆΠ°ΡΠ°Ρ ΡΡΠΎΡ ΠΊΠΎΠ΄ Debug.Print ThisWorkbook.FullName 'ΠΠ΅ΡΠ²Π°Ρ ΠΎΡΠΊΡΡΡΠ°Ρ ΠΊΠ½ΠΈΠ³Π° ΠΡΠ»Π°Π΄ΠΊΠ°.ΠΠ΅ΡΠ°ΡΡ ΠΊΠ½ΠΈΠ³ (1) .FullName 'ΠΠΎΡΠ»Π΅Π΄Π½ΡΡ ΠΎΡΠΊΡΡΡΠ°Ρ ΡΠ°Π±ΠΎΡΠ°Ρ ΠΊΠ½ΠΈΠ³Π° ΠΡΠ»Π°Π΄ΠΊΠ°.ΠΠ΅ΡΠ°ΡΡ ΠΊΠ½ΠΈΠ³ (Workbooks.Count) .FullName 'Π’Π΅ΠΊΡΡΠ°Ρ Π°ΠΊΡΠΈΠ²Π½Π°Ρ ΠΊΠ½ΠΈΠ³Π° ΠΡΠ»Π°ΠΆΠΈΠ²Π°ΡΡ.Π Π°ΡΠΏΠ΅ΡΠ°ΡΠ°ΡΡ ActiveWorkbook.FullName 'Π Π°Π±ΠΎΡΠ°Ρ ΡΠ΅ΡΡΠ°Π΄Ρ Π½Π΅ ΡΠΊΠ°Π·Π°Π½Π° - Π±ΡΠ΄Π΅Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡΡΡ Π°ΠΊΡΠΈΠ²Π½Π°Ρ Debug.Print Worksheets ("Sheet1"). ΠΠΌΡ 'ΠΠ°ΠΊΡΡΡΠ°Ρ ΠΊΠ½ΠΈΠ³Π° ΠΏΠΎΠ΄ Π½Π°Π·Π²Π°Π½ΠΈΠ΅ΠΌ Book1.xlsm Π² ΠΏΠ°ΠΏΠΊΠ΅ C: \ Docs Workbooks.Open ("C: \ Docs \ Book1.xlsm") Debug.Print Workbooks ("Book1.xlsm"). FullName Π Π°Π±ΠΎΡΠΈΠ΅ ΡΠ΅ΡΡΠ°Π΄ΠΈ ("Book1.xlsm"). ΠΠ°ΠΊΡΡΡΡ ΠΠΎΠ½Π΅Ρ ΠΏΠΎΠ΄ΠΏΠΈΡΠΊΠΈ
ΠΠ±ΡΡΠ²Π»Π΅Π½ΠΈΠ΅ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ ΠΊΠ½ΠΈΠ³ΠΈ VBA
ΠΡΠΈΡΠΈΠ½Π° ΠΎΠ±ΡΡΠ²Π»Π΅Π½ΠΈΡ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ ΠΊΠ½ΠΈΠ³ΠΈ ΡΠΎΡΡΠΎΠΈΡ Π² ΡΠΎΠΌ, ΡΡΠΎΠ±Ρ ΡΠΏΡΠΎΡΡΠΈΡΡ ΡΡΠ΅Π½ΠΈΠ΅ ΠΈ ΠΏΠΎΠ½ΠΈΠΌΠ°Π½ΠΈΠ΅ ΠΊΠΎΠ΄Π°.ΠΡΠ΅ΠΈΠΌΡΡΠ΅ΡΡΠ²ΠΎ Π»Π΅Π³ΡΠ΅ ΡΠ²ΠΈΠ΄Π΅ΡΡ Π½Π° ΠΏΡΠΈΠΌΠ΅ΡΠ΅
https://excelmacromastery.com/ ΠΡΠ±Π»ΠΈΡΠ½Π°Ρ ΠΏΠΎΠ΄ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° OpenWrkObjects () Dim wrk As Workbook Π£ΡΡΠ°Π½ΠΎΠ²ΠΈΡΠ΅ wrk = Workbooks.Open ("C: \ Docs \ Book1.xlsm") 'Π Π°ΡΠΏΠ΅ΡΠ°ΡΠ°ΡΡ ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ Π»ΠΈΡΡΠΎΠ² Π² ΠΊΠ°ΠΆΠ΄ΠΎΠΉ ΠΊΠ½ΠΈΠ³Π΅ Debug.Print wrk.Worksheets.Count Debug.Print wrk.Name wrk.Close ΠΠΎΠ½Π΅Ρ ΠΏΠΎΠ΄ΠΏΠΈΡΠΊΠΈ
ΠΡ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΡΡΡΠ°Π½ΠΎΠ²ΠΈΡΡ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ ΠΊΠ½ΠΈΠ³ΠΈ Ρ ΠΏΠΎΠΌΠΎΡΡΡ Π»ΡΠ±ΠΎΠ³ΠΎ ΠΈΠ· ΠΌΠ΅ΡΠΎΠ΄ΠΎΠ² Π΄ΠΎΡΡΡΠΏΠ°, ΠΊΠΎΡΠΎΡΡΠ΅ ΠΌΡ Π²ΠΈΠ΄Π΅Π»ΠΈ.
ΠΠΈΠΆΠ΅ ΠΏΠΎΠΊΠ°Π·Π°Π½ ΡΠΎΡ ΠΆΠ΅ ΠΊΠΎΠ΄ Π±Π΅Π· ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ ΠΊΠ½ΠΈΠ³ΠΈ
https://excelmacromastery.com/ ΠΡΠ±Π»ΠΈΡΠ½Π°Ρ ΠΏΠΎΠ΄ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° OpenWrkNoObjects () Workbooks.Open ("C: \ Docs \ Book1.xlsm") Debug.Print Workbooks ("Book2.xlsm"). Worksheets.Count Debug.Print Workbooks ("Book2.xlsm"). ΠΠΌΡ Π Π°Π±ΠΎΡΠΈΠ΅ ΡΠ΅ΡΡΠ°Π΄ΠΈ ("Book2.xlsm"). ΠΠ°ΠΊΡΡΡΡ ΠΠΎΠ½Π΅Ρ ΠΏΠΎΠ΄ΠΏΠΈΡΠΊΠΈ
Π ΡΡΠΈΡ ΠΏΡΠΈΠΌΠ΅ΡΠ°Ρ ΡΠ°Π·Π½ΠΈΡΠ° Π½Π΅ΡΡΡΠ΅ΡΡΠ²Π΅Π½Π½Π°Ρ. ΠΠ΄Π½Π°ΠΊΠΎ, ΠΊΠΎΠ³Π΄Π° Ρ Π²Π°Ρ ΠΌΠ½ΠΎΠ³ΠΎ ΠΊΠΎΠ΄Π°, ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ ΠΏΠΎΠ»Π΅Π·Π½ΠΎ, ΠΎΡΠΎΠ±Π΅Π½Π½ΠΎ Π΄Π»Ρ ΡΠ°Π±ΠΎΡΠΈΡ ΡΠ°Π±Π»ΠΈΡ ΠΈ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ΠΎΠ², Π³Π΄Π΅ ΠΈΠΌΠ΅Π½Π° ΠΎΠ±ΡΡΠ½ΠΎ Π΄Π»ΠΈΠ½Π½ΡΠ΅. E.Π³. thisWorkbook.Worksheets (Β«Sheet1Β»). Range (Β«A1Β») .
ΠΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ ΠΊΠ½ΠΈΠ³ΠΈ ΠΌΠΎΠΆΠ½ΠΎ ΠΏΡΠΈΡΠ²ΠΎΠΈΡΡ ΠΈΠΌΡ ΡΠΈΠΏΠ° wrkRead ΠΈΠ»ΠΈ wrkWrite. Π’ΠΎΠ³Π΄Π° Π²Ρ ΡΡΠ°Π·Ρ ΠΏΠΎΠΉΠΌΠ΅ΡΠ΅, Π΄Π»Ρ ΡΠ΅Π³ΠΎ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ ΡΡΠ° ΠΊΠ½ΠΈΠ³Π°.
Π‘ΠΎΠ·Π΄Π°ΡΡ Π½ΠΎΠ²ΡΡ ΠΊΠ½ΠΈΠ³Ρ
Π§ΡΠΎΠ±Ρ ΡΠΎΠ·Π΄Π°ΡΡ Π½ΠΎΠ²ΡΡ ΠΊΠ½ΠΈΠ³Ρ, Π²Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΠ΅ ΡΡΠ½ΠΊΡΠΈΡ Π Π°Π±ΠΎΡΠΈΠ΅ ΠΊΠ½ΠΈΠ³ΠΈ ΠΠΎΠ±Π°Π²ΠΈΡΡ . ΠΡΠ° ΡΡΠ½ΠΊΡΠΈΡ ΡΠΎΠ·Π΄Π°Π΅Ρ Π½ΠΎΠ²ΡΡ ΠΏΡΡΡΡΡ ΠΊΠ½ΠΈΠ³Ρ. ΠΡΠΎ ΡΠΎ ΠΆΠ΅ ΡΠ°ΠΌΠΎΠ΅, ΡΡΠΎ Π²ΡΠ±ΡΠ°ΡΡ Β«ΠΠΎΠ²Π°Ρ ΠΊΠ½ΠΈΠ³Π°Β» Π² ΠΌΠ΅Π½Ρ Β«Π€Π°ΠΉΠ» ExcelΒ».
ΠΠΎΠ³Π΄Π° Π²Ρ ΡΠΎΠ·Π΄Π°Π΅ΡΠ΅ Π½ΠΎΠ²ΡΡ ΠΊΠ½ΠΈΠ³Ρ, Π²Ρ, ΠΊΠ°ΠΊ ΠΏΡΠ°Π²ΠΈΠ»ΠΎ, Ρ ΠΎΡΠΈΡΠ΅ ΡΠΎΡ ΡΠ°Π½ΠΈΡΡ Π΅Π΅.Π ΡΠ»Π΅Π΄ΡΡΡΠ΅ΠΌ ΠΊΠΎΠ΄Π΅ ΠΏΠΎΠΊΠ°Π·Π°Π½ΠΎ, ΠΊΠ°ΠΊ ΡΡΠΎ ΡΠ΄Π΅Π»Π°ΡΡ.
https://excelmacromastery.com/ ΠΠ±ΡΠ΅Π΄ΠΎΡΡΡΠΏΠ½Π°Ρ ΠΏΠΎΠ΄ΠΏΠΈΡΠΊΠ° AddWordbook () Dim wrk As Workbook Π£ΡΡΠ°Π½ΠΎΠ²ΠΈΡΡ wrk = Workbooks.Add 'Π‘ΠΎΡ ΡΠ°Π½ΠΈΡΡ ΠΊΠ°ΠΊ xlsx. ΠΡΠΎ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ΠΏΠΎ ΡΠΌΠΎΠ»ΡΠ°Π½ΠΈΡ. wrk.SaveAs "C: \ Temp \ Example.xlsx" 'Π‘ΠΎΡ ΡΠ°Π½ΠΈΡΡ ΠΊΠ°ΠΊ ΠΊΠ½ΠΈΠ³Ρ Ρ ΠΏΠΎΠ΄Π΄Π΅ΡΠΆΠΊΠΎΠΉ ΠΌΠ°ΠΊΡΠΎΡΠΎΠ² wrk.SaveAs "C: \ Temp \ Example.xlsm", xlOpenXMLWorkbookMacroEnabled ΠΠΎΠ½Π΅Ρ ΠΏΠΎΠ΄ΠΏΠΈΡΠΊΠΈ
ΠΠΎΠ³Π΄Π° Π²Ρ ΡΠΎΠ·Π΄Π°Π΅ΡΠ΅ Π½ΠΎΠ²ΡΡ ΠΊΠ½ΠΈΠ³Ρ, ΠΎΠ½Π° ΠΎΠ±ΡΡΠ½ΠΎ ΡΠΎΡΡΠΎΠΈΡ ΠΈΠ· ΡΡΠ΅Ρ Π»ΠΈΡΡΠΎΠ².ΠΡΠΎ ΠΎΠΏΡΠ΅Π΄Π΅Π»ΡΠ΅ΡΡΡ ΡΠ²ΠΎΠΉΡΡΠ²ΠΎΠΌ Application.SheetsInNewWorkbook .
ΠΡΠ»ΠΈ Π²Ρ Ρ ΠΎΡΠΈΡΠ΅, ΡΡΠΎΠ±Ρ Π² Π½ΠΎΠ²ΠΎΠΉ ΠΊΠ½ΠΈΠ³Π΅ Π±ΡΠ»ΠΎ Π΄ΡΡΠ³ΠΎΠ΅ ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ Π»ΠΈΡΡΠΎΠ², ΠΈΠ·ΠΌΠ΅Π½ΠΈΡΠ΅ ΡΡΠΎ ΡΠ²ΠΎΠΉΡΡΠ²ΠΎ ΠΏΠ΅ΡΠ΅Π΄ ΡΠΎΠ·Π΄Π°Π½ΠΈΠ΅ΠΌ Π½ΠΎΠ²ΠΎΠΉ ΠΊΠ½ΠΈΠ³ΠΈ. Π ΡΠ»Π΅Π΄ΡΡΡΠ΅ΠΌ ΠΏΡΠΈΠΌΠ΅ΡΠ΅ ΠΏΠΎΠΊΠ°Π·Π°Π½ΠΎ, ΠΊΠ°ΠΊ ΡΠΎΠ·Π΄Π°ΡΡ Π½ΠΎΠ²ΡΡ ΠΊΠ½ΠΈΠ³Ρ Ρ ΡΠ΅ΠΌΡΡ Π»ΠΈΡΡΠ°ΠΌΠΈ.
https://excelmacromastery.com/ ΠΠ±ΡΠ΅Π΄ΠΎΡΡΡΠΏΠ½Π°Ρ ΠΏΠΎΠ΄ΠΏΠΈΡΠΊΠ° AddWordbookMultiSheets () 'Π‘ΠΎΡ ΡΠ°Π½ΠΈΡΡ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ SheetsInNewWorkbook, ΡΡΠΎΠ±Ρ ΠΌΡ ΠΌΠΎΠ³Π»ΠΈ ΡΠ±ΡΠΎΡΠΈΡΡ Π΅Π³ΠΎ ΠΏΠΎΠ·ΠΆΠ΅ Π’ΡΡΠΊΠ»ΡΠΉ Π»ΠΈΡΡCnt ΠΏΠΎ Π΄Π»ΠΈΠ½Π΅ sheetCnt = ΠΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅.Π’Π°Π±Π»ΠΈΡΡInNewWorkbook 'Π£ΡΡΠ°Π½ΠΎΠ²ΠΈΡΡ Π»ΠΈΡΡΡ Π² Π½ΠΎΠ²ΠΎΠΉ ΠΊΠ½ΠΈΠ³Π΅ Π½Π° 7 Application.SheetsInNewWorkbook = 7 'Π Π°Π±ΠΎΡΠ°Ρ ΡΠ΅ΡΡΠ°Π΄Ρ Π±ΡΠ΄Π΅Ρ ΡΠΎΠ·Π΄Π°Π½Π° ΠΈΠ· 7 Π»ΠΈΡΡΠΎΠ² Dim wrk As Workbook Π£ΡΡΠ°Π½ΠΎΠ²ΠΈΡΡ wrk = Workbooks.Add 'ΠΡΠΎΠ±ΡΠ°ΠΆΠ΅Π½ΠΈΠ΅ ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²Π° Π»ΠΈΡΡΠΎΠ² Debug.Print "ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ Π»ΠΈΡΡΠΎΠ²:" & CStr (wrk.Worksheets.Count) 'ΠΠΎΡΡΡΠ°Π½ΠΎΠ²ΠΈΡΡ ΠΈΡΡ ΠΎΠ΄Π½ΠΎΠ΅ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ Application.SheetsInNewWorkbook = sheetCnt ΠΠΎΠ½Π΅Ρ ΠΏΠΎΠ΄ΠΏΠΈΡΠΊΠΈ
ΠΠ»ΡΡΠ΅Π²ΠΎΠ΅ ΡΠ»ΠΎΠ²ΠΎ With ΠΈ ΡΠ°Π±ΠΎΡΠ°Ρ ΠΊΠ½ΠΈΠ³Π°
ΠΠ»ΡΡΠ΅Π²ΠΎΠ΅ ΡΠ»ΠΎΠ²ΠΎ With ΡΠΏΡΠΎΡΠ°Π΅Ρ ΡΡΠ΅Π½ΠΈΠ΅ ΠΈ Π·Π°ΠΏΠΈΡΡ ΠΊΠΎΠ΄Π° VBA.ΠΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ Ρ ΠΎΠ·Π½Π°ΡΠ°Π΅Ρ, ΡΡΠΎ Π²Π°ΠΌ Π½ΡΠΆΠ½ΠΎ ΡΠΏΠΎΠΌΡΠ½ΡΡΡ ΡΠ»Π΅ΠΌΠ΅Π½Ρ ΡΠΎΠ»ΡΠΊΠΎ ΠΎΠ΄ΠΈΠ½ ΡΠ°Π·. Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ Ρ ΠΎΠ±ΡΠ΅ΠΊΡΠ°ΠΌΠΈ. ΠΡΠΎ ΡΠ°ΠΊΠΈΠ΅ ΡΠ»Π΅ΠΌΠ΅Π½ΡΡ, ΠΊΠ°ΠΊ ΡΠ°Π±ΠΎΡΠΈΠ΅ ΡΠ΅ΡΡΠ°Π΄ΠΈ, ΡΠ°Π±ΠΎΡΠΈΠ΅ Π»ΠΈΡΡΡ ΠΈ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½Ρ.
Π ΡΠ»Π΅Π΄ΡΡΡΠ΅ΠΌ ΠΏΡΠΈΠΌΠ΅ΡΠ΅ Π΄Π²Π° Subs. ΠΠ΅ΡΠ²ΡΠΉ ΠΏΠΎΡ ΠΎΠΆ Π½Π° ΠΊΠΎΠ΄, ΠΊΠΎΡΠΎΡΡΠΉ ΠΌΡ Π²ΠΈΠ΄Π΅Π»ΠΈ Π΄ΠΎ ΡΠΈΡ ΠΏΠΎΡ. ΠΡΠΎΡΠΎΠΉ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅Ρ ΠΊΠ»ΡΡΠ΅Π²ΠΎΠ΅ ΡΠ»ΠΎΠ²ΠΎ Ρ . ΠΡ ΠΌΠΎΠΆΠ΅ΡΠ΅ Π²ΠΈΠ΄Π΅ΡΡ, ΡΡΠΎ ΠΊΠΎΠ΄ Π½Π°ΠΌΠ½ΠΎΠ³ΠΎ ΡΡΠ½Π΅Π΅ Π²ΠΎ Π²ΡΠΎΡΠΎΠΌ Sub. ΠΠ»ΡΡΠ΅Π²ΡΠ΅ ΡΠ»ΠΎΠ²Π° End With ΠΎΠ±ΠΎΠ·Π½Π°ΡΠ°ΡΡ ΠΎΠΊΠΎΠ½ΡΠ°Π½ΠΈΠ΅ ΠΊΠΎΠ΄Π° ΡΠ°Π·Π΄Π΅Π»Π° Ρ ΠΏΠΎΠΌΠΎΡΡΡ With .
https://excelmacromastery.com/ 'ΠΠ΅Π· ΠΊΠ»ΡΡΠ΅Π²ΠΎΠ³ΠΎ ΡΠ»ΠΎΠ²Π° With ΠΠ±ΡΠ΅Π΄ΠΎΡΡΡΠΏΠ½Π°Ρ ΠΏΠΎΠ΄ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° NoUsingWith () Debug.Print Workbooks ("Book2.xlsm"). Worksheets.Count Debug.Print Workbooks ("Book2.xlsm"). ΠΠΌΡ Debug.Print Workbooks ("Book2.xlsm"). Worksheets (1) .Range ("A1") Π Π°Π±ΠΎΡΠΈΠ΅ ΡΠ΅ΡΡΠ°Π΄ΠΈ ("Book2.xlsm"). ΠΠ°ΠΊΡΡΡΡ ΠΠΎΠ½Π΅Ρ ΠΏΠΎΠ΄ΠΏΠΈΡΠΊΠΈ 'ΠΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ With ΡΠΏΡΠΎΡΠ°Π΅Ρ ΡΡΠ΅Π½ΠΈΠ΅ ΠΊΠΎΠ΄Π° ΠΡΠ±Π»ΠΈΡΠ½Π°Ρ ΠΏΠΎΠ΄ΠΏΠΈΡΠΊΠ° UsingWith () Π‘ ΠΊΠ½ΠΈΠ³Π°ΠΌΠΈ ("Book2.xlsm") ΠΡΠ»Π°ΠΆΠΈΠ²Π°ΡΡ.ΠΠ΅ΡΠ°ΡΡ .Worksheets.Count Debug.Print .Name Debug.Print .Worksheets (1) .Range ("A1") .ΠΠ°ΠΊΡΡΡΡ ΠΠΎΠ½Π΅Ρ Ρ ΠΠΎΠ½Π΅Ρ ΠΏΠΎΠ΄ΠΏΠΈΡΠΊΠΈ
Π‘Π²ΠΎΠ΄ΠΊΠ°
ΠΠΈΠΆΠ΅ ΠΏΡΠΈΠ²ΠΎΠ΄ΠΈΡΡΡ ΠΊΡΠ°ΡΠΊΠΎΠ΅ ΠΈΠ·Π»ΠΎΠΆΠ΅Π½ΠΈΠ΅ ΠΎΡΠ½ΠΎΠ²Π½ΡΡ ΠΌΠΎΠΌΠ΅Π½ΡΠΎΠ² ΡΡΠΎΠΉ ΠΏΡΠ±Π»ΠΈΠΊΠ°ΡΠΈΠΈ
- Π§ΡΠΎΠ±Ρ ΠΏΠΎΠ»ΡΡΠΈΡΡ ΠΊΠ½ΠΈΠ³Ρ Ρ ΠΊΠΎΠ΄ΠΎΠΌ, ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠΉΡΠ΅ ThisWorkbook .
- Π§ΡΠΎΠ±Ρ ΠΏΠΎΠ»ΡΡΠΈΡΡ Π»ΡΠ±ΡΡ ΠΎΡΠΊΡΡΡΡΡ ΠΊΠ½ΠΈΠ³Ρ, ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠΉΡΠ΅ Π Π°Π±ΠΎΡΠΈΠ΅ ΠΊΠ½ΠΈΠ³ΠΈ (Β«Example.xlsxΒ») .
- Π§ΡΠΎΠ±Ρ ΠΎΡΠΊΡΡΡΡ ΠΊΠ½ΠΈΠ³Ρ, ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠΉΡΠ΅ Set Wrk = Workbooks.ΠΡΠΊΡΠΎΠΉΡΠ΅ (Β«C: \ Folder \ Example.xlsxΒ»).
- Π Π°Π·ΡΠ΅ΡΠΈΡΡ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ Π²ΡΠ±ΠΈΡΠ°ΡΡ ΡΠ°ΠΉΠ» Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΡΡΠ½ΠΊΡΠΈΠΈ UserSelectWorkbook , ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»Π΅Π½Π½ΠΎΠΉ Π²ΡΡΠ΅.
- Π§ΡΠΎΠ±Ρ ΡΠΎΠ·Π΄Π°ΡΡ ΠΊΠΎΠΏΠΈΡ ΠΎΡΠΊΡΡΡΠΎΠΉ ΠΊΠ½ΠΈΠ³ΠΈ, ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠΉΡΠ΅ ΡΠ²ΠΎΠΉΡΡΠ²ΠΎ SaveAs Ρ ΠΈΠΌΠ΅Π½Π΅ΠΌ ΡΠ°ΠΉΠ»Π°.
- Π§ΡΠΎΠ±Ρ ΡΠΎΠ·Π΄Π°ΡΡ ΠΊΠΎΠΏΠΈΡ ΠΊΠ½ΠΈΠ³ΠΈ Π±Π΅Π· ΠΎΡΠΊΡΡΡΠΈΡ, ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠΉΡΠ΅ ΡΡΠ½ΠΊΡΠΈΡ FileCopy .
- Π§ΡΠΎΠ±Ρ ΡΠΏΡΠΎΡΡΠΈΡΡ ΡΡΠ΅Π½ΠΈΠ΅ ΠΈ Π·Π°ΠΏΠΈΡΡ ΠΊΠΎΠ΄Π°, ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠΉΡΠ΅ ΠΊΠ»ΡΡΠ΅Π²ΠΎΠ΅ ΡΠ»ΠΎΠ²ΠΎ With .
- ΠΡΡΠ³ΠΎΠΉ ΡΠΏΠΎΡΠΎΠ± ΡΠ΄Π΅Π»Π°ΡΡ Π²Π°Ρ ΠΊΠΎΠ΄ ΠΏΠΎΠ½ΡΡΠ½ΡΠΌ - ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΠ΅ Workbook
- ΠΠ»Ρ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΡ Π²ΡΠ΅Ρ ΠΎΡΠΊΡΡΡΡΡ ΡΠ°Π±ΠΎΡΠΈΡ ΠΊΠ½ΠΈΠ³ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠΉΡΠ΅ Π΄Π»Ρ ΠΊΠ°ΠΆΠ΄ΠΎΠΉ Π½Π΅Π΄Π΅Π»ΠΈ Π² ΡΠ°Π±ΠΎΡΠΈΡ ΠΊΠ½ΠΈΠ³Π°Ρ , Π³Π΄Π΅ Π½Π΅Π΄Π΅Π»Ρ - ΡΡΠΎ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½Π°Ρ ΠΊΠ½ΠΈΠ³ΠΈ.
- Π‘ΡΠ°ΡΠ°ΠΉΡΠ΅ΡΡ ΠΈΠ·Π±Π΅Π³Π°ΡΡ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΡ ActiveWorkbook ΠΈ Workbooks (Index) , ΠΏΠΎΡΠΊΠΎΠ»ΡΠΊΡ ΠΈΡ ΡΡΡΠ»ΠΊΠ° Π½Π° ΠΊΠ½ΠΈΠ³Ρ ΡΠ²Π»ΡΠ΅ΡΡΡ Π²ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ.
ΠΡ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΡΠ²ΠΈΠ΄Π΅ΡΡ ΠΊΡΠ°ΡΠΊΠΎΠ΅ ΡΡΠΊΠΎΠ²ΠΎΠ΄ΡΡΠ²ΠΎ ΠΏΠΎ ΡΠ΅ΠΌΠ΅ Π² Π²Π΅ΡΡ Π½Π΅ΠΉ ΡΠ°ΡΡΠΈ ΡΡΠΎΠ³ΠΎ ΡΠΎΠΎΠ±ΡΠ΅Π½ΠΈΡ
ΠΠ°ΠΊΠ»ΡΡΠ΅Π½ΠΈΠ΅
ΠΡΠΎ Π±ΡΠ» ΠΏΠΎΠ΄ΡΠΎΠ±Π½ΡΠΉ ΠΏΠΎΡΡ ΠΎΠ± ΠΎΡΠ΅Π½Ρ Π²Π°ΠΆΠ½ΠΎΠΌ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠ΅ VBA - Π Π°Π±ΠΎΡΠ΅ΠΉ ΠΊΠ½ΠΈΠ³Π΅. ΠΠ°Π΄Π΅ΡΡΡ, Π²Ρ ΡΠΎΡΠ»ΠΈ ΡΡΠΎ ΠΏΠΎΠ»Π΅Π·Π½ΡΠΌ. Excel ΠΎΡΠ»ΠΈΡΠ½ΠΎ ΠΏΡΠ΅Π΄ΠΎΡΡΠ°Π²Π»ΡΠ΅Ρ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²ΠΎ ΡΠΏΠΎΡΠΎΠ±ΠΎΠ² Π²ΡΠΏΠΎΠ»Π½ΡΡΡ Π°Π½Π°Π»ΠΎΠ³ΠΈΡΠ½ΡΠ΅ Π΄Π΅ΠΉΡΡΠ²ΠΈΡ, Π½ΠΎ Π½Π΅Π΄ΠΎΡΡΠ°ΡΠΊΠΎΠΌ ΡΠ²Π»ΡΠ΅ΡΡΡ ΡΠΎ, ΡΡΠΎ ΠΈΠ½ΠΎΠ³Π΄Π° ΡΡΠΎ ΠΌΠΎΠΆΠ΅Ρ ΠΏΡΠΈΠ²Π΅ΡΡΠΈ ΠΊ ΠΏΡΡΠ°Π½ΠΈΡΠ΅.
Π§ΡΠΎΠ±Ρ ΠΈΠ·Π²Π»Π΅ΡΡ ΠΌΠ°ΠΊΡΠΈΠΌΠ°Π»ΡΠ½ΡΡ ΠΏΠΎΠ»ΡΠ·Ρ ΠΈΠ· ΡΡΠΎΠ³ΠΎ ΠΏΠΎΡΡΠ°, Ρ ΡΠ΅ΠΊΠΎΠΌΠ΅Π½Π΄ΡΡ Π²Π°ΠΌ ΠΏΠΎΠΏΡΠΎΠ±ΠΎΠ²Π°ΡΡ ΠΏΡΠΈΠΌΠ΅ΡΡ. Π‘ΠΎΠ·Π΄Π°ΠΉΡΠ΅ ΠΊΠ½ΠΈΠ³ΠΈ ΠΈ ΠΏΠΎΠΈΠ³ΡΠ°ΠΉΡΠ΅ Ρ ΠΊΠΎΠ΄ΠΎΠΌ. ΠΠ½Π΅ΡΠΈΡΠ΅ ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΡ Π² ΠΊΠΎΠ΄ ΠΈ ΠΏΠΎΡΠΌΠΎΡΡΠΈΡΠ΅, ΠΊΠ°ΠΊ ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΡ ΠΏΠΎΠ²Π»ΠΈΡΡΡ Π½Π° ΡΠ΅Π·ΡΠ»ΡΡΠ°Ρ. ΠΡΠ°ΠΊΡΠΈΠΊΠ° - Π»ΡΡΡΠΈΠΉ ΡΠΏΠΎΡΠΎΠ± ΠΈΠ·ΡΡΠΈΡΡ VBA.
ΠΡΠ»ΠΈ Π²Ρ Π½Π°ΡΠ»ΠΈ ΡΡΠΎΡ ΠΏΠΎΡΡ ΠΏΠΎΠ»Π΅Π·Π½ΡΠΌ, Π½Π΅ ΡΡΠ΅ΡΠ½ΡΠΉΡΠ΅ΡΡ ΠΏΠΎΠ΄Π΅Π»ΠΈΡΡΡΡ ΠΈΠΌ Ρ Π΄ΡΡΠ³ΠΈΠΌΠΈ, ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΡ ΠΏΠ°Π½Π΅Π»Ρ ΡΠ±ΠΎΠΊΡ.
Π§ΡΠΎ Π΄Π°Π»ΡΡΠ΅?
ΠΠ΅ΡΠΏΠ»Π°ΡΠ½ΠΎΠ΅ ΡΡΠΊΠΎΠ²ΠΎΠ΄ΡΡΠ²ΠΎ ΠΏΠΎ VBA ΠΡΠ»ΠΈ Π²Ρ Π½ΠΎΠ²ΠΈΡΠΎΠΊ Π² VBA ΠΈΠ»ΠΈ Ρ ΠΎΡΠΈΡΠ΅ ΠΎΡΡΠΎΡΠΈΡΡ ΡΠ²ΠΎΠΈ ΡΡΡΠ΅ΡΡΠ²ΡΡΡΠΈΠ΅ Π½Π°Π²ΡΠΊΠΈ VBA, ΠΏΠΎΡΠ΅ΠΌΡ Π±Ρ Π½Π΅ ΠΏΠΎΠΏΡΠΎΠ±ΠΎΠ²Π°ΡΡ The Ultimate VBA Tutorial.
Π‘Π²ΡΠ·Π°Π½Π½ΠΎΠ΅ ΠΎΠ±ΡΡΠ΅Π½ΠΈΠ΅: ΠΠΎΠ»ΡΡΠΈΡΠ΅ ΠΏΠΎΠ»Π½ΡΠΉ Π΄ΠΎΡΡΡΠΏ ΠΊ ΠΎΠ±ΡΡΠ°ΡΡΠΈΠΌ Π²Π΅Π±ΠΈΠ½Π°ΡΠ°ΠΌ ΠΏΠΎ Excel VBA ΠΈ Π²ΡΠ΅ΠΌ ΡΡΠ΅Π±Π½ΡΠΌ ΠΌΠ°ΡΠ΅ΡΠΈΠ°Π»Π°ΠΌ.
( ΠΠ ΠΠΠΠ§ΠΠΠΠ: ΠΠ»Π°Π½ΠΈΡΡΠ΅ΡΠ΅ ΡΠΎΠ·Π΄Π°Π½ΠΈΠ΅ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΡ VBA ΠΈΠ»ΠΈ ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΠ΅ ΠΈΠΌ? Π£Π·Π½Π°ΠΉΡΠ΅, ΠΊΠ°ΠΊ ΡΠΎΠ·Π΄Π°ΡΡ 10 ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠΉ Excel VBA Ρ Π½ΡΠ»Ρ.)
ΠΠΎΠ»ΡΡΠΈΡΠ΅ Π±Π΅ΡΠΏΠ»Π°ΡΠ½ΡΡ ΡΠ»Π΅ΠΊΡΡΠΎΠ½Π½ΡΡ ΠΊΠ½ΠΈΠ³Ρ
ΠΠ΅ ΡΡΠ΅ΡΠ½ΡΠΉΡΠ΅ΡΡ ΠΏΠΎΠ΄ΠΏΠΈΡΠ°ΡΡΡΡ Π½Π° ΠΌΠΎΠΉ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΎΠ½Π½ΡΠΉ Π±ΡΠ»Π»Π΅ΡΠ΅Π½Ρ ΠΈ ΠΏΠΎΠ»ΡΡΠΈΡΡ ΡΠΊΡΠΊΠ»ΡΠ·ΠΈΠ²Π½ΡΠΉ ΠΊΠΎΠ½ΡΠ΅Π½Ρ VBA, ΠΊΠΎΡΠΎΡΡΠΉ Π²Ρ Π½Π΅ ΠΌΠΎΠΆΠ΅ΡΠ΅ Π½Π°ΠΉΡΠΈ Π·Π΄Π΅ΡΡ, Π² Π±Π»ΠΎΠ³Π΅, Π° ΡΠ°ΠΊΠΆΠ΅ Π±Π΅ΡΠΏΠ»Π°ΡΠ½ΡΠΉ Π΄ΠΎΡΡΡΠΏ ΠΊ ΠΌΠΎΠ΅ΠΉ ΡΠ»Π΅ΠΊΡΡΠΎΠ½Π½ΠΎΠΉ ΠΊΠ½ΠΈΠ³Π΅ How to Ace the 21 Most Common Question in VBA , ΠΊΠΎΡΠΎΡΠ°Ρ ΠΏΠΎΠ»Π½Π° ΠΏΡΠΈΠΌΠ΅ΡΠΎΠ², ΠΊΠΎΡΠΎΡΡΠ΅ Π²Ρ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ Π² ΡΠ²ΠΎΠ΅ΠΌ ΡΠΎΠ±ΡΡΠ²Π΅Π½Π½ΠΎΠΌ ΠΊΠΎΠ΄Π΅.
.
Workbook.Save-Method (Excel) | ΠΠΎΠΊΡΠΌΠ΅Π½ΡΡ Microsoft
- 2 ΠΌΠΈΠ½ΡΡΡ ΠΠ΅ΡΠ΅Π΄Π°ΡΡΡΠ°
Π Diesem Artikel
Speichert Γnderungen in der angegebenen Arbeitsmappe. Π‘ΠΎΡ ΡΠ°Π½ΡΠ΅Ρ ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΡ Π² ΡΠΊΠ°Π·Π°Π½Π½ΠΎΠΉ ΠΊΠ½ΠΈΠ³Π΅.
Π‘ΠΈΠ½ΡΠ°ΠΊΡΠΈΡ Π‘ΠΈΠ½ΡΠ°ΠΊΡΠΈΡ
Ausdruck . Speichern Sie Π²ΡΡΠ°ΠΆΠ΅Π½ΠΈΠ΅ . Π‘ΠΎΡ ΡΠ°Π½ΠΈΡΡ
Ausdruck Eine Variable, die ein Workbook -Objekt darstellt. Π²ΡΡΠ°ΠΆΠ΅Π½ΠΈΠ΅ ΠΠ΅ΡΠ΅ΠΌΠ΅Π½Π½Π°Ρ, ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»ΡΡΡΠ°Ρ ΠΎΠ±ΡΠ΅ΠΊΡ Workbook .
Hinweise ΠΠ°ΠΌΠ΅ΡΠ°Π½ΠΈΡ
Verwenden Sie die Open -Methode, um eine Arbeitsmappendatei zu ΓΆffnen. Π§ΡΠΎΠ±Ρ ΠΎΡΠΊΡΡΡΡ ΡΠ°ΠΉΠ» ΠΊΠ½ΠΈΠ³ΠΈ, ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠΉΡΠ΅ ΠΌΠ΅ΡΠΎΠ΄ Open .
Um eine Arbeitsmappe als gespeichert zu markieren, ohne Sie auf einen DatentrΓ€ger zu schreiben, legen Sie die Saved-Eigenschaft auf true fest.Π§ΡΠΎΠ±Ρ ΠΏΠΎΠΌΠ΅ΡΠΈΡΡ ΠΊΠ½ΠΈΠ³Ρ ΠΊΠ°ΠΊ ΡΠΎΡ ΡΠ°Π½Π΅Π½Π½ΡΡ Π±Π΅Π· Π·Π°ΠΏΠΈΡΠΈ Π΅Π΅ Π½Π° Π΄ΠΈΡΠΊ, ΡΡΡΠ°Π½ΠΎΠ²ΠΈΡΠ΅ Π΄Π»Ρ ΡΠ²ΠΎΠΉΡΡΠ²Π° Saved Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ True .
Wenn Sie eine Arbeitsmappe zum ersten Mal speichern, verwenden Sie die SaveAs -Methode, um einen Namen fΓΌr die Datei anzugeben. ΠΡΠΈ ΠΏΠ΅ΡΠ²ΠΎΠΌ ΡΠΎΡ ΡΠ°Π½Π΅Π½ΠΈΠΈ ΠΊΠ½ΠΈΠ³ΠΈ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠΉΡΠ΅ ΠΌΠ΅ΡΠΎΠ΄ SaveAs , ΡΡΠΎΠ±Ρ ΡΠΊΠ°Π·Π°ΡΡ ΠΈΠΌΡ ΡΠ°ΠΉΠ»Π°.
Beispiel ΠΡΠΈΠΌΠ΅Ρ
In diesem Beispiel wird die aktive Arbeitsmappe gespeichert. ΠΡΠΎΡ ΠΏΡΠΈΠΌΠ΅Ρ ΡΠΎΡ ΡΠ°Π½ΡΠ΅Ρ Π°ΠΊΡΠΈΠ²Π½ΡΡ ΠΊΠ½ΠΈΠ³Ρ.
ActiveWorkbook.Save
In diesem Beispiel werden alle geΓΆffneten Arbeitsmappen gespeichert. Π£Π΄Π°Π»Π΅Π½ ΠΎΡΠ²Π΅Ρ Microsoft Excel. Π ΡΡΠΎΠΌ ΠΏΡΠΈΠΌΠ΅ΡΠ΅ ΡΠΎΡ ΡΠ°Π½ΡΡΡΡΡ Π²ΡΠ΅ ΠΎΡΠΊΡΡΡΡΠ΅ ΠΊΠ½ΠΈΠ³ΠΈ, Π° Π·Π°ΡΠ΅ΠΌ Π·Π°ΠΊΡΡΠ²Π°Π΅ΡΡΡ Microsoft Excel.
Π΄Π»Ρ ΠΊΠ°ΠΆΠ΄ΠΎΠ³ΠΎ w Π² ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠΈ.
w.Save
Π‘Π»Π΅Π΄ΡΡΡΠ°Ρ ΠΆ
Application.Quit
In diesem Beispiel wird das Ereignis BeforeSave verwendet, um sicherzustellen, dass in bestimmten Zellen Daten vorhanden sind, bevor eine Arbeitsmappe gespeichert werden kann.Π ΡΡΠΎΠΌ ΠΏΡΠΈΠΌΠ΅ΡΠ΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ ΡΠΎΠ±ΡΡΠΈΠ΅ BeforeSave Π΄Π»Ρ ΠΏΡΠΎΠ²Π΅ΡΠΊΠΈ ΡΠΎΠ³ΠΎ, ΡΡΠΎ ΠΎΠΏΡΠ΅Π΄Π΅Π»Π΅Π½Π½ΡΠ΅ ΡΡΠ΅ΠΉΠΊΠΈ ΡΠΎΠ΄Π΅ΡΠΆΠ°Ρ Π΄Π°Π½Π½ΡΠ΅, ΠΏΡΠ΅ΠΆΠ΄Π΅ ΡΠ΅ΠΌ ΠΌΠΎΠΆΠ½ΠΎ Π±ΡΠ΄Π΅Ρ ΡΠΎΡ ΡΠ°Π½ΠΈΡΡ ΠΊΠ½ΠΈΠ³Ρ. Dabei kann die Arbeitsmappe nur gespeichert werden, wenn in den folgenden Zellen Daten enthalten sind: D5, D7, D9, D11, D13 ΠΈ D15. Π Π°Π±ΠΎΡΠ°Ρ ΠΊΠ½ΠΈΠ³Π° Π½Π΅ ΠΌΠΎΠΆΠ΅Ρ Π±ΡΡΡ ΡΠΎΡ ΡΠ°Π½Π΅Π½Π°, ΠΏΠΎΠΊΠ° Π΄Π°Π½Π½ΡΠ΅ Π² ΠΊΠ°ΠΆΠ΄ΠΎΠΉ ΠΈΠ· ΡΠ»Π΅Π΄ΡΡΡΠΈΡ ΡΡΠ΅Π΅ΠΊ: D5, D7, D9 , D11, D13 ΠΈ D15.
Private Sub Workbook_BeforeSave (ByVal SaveAsUI As Boolean, ΠΡΠΌΠ΅Π½ΠΈΡΡ ΠΊΠ°ΠΊ Boolean)
'ΠΡΠ»ΠΈ ΡΠ΅ΡΡΡ ΡΠΊΠ°Π·Π°Π½Π½ΡΡ
ΡΡΠ΅Π΅ΠΊ Π½Π΅ ΡΠΎΠ΄Π΅ΡΠΆΠ°Ρ Π΄Π°Π½Π½ΡΡ
, ΠΎΡΠΎΠ±ΡΠ°Π·ΠΈΡΡ ΠΎΠΊΠ½ΠΎ ΡΠΎΠΎΠ±ΡΠ΅Π½ΠΈΡ Ρ ΠΎΡΠΈΠ±ΠΊΠΎΠΉ
'ΠΈ ΠΎΡΠΌΠ΅Π½ΠΈΡΠ΅ ΠΏΠΎΠΏΡΡΠΊΡ ΡΠΎΡ
ΡΠ°Π½Π΅Π½ΠΈΡ.ΠΡΠ»ΠΈ WorksheetFunction.CountA (Worksheets ("Sheet1"). Range ("D5, D7, D9, D11, D13, D15")) <6, ΡΠΎ
MsgBox "ΠΠ½ΠΈΠ³Π° Π½Π΅ Π±ΡΠ΄Π΅Ρ ΡΠΎΡ
ΡΠ°Π½Π΅Π½Π°, Π΅ΡΠ»ΠΈ" & vbCrLf & _
"ΠΡΠ΅ ΠΎΠ±ΡΠ·Π°ΡΠ΅Π»ΡΠ½ΡΠ΅ ΠΏΠΎΠ»Ρ Π·Π°ΠΏΠΎΠ»Π½Π΅Π½Ρ!"
ΠΡΠΌΠ΅Π½Π° = True
ΠΠΎΠ½Π΅Ρ, Π΅ΡΠ»ΠΈ
ΠΠΎΠ½Π΅Ρ ΠΏΠΎΠ΄ΠΏΠΈΡΠΊΠΈ
ΠΠΎΠ΄Π΄Π΅ΡΠΆΠΊΠ° ΠΈ ΠΎΠ±ΡΠ°ΡΠ½Π°Ρ ΡΠ²ΡΠ·Ρ ΠΠΎΠ΄Π΄Π΅ΡΠΆΠΊΠ° ΠΈ ΠΎΡΠ·ΡΠ²Ρ
Haben Sie Fragen oder Feedback zu Office VBA or zu dieser Dokumentation? ΠΡΡΡ Π²ΠΎΠΏΡΠΎΡΡ ΠΈΠ»ΠΈ ΠΎΡΠ·ΡΠ²Ρ ΠΎΠ± Office VBA ΠΈΠ»ΠΈ ΡΡΠΎΠΉ Π΄ΠΎΠΊΡΠΌΠ΅Π½ΡΠ°ΡΠΈΠΈ? Unter Office VBA-Support ΠΈ ΠΎΠ±ΡΠ°ΡΠ½Π°Ρ ΡΠ²ΡΠ·Ρ Finden Sie Hilfestellung zu den MΓΆglichkeiten, wie Sie Support erhalten und Feedback abgeben kΓΆnnen.Π‘ΠΌ. Π Π°Π·Π΄Π΅Π» ΠΠΎΠ΄Π΄Π΅ΡΠΆΠΊΠ° ΠΈ ΠΎΡΠ·ΡΠ²Ρ Office VBA, ΡΡΠΎΠ±Ρ ΡΠ·Π½Π°ΡΡ, ΠΊΠ°ΠΊ ΠΏΠΎΠ»ΡΡΠΈΡΡ ΠΏΠΎΠ΄Π΄Π΅ΡΠΆΠΊΡ ΠΈ ΠΎΡΡΠ°Π²ΠΈΡΡ ΠΎΡΠ·ΡΠ².
.