ΠΡΠΈΠΌΠ΅ΡΡ vba: ΠΠ°ΠΊΡΠΎΡΡ Π΄Π»Ρ Excel Ρ ΠΈΡΡ ΠΎΠ΄Π½ΡΠΌΠΈ ΠΊΠΎΠ΄Π°ΠΌΠΈ ΠΈ ΠΎΠΏΠΈΡΠ°Π½ΠΈΠ΅ΠΌ ΡΡΠ½ΠΊΡΠΈΠΉ
Π‘ΠΎΠ΄Π΅ΡΠΆΠ°Π½ΠΈΠ΅
ΠΠ°ΠΊΡΠΎΡ Π΄Π»Ρ ΠΎΠ±ΡΠ΅Π΄ΠΈΠ½Π΅Π½ΠΈΡ ΠΏΡΡΡΡΡ ΡΡΠ΅Π΅ΠΊ Π² ΡΡΡΠΎΠΊΠ°Ρ ΡΠ°Π±Π»ΠΈΡΡ Excel
ΠΠ°ΠΊΡΠΎΡΡ Π½Π΅Π·Π°ΠΌΠ΅Π½ΠΈΠΌΡ ΠΏΡΠΈ ΡΠΎΡΠΌΠ°ΡΠΈΡΠΎΠ²Π°Π½ΠΈΠΈ ΠΈ ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΠΈ ΡΡΡΡΠΊΡΡΡΡ Π² Π±ΠΎΠ»ΡΡΠΈΡ ΡΠ°Π±Π»ΠΈΡΠ°Ρ Excel. Π Π΄Π°Π½Π½ΠΎΠΌ ΠΏΡΠΈΠΌΠ΅ΡΠ΅ ΠΌΡ ΡΠ°ΡΡΠΌΠΎΡΡΠΈΠΌ, ΠΊΠ°ΠΊ Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΠΌΠ°ΠΊΡΠΎΡΠ° ΠΌΠΎΠΆΠ½ΠΎ Π±ΡΡΡΡΠΎ ΠΈ ΠΎΠ΄Π½ΠΎΠ²ΡΠ΅ΠΌΠ΅Π½Π½ΠΎ ΠΎΠ±ΡΠ΅Π΄ΠΈΠ½ΡΡΡ Π²ΡΠ΅ ΠΏΡΡΡΡΠ΅ ΡΡΠ΅ΠΉΠΊΠΈ Π² ΡΡΡΠΎΠΊΠ°Ρ ΡΠ°Π±Π»ΠΈΡΡ Excel.
ΠΠ°ΠΊ ΠΎΠ±ΡΠ΅Π΄ΠΈΠ½ΠΈΡΡ ΠΏΡΡΡΡΠ΅ ΡΡΠ΅ΠΉΠΊΠΈ Π² ΡΡΡΠΎΠΊΠ°Ρ Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΠΌΠ°ΠΊΡΠΎΡΠ°
Π£ Π½Π°Ρ ΠΈΠΌΠ΅ΡΡΡΡ ΡΠ°Π±Π»ΠΈΡΠ° Π±ΡΠ΄ΠΆΠ΅ΡΠ° Π΄Π»Ρ ΡΠ°Π·Π½ΡΡ ΠΎΡΠ΄Π΅Π»ΠΎΠ². Π‘ΡΠΌΠΌΡ ΡΠ°ΡΠΏΡΠ΅Π΄Π΅Π»Π΅Π½Ρ ΠΏΠΎ ΠΌΠ΅ΡΡΡΠ°ΠΌ. ΠΡΠΎΠ³ΠΎΠ²ΡΠ΅ ΡΡΠΌΠΌΡ ΠΏΠΎ ΠΊΠ°ΠΆΠ΄ΠΎΠΌΡ ΠΎΡΠ΄Π΅Π»Ρ Π²Π·ΡΡΡ ΠΈΠ· Π΄ΡΡΠ³ΠΈΡ Π»ΠΈΡΡΠΎΠ² ΡΠ°Π±ΠΎΡΠ΅ΠΉ ΠΊΠ½ΠΈΠ³ΠΈ Excel, Π³Π΄Π΅ ΡΠΊΠ°Π·Π°Π½Ρ ΠΏΠΎ Π½ΠΈΠΌ Π΄Π°Π½Π½ΡΠ΅ Π½Π° Π²ΡΠ΅ ΠΌΠ΅ΡΡΡΠ° ΡΠ΅ΠΊΡΡΠ΅Π³ΠΎ Π³ΠΎΠ΄Π°. ΠΠΎΡΡΠΎΠΌΡ Π°Π²ΡΠΎΡ ΠΎΠ±ΡΠ΅ΠΉ ΡΠ°Π±Π»ΠΈΡΡ Π±ΡΠ΄ΠΆΠ΅ΡΠ° ΡΠ°ΡΠΏΡΠ΅Π΄Π΅Π»ΠΈΠ» Π½Π°Π·Π²Π°Π½ΠΈΡ Π·Π°Π³ΠΎΠ»ΠΎΠ²ΠΊΠΎΠ² Π½Π΅ ΡΠΎΠ»ΡΠΊΠΎ ΠΏΠΎ ΠΌΠ΅ΡΡΡΠ°ΠΌ, Π° ΠΈ ΠΏΠΎ ΠΊΠ²Π°ΡΡΠ°Π»Π°ΠΌ. Π‘ΠΎΠΎΡΠ²Π΅ΡΡΡΠ²Π΅Π½Π½ΠΎ Π½Π°Π·Π²Π°Π½ΠΈΠ΅ ΠΊΠ²Π°ΡΡΠ°Π»Π° Π½Π°Ρ ΠΎΠ΄ΠΈΡΡΡΡ Π² ΡΡΠΎΠ»Π±ΡΠ΅ ΠΏΠ΅ΡΠ²ΠΎΠ³ΠΎ ΠΌΠ΅ΡΡΡΠ° Ρ ΠΊΠΎΡΠΎΡΠΎΠ³ΠΎ Π½Π°ΡΠΈΠ½Π°Π΅ΡΡΡ ΡΡΠΎΡ ΠΆΠ΅ ΠΊΠ²Π°ΡΡΠ°Π». ΠΠ° ΠΈΡΠΊΠ»ΡΡΠ΅Π½ΠΈΠ΅ΠΌ ΠΏΠ΅ΡΠ²ΠΎΠ³ΠΎ ΠΊΠ²Π°ΡΡΠ°Π»Π° ΡΠ°ΠΊ ΠΊΠ°ΠΊ Π³ΠΎΠ΄ ΡΠΆΠ΅ Π½Π΅ ΠΏΠΎΠ»Π½ΡΠΉ ΠΏΠΎ ΡΠΎΡΡΠΎΡΠ½ΠΈΡ Π½Π° Π΄Π°ΡΡ ΡΠΎΡΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΠΎΡΡΠ΅ΡΠ°. ΠΠ°ΠΊ ΠΏΠΎΠΊΠ°Π·Π°Π½ΠΎ Π½ΠΈΠΆΠ΅ Π½Π° ΡΠΈΡΡΠ½ΠΊΠ΅:
Π€ΠΎΡΠΌΠ°Ρ Π±ΡΠ΄ΠΆΠ΅ΡΠ° Π΄Π»Ρ Π΅ΠΆΠ΅ΠΌΠ΅ΡΡΡΠ½ΡΡ ΠΏΠΎΠΊΠ°Π·Π°ΡΠ΅Π»Π΅ΠΉ Ρ ΡΠ°ΡΠΏΡΠ΅Π΄Π΅Π»Π΅Π½ΠΈΠ΅ΠΌ ΠΏΠΎ ΠΊΠ²Π°ΡΡΠ°Π»Π°ΠΌ.
ΠΠ°ΠΌ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ ΠΎΠ±ΡΠ΅Π΄ΠΈΠ½ΠΈΡΡ ΡΡΠ΅ΠΉΠΊΠΈ Π½Π° ΠΏΠ΅ΡΠ²ΠΎΠΉ ΡΡΡΠΎΠΊΠ΅ ΡΠ°ΠΊΠΈΠΌ ΠΎΠ±ΡΠ°Π·ΠΎΠΌ, ΡΡΠΎΠ±Ρ ΡΡΠ΅ΠΉΠΊΠ° Ρ Π½Π°Π·Π²Π°Π½ΠΈΠ΅ΠΌ ΠΊΠ²Π°ΡΡΠ°Π»Π° Π±ΡΠ»Π° ΠΎΠ±ΡΠ΅Π΄ΠΈΠ½Π΅Π½Π° Ρ ΠΏΡΡΡΡΠΌΠΈ ΡΡΠ΅ΠΉΠΊΠ°ΠΌΠΈ Π½Π°Ρ ΠΎΠ΄ΡΡΠΈΠ΅ΡΡ ΡΠΏΡΠ°Π²Π° ΠΎΡ Π½Π΅Π΅. Π ΡΠ°ΠΊ Π΄Π»Ρ ΠΊΠ°ΠΆΠ΄ΠΎΠ³ΠΎ Π½Π°Π·Π²Π°Π½ΠΈΡ ΠΊΠ²Π°ΡΡΠ°Π»Π°.
ΠΡΠ΄Π΅Π»Π΅Π½ΠΈΠ΅ ΠΎΡΠ΄Π΅Π»ΡΠ½ΡΡ Π³ΡΡΠΏΠΏ ΡΡΠ΅Π΅ΠΊ Π²ΡΡΡΠ½ΡΡ ΠΌΠΎΠΆΠ΅Ρ ΠΏΠΎΡΡΠ΅Π±ΠΎΠ²Π°ΡΡ ΠΌΠ½ΠΎΠ³ΠΎ Π²ΡΠ΅ΠΌΠ΅Π½ΠΈ ΠΈ ΡΠΈΠ», ΠΎΡΠΎΠ±Π΅Π½Π½ΠΎ ΠΏΡΠΈ ΠΎΠ±ΡΠ°Π±ΠΎΡΠΊΠ΅ Π½Π΅ΡΠΊΠΎΠ»ΡΠΊΠΎ ΡΠ°ΠΊΠΈΡ ΠΏΠΎΠ΄ΠΎΠ±Π½ΡΡ Π±ΡΠ΄ΠΆΠ΅ΡΠΎΠ². ΠΠ° ΠΈ ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ ΠΎΠ±ΡΠ΅Π΄ΠΈΠ½ΡΠ΅ΠΌΡΡ ΡΡΠ΅Π΅ΠΊ Π½Π΅ Π²ΡΠ΅Π³Π΄Π° ΠΎΠ΄ΠΈΠ½Π°ΠΊΠΎΠ²ΠΎΠ΅ β Π° ΡΡΠΎ ΡΠΆΠ΅ ΡΡΠ΅Π±ΡΠ΅Ρ Π΄ΠΎΠΏΠΎΠ»Π½ΠΈΡΠ΅Π»ΡΠ½ΠΎΠ³ΠΎ Π²Π½ΠΈΠΌΠ°Π½ΠΈΡ ΠΎΡ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ, ΠΈΠ½Π°ΡΠ΅ Π±ΡΠ΄ΡΡ ΠΎΡΠΈΠ±ΠΊΠΈ Π² ΡΡΡΡΠΊΡΡΡΠ΅ ΠΎΡΡΠ΅ΡΠΎΠ². Π Π°ΡΠΈΠΎΠ½Π°Π»ΡΠ½ΠΎ Π½Π°ΠΏΠΈΡΠ°ΡΡ ΠΌΠ°ΠΊΡΠΎΡ Π΄Π»Ρ Π°Π²ΡΠΎΠΌΠ°ΡΠΈΡΠ΅ΡΠΊΠΎΠ³ΠΎ ΡΠ΅ΡΠ΅Π½ΠΈΡ ΠΏΠΎΡΡΠ°Π²Π»Π΅Π½Π½ΠΎΠΉ Π·Π°Π΄Π°ΡΠΈ.
ΠΡΠΊΡΠΎΠ΅ΠΌ ΡΠ΅Π΄Π°ΠΊΡΠΎΡ Visual Basic (ALT+F11):
Π Π²ΡΡΠ°Π²ΠΈΠΌ Π½ΠΎΠ²ΡΠΉ ΠΌΠΎΠ΄ΡΠ»Ρ Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΠΈΠ½ΡΡΡΡΠΌΠ΅Π½ΡΠ° Π² ΡΠ΅Π΄Π°ΠΊΡΠΎΡΠ΅: Β«InsertΒ»-Β«ModuleΒ». ΠΠΎΡΠ»Π΅ Π·Π°ΠΏΠΈΡΠ΅ΠΌ Π² ΠΌΠΎΠ΄ΡΠ»Ρ ΠΊΠΎΠ΄ VBA-ΠΌΠ°ΠΊΡΠΎΡΠ°:
Sub JoinEmpty()
Dim i As Long
For i = 1 To Selection.Columns.Count
Β Β If Selection.Cells(1, i) = "" Then
Β Β ActiveSheet.Range(Selection.Cells(1, i - 1), Selection.Cells(1, i)).Merge
Β Β End If
Next
Selection. HorizontalAlignment = xlVAlignCenter
End Sub
Π’Π΅ΠΏΠ΅ΡΡ Π΅ΡΠ»ΠΈ Π½Π°ΠΌ Π½ΡΠΆΠ½ΠΎ ΠΎΠ΄Π½ΠΎΠ²ΡΠ΅ΠΌΠ΅Π½Π½ΠΎ ΠΎΠ±ΡΠ΅Π΄ΠΈΠ½ΡΡΡ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½Ρ ΠΊΠ²Π°ΡΡΠ°Π»ΠΎΠ², ΡΡΠΎΠ±Ρ ΠΈΠ·Π±Π°Π²ΠΈΡΡΡΡ ΠΎΡ ΠΏΡΡΡΡΡ ΡΡΠ΅Π΅ΠΊ, Π²ΡΠ΄Π΅Π»ΠΈΡΠ΅ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ B1:L2. ΠΠΎΡΠ»Π΅ ΡΠ΅Π³ΠΎ Π·Π°ΠΏΡΡΡΠΈΡΠ΅ ΠΌΠ°ΠΊΡΠΎΡ: Β«Π ΠΠΠ ΠΠΠΠ’Π§ΠΠΒ»-Β«ΠΠΎΠ΄Β»-Β«ΠΠ°ΠΊΡΠΎΡΡΒ»-Β«JoinEmptyΒ»-Β«ΠΡΠΏΠΎΠ»Π½ΠΈΡΡΒ». Π―ΡΠ΅ΠΉΠΊΠΈ ΠΎΠ±ΡΠ΅Π΄ΠΈΠ½ΡΡΡΡΡ Π² ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΠΈΠΈ Ρ ΠΏΡΠΎΠ΄ΠΎΠ»ΠΆΠΈΡΠ΅Π»ΡΠ½ΠΎΡΡΡΡ ΠΊΠ°ΠΆΠ΄ΠΎΠ³ΠΎ ΠΊΠ²Π°ΡΡΠ°Π»Π°, ΠΊΠ°ΠΊ Π½Π° ΡΠΈΡΡΠ½ΠΊΠ΅:
Π Π΄Π°Π½Π½ΠΎΠΌ ΠΊΠΎΠ΄Π΅ ΡΠΈΠΊΠ» ΠΏΡΠΎΡ ΠΎΠ΄ΠΈΡ ΠΏΠΎ Π²ΡΠ΅ΠΌ ΡΡΠ΅ΠΉΠΊΠ°ΠΌ ΠΏΠ΅ΡΠ²ΠΎΠΉ ΡΡΡΠΎΠΊΠΈ Π²ΡΠ΄Π΅Π»Π΅Π½Π½ΠΎΠ³ΠΎ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½Π°, ΡΠ»Π΅Π²Π° Π½Π° ΠΏΡΠ°Π²ΠΎ. ΠΡΠΎΠ²Π΅ΡΡΠ΅ΡΡΡ ΠΊΠ°ΠΆΠ΄Π°Ρ ΠΈΠ· Π½ΠΈΡ Π½Π° Π½Π°Π»ΠΈΡΠΈΠ΅ Π·Π½Π°ΡΠ΅Π½ΠΈΠΉ. ΠΡΠ»ΠΈ ΠΏΡΠΎΠ²Π΅ΡΡΠ΅ΠΌΠ°Ρ ΡΡΠ΅ΠΉΠΊΠ° Π½Π΅ ΡΠΎΠ΄Π΅ΡΠΆΠΈΡ Π½ΠΈΠΊΠ°ΠΊΠΈΡ Π·Π½Π°ΡΠ΅Π½ΠΈΠΉ (ΠΏΡΡΡΠ°), ΠΌΠ°ΠΊΡΠΎΡ ΠΎΠ±ΡΠ΅Π΄ΠΈΠ½ΡΠ΅Ρ Π΅Π΅ Ρ ΠΏΡΠ΅Π΄ΡΠ΄ΡΡΠ΅ΠΉ ΡΡΠ΅ΠΉΠΊΠΎΠΉ. Π Π΅ΡΠ»ΠΈ ΠΆΠ΅ ΠΏΡΠΎΠ²Π΅ΡΡΠ΅ΠΌΠ°Ρ ΡΡΠ΅ΠΉΠΊΠ° ΡΠΎΠ΄Π΅ΡΠΆΠΈΡ ΠΊΠ°ΠΊΠΎΠ΅-ΡΠΎ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅, ΡΠΎ ΠΌΠ°ΠΊΡΠΎΡ ΠΏΡΠΎΠΏΡΡΠΊΠ°Π΅Ρ Π΅Π΅ ΠΈ ΠΏΠ΅ΡΠ΅Ρ ΠΎΠ΄ΠΈΡ ΠΊ ΠΏΡΠΎΠ²Π΅ΡΠΊΠ΅ ΡΠ»Π΅Π΄ΡΡΡΠ΅ΠΉ.
Π ΠΊΠΎΠ½ΡΠ΅ ΠΊΠΎΠ΄Π° Π²ΡΡΠ°Π²Π½ΠΈΠ²Π°Π΅ΠΌ ΠΏΠΎ ΡΠ΅Π½ΡΡΡ Π²Π΅ΡΡ ΡΠ΅ΠΊΡΡ, ΠΊΠΎΡΠΎΡΡΠΉ ΡΠΎΠ΄Π΅ΡΠΆΠΈΡΡΡ Π² Π²ΡΠ΄Π΅Π»Π΅Π½Π½ΠΎΠΌ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½Π΅ Π·Π°Π΄Π°Π² ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΡΡΡΠ΅Π΅ ΡΠ²ΠΎΠΉΡΡΠ²ΠΎ Π² ΡΡΡΠΎΠΊΠ΅:
Selection.HorizontalAlignment = xlHAlignCenter
ΠΠ±ΡΠ°ΡΠΈΡΠ΅ Π²Π½ΠΈΠΌΠ°Π½ΠΈΠ΅, ΡΡΠΎ Π² ΡΡΠΎΠΉ Π²Π΅ΡΡΠΈΠΈ ΠΊΠΎΠ΄Π° Π΅ΡΠ»ΠΈ ΠΌΡ Π²ΡΠ΄Π΅Π»ΠΈΠΌ Π±ΠΎΠ»Π΅Π΅ ΠΎΠ΄Π½ΠΎΠΉ ΡΡΡΠΎΠΊΠΈ ΡΠΎΠ΄Π΅ΡΠΆΠ°ΡΠΈΠ΅ ΠΏΡΡΡΡΠ΅ ΡΡΠ΅ΠΉΠΊΠΈ, ΡΠΎ ΠΏΠΎΡΠ»Π΅ Π·Π°ΠΏΡΡΠΊΠ° ΠΌΠ°ΠΊΡΠΎΡΠ° Π±ΡΠ΄ΡΡ ΠΎΠ±ΡΠ΅Π΄ΠΈΠ½Π΅Π½Ρ ΡΡΠ΅ΠΉΠΊΠΈ ΡΠΎΠ»ΡΠΊΠΎ Π² ΠΏΠ΅ΡΠ²ΠΎΠΉ ΡΡΡΠΎΠΊΠ΅. ΠΠ°Π»Π΅Π΅ ΡΠ°ΡΡΠΌΠΎΡΡΠΈΠΌ, ΠΊΠ°ΠΊ ΠΌΠΎΠ΄ΠΈΡΠΈΡΠΈΡΠΎΠ²Π°ΡΡ Π½Π°Ρ ΠΌΠ°ΠΊΡΠΎΡ, ΡΡΠΎΠ±Ρ ΠΎΠ½ Π±ΡΠ» ΠΏΡΠΈΠΌΠ΅Π½ΠΈΠΌ ΠΎΠ΄Π½ΠΎΠ²ΡΠ΅ΠΌΠ΅Π½Π½ΠΎ Π΄Π»Ρ Π½Π΅ΡΠΊΠΎΠ»ΡΠΊΠΈΡ Π²ΡΠ΄Π΅Π»Π΅Π½Π½ΡΡ ΡΡΡΠΎΠΊ.
ο»Ώ
ΠΠ°ΠΊ ΠΎΠ±ΡΠ΅Π΄ΠΈΠ½ΠΈΡΡ Π²ΡΠ΅ ΠΏΡΡΡΡΠ΅ ΡΡΠ΅ΠΉΠΊΠΈ Π²ΠΎ Π²ΡΠ΅Ρ ΡΡΡΠΎΠΊΠ°Ρ ΡΠ°Π±Π»ΠΈΡΡ Excel
Π§ΡΠΎ Π΅ΡΠ»ΠΈ Π² Π½Π°ΡΠ΅ΠΉ ΡΠ°Π±Π»ΠΈΡΠ΅ ΠΏΠΎΡΡΠ΅Π±ΡΠ΅ΡΡΡ Π²ΡΠΏΠΎΠ»Π½ΠΈΡΡ Π°Π½Π°Π»ΠΎΠ³ΠΈΡΠ½ΠΎΠ΅ ΠΎΠ±ΡΠ΅Π΄ΠΈΠ½Π΅Π½ΠΈΠ΅ ΠΏΡΡΡΡΡ ΡΡΠ΅Π΅ΠΊ ΡΡΠ°Π·Ρ Π² Π½Π΅ΡΠΊΠΎΠ»ΡΠΊΠΈΡ ΡΡΡΠΎΠΊΠ°Ρ β ΠΎΠ΄Π½ΠΎΠ²ΡΠ΅ΠΌΠ΅Π½Π½ΠΎ? ΠΠ»Ρ ΡΡΠΎΠ³ΠΎ Π½ΡΠΆΠ½ΠΎ Π΄ΠΎΠ±Π°Π²ΠΈΡΡ Π½Π΅ΡΠΊΠΎΠ»ΡΠΊΠΎ ΡΡΡΠΎΠΊ Π² ΠΊΠΎΠ΄ Π½Π°ΡΠ΅Π³ΠΎ ΠΌΠ°ΠΊΡΠΎΡΠ°. ΠΠΎ ΡΠ½Π°ΡΠ°Π»Π° ΠΏΠΎΠ΄Π³ΠΎΡΠΎΠ²ΠΈΠΌ ΠΈΡΡ ΠΎΠ΄Π½ΡΡ ΡΠ°Π±Π»ΠΈΡΡ.
ΠΠΎΠΏΡΡΡΠΈΠΌ Π½Π°ΠΌ Π΄Π»Ρ ΠΏΠΎΡΠ»Π΅Π΄Π½ΠΈΡ ΡΡΠ΅Ρ ΠΎΡΠ΄Π΅Π»ΠΎΠ² Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ ΡΠ°Π·Π±ΠΈΡΡ Π΄Π°Π½Π½ΡΠ΅ Π½Π° 2 ΠΏΠΎΠ»ΡΠ³ΠΎΠ΄ΠΈΡ. ΠΡΡ ΠΎΠ΄Π½ΡΠΉ Π²ΠΈΠ΄ ΡΠ°Π±Π»ΠΈΡΡ Π±ΡΠ΄Π΅Ρ Π²ΡΠ³Π»ΡΠ΄Π΅ΡΡ ΡΠ»Π΅Π΄ΡΡΡΠΈΠΌ ΠΎΠ±ΡΠ°Π·ΠΎΠΌ:
ΠΡΠ»ΠΈ Π½Π°ΠΌ Π½ΡΠΆΠ½ΠΎ ΠΈΠ·ΠΌΠ΅Π½ΠΈΡΡ ΡΠ°ΠΊ, ΡΡΠΎΠ±Ρ Π΅Π³ΠΎ ΠΌΠΎΠΆΠ½ΠΎ Π±ΡΠ»ΠΎ ΠΏΡΠΈΠΌΠ΅Π½ΠΈΡΡ ΠΎΠ΄Π½ΠΎΠ²ΡΠ΅ΠΌΠ΅Π½Π½ΠΎ Π΄Π»Ρ Π½Π΅ΡΠΊΠΎΠ»ΡΠΊΠΈΡ Π²ΡΠ΄Π΅Π»Π΅Π½Π½ΡΡ ΡΡΡΠΎΠΊ ΡΠ°Π±Π»ΠΈΡΡ, ΡΠΎΠ³Π΄Π° ΡΠ½Π°ΡΠ°Π»Π° ΠΊΠΎΠ΄Π° ΠΏΡΠΎΠ΄Π΅ΠΊΠ»Π°ΡΠΈΡΡΠ΅ΠΌ Π½ΠΎΠ²ΡΡ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ:
Dim j As Long
Π’Π΅ΠΏΠ΅ΡΡ, ΠΏΠ΅ΡΠ΅Π΄ ΡΠΈΠΊΠ»ΠΎΠΌ, ΠΊΠΎΡΠΎΡΡΠΉ ΠΏΡΠΎΡ ΠΎΠ΄ΠΈΡ ΠΏΠΎ Π²ΡΠ΅ΠΌ ΡΡΠ΅ΠΉΠΊΠ°ΠΌ Π²ΡΠ΄Π΅Π»Π΅Π½Π½ΠΎΠΉ ΡΡΡΠΎΠΊΠΈ Π΄ΠΎΠ±Π°Π²ΠΈΠΌ Π½ΠΎΠ²ΡΡ ΡΡΡΠΎΠΊΡ Ρ ΠΊΠΎΠ΄ΠΎΠΌ ΡΠΈΠΊΠ»Π° Π΄Π»Ρ ΠΏΠ΅ΡΠ΅Ρ ΠΎΠ΄Π° ΠΏΠΎ ΡΡΡΠΎΠΊΠ°ΠΌ Π²ΡΠ΄Π΅Π»Π΅Π½Π½ΠΎΠ³ΠΎ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½Π° ΡΡΠ΅Π΅ΠΊ:
For j = 1 To Selection.Rows.Count
Π’Π°ΠΊ ΠΆΠ΅ Π½Π΅ Π·Π°Π±ΡΠ΄Π΅ΠΌ Π΄ΠΎΠ±Π°Π²ΠΈΡΡ ΠΊΠΎΠ½Π΅Ρ Π½ΠΎΠ²ΠΎΠ³ΠΎ ΡΠΈΠΊΠ»Π°:
Next
ΠΠΎ Π²ΡΠ΅Ρ ΡΠΊΠ·Π΅ΠΌΠΏΠ»ΡΡΠ°Ρ ΠΎΠ±ΡΠ΅ΠΊΡΠ° Cells, Π΄Π»Ρ Π²ΡΠΎΡΠΎΠ³ΠΎ Π°ΡΠ³ΡΠΌΠ΅Π½ΡΠ° Π²ΠΌΠ΅ΡΡΠΎ ΡΠΈΡΠ»Π° 1 Π²Π²Π΅Π΄Π΅ΠΌ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ j:
Selection. Cells(i,j)
ΠΠΎΠ»Π½Π°Ρ Π²Π΅ΡΡΠΈΡ ΠΌΠΎΠ΄ΠΈΡΠΈΡΠΈΡΠΎΠ²Π°Π½Π½ΠΎΠ³ΠΎ ΠΊΠΎΠ΄Π° ΠΌΠ°ΠΊΡΠΎΡΠ°:
Sub JoinEmpty()
Dim i As Long
Dim j As Long
For j = 1 To Selection.Rows.Count
Β Β For i = 1 To Selection.Columns.Count
Β Β Β Β If Selection.Cells(j, i) = "" Then
Β Β Β Β ActiveSheet.Range(Selection.Cells(j, i - 1), Selection.Cells(j, i)).Merge
Β Β Β Β End If
Β Β Next
Next
Selection.HorizontalAlignment = xlVAlignCenter
End Sub
Π’Π΅ΠΏΠ΅ΡΡ, Π½Π°ΠΌ ΠΎΡΡΠ°Π»ΠΎΡΡ ΡΠΎΠ»ΡΠΊΠΎ Π»ΠΈΡΡ Π²ΡΠ΄Π΅Π»ΠΈΡΡ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ B1:L12 ΠΈ Π·Π°ΠΏΡΡΡΠΈΡΡ Π½ΠΎΠ²ΡΡ Π²Π΅ΡΡΠΈΡ ΠΌΠ°ΠΊΡΠΎΡΠ°:
Π§ΠΈΡΠ°ΠΉΡΠ΅ ΡΠ°ΠΊΠΆΠ΅: ΠΌΠ°ΠΊΡΠΎΡ Π΄Π»Ρ ΠΎΠ±ΡΠ΅Π΄ΠΈΠ½Π΅Π½ΠΈΡ ΠΏΡΡΡΡΡ ΡΡΠ΅Π΅ΠΊ Π² ΡΡΠΎΠ»Π±ΡΠ°Ρ ΡΠ°Π±Π»ΠΈΡΡ Excel
ΠΠ½ΠΈΠΌΠ°Π½ΠΈΠ΅! ΠΡΠ»ΠΈ ΠΏΠ΅ΡΠ²Π°Ρ ΡΡΠ΅ΠΉΠΊΠ° (Π² Π²Π΅ΡΡ Π½Π΅ΠΌ Π»Π΅Π²ΠΎΠΌ ΡΠ³Π»Ρ) Π²ΡΠ΄Π΅Π»Π΅Π½Π½ΠΎΠ³ΠΎ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½Π° β ΠΏΡΡΡΠ°, ΡΠΎ ΠΎΠ½Π° Π±ΡΠ΄Π΅Ρ ΠΎΠ±ΡΠ΅Π΄Π΅Π½Π° ΡΠΎ ΡΠΌΠ΅ΠΆΠ½ΠΎΠΉ ΡΡΠ΅ΠΉΠΊΠΎΠΉ ΡΠ»Π΅Π²Π° ΠΎΡ Π²ΡΠ΄Π΅Π»Π΅Π½Π½ΠΎΠ³ΠΎ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½Π°.
ΠΠΎΠΈΡΠΊ Π½Π° Π»ΠΈΡΡΠ΅ Excel, ΠΏΡΠΈΠΌΠ΅ΡΡ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΡ Find Π½Π° VBA
ΠΠΎΠΈΡΠΊ ΠΊΠ°ΠΊΠΎΠ³ΠΎ-Π»ΠΈΠ±ΠΎ Π·Π½Π°ΡΠ΅Π½ΠΈΡ Π² ΡΡΠ΅ΠΉΠΊΠ°Ρ Excel Π΄ΠΎΠ²ΠΎΠ»ΡΠ½ΠΎ ΡΠ°ΡΡΠΎ Π²ΡΡΡΠ΅ΡΠ°ΡΡΠ°ΡΡΡ Π·Π°Π΄Π°ΡΠ° ΠΏΡΠΈ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΠΈ ΠΊΠ°ΠΊΠΎΠ³ΠΎ-Π»ΠΈΠ±ΠΎ ΠΌΠ°ΠΊΡΠΎΡΠ°. Π Π΅ΡΠΈΡΡ Π΅Π΅ ΠΌΠΎΠΆΠ½ΠΎ ΡΠ°Π·Π½ΡΠΌΠΈ ΡΠΏΠΎΡΠΎΠ±Π°ΠΌΠΈ. ΠΠ΄Π½Π°ΠΊΠΎ, Π² ΡΠ°Π·Π½ΡΡ ΡΠΈΡΡΠ°ΡΠΈΡΡ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ ΡΠΎΠ³ΠΎ ΠΈΠ»ΠΈ ΠΈΠ½ΠΎΠ³ΠΎ ΡΠΏΠΎΡΠΎΠ±Π° ΠΌΠΎΠΆΠ΅Ρ Π±ΡΡΡ Π½Π΅ ΠΎΠΏΡΠ°Π²Π΄Π°Π½Π½ΡΠΌ. Π Π΄Π°Π½Π½ΠΎΠΉ ΡΡΠ°ΡΡΠ΅ Ρ ΡΠ°ΡΡΠΌΠΎΡΡΡ 2 Π½Π°ΠΈΠ±ΠΎΠ»Π΅Π΅ ΡΠ°ΡΠΏΡΠΎΡΡΡΠ°Π½Π΅Π½Π½ΡΡ ΡΠΏΠΎΡΠΎΠ±Π°.
Β
ΠΠΎΠΈΡΠΊ ΠΏΠ΅ΡΠ΅Π±ΠΎΡΠΎΠΌ Π·Π½Π°ΡΠ΅Π½ΠΈΠΉ
ΠΠΎΠ²ΠΎΠ»ΡΠ½ΠΎ ΠΏΡΠΎΡΡΠΎΠΉ Π² ΡΠ΅Π°Π»ΠΈΠ·Π°ΡΠΈΠΈ ΡΠΏΠΎΡΠΎΠ±. ΠΠ°ΠΏΡΠΈΠΌΠ΅Ρ, Π½Π°ΠΉΡΠΈ Π² ΠΊΠΎΠ»ΠΎΠ½ΠΊΠ΅ «A» ΡΡΠ΅ΠΉΠΊΡ, ΡΠΎΠ΄Π΅ΡΠΆΠ°ΡΡΡ «123» ΠΌΠΎΠΆΠ½ΠΎ ΠΏΡΠΈΠΌΠ΅ΡΠ½ΠΎ ΡΠ°ΠΊ:
Sheets("ΠΠ°Π½Π½ΡΠ΅").Select For y = 1 To Cells.SpecialCells(xlLastCell).Row If Cells(y, 1) = "123" Then Exit For End If Next y MsgBox "ΠΠ°ΡΠ΅Π» Π² ΡΡΡΠΎΠΊΠ΅: " + CStr(y)
ΠΠΈΠ½ΡΡΠ°ΠΌΠΈ ΡΡΠΎΠ³ΠΎ ΡΠ°ΠΊ ΡΠΊΠ°Π·Π°ΡΡ «ΠΊΠ»Π°ΡΡΠΈΡΠ΅ΡΠΊΠΎΠ³ΠΎ» ΡΠΏΠΎΡΠΎΠ±Π° ΡΠ²Π»ΡΡΡΡΡ: ΠΌΠ΅Π΄Π»Π΅Π½Π½Π°Ρ ΡΠ°Π±ΠΎΡΠ° ΠΈ Π³ΡΠΎΠΌΠΎΠ·Π΄ΠΊΠΎΡΡΡ. Π ΠΏΠ»ΡΡΠΎΠΌ ΡΠ²Π»ΡΠ΅ΡΡΡ Π΅Π³ΠΎ Π³ΠΈΠ±ΠΊΠΎΡΡΡ, Ρ.ΠΊ. ΡΠ°ΠΊΠΈΠΌ ΡΠΏΠΎΡΠΎΠ±ΠΎΠΌ ΠΌΠΎΠΆΠ½ΠΎ ΡΠ΅Π°Π»ΠΈΠ·ΠΎΠ²Π°ΡΡ ΡΠΊΠΎΠ»Ρ ΡΠ³ΠΎΠ΄Π½ΠΎ ΡΠ»ΠΎΠΆΠ½ΡΠ΅ Π²Π°ΡΠΈΠ°Π½ΡΡ ΠΏΠΎΠΈΡΠΊΠ° Ρ ΡΠ°Π·Π»ΠΈΡΠ½ΡΠΌΠΈ Π²ΡΡΠΈΡΠ»Π΅Π½ΠΈΡΠΌΠΈ ΠΈ Ρ.ΠΏ.
ΠΠΎΠΈΡΠΊ ΡΡΠ½ΠΊΡΠΈΠ΅ΠΉ Find
ΠΠΎΡΠ°Π·Π΄ΠΎ Π±ΡΡΡΡΠ΅Π΅ ΠΎΠ±ΡΡΠ½ΠΎΠ³ΠΎ ΠΏΠ΅ΡΠ΅Π±ΠΎΡΠ° ΠΈ ΠΏΡΠΈ ΡΡΠΎΠΌ Π΄ΠΎΠ²ΠΎΠ»ΡΠ½ΠΎ Π³ΠΈΠ±ΠΊΠΈΠΉ. Π ΠΏΡΠΎΡΡΠ΅ΠΉΡΠ΅ΠΌ ΡΠ»ΡΡΠ°Π΅, ΡΡΠΎΠ±Ρ Π½Π°ΠΉΡΠΈ Π² ΠΊΠΎΠ»ΠΎΠ½ΠΊΠ΅ A ΡΡΠ΅ΠΉΠΊΡ, ΡΠΎΠ΄Π΅ΡΠΆΠ°ΡΡΡ «123» Π΄ΠΎΡΡΠ°ΡΠΎΡΠ½ΠΎ ΡΠ°ΠΊΠΎΠ³ΠΎ ΠΊΠΎΠ΄Π°:
Sheets("ΠΠ°Π½Π½ΡΠ΅"). Select Set fcell = Columns("A:A").Find("123") If Not fcell Is Nothing Then MsgBox "ΠΠ°ΡΠ΅Π» Π² ΡΡΡΠΎΠΊΠ΅: " + CStr(fcell.Row) End If
ΠΠΊΡΠ°ΡΡΠ΅ ΠΎΠΏΠΈΡΡ ΡΡΠΎ Π΄Π΅Π»Π°ΡΡ ΡΡΡΠΎΡΠΊΠΈ Π΄Π°Π½Π½ΠΎΠ³ΠΎ ΠΊΠΎΠ΄Π°:
1-Ρ ΡΡΡΠΎΠΊΠ°: ΠΡΠ±ΠΈΡΠ°Π΅ΠΌ Π² ΠΊΠ½ΠΈΠ³Π΅ Π»ΠΈΡΡ «ΠΠ°Π½Π½ΡΠ΅»;
2-Ρ ΡΡΡΠΎΠΊΠ°: ΠΡΡΡΠ΅ΡΡΠ²Π»ΡΠ΅ΠΌ ΠΏΠΎΠΈΡΠΊ Π·Π½Π°ΡΠ΅Π½ΠΈΡ «123» Π² ΠΊΠΎΠ»ΠΎΠ½ΠΊΠ΅ «A», ΡΠ΅Π·ΡΠ»ΡΡΠ°Ρ ΠΏΠΎΠΈΡΠΊΠ° Π±ΡΠ΄Π΅Ρ Π² fcell;
3-Ρ ΡΡΡΠΎΠΊΠ°: ΠΡΠ»ΠΈ ΡΠ΄Π°Π»ΠΎΡΡ Π½Π°ΠΉΡΠΈ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅, ΡΠΎ fcell Π±ΡΠ΄Π΅Ρ ΡΠΎΠ΄Π΅ΡΠΆΠ°ΡΡ Range-ΠΎΠ±ΡΠ΅ΠΊΡ, Π² ΠΏΡΠΎΡΠΈΠ²Π½ΠΎΠΌ ΡΠ»ΡΡΠ°Π΅ — Π±ΡΠ΄Π΅Ρ ΠΏΡΡΡΠΎΠΉ, Ρ.Π΅. Nothing.
ΠΠΎΠ»Π½ΠΎΡΡΡΡ ΡΠΈΠ½ΡΠ°ΠΊΡΠΈΡ ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡΠ° ΠΏΠΎΠΈΡΠΊΠ° Π²ΡΠ³Π»ΡΠ΄ΠΈΡ ΡΠ°ΠΊ:
Find(What, After, LookIn, LookAt, SearchOrder, SearchDirection, MatchCase, MatchByte, SearchFormat)
What — Π‘ΡΡΠΎΠΊΠ° Ρ ΡΠ΅ΠΊΡΡΠΎΠΌ, ΠΊΠΎΡΠΎΡΡΠΉ ΠΈΡΠ΅ΠΌ ΠΈΠ»ΠΈ Π»ΡΠ±ΠΎΠΉ Π΄ΡΡΠ³ΠΎΠΉ ΡΠΈΠΏ Π΄Π°Π½Π½ΡΡ Excel
After — Π―ΡΠ΅ΠΉΠΊΠ°, ΠΏΠΎΡΠ»Π΅ ΠΊΠΎΡΠΎΡΠΎΠΉ Π½Π°ΡΠ°ΡΡ ΠΏΠΎΠΈΡΠΊ. ΠΠ±ΡΠ°ΡΠΈΡΠ΅ Π²Π½ΠΈΠΌΠ°Π½ΠΈΠ΅, ΡΡΠΎ ΡΡΠΎ Π΄ΠΎΠ»ΠΆΠ½Π° Π±ΡΡΡ ΠΈΠΌΠ΅Π½Π½ΠΎ Π΅Π΄ΠΈΠ½ΠΈΡΠ½Π°Ρ ΡΡΠ΅ΠΉΠΊΠ°, Π° Π½Π΅ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½. ΠΠΎΠΈΡΠΊ Π½Π°ΡΠΈΠ½Π°Π΅ΡΡΡ ΠΏΠΎΡΠ»Π΅ ΡΡΠΎΠΉ ΡΡΠ΅ΠΉΠΊΠΈ, Π° Π½Π΅ Ρ Π½Π΅Π΅. ΠΠΎΠΈΡΠΊ Π² ΡΡΠΎΠΉ ΡΡΠ΅ΠΉΠΊΠ΅ ΠΏΡΠΎΠΈΠ·ΠΎΠΉΠ΄Π΅Ρ ΡΠΎΠ»ΡΠΊΠΎ ΠΊΠΎΠ³Π΄Π° Π²Π΅ΡΡ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ Π±ΡΠ΄Π΅Ρ ΠΏΡΠΎΡΠΌΠΎΡΡΠ΅Π½ ΠΈ ΠΏΠΎΠΈΡΠΊ Π½Π°ΡΠ½Π΅ΡΡΡ Ρ Π½Π°ΡΠ°Π»Π° Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½Π° ΠΈ Π΄ΠΎ ΡΡΠΎΠΉ ΡΡΠ΅ΠΉΠΊΠΈ Π²ΠΊΠ»ΡΡΠΈΡΠ΅Π»ΡΠ½ΠΎ.
LookIn — Π’ΠΈΠΏ ΠΈΡΠΊΠΎΠΌΡΡ Π΄Π°Π½Π½ΡΡ . ΠΠΎΠΆΠ΅Ρ ΠΏΡΠΈΠ½ΠΈΠΌΠ°ΡΡ ΠΎΠ΄Π½ΠΎ ΠΈΠ· Π·Π½Π°ΡΠ΅Π½ΠΈΠΉ: xlFormulas (ΡΠΎΡΠΌΡΠ»Ρ), xlValues (Π·Π½Π°ΡΠ΅Π½ΠΈΡ), ΠΈΠ»ΠΈ xlNotes (ΠΏΡΠΈΠΌΠ΅ΡΠ°Π½ΠΈΡ).
LookAt — ΠΠ΄Π½ΠΎ ΠΈΠ· Π·Π½Π°ΡΠ΅Π½ΠΈΠΉ: xlWhole (ΠΏΠΎΠ»Π½ΠΎΠ΅ ΡΠΎΠ²ΠΏΠ°Π΄Π΅Π½ΠΈΠ΅) ΠΈΠ»ΠΈ xlPart (ΡΠ°ΡΡΠΈΡΠ½ΠΎΠ΅ ΡΠΎΠ²ΠΏΠ°Π΄Π΅Π½ΠΈΠ΅).
SearchOrder — ΠΠ΄Π½ΠΎ ΠΈΠ· Π·Π½Π°ΡΠ΅Π½ΠΈΠΉ: xlByRows (ΠΏΡΠΎΡΠΌΠ°ΡΡΠΈΠ²Π°ΡΡ ΠΏΠΎ ΡΡΡΠΎΠΊΠ°ΠΌ) ΠΈΠ»ΠΈ xlByColumns (ΠΏΡΠΎΡΠΌΠ°ΡΡΠΈΠ²Π°ΡΡ ΠΏΠΎ ΡΡΠΎΠ»Π±ΡΠ°ΠΌ)
SearchDirection — ΠΠ΄Π½ΠΎ ΠΈΠ· Π·Π½Π°ΡΠ΅Π½ΠΈΠΉ: xlNext (ΠΏΠΎΠΈΡΠΊ Π²ΠΏΠ΅ΡΠ΅Π΄) ΠΈΠ»ΠΈ xlPrevious (ΠΏΠΎΠΈΡΠΊ Π½Π°Π·Π°Π΄)
MatchCase — ΠΠ΄Π½ΠΎ ΠΈΠ· Π·Π½Π°ΡΠ΅Π½ΠΈΠΉ: True (ΠΏΠΎΠΈΡΠΊ ΡΡΠ²ΡΡΠ²ΠΈΡΠ΅Π»ΡΠ½ΡΠΉ ΠΊ ΡΠ΅Π³ΠΈΡΡΡΡ) ΠΈΠ»ΠΈ False (ΠΏΠΎΠΈΡΠΊ Π±Π΅Π· ΡΡΠ΅ΡΠ° ΡΠ΅Π³ΠΈΡΡΡΠ°)
MatchByte — ΠΡΠΈΠΌΠ΅Π½ΡΠ΅ΡΡΡ ΠΏΡΠΈ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠΈ ΠΌΡΠ»ΡΡΠΈΠ±Π°ΠΉΡΠ½ΡΡ ΠΊΠΎΠ΄ΠΈΡΠΎΠ²ΠΎΠΊ: True (Π½Π°ΠΉΠ΄Π΅Π½Π½ΡΠΉ ΠΌΡΠ»ΡΡΠΈΠ±Π°ΠΉΡΠ½ΡΠΉ ΡΠΈΠΌΠ²ΠΎΠ» Π΄ΠΎΠ»ΠΆΠ΅Π½ ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΠΎΠ²Π°ΡΡ ΡΠΎΠ»ΡΠΊΠΎ ΠΌΡΠ»ΡΡΠΈΠ±Π°ΠΉΡΠ½ΠΎΠΌΡ ΡΠΈΠΌΠ²ΠΎΠ»Ρ) ΠΈΠ»ΠΈ False (Π½Π°ΠΉΠ΄Π΅Π½Π½ΡΠΉ ΠΌΡΠ»ΡΡΠΈΠ±Π°ΠΉΡΠ½ΡΠΉ ΡΠΈΠΌΠ²ΠΎΠ» ΠΌΠΎΠΆΠ΅Ρ ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΠΎΠ²Π°ΡΡ ΠΎΠ΄Π½ΠΎΠ±Π°ΠΉΡΠ½ΠΎΠΌΡ ΡΠΈΠΌΠ²ΠΎΠ»Ρ)
SearchFormat — ΠΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ Π²ΠΌΠ΅ΡΡΠ΅ Ρ FindFormat. Π‘Π½Π°ΡΠ°Π»Π° Π·Π°Π΄Π°Π΅ΡΡΡ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ FindFormat (Π½Π°ΠΏΡΠΈΠΌΠ΅Ρ, Π΄Π»Ρ ΠΏΠΎΠΈΡΠΊΠ° ΡΡΠ΅Π΅ΠΊ Ρ ΠΊΡΡΡΠΈΠ²Π½ΡΠΌ ΡΡΠΈΡΡΠΎΠΌ ΡΠ°ΠΊ: Application. FindFormat.Font.Italic = True), Π° ΠΏΠΎΡΠΎΠΌ ΠΏΡΠΈ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠΈ ΠΌΠ΅ΡΠΎΠ΄Π° Find ΡΠΊΠ°Π·ΡΠ²Π°Π΅ΠΌ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡ SearchFormat = True. ΠΡΠ»ΠΈ ΠΏΡΠΈ ΠΏΠΎΠΈΡΠΊΠ΅ Π½Π΅ Π½ΡΠΆΠ½ΠΎ ΡΡΠΈΡΡΠ²Π°ΡΡ ΡΠΎΡΠΌΠ°Ρ ΡΡΠ΅Π΅ΠΊ, ΡΠΎ Π½ΡΠΆΠ½ΠΎ ΡΠΊΠ°Π·Π°ΡΡ SearchFormat = False.
Π§ΡΠΎΠ±Ρ ΠΏΡΠΎΠ΄ΠΎΠ»ΠΆΠΈΡΡ ΠΏΠΎΠΈΡΠΊ, ΠΌΠΎΠΆΠ½ΠΎ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ FindNext (ΠΈΡΠΊΠ°ΡΡ «Π΄Π°Π»Π΅Π΅») ΠΈΠ»ΠΈ FindPrevious (ΠΈΡΠΊΠ°ΡΡ «Π½Π°Π·Π°Π΄»).
ΠΡΠΈΠΌΠ΅ΡΡ ΠΏΠΎΠΈΡΠΊΠ° ΡΡΠ½ΠΊΡΠΈΠ΅ΠΉ Find
ΠΡΠΈΠΌΠ΅Ρ 1: ΠΠ°ΠΉΡΠΈ Π² Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½Π΅ «A1:A50» Π²ΡΠ΅ ΡΡΠ΅ΠΉΠΊΠΈ Ρ ΡΠ΅ΠΊΡΡΠΎΠΌ «asd» ΠΈ ΠΏΠΎΠΌΠ΅Π½ΡΡΡ ΠΈΡ Π²ΡΠ΅ Π½Π° «qwe»
With Worksheets(1).Range("A1:A50") Set c = .Find("asd", LookIn:=xlValues) Do While Not c Is Nothing c.Value = "qwe" Set c = .FindNext(c) Loop End With
ΠΠ±ΡΠ°ΡΠΈΡΠ΅ Π²Π½ΠΈΠΌΠ°Π½ΠΈΠ΅: ΠΠΎΠ³Π΄Π° ΠΏΠΎΠΈΡΠΊ Π΄ΠΎΡΡΠΈΠ³Π½Π΅Ρ ΠΊΠΎΠ½ΡΠ° Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½Π°, ΡΡΠ½ΠΊΡΠΈΡ ΠΏΡΠΎΠ΄ΠΎΠ»ΠΆΠΈΡ ΠΈΡΠΊΠ°ΡΡ Ρ Π½Π°ΡΠ°Π»Π° Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½Π°. Π’Π°ΠΊΠΈΠΌ ΠΎΠ±ΡΠ°Π·ΠΎΠΌ, Π΅ΡΠ»ΠΈ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ Π½Π°ΠΉΠ΄Π΅Π½Π½ΠΎΠΉ ΡΡΠ΅ΠΉΠΊΠΈ Π½Π΅ ΠΌΠ΅Π½ΡΡΡ, ΡΠΎ ΠΏΡΠΈΠ²Π΅Π΄Π΅Π½Π½ΡΠΉ Π²ΡΡΠ΅ ΠΏΡΠΈΠΌΠ΅Ρ Π·Π°ΡΠΈΠΊΠ»ΠΈΡΡΡ Π² Π±Π΅ΡΠΊΠΎΠ½Π΅ΡΠ½ΠΎΠΌ ΡΠΈΠΊΠ»Π΅. ΠΠΎΡΡΠΎΠΌΡ, ΡΡΠΎΠ±Ρ ΡΡΠΎΠ³ΠΎ ΠΈΠ·Π±Π΅ΠΆΠ°ΡΡ (Π·Π°ΡΠΈΠΊΠ»ΠΈΠ²Π°Π½ΠΈΡ), ΠΌΠΎΠΆΠ½ΠΎ ΡΠ΄Π΅Π»Π°ΡΡ ΡΠ»Π΅Π΄ΡΡΡΠΈΠΌ ΠΎΠ±ΡΠ°Π·ΠΎΠΌ:
ΠΡΠΈΠΌΠ΅Ρ 2: ΠΡΠ°Π²ΠΈΠ»ΡΠ½ΡΠΉ ΠΏΠΎΠΈΡΠΊ Π·Π½Π°ΡΠ΅Π½ΠΈΡ Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ΠΌ FindNext, Π½Π΅ ΠΏΡΠΈΠ²ΠΎΠ΄ΡΡΠΈΠΉ ΠΊ Π·Π°ΡΠΈΠΊΠ»ΠΈΠ²Π°Π½ΠΈΡ.
With Worksheets(1).Range("A1:A50") Set c = .Find("asd", lookin:=xlValues) If Not c Is Nothing Then firstResult = c.Address Do c.Font.Bold = True Set c = .FindNext(c) If c Is Nothing Then Exit Do Loop While c.Address <> firstResult End If End With
Π Π½ΠΈΠΆΠ΅ ΡΠ»Π΅Π΄ΡΡΡΠ΅ΠΌ ΠΏΡΠΈΠΌΠ΅ΡΠ΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ Π΄ΡΡΠ³ΠΎΠΉ Π²Π°ΡΠΈΠ°Π½Ρ ΠΏΡΠΎΠ΄ΠΎΠ»ΠΆΠ΅Π½ΠΈΡ ΠΏΠΎΠΈΡΠΊΠ° — Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΡΠΎΠΉ ΠΆΠ΅ ΡΡΠ½ΠΊΡΠΈΠΈ Find Ρ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΠΎΠΌ After. ΠΠΎΠ³Π΄Π° Π½Π°ΠΉΠ΄Π΅Π½Π° ΠΎΡΠ΅ΡΠ΅Π΄Π½Π°Ρ ΡΡΠ΅ΠΉΠΊΠ°, ΡΠ»Π΅Π΄ΡΡΡΠΈΠΉ ΠΏΠΎΠΈΡΠΊ Π±ΡΠ΄Π΅Ρ ΠΎΡΡΡΠ΅ΡΡΠ²Π»ΡΡΡΡΡ ΡΠΆΠ΅ ΠΏΠΎΡΠ»Π΅ Π½Π΅Π΅. ΠΠ΄Π½Π°ΠΊΠΎ, ΠΊΠ°ΠΊ ΠΈ Ρ FindNext, ΠΊΠΎΠ³Π΄Π° Π±ΡΠ΄Π΅Ρ Π΄ΠΎΡΡΠΈΠ³Π½ΡΡ ΠΊΠΎΠ½Π΅Ρ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½Π°, Find ΠΏΡΠΎΠ΄ΠΎΠ»ΠΆΠΈΡ ΠΏΠΎΠΈΡΠΊ Ρ Π΅Π³ΠΎ Π½Π°ΡΠ°Π»Π°, ΠΏΠΎΡΡΠΎΠΌΡ, ΡΡΠΎΠ±Ρ Π½Π΅ ΠΏΡΠΎΠΈΠ·ΠΎΡΠ»ΠΎ Π·Π°ΡΠΈΠΊΠ»ΠΈΠ²Π°Π½ΠΈΡ, Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ ΠΏΡΠΎΠ²Π΅ΡΡΡΡ ΡΠΎΠ²ΠΏΠ°Π΄Π΅Π½ΠΈΠ΅ Ρ ΠΏΠ΅ΡΠ²ΡΠΌ ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΠΎΠΌ ΠΏΠΎΠΈΡΠΊΠ°.
ΠΡΠΈΠΌΠ΅Ρ 3: ΠΡΠΎΠ΄ΠΎΠ»ΠΆΠ΅Π½ΠΈΠ΅ ΠΏΠΎΠΈΡΠΊΠ° Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ΠΌ Find Ρ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΠΎΠΌ After.
With Worksheets(1).Range("A1:A50") Set c = .Find("asd", lookin:=xlValues) If Not c Is Nothing Then firstResult = c. Address Do c.Font.Bold = True Set c = .Find("asd", After:=c, lookin:=xlValues) If c Is Nothing Then Exit Do Loop While c.Address <> firstResult End If End With
Π‘Π»Π΅Π΄ΡΡΡΠΈΠΉ ΠΏΡΠΈΠΌΠ΅Ρ Π΄Π΅ΠΌΠΎΠ½ΡΡΡΠΈΡΡΠ΅Ρ ΠΏΡΠΈΠΌΠ΅Π½Π΅Π½ΠΈΠ΅ SearchFormat Π΄Π»Ρ ΠΏΠΎΠΈΡΠΊΠ° ΠΏΠΎ ΡΠΎΡΠΌΠ°ΡΡ ΡΡΠ΅ΠΉΠΊΠΈ. ΠΠ»Ρ ΡΠΊΠ°Π·Π°Π½ΠΈΡ ΡΠΎΡΠΌΠ°ΡΠ° Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ Π·Π°Π΄Π°ΡΡ ΡΠ²ΠΎΠΉΡΡΠ²ΠΎ FindFormat.
ΠΡΠΈΠΌΠ΅Ρ 4: ΠΠ°ΠΉΡΠΈ Π²ΡΠ΅ ΡΡΠ΅ΠΉΠΊΠΈ Ρ ΡΡΠΈΡΡΠΎΠΌ «ΠΊΡΡΡΠΈΠ²» ΠΈ ΠΏΠΎΠΌΠ΅Π½ΡΡΡ ΠΈΡ ΡΠΎΡΠΌΠ°Ρ Π½Π° ΠΎΠ±ΡΡΠ½ΡΠΉ (Π½Π΅ «ΠΊΡΡΡΠΈΠ²»)
lLastRow = Cells.SpecialCells(xlLastCell).Row lLastCol = Cells.SpecialCells(xlLastCell).Column Application.FindFormat.Font.Italic = True With Worksheets(1).Range(Cells(1, 1), Cells(lLastRow, lLastCol)) Set c = .Find("", SearchFormat:=True) Do While Not c Is Nothing c.Font.Italic = False Set c = .Find("", After:=c, SearchFormat:=True) Loop End With
ΠΡΠΈΠΌΠ΅ΡΠ°Π½ΠΈΠ΅: Π Π΄Π°Π½Π½ΠΎΠΌ ΠΏΡΠΈΠΌΠ΅ΡΠ΅ Π½Π°ΠΌΠ΅ΡΠ΅Π½Π½ΠΎ Π½Π΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ FindNext Π΄Π»Ρ ΠΏΠΎΠΈΡΠΊΠ° ΡΠ»Π΅Π΄ΡΡΡΠ΅ΠΉ ΡΡΠ΅ΠΉΠΊΠΈ, Ρ. ΠΊ. ΠΎΠ½ Π½Π΅ ΡΡΠΈΡΡΠ²Π°Π΅Ρ ΡΠΎΡΠΌΠ°Ρ (ΡΡΠ°ΡΡΡ ΠΎΠ± ΡΡΠΎΠΌ: https://support.microsoft.com/ru-ru/kb/282151)
ΠΠΎΡΠΎΡΠΊΠΎ ΠΎΠΏΠΈΡΡ Π°Π»Π³ΠΎΡΠΈΡΠΌ ΠΏΠΎΠΈΡΠΊΠ° ΠΡΠΈΠΌΠ΅ΡΠ° 4. ΠΠ΅ΡΠ²ΡΠ΅ Π΄Π²Π΅ ΡΡΡΠΎΠΊΠΈ ΠΎΠΏΡΠ΅Π΄Π΅Π»ΡΡΡ ΠΏΠΎΡΠ»Π΅Π΄Π½ΡΡ ΡΡΡΠΎΠΊΡ (lLastRow) Π½Π° Π»ΠΈΡΡΠ΅ ΠΈ ΠΏΠΎΡΠ»Π΅Π΄Π½ΠΈΠΉ ΡΡΠΎΠ»Π±Π΅Ρ (lLastCol). 3-Ρ ΡΡΡΠΎΠΊΠ° Π·Π°Π΄Π°Π΅Ρ ΡΠΎΡΠΌΠ°Ρ ΠΏΠΎΠΈΡΠΊΠ°, Π² Π΄Π°Π½Π½ΠΎΠΌ ΡΠ»ΡΡΠ°Π΅, Π±ΡΠ΄Π΅ΠΌ ΠΈΡΠΊΠ°ΡΡ ΡΡΠ΅ΠΉΠΊΠΈ Ρ ΡΡΠΈΡΡΠΎΠΌ Italic. 4-Ρ ΡΡΡΠΎΠΊΠ° ΠΎΠΏΡΠ΅Π΄Π΅Π»ΡΠ΅Ρ ΠΎΠ±Π»Π°ΡΡΡ ΡΡΠ΅Π΅ΠΊ Ρ ΠΊΠΎΡΠΎΡΠΎΠΉ Π±ΡΠ΄Π΅Ρ ΡΠ°Π±ΠΎΡΠ°ΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° (Ρ ΡΡΠ΅ΠΉΠΊΠΈ A1 ΠΈ Π΄ΠΎ ΠΏΠΎΡΠ»Π΅Π΄Π½Π΅ΠΉ ΡΡΡΠΎΠΊΠΈ ΠΈ ΠΏΠΎΡΠ»Π΅Π΄Π½Π΅Π³ΠΎ ΡΡΠΎΠ»Π±ΡΠ°). 5-Ρ ΡΡΡΠΎΠΊΠ° ΠΎΡΡΡΠ΅ΡΡΠ²Π»ΡΠ΅Ρ ΠΏΠΎΠΈΡΠΊ Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ΠΌ SearchFormat. 6-Ρ ΡΡΡΠΎΠΊΠ° — ΡΠΈΠΊΠ» ΠΏΠΎΠΊΠ° ΡΠ΅Π·ΡΠ»ΡΡΠ°Ρ ΠΏΠΎΠΈΡΠΊΠ° Π½Π΅ Π±ΡΠ΄Π΅Ρ ΠΏΡΡΡΡΠΌ. 7-Ρ ΡΡΡΠΎΠΊΠ° — ΠΌΠ΅Π½ΡΠ΅ΠΌ ΡΡΠΈΡΡ Π½Π° ΠΎΠ±ΡΡΠ½ΡΠΉ (Π½Π΅ ΠΊΡΡΡΠΈΠ²), 8-Ρ ΡΡΡΠΎΠΊΠ° ΠΏΡΠΎΠ΄ΠΎΠ»ΠΆΠ°Π΅ΠΌ ΠΏΠΎΠΈΡΠΊ ΠΏΠΎΡΠ»Π΅ Π½Π°ΠΉΠ΄Π΅Π½Π½ΠΎΠΉ ΡΡΠ΅ΠΉΠΊΠΈ.
Π₯ΠΎΡΡ ΠΎΠ±ΡΠ°ΡΠΈΡΡ Π²Π½ΠΈΠΌΠ°Π½ΠΈΠ΅ Π½Π° ΡΠΎ, ΡΡΠΎ Π² ΡΡΠΎΠΌ ΠΏΡΠΈΠΌΠ΅ΡΠ΅ Ρ Π½Π΅ ΡΡΠ°Π» ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ «Π·Π°ΡΠΈΡΡ ΠΎΡ Π·Π°ΡΠΈΠΊΠ»ΠΈΠ²Π°Π½ΠΈΡ», ΠΊΠ°ΠΊ Π² ΠΡΠΈΠΌΠ΅ΡΠ°Ρ 2 ΠΈ 3, Ρ.ΠΊ. ΡΡΠΈΡΡ ΠΌΠ΅Π½ΡΠ΅ΡΡΡ ΠΈ ΠΏΠΎΡΠ»Π΅ «ΠΏΡΠΎΡ ΠΎΠΆΠ΄Π΅Π½ΠΈΡ» ΠΏΠΎ Π²ΡΠ΅ΠΌ ΡΡΠ΅ΠΉΠΊΠ°ΠΌ, Π±ΠΎΠ»ΡΡΠ΅ Π½Π΅ ΠΎΡΡΠ°Π½Π΅ΡΡΡ Π½ΠΈ ΠΎΠ΄Π½ΠΎΠΉ ΡΡΠ΅ΠΉΠΊΠΈ Ρ ΠΊΡΡΡΠΈΠ²ΠΎΠΌ.
Π‘Π²ΠΎΠΉΡΡΠ²ΠΎ FindFormat ΠΌΠΎΠΆΠ½ΠΎ Π·Π°Π΄Π°Π²Π°ΡΡ ΡΠ°Π·Π½ΡΠΌΠΈ ΡΠΏΠΎΡΠΎΠ±Π°ΠΌΠΈ, Π½Π°ΠΏΡΠΈΠΌΠ΅Ρ, ΡΠ°ΠΊ:
With Application. FindFormat.Font .Name = "Arial" .FontStyle = "Regular" .Size = 10 End With
ΠΠΎΠΈΡΠΊ ΠΏΠΎΡΠ»Π΅Π΄Π½Π΅ΠΉ Π·Π°ΠΏΠΎΠ»Π½Π΅Π½Π½ΠΎΠΉ ΡΡΠ΅ΠΉΠΊΠΈ Ρ ΠΏΠΎΠΌΠΎΡΡΡ Find
Π‘Π»Π΅Π΄ΡΡΡΠΈΠΉ ΠΏΡΠΈΠΌΠ΅Ρ — ΠΏΡΠΈΠΌΠ΅Π½Π΅Π½ΠΈΠ΅ ΡΡΠ½ΠΊΡΠΈΠΈ Find Π΄Π»Ρ ΠΏΠΎΠΈΡΠΊΠ° ΠΏΠΎΡΠ»Π΅Π΄Π½Π΅ΠΉ ΡΡΠ΅ΠΉΠΊΠΈ Ρ Π·Π°ΠΏΠΎΠ»Π½Π΅Π½Π½ΡΠΌΠΈ Π΄Π°Π½Π½ΡΠΌΠΈ. ΠΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½Π½ΡΠ΅ Π² ΠΡΠΈΠΌΠ΅ΡΠ΅ 4 SpecialCells Π½Π°Ρ ΠΎΠ΄ΠΈΡ ΠΏΠΎΡΠ»Π΅Π΄Π½ΡΡ ΡΡΠ΅ΠΉΠΊΡ Π΄Π°ΠΆΠ΅ Π΅ΡΠ»ΠΈ ΠΎΠ½Π° Π½Π΅ ΡΠΎΠ΄Π΅ΡΠΆΠΈΡ Π½ΠΈΡΠ΅Π³ΠΎ, Π½ΠΎ ΠΎΡΡΠΎΡΠΌΠ°ΡΠΈΡΠΎΠ²Π°Π½Π° ΠΈΠ»ΠΈ Π² Π½Π΅ΠΉ ΡΠ°Π½ΡΡΠ΅ Π±ΡΠ»ΠΈ Π΄Π°Π½Π½ΡΠ΅, Π½ΠΎ Π±ΡΠ»ΠΈ ΡΠ΄Π°Π»Π΅Π½Ρ.
ΠΡΠΈΠΌΠ΅Ρ 5: ΠΠ°ΠΉΡΠΈ ΠΏΠΎΡΠ»Π΅Π΄Π½ΡΡ ΠΊΠΎΠ»ΠΎΠ½ΠΊΡ ΠΈ ΡΡΠΎΠ»Π±Π΅Ρ, Π·Π°ΠΏΠΎΠ»Π½Π΅Π½Π½ΡΠ΅ Π΄Π°Π½Π½ΡΠΌΠΈ
Set c = Worksheets(1).UsedRange.Find("*", SearchDirection:=xlPrevious) If Not c Is Nothing Then lLastRow = c.Row: lLastCol = c.Column Else lLastRow = 1: lLastCol = 1 End If MsgBox "lLastRow=" & lLastRow & " lLastCol=" & lLastCol
Π ΡΡΠΎΠΌ ΠΏΡΠΈΠΌΠ΅ΡΠ΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ UsedRange, ΠΊΠΎΡΠΎΡΡΠΉ ΡΠ°ΠΊ ΠΆΠ΅ ΠΊΠ°ΠΊ ΠΈ SpecialCells Π²ΠΎΠ·Π²ΡΠ°ΡΠ°Π΅Ρ Π²ΡΠ΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΠΌΡΠ΅ ΡΡΠ΅ΠΉΠΊΠΈ, Π² Ρ.Ρ. ΠΈ ΡΠ΅, ΡΡΠΎ Π±ΡΠ»ΠΈ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½Ρ ΡΠ°Π½Π΅Π΅, Π° ΡΠ΅ΠΉΡΠ°Ρ ΠΏΡΡΡΡΠ΅. Π€ΡΠ½ΠΊΡΠΈΡ Find ΠΈΡΠ΅Ρ ΡΡΠ΅ΠΉΠΊΡ Ρ Π»ΡΠ±ΡΠΌ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ΠΌ Ρ ΠΊΠΎΠ½ΡΠ° Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½Π°.
ΠΠΎΠΈΡΠΊ ΠΏΠΎ ΡΠ°Π±Π»ΠΎΠ½Ρ (ΠΌΠ°ΡΠΊΠ΅)
ΠΡΠΈ ΠΏΠΎΠΈΡΠΊΠ΅ ΠΌΠΎΠΆΠ½ΠΎ ΡΠ°ΠΊ ΠΆΠ΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΡΠ°Π±Π»ΠΎΠ½Ρ, ΡΡΠΎΠ±Ρ Π½Π°ΠΉΡΠΈ ΡΠ΅ΠΊΡΡ ΠΏΠΎ ΠΌΠ°ΡΠΊΠ΅, ΡΠ»Π΅Π΄ΡΡΡΠΈΠΉ ΠΏΡΠΈΠΌΠ΅Ρ ΡΡΠΎ Π΄Π΅ΠΌΠΎΠ½ΡΡΡΠΈΡΡΠ΅Ρ.
ΠΡΠΈΠΌΠ΅Ρ 6: ΠΡΠ΄Π΅Π»ΠΈΡΡ ΠΊΡΠ°ΡΠ½ΡΠΌ ΡΡΠΈΡΡΠΎΠΌ ΡΡΠ΅ΠΉΠΊΠΈ, Π² ΠΊΠΎΡΠΎΡΡΡ ΡΠ΅ΠΊΡΡ Π½Π°ΡΠΈΠ½Π°Π΅ΡΡΡ ΡΠΎ ΡΠ»ΠΎΠ²Π° ΠΈΠ· 4-Ρ Π±ΡΠΊΠ², ΠΏΠ΅ΡΠ²Π°Ρ ΠΈ ΠΏΠΎΡΠ»Π΅Π΄Π½ΡΡ Π±ΡΠΊΠ²Ρ «Ρ», ΠΏΡΠΈ ΡΡΠΎΠΌ ΠΏΠΎΡΠ»Π΅ ΡΡΠΎΠ³ΠΎ ΡΠ»ΠΎΠ²Π° ΠΌΠΎΠΆΠ΅Ρ ΡΠ»Π΅Π΄ΠΎΠ²Π°ΡΡ Π»ΡΠ±ΠΎΠΉ ΡΠ΅ΠΊΡΡ.
With Worksheets(1).Cells Set c = .Find("Ρ??Ρ*", LookIn:=xlValues, LookAt:=xlWhole) If Not c Is Nothing Then firstResult = c.Address Do c.Font.Color = RGB(255, 0, 0) Set c = .FindNext(c) If c Is Nothing Then Exit Do Loop While c.Address <> firstResult End If End With
ΠΠ»Ρ ΠΏΠΎΠΈΡΠΊΠ° ΡΡΠ½ΠΊΡΠΈΠ΅ΠΉ Find ΠΏΠΎ ΠΌΠ°ΡΠΊΠ΅ (ΡΠ°Π±Π»ΠΎΠ½Ρ) ΠΌΠΎΠΆΠ½ΠΎ ΠΏΡΠΈΠΌΠ΅Π½ΡΡΡ ΡΠΈΠΌΠ²ΠΎΠ»Ρ:
* — Π΄Π»Ρ ΠΎΠ±ΠΎΠ·Π½Π°ΡΠ΅Π½ΠΈΡ Π»ΡΠ±ΠΎΠ³ΠΎ ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²Π° Π»ΡΠ±ΡΡ
ΡΠΈΠΌΠ²ΠΎΠ»ΠΎΠ²;
? — Π΄Π»Ρ ΠΎΠ±ΠΎΠ·Π½Π°ΡΠ΅Π½ΠΈΡ ΠΎΠ΄Π½ΠΎΠ³ΠΎ Π»ΡΠ±ΠΎΠ³ΠΎ ΡΠΈΠΌΠ²ΠΎΠ»Π°;
~ — Π΄Π»Ρ ΠΎΠ±ΠΎΠ·Π½Π°ΡΠ΅Π½ΠΈΡ ΡΠΈΠΌΠ²ΠΎΠ»ΠΎΠ² *, ? ΠΈ ~. (Ρ.Π΅. ΡΡΠΎΠ±Ρ ΠΈΡΠΊΠ°ΡΡ Π² ΡΠ΅ΠΊΡΡΠ΅ Π²ΠΎΠΏΡΠΎΡΠΈΡΠ΅Π»ΡΠ½ΡΠΉ Π·Π½Π°ΠΊ, Π½ΡΠΆΠ½ΠΎ Π½Π°ΠΏΠΈΡΠ°ΡΡ ~?, ΡΡΠΎΠ±Ρ ΠΈΡΠΊΠ°ΡΡ ΠΈΠΌΠ΅Π½Π½ΠΎ Π·Π²Π΅Π·Π΄ΠΎΡΠΊΡ (*), Π½ΡΠΆΠ½ΠΎ Π½Π°ΠΏΠΈΡΠ°ΡΡ ~* ΠΈ Π½Π°ΠΊΠΎΠ½Π΅Ρ, ΡΡΠΎΠ±Ρ Π½Π°ΠΉΡΠΈ Π² ΡΠ΅ΠΊΡΡΠ΅ ΡΠΈΠ»ΡΠ΄Ρ, Π½Π΅ΠΎΠ±Ρ
ΠΎΠ΄ΠΈΠΌΠΎ Π½Π°ΠΏΠΈΡΠ°ΡΡ ~~)
ΠΠΎΠΈΡΠΊ Π² ΡΠΊΡΡΡΡΡ ΡΡΡΠΎΠΊΠ°Ρ ΠΈ ΡΡΠΎΠ»Π±ΡΠ°Ρ
ΠΠ»Ρ ΠΏΠΎΠΈΡΠΊΠ° Π² ΡΠΊΡΡΡΡΡ ΡΡΠ΅ΠΉΠΊΠ°Ρ Π½ΡΠΆΠ½ΠΎ ΡΡΠΈΡΡΠ²Π°ΡΡ Π»ΠΈΡΡ ΠΎΠ΄ΠΈΠ½ Π½ΡΠ°Π½Ρ: ΠΏΠΎΠΈΡΠΊ Π½ΡΠΆΠ½ΠΎ ΠΎΡΡΡΠ΅ΡΡΠ²Π»ΡΡΡ Π² ΡΠΎΡΠΌΡΠ»Π°Ρ , Π° Π½Π΅ Π² Π·Π½Π°ΡΠ΅Π½ΠΈΡΡ , Ρ. Π΅. Π½ΡΠΆΠ½ΠΎ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ LookIn:=xlFormulas
ΠΠΎΠΈΡΠΊ Π΄Π°ΡΡ Ρ ΠΏΠΎΠΌΠΎΡΡΡ Find
ΠΡΠ»ΠΈ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ Π½Π°ΠΉΡΠΈ ΡΠ΅ΠΊΡΡΡΡ Π΄Π°ΡΡ ΠΈΠ»ΠΈ ΠΊΠ°ΠΊΡΡ-ΡΠΎ Π΄ΡΡΠ³ΡΡ Π΄Π°ΡΡ Π½Π° Π»ΠΈΡΡΠ΅ Excel ΠΈΠ»ΠΈ Π² Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½Π΅ Ρ ΠΏΠΎΠΌΠΎΡΡΡ Find, Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ ΡΡΠΈΡΡΠ²Π°ΡΡ Π½Π΅ΡΠΊΠΎΠ»ΡΠΊΠΎ Π½ΡΠ°Π½ΡΠΎΠ²:
- Π’ΠΈΠΏ Π΄Π°Π½Π½ΡΡ Date Π² VBA ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»ΡΠ΅ΡΡΡ Π² Π²ΠΈΠ΄Π΅ #[ΠΌΠ΅ΡΡΡ]/[Π΄Π΅Π½Ρ]/[Π³ΠΎΠ΄]#, ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²Π΅Π½Π½ΠΎ, Π΅ΡΠ»ΠΈ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ Π½Π°ΠΉΡΠΈ ΡΠΈΠΊΡΠΈΡΠΎΠ²Π°Π½Π½ΡΡ Π΄Π°ΡΡ, Π½Π°ΠΏΡΠΈΠΌΠ΅Ρ, 01 ΠΌΠ°ΡΡΠ° 2018 Π³ΠΎΠ΄Π°, Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ ΠΈΡΠΊΠ°ΡΡ #3/1/2018#, Π° Π½Π΅ «01.03.2018»
- Π Π·Π°Π²ΠΈΡΠΈΠΌΠΎΡΡΠΈ ΠΎΡ ΡΠΎΡΠΌΠ°ΡΠ° ΡΡΠ΅Π΅ΠΊ, Π΄Π°ΡΠ° ΠΌΠΎΠΆΠ΅Ρ Π²ΡΠ³Π»ΡΠ΄Π΅ΡΡ ΠΏΠΎ-ΡΠ°Π·Π½ΠΎΠΌΡ, ΠΏΠΎΡΡΠΎΠΌΡ, ΡΡΠΎΠ±Ρ ΠΈΡΠΊΠ°ΡΡ Π΄Π°ΡΡ Π½Π΅Π·Π°Π²ΠΈΡΠΈΠΌΠΎ ΠΎΡ ΡΠΎΡΠΌΠ°ΡΠ°, ΠΏΠΎΠΈΡΠΊ Π½ΡΠΆΠ½ΠΎ Π΄Π΅Π»Π°ΡΡ Π½Π΅ Π² Π·Π½Π°ΡΠ΅Π½ΠΈΡΡ , Π° Π² ΡΠΎΡΠΌΡΠ»Π°Ρ , Ρ.Π΅. ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ LookIn:=xlFormulas
ΠΡΠΈΠ²Π΅Π΄Ρ Π½Π΅ΡΠΊΠΎΠ»ΡΠΊΠΎ ΠΏΡΠΈΠΌΠ΅ΡΠΎΠ² ΠΏΠΎΠΈΡΠΊΠ° Π΄Π°ΡΡ.
ΠΡΠΈΠΌΠ΅Ρ 7: ΠΠ°ΠΉΡΠΈ ΡΠ΅ΠΊΡΡΡΡ Π΄Π°ΡΡ Π½Π° Π»ΠΈΡΡΠ΅ Π½Π΅Π·Π°Π²ΠΈΡΠΈΠΌΠΎ ΠΎΡ ΡΠΎΡΠΌΠ°ΡΠ° ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ΅Π½ΠΈΡ Π΄Π°ΡΡ.
d = Date Set c = Cells.Find(d, LookIn:=xlFormulas, LookAt:=xlWhole) If Not c Is Nothing Then MsgBox "ΠΠ°ΡΠ΅Π»" Else MsgBox "ΠΠ΅ Π½Π°ΡΠ΅Π»" End If
ΠΡΠΈΠΌΠ΅Ρ 8: ΠΠ°ΠΉΡΠΈ 1 ΠΌΠ°ΡΡΠ° 2018 Π³.
d = #3/1/2018# Set c = Cells.Find(d, LookIn:=xlFormulas, LookAt:=xlWhole) If Not c Is Nothing Then MsgBox "ΠΠ°ΡΠ΅Π»" Else MsgBox "ΠΠ΅ Π½Π°ΡΠ΅Π»" End If
ΠΡΠΊΠ°ΡΡ ΡΠ°ΡΡΡ Π΄Π°ΡΡ — ΡΠ»ΠΎΠΆΠ½Π΅Π΅. ΠΠ°ΠΏΡΠΈΠΌΠ΅Ρ, ΡΡΠΎΠ±Ρ Π½Π°ΠΉΡΠΈ Π²ΡΠ΅ ΡΡΠ΅ΠΉΠΊΠΈ, Π³Π΄Π΅ ΠΌΠ΅ΡΡΡ «ΠΌΠ°ΡΡ», Π½Π΅Π΄ΠΎΡΡΠ°ΡΠΎΡΠ½ΠΎ ΠΈΡΠΊΠ°ΡΡ «03» ΠΈΠ»ΠΈ «3». ΠΠ΅ ΡΠ°Π±ΠΎΡΠ°Π΅Ρ Ρ Π΄Π°ΡΠ°ΠΌΠΈ ΡΠ°ΠΊ ΠΆΠ΅ ΠΈ ΠΏΠΎΠΈΡΠΊ ΠΏΠΎ ΡΠ°Π±Π»ΠΎΠ½Ρ. ΠΠ΄ΠΈΠ½ΡΡΠ²Π΅Π½Π½ΡΠΉ Π²Π°ΡΠΈΠ°Π½Ρ, ΠΊΠΎΡΠΎΡΡΠΉ Ρ Π½Π°ΡΠ΅Π» — ΡΡΠΎ Π²ΡΠ±ΡΠ°ΡΡ ΡΠΎΡΠΌΠ°Ρ Π² ΠΊΠΎΡΠΎΡΠΎΠΌ ΠΌΠ΅ΡΡΡ ΠΏΡΠΎΠΏΠΈΡΡΡ Π΄Π»Ρ ΡΡΠ΅Π΅ΠΊ Ρ Π΄Π°ΡΠ°ΠΌΠΈ ΠΈ ΠΈΡΠΊΠ°ΡΡ ΡΠ»ΠΎΠ²ΠΎ «ΠΌΠ°ΡΡ» Π² xlValues.
Π’Π΅ΠΌ Π½Π΅ ΠΌΠ΅Π½Π΅Π΅, ΠΌΠΎΠΆΠ½ΠΎ Π½Π°ΠΉΡΠΈ, Π½Π°ΠΏΡΠΈΠΌΠ΅Ρ, 1 ΠΌΠ°ΡΡΠ° Π½Π΅Π·Π°Π²ΠΈΡΠΈΠΌΠΎ ΠΎΡ Π³ΠΎΠ΄Π°.
ΠΡΠΈΠΌΠ΅Ρ 9: ΠΠ°ΠΉΡΠΈ 1 ΠΌΠ°ΡΡΠ° Π»ΡΠ±ΠΎΠ³ΠΎ Π³ΠΎΠ΄Π°.
d = #3/1/1900# Set c = Cells.Find(Format(d, "m\/d\/"), LookIn:=xlFormulas, LookAt:=xlPart) If Not c Is Nothing Then MsgBox "ΠΠ°ΡΠ΅Π»" Else MsgBox "ΠΠ΅ Π½Π°ΡΠ΅Π»" End If
Β
VBA ΠΠ»Ρ ΠΊΠ°ΠΆΠ΄ΠΎΠ³ΠΎ ΠΏΡΠΈΠΌΠ΅ΡΠ° (ΠΊΡΠ°ΡΠΊΠΈΠΉ ΡΠΏΡΠ°Π²ΠΎΡΠ½ΠΈΠΊ)
Π ΡΡΠΎΠΉ ΡΡΠ°ΡΡΠ΅
- ΠΠ»Ρ ΠΊΠ°ΠΆΠ΄ΠΎΠ³ΠΎ ΡΠΈΠΊΠ»Π°
- ΠΠ»Ρ ΠΊΠ°ΠΆΠ΄ΠΎΠ³ΠΎ: ΠΎΡΠ½ΠΎΠ²Π½ΡΠ΅ ΠΏΡΠΈΠΌΠ΅ΡΡ
- Π‘ΠΊΠ²ΠΎΠ·Π½ΡΠ΅ ΡΡΠ΅ΠΉΠΊΠΈ
- Π‘ΠΊΠ²ΠΎΠ·Π½ΡΠ΅ Π»ΠΈΡΡΡ Π Π°Π±ΠΎΡΠΈΠ΅ ΡΠ΅ΡΡΠ°Π΄ΠΈ
- Π¦ΠΈΠΊΠ» ΠΏΠΎ ΡΠΈΠ³ΡΡΠ°ΠΌ
- Π¦ΠΈΠΊΠ» Π‘ΠΊΠ²ΠΎΠ·Π½ΡΠ΅ Π΄ΠΈΠ°Π³ΡΠ°ΠΌΠΌΡ
- Π¦ΠΈΠΊΠ» ΠΏΠΎ ΡΠ²ΠΎΠ΄Π½ΡΠΌ ΡΠ°Π±Π»ΠΈΡΠ°ΠΌ
- Π¦ΠΈΠΊΠ» ΠΏΠΎ ΡΠ°Π±Π»ΠΈΡΠ°ΠΌ
- Π¦ΠΈΠΊΠ» ΠΏΠΎ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠ°ΠΌ ΠΌΠ°ΡΡΠΈΠ²Π°
- Π¦ΠΈΠΊΠ» ΠΏΠΎ ΡΠΈΡΠ»Π°ΠΌ
- ΠΠ»Ρ ΠΊΠ°ΠΆΠ΄ΠΎΠ³ΠΎ ΠΏΠΎΡΡΡΠΎΠΈΡΠ΅Π»Ρ ΡΠΈΠΊΠ»ΠΎΠ²
- ΠΠ»Ρ ΠΊΠ°ΠΆΠ΄ΠΎΠΉ β ΠΡΠ»ΠΈ
- ΠΠ»Ρ ΠΊΠ°ΠΆΠ΄ΠΎΠΉ ΡΡΠ΅ΠΉΠΊΠΈ Π² Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½Π΅ β ΠΡΠ»ΠΈ
- ΠΠ»Ρ ΠΊΠ°ΠΆΠ΄ΠΎΠΉ ΠΠ±ΡΠΈΠ΅ ΠΏΡΠΈΠΌΠ΅ΡΡ
- ΠΠ°ΠΊΡΡΡΡ Π²ΡΠ΅ ΠΊΠ½ΠΈΠ³ΠΈ
- Π‘ΠΊΡΡΡΡ Π²ΡΠ΅ Π»ΠΈΡΡΡ
- ΠΠΎΠΊΠ°Π·Π°ΡΡ Π²ΡΠ΅ Π»ΠΈΡΡΡ
- ΠΠ°ΡΠΈΡΠΈΡΡ Π²ΡΠ΅ Π»ΠΈΡΡΡ
- Π‘Π½ΡΡΡ Π·Π°ΡΠΈΡΡ ΡΠΎ Π²ΡΠ΅Ρ Π»ΠΈΡΡΠΎΠ²
- Π£Π΄Π°Π»ΠΈΡΡ Π²ΡΠ΅ ΡΠΈΠ³ΡΡΡ Π½Π° Π²ΡΠ΅Ρ Π»ΠΈΡΡΠ°Ρ
- ΠΠ±Π½ΠΎΠ²ΠΈΡΡ Π²ΡΠ΅ ΡΠ²ΠΎΠ΄Π½ΡΠ΅ ΡΠ°Π±Π»ΠΈΡΡ
- ΠΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ Π΄Π»Ρ ΠΊΠ°ΠΆΠ΄ΠΎΠ³ΠΎ Π² Access VBA
Π ΡΡΠΎΠΌ ΡΡΠΊΠΎΠ²ΠΎΠ΄ΡΡΠ²Π΅ Π±ΡΠ΄ΡΡ ΠΏΠΎΠΊΠ°Π·Π°Π½Ρ ΠΏΡΠΈΠΌΠ΅ΡΡ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΡ ΡΠΈΠΊΠ»Π° For Each Π² VBA. ΠΠ°ΠΆΠΌΠΈΡΠ΅ Π·Π΄Π΅ΡΡ, ΡΡΠΎΠ±Ρ ΡΠ·Π½Π°ΡΡ Π±ΠΎΠ»ΡΡΠ΅ ΠΎ ΡΠΈΠΊΠ»Π°Ρ Π² ΡΠ΅Π»ΠΎΠΌ.
Π¦ΠΈΠΊΠ» Π΄Π»Ρ ΠΊΠ°ΠΆΠ΄ΠΎΠ³ΠΎ
Π¦ΠΈΠΊΠ» Π΄Π»Ρ ΠΊΠ°ΠΆΠ΄ΠΎΠ³ΠΎ ΡΠΈΠΊΠ»Π° ΠΏΠΎΠ·Π²ΠΎΠ»ΡΠ΅Ρ ΠΏΠ΅ΡΠ΅Π±ΡΠ°ΡΡ ΠΊΠ°ΠΆΠ΄ΡΠΉ ΠΎΠ±ΡΠ΅ΠΊΡ Π² ΠΊΠΎΠ»Π»Π΅ΠΊΡΠΈΠΈ:
- ΠΡΠ΅ ΡΡΠ΅ΠΉΠΊΠΈ Π² Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½Π΅
- ΠΡΠ΅ ΡΠ°Π±ΠΎΡΠΈΠ΅ Π»ΠΈΡΡΡ Π² ΡΠ°Π±ΠΎΡΠ΅ΠΉ ΠΊΠ½ΠΈΠ³Π΅
- ΠΡΠ΅ ΠΎΡΠΊΡΡΡΡΠ΅ ΠΊΠ½ΠΈΠ³ΠΈ
- ΠΡΠ΅ ΡΠΈΠ³ΡΡΡ Π½Π° Π»ΠΈΡΡΠ΅
- ΠΡΠ΅ ΡΠ»Π΅ΠΌΠ΅Π½ΡΡ ΠΌΠ°ΡΡΠΈΠ²Π°
- ΠΈ Π±ΠΎΠ»ΡΡΠ΅!
For Each: ΠΎΡΠ½ΠΎΠ²Π½ΡΠ΅ ΠΏΡΠΈΠΌΠ΅ΡΡ
Π ΡΡΠΈΡ ΠΏΡΠΈΠΌΠ΅ΡΠ°Ρ ΠΏΠΎΠΊΠ°Π·Π°Π½ΠΎ, ΠΊΠ°ΠΊ Π½Π°ΡΡΡΠΎΠΈΡΡ ΡΠΈΠΊΠ»Ρ For Each Π΄Π»Ρ ΡΠΈΠΊΠ»ΠΈΡΠ΅ΡΠΊΠΎΠ³ΠΎ ΠΏΠ΅ΡΠ΅Π±ΠΎΡΠ° ΡΠ°Π·Π»ΠΈΡΠ½ΡΡ ΡΠΈΠΏΠΎΠ² ΠΎΠ±ΡΠ΅ΠΊΡΠΎΠ².
Π¦ΠΈΠΊΠ» ΠΏΠΎ ΡΡΠ΅ΠΉΠΊΠ°ΠΌ
ΠΡΠ° ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ° Π±ΡΠ΄Π΅Ρ ΠΏΠ΅ΡΠ΅Π±ΠΈΡΠ°ΡΡ ΠΊΠ°ΠΆΠ΄ΡΡ ΡΡΠ΅ΠΉΠΊΡ Π² Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½Π΅ A1:A10, ΡΡΡΠ°Π½Π°Π²Π»ΠΈΠ²Π°Ρ ΡΡΠ΅ΠΉΠΊΡ ΡΠΏΡΠ°Π²Π° ΠΎΡ Π½Π΅Π΅ ΡΠ°Π²Π½ΠΎΠΉ ΡΠ°ΠΌΠΎΠΉ ΡΠ΅Π±Π΅.
ΠΠΎΠ΄ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° ForEachCell() ΠΠ°ΡΠ΅ΠΌΠ½ΠΈΡΡ ΡΡΠ΅ΠΉΠΊΡ ΠΊΠ°ΠΊ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ ΠΠ»Ρ ΠΊΠ°ΠΆΠ΄ΠΎΠΉ ΡΡΠ΅ΠΉΠΊΠΈ Π² Π»ΠΈΡΡΠ°Ρ (Β«ΠΠΈΡΡ1Β»). ΠΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ (Β«A1: A10Β») Cell.Offset(0, 1).value = Cell.value Π‘Π»Π΅Π΄ΡΡΡΠ°Ρ ΡΡΠ΅ΠΉΠΊΠ° End Sub
Π¦ΠΈΠΊΠ»ΠΈΡΠ΅ΡΠΊΠΈΠΉ ΠΏΡΠΎΡΠΌΠΎΡΡ Π»ΠΈΡΡΠΎΠ²
ΠΡΠ° ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ° Π±ΡΠ΄Π΅Ρ ΡΠΈΠΊΠ»ΠΈΡΠ΅ΡΠΊΠΈ ΠΏΡΠΎΡΠΌΠ°ΡΡΠΈΠ²Π°ΡΡ ΠΊΠ°ΠΆΠ΄ΡΠΉ Π»ΠΈΡΡ Π² ΡΠ°Π±ΠΎΡΠ΅ΠΉ ΠΊΠ½ΠΈΠ³Π΅, ΠΏΠΎΠΊΠ°Π·ΡΠ²Π°Ρ ΠΊΠ°ΠΆΠ΄ΡΠΉ Π»ΠΈΡΡ.
ΠΠΎΠ΄ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° ForEachSheets() Dim ws As ΡΠ°Π±ΠΎΡΠΈΠΉ Π»ΠΈΡΡ ΠΠ»Ρ ΠΊΠ°ΠΆΠ΄ΠΎΠ³ΠΎ ws Π² Π»ΠΈΡΡΠ°Ρ ws.Visible = ΠΡΡΠΈΠ½Π° Π‘Π»Π΅Π΄ΡΡΡΠΈΠΉ ΠΌΡ End Sub
Π¦ΠΈΠΊΠ» ΠΏΠΎ ΡΠ°Π±ΠΎΡΠΈΠΌ ΠΊΠ½ΠΈΠ³Π°ΠΌ
ΠΡΠ° ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ° Π±ΡΠ΄Π΅Ρ ΠΏΡΠΎΡ ΠΎΠ΄ΠΈΡΡ ΠΏΠΎ Π²ΡΠ΅ΠΌ ΡΠ°Π±ΠΎΡΠΈΠΌ ΠΊΠ½ΠΈΠ³Π°ΠΌ, Π·Π°ΠΊΡΡΠ²Π°Ρ ΠΊΠ°ΠΆΠ΄ΡΡ ΠΈΠ· Π½ΠΈΡ .
ΠΠΎΠ΄ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° ForEachWorkbooks() Dim wb ΠΊΠ°ΠΊ ΡΠ°Π±ΠΎΡΠ°Ρ ΠΊΠ½ΠΈΠ³Π° ΠΠ»Ρ ΠΊΠ°ΠΆΠ΄ΠΎΠ³ΠΎ ΠΠ Π² ΡΠ°Π±ΠΎΡΠΈΡ ΠΊΠ½ΠΈΠ³Π°Ρ wb.ΠΠ°ΠΊΡΡΡΡ Π‘Π»Π΅Π΄ΡΡΡΠΈΠΉ Π±Π± End Sub
Π¦ΠΈΠΊΠ» ΠΏΠΎ ΡΠΈΠ³ΡΡΠ°ΠΌ
ΠΡΠ° ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ° Π±ΡΠ΄Π΅Ρ ΠΏΡΠΎΡ ΠΎΠ΄ΠΈΡΡ ΠΏΠΎ Π²ΡΠ΅ΠΌ ΡΠΈΠ³ΡΡΠ°ΠΌ Π½Π° ΠΠΈΡΡΠ΅ 1, ΡΠ΄Π°Π»ΡΡ ΠΊΠ°ΠΆΠ΄ΡΡ ΠΈΠ· Π½ΠΈΡ .
ΠΠΎΠ΄ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° ForEachShape() ΠΠΈΠΌ Π¨ΠΏ ΠΡ Π¨Π΅ΠΉΠΏ ΠΠ»Ρ ΠΊΠ°ΠΆΠ΄ΠΎΠ³ΠΎ Π»ΠΈΡΡΠ° Π² Π»ΠΈΡΡΠ°Ρ ("ΠΠΈΡΡ1"). Π€ΠΎΡΠΌΡ Π¨ΠΏ.ΡΠ΄Π°Π»ΠΈΡΡ Π‘Π»Π΅Π΄ΡΡΡΠ°Ρ Π¨ΠΏ End Sub
ΠΠΎΠ΄ΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ VBA ΡΡΠ°Π»ΠΎ ΠΏΡΠΎΡΠ΅
ΠΡΡΠ°Π½ΠΎΠ²ΠΈΡΡ ΠΏΠΎΠΈΡΠΊ ΠΊΠΎΠ΄Π° VBA Π² ΡΠ΅ΡΠΈ. Π£Π·Π½Π°ΠΉΡΠ΅ Π±ΠΎΠ»ΡΡΠ΅ ΠΎΠ± AutoMacro β ΠΊΠΎΠ½ΡΡΡΡΠΊΡΠΎΡΠ΅ ΠΊΠΎΠ΄Π° VBA, ΠΊΠΎΡΠΎΡΡΠΉ ΠΏΠΎΠ·Π²ΠΎΠ»ΡΠ΅Ρ Π½ΠΎΠ²ΠΈΡΠΊΠ°ΠΌ ΡΠΎΠ·Π΄Π°Π²Π°ΡΡ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ Ρ Π½ΡΠ»Ρ Ρ ΠΌΠΈΠ½ΠΈΠΌΠ°Π»ΡΠ½ΡΠΌΠΈ Π·Π½Π°Π½ΠΈΡΠΌΠΈ Π² ΠΎΠ±Π»Π°ΡΡΠΈ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΠΈ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²ΠΎΠΌ ΡΡΠ½ΠΊΡΠΈΠΉ, ΠΏΠΎΠ·Π²ΠΎΠ»ΡΡΡΠΈΡ ΡΡΠΊΠΎΠ½ΠΎΠΌΠΈΡΡ Π²ΡΠ΅ΠΌΡ Π΄Π»Ρ Π²ΡΠ΅Ρ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Π΅ΠΉ!
Π£Π·Π½Π°ΡΡ Π±ΠΎΠ»ΡΡΠ΅
Π‘ΠΊΠ²ΠΎΠ·Π½ΡΠ΅ Π΄ΠΈΠ°Π³ΡΠ°ΠΌΠΌΡ
ΠΡΠ° ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ° Π±ΡΠ΄Π΅Ρ ΠΏΠ΅ΡΠ΅Π±ΠΈΡΠ°ΡΡ ΠΊΠ°ΠΆΠ΄ΡΡ Π΄ΠΈΠ°Π³ΡΠ°ΠΌΠΌΡ Π½Π° Π»ΠΈΡΡΠ΅ 1, ΡΠ΄Π°Π»ΡΡ ΠΊΠ°ΠΆΠ΄ΡΡ.
ΠΠΎΠ΄ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° ForEachCharts() Dim cht As ChartObject ΠΠ»Ρ ΠΊΠ°ΠΆΠ΄ΠΎΠ³ΠΎ ΡΡ Π² Π»ΠΈΡΡΠ°Ρ ("ΠΠΈΡΡ1").ChartObjects ΡΡ.Π£Π΄Π°Π»ΠΈΡΡ Π‘Π»Π΅Π΄ΡΡΡΠΈΠΉ ΡΡ End Sub
Π¦ΠΈΠΊΠ» ΠΏΠΎ ΡΠ²ΠΎΠ΄Π½ΡΠΌ ΡΠ°Π±Π»ΠΈΡΠ°ΠΌ
ΠΡΠ° ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ° Π±ΡΠ΄Π΅Ρ ΠΏΡΠΎΡ ΠΎΠ΄ΠΈΡΡ ΠΏΠΎ Π²ΡΠ΅ΠΌ ΡΠ²ΠΎΠ΄Π½ΡΠΌ ΡΠ°Π±Π»ΠΈΡΠ°ΠΌ Π½Π° Π»ΠΈΡΡΠ΅ Sheet1, ΠΎΡΠΈΡΠ°Ρ ΠΊΠ°ΠΆΠ΄ΡΡ ΠΈΠ· Π½ΠΈΡ
Sub ForEachPivotTables() Dim pvt ΠΊΠ°ΠΊ ΡΠ²ΠΎΠ΄Π½Π°Ρ ΡΠ°Π±Π»ΠΈΡΠ° ΠΠ»Ρ ΠΊΠ°ΠΆΠ΄ΠΎΠ³ΠΎ pvt Π² Π»ΠΈΡΡΠ°Ρ (Β«ΠΠΈΡΡ1Β»). Π‘Π²ΠΎΠ΄Π½ΡΠ΅ ΡΠ°Π±Π»ΠΈΡΡ pvt.ClearTable Π‘Π»Π΅Π΄ΡΡΡΠΈΠΉ ΠΏΠ²Ρ ΠΠΎΠ½Π΅Ρ ΡΡΠ±
Π¦ΠΈΠΊΠ»ΠΈΡΠ΅ΡΠΊΠΈΠΉ ΠΏΡΠΎΡΠΌΠΎΡΡ ΡΠ°Π±Π»ΠΈΡ
ΠΡΠ° ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ° Π²ΡΠΏΠΎΠ»Π½ΡΠ΅Ρ ΡΠΈΠΊΠ»ΠΈΡΠ΅ΡΠΊΠΈΠΉ ΠΏΡΠΎΡΠΌΠΎΡΡ ΠΊΠ°ΠΆΠ΄ΠΎΠΉ ΡΠ°Π±Π»ΠΈΡΡ Π½Π° ΠΠΈΡΡΠ΅ 1 Ρ ΡΠ΄Π°Π»Π΅Π½ΠΈΠ΅ΠΌ ΠΊΠ°ΠΆΠ΄ΠΎΠΉ ΠΈΠ· Π½ΠΈΡ .
ΠΠΎΠ΄ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° ForEachTables() Dim ΡΠ°Π±Π»ΠΈΡΠ° ΠΊΠ°ΠΊ ListObject ΠΠ»Ρ ΠΊΠ°ΠΆΠ΄ΠΎΠΉ ΡΠ°Π±Π»ΠΈΡΡ Π² Π»ΠΈΡΡΠ°Ρ ("ΠΠΈΡΡ1").ListObjects ΡΠ°Π±Π».Π£Π΄Π°Π»ΠΈΡΡ Π‘Π»Π΅Π΄ΡΡΡΠ°Ρ ΡΠ°Π±Π»ΠΈΡΠ° End Sub
ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ VBA | ΠΠ΅Π½Π΅ΡΠ°ΡΠΎΡ ΠΊΠΎΠ΄Π° ΡΠ°Π±ΠΎΡΠ°Π΅Ρ Π½Π° Π²Π°Ρ!
Π¦ΠΈΠΊΠ»ΠΈΡΠ΅ΡΠΊΠΈΠΉ ΠΏΡΠΎΡΠΌΠΎΡΡ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠΎΠ² ΠΌΠ°ΡΡΠΈΠ²Π°
ΠΡΠ° ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ° Π²ΡΠΏΠΎΠ»Π½ΡΠ΅Ρ ΡΠΈΠΊΠ»ΠΈΡΠ΅ΡΠΊΠΈΠΉ ΠΏΡΠΎΡΠΌΠΎΡΡ ΠΊΠ°ΠΆΠ΄ΠΎΠ³ΠΎ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠ° ΠΌΠ°ΡΡΠΈΠ²Π°, ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ°Π΅Ρ ΠΊΠ°ΠΆΠ΄ΠΎΠ΅ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ Π² ΠΎΠΊΠ½Π΅ ΡΠΎΠΎΠ±ΡΠ΅Π½ΠΈΡ,
ΠΠΎΠ΄ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° ForEachItemInArray() Dim arrValue ΠΊΠ°ΠΊ Π²Π°ΡΠΈΠ°Π½Ρ ΠΠ°ΡΠ΅ΠΌΠ½ΠΈΡΡ ΡΠ»Π΅ΠΌΠ΅Π½Ρ ΠΊΠ°ΠΊ Π²Π°ΡΠΈΠ°Π½Ρ arrValue = Array("ΠΠ»Π΅ΠΌΠ΅Π½Ρ 1", "ΠΠ»Π΅ΠΌΠ΅Π½Ρ 2", "ΠΠ»Π΅ΠΌΠ΅Π½Ρ 3") ΠΠ»Ρ ΠΊΠ°ΠΆΠ΄ΠΎΠ³ΠΎ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠ° Π² arrValue ΠΠ»Π΅ΠΌΠ΅Π½Ρ MsgBox Π‘Π»Π΅Π΄ΡΡΡΠΈΠΉ ΡΠ»Π΅ΠΌΠ΅Π½Ρ End Sub
Π¦ΠΈΠΊΠ» ΠΏΠΎ Π½ΠΎΠΌΠ΅ΡΠ°ΠΌ
ΠΡΠ° ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ° Π±ΡΠ΄Π΅Ρ ΠΏΠ΅ΡΠ΅Π±ΠΈΡΠ°ΡΡ Π²ΡΠ΅ ΡΠΈΡΠ»Π° Π² ΠΌΠ°ΡΡΠΈΠ²Π΅, ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ°ΡΡ ΠΊΠ°ΠΆΠ΄ΠΎΠ΅ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ Π² msgbox,
Sub ForEachNumberInNumbers() Dim arrNumber (ΠΎΡ 1 Π΄ΠΎ 3) ΠΊΠ°ΠΊ ΡΠ΅Π»ΠΎΠ΅ ΡΠΈΡΠ»ΠΎ Dim num ΠΊΠ°ΠΊ Π²Π°ΡΠΈΠ°Π½Ρ Π½ΠΎΠΌΠ΅Ρ(1) = 10 ΡΠΈΡΠ»ΠΎ(2) = 20 Π½ΠΎΠΌΠ΅Ρ(3) = 30 ΠΠ»Ρ ΠΊΠ°ΠΆΠ΄ΠΎΠ³ΠΎ ΡΠΈΡΠ»Π° In arrNumber Π½ΠΎΠΌΠ΅Ρ ΠΏΠΎΡΡΠΎΠ²ΠΎΠ³ΠΎ ΡΡΠΈΠΊΠ° Π‘Π»Π΅Π΄ΡΡΡΠΈΠΉ Π½ΠΎΠΌΠ΅Ρ ΠΠΎΠ½Π΅Ρ ΡΡΠ±
ΠΠ»Ρ ΠΊΠ°ΠΆΠ΄ΠΎΠ³ΠΎ ΠΏΠΎΡΡΡΠΎΠΈΡΠ΅Π»Ρ ΡΠΈΠΊΠ»ΠΎΠ²
ΠΡΠΈΠΌΠ΅ΡΡ Π² ΡΡΠΎΠΉ ΡΡΠ°ΡΡΠ΅ Π±ΡΠ»ΠΈ ΡΠΎΠ·Π΄Π°Π½Ρ Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΠΏΠΎΡΡΡΠΎΠΈΡΠ΅Π»Ρ ΡΠΈΠΊΠ»ΠΎΠ² Π² Π½Π°ΡΠ΅ΠΉ Π½Π°Π΄ΡΡΡΠΎΠΉΠΊΠ΅ VBA: AutoMacro .
Β
Loop Builder ΠΏΠΎΠ·Π²ΠΎΠ»ΡΠ΅Ρ ΠΎΡΠ΅Π½Ρ Π»Π΅Π³ΠΊΠΎ Π³Π΅Π½Π΅ΡΠΈΡΠΎΠ²Π°ΡΡ ΠΊΠΎΠ΄ Π΄Π»Ρ ΡΠΈΠΊΠ»ΠΈΡΠ΅ΡΠΊΠΎΠ³ΠΎ ΠΎΠ±Ρ ΠΎΠ΄Π° ΠΎΠ±ΡΠ΅ΠΊΡΠΎΠ². AutoMacro ΡΠ°ΠΊΠΆΠ΅ ΡΠΎΠ΄Π΅ΡΠΆΠΈΡ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²ΠΎ Π΄ΡΡΠ³ΠΈΡ Π³Π΅Π½Π΅ΡΠ°ΡΠΎΡΠΎΠ² ΠΊΠΎΠ΄Π° , ΠΎΠ±ΡΠΈΡΠ½ΡΡ Π±ΠΈΠ±Π»ΠΈΠΎΡΠ΅ΠΊΡ ΠΊΠΎΠ΄ΠΎΠ² ΠΈ ΠΌΠΎΡΠ½ΡΠ΅ ΡΡΠ΅Π΄ΡΡΠ²Π° ΠΊΠΎΠ΄ΠΈΡΠΎΠ²Π°Π½ΠΈΡ .
ΠΠ»Ρ ΠΊΠ°ΠΆΠ΄ΠΎΠ³ΠΎ β If
ΠΡ ΡΠ°ΠΊΠΆΠ΅ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡΡ If Π² ΡΠΈΠΊΠ»Π°Ρ Π΄Π»Ρ ΠΏΡΠΎΠ²Π΅ΡΠΊΠΈ ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΠΈΡ ΠΎΠ±ΡΠ΅ΠΊΡΠΎΠ² ΠΎΠΏΡΠ΅Π΄Π΅Π»Π΅Π½Π½ΡΠΌ ΠΊΡΠΈΡΠ΅ΡΠΈΡΠΌ, Π²ΡΠΏΠΎΠ»Π½ΡΡ Π΄Π΅ΠΉΡΡΠ²ΠΈΡ ΡΠΎΠ»ΡΠΊΠΎ Π½Π°Π΄ ΡΠ΅ΠΌΠΈ ΠΎΠ±ΡΠ΅ΠΊΡΠ°ΠΌΠΈ, ΠΊΠΎΡΠΎΡΡΠ΅ ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΡΡΡ ΠΊΡΠΈΡΠ΅ΡΠΈΡΠΌ. ΠΠΎΡ ΠΏΡΠΈΠΌΠ΅Ρ ΠΏΠ΅ΡΠ΅Π±ΠΎΡΠ° ΠΊΠ°ΠΆΠ΄ΠΎΠΉ ΡΡΠ΅ΠΉΠΊΠΈ Π² Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½Π΅:
ΠΠ»Ρ ΠΊΠ°ΠΆΠ΄ΠΎΠΉ ΡΡΠ΅ΠΉΠΊΠΈ Π² Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½Π΅ β If
Sub If_Loop() ΠΠ°ΡΠ΅ΠΌΠ½ΠΈΡΡ ΡΡΠ΅ΠΉΠΊΡ ΠΊΠ°ΠΊ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ ΠΠ»Ρ ΠΊΠ°ΠΆΠ΄ΠΎΠΉ ΡΡΠ΅ΠΉΠΊΠΈ Π² Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½Π΅ (Β«A2: A6Β») ΠΡΠ»ΠΈ Π―ΡΠ΅ΠΉΠΊΠ°.ΠΠ½Π°ΡΠ΅Π½ΠΈΠ΅ > 0 Π’ΠΎΠ³Π΄Π° Cell.Offset(0, 1).Value = "ΠΠΎΠ»ΠΎΠΆΠΈΡΠ΅Π»ΡΠ½ΠΎΠ΅" ΠΠ½Π°ΡΠ΅ΠΡΠ»ΠΈ Cell.Value < 0 Π’ΠΎΠ³Π΄Π° Cell.Offset(0, 1).Value = "ΠΡΡΠΈΡΠ°ΡΠ΅Π»ΡΠ½ΠΎΠ΅" ΠΡΠ΅ Π―ΡΠ΅ΠΉΠΊΠ°.Π‘ΠΌΠ΅ΡΠ΅Π½ΠΈΠ΅(0, 1).ΠΠ½Π°ΡΠ΅Π½ΠΈΠ΅ = "ΠΠΎΠ»Ρ" ΠΠΎΠ½Π΅Ρ, Π΅ΡΠ»ΠΈ Π‘Π»Π΅Π΄ΡΡΡΠ°Ρ ΡΡΠ΅ΠΉΠΊΠ° End Sub
Β
ΠΠ²ΡΠΎΠΌΠ°ΠΊΡΠΎΡ | ΠΠΊΠΎΠ½ΡΠ°ΡΠ΅Π»ΡΠ½Π°Ρ Π½Π°Π΄ΡΡΡΠΎΠΉΠΊΠ° VBA | ΠΠ°ΠΆΠΌΠΈΡΠ΅ Π΄Π»Ρ Π±Π΅ΡΠΏΠ»Π°ΡΠ½ΠΎΠΉ ΠΏΡΠΎΠ±Π½ΠΎΠΉ Π²Π΅ΡΡΠΈΠΈ!
ΠΠ»Ρ ΠΊΠ°ΠΆΠ΄ΠΎΠ³ΠΎ ΠΈΠ· ΠΎΠ±ΡΠΈΡ ΠΏΡΠΈΠΌΠ΅ΡΠΎΠ²
ΠΠ°ΠΊΡΡΡΡ Π²ΡΠ΅ ΡΠ°Π±ΠΎΡΠΈΠ΅ ΠΊΠ½ΠΈΠ³ΠΈ
ΠΡΠ° ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ° Π·Π°ΠΊΡΠΎΠ΅Ρ Π²ΡΠ΅ ΠΎΡΠΊΡΡΡΡΠ΅ ΡΠ°Π±ΠΎΡΠΈΠ΅ ΠΊΠ½ΠΈΠ³ΠΈ Ρ ΡΠΎΡ ΡΠ°Π½Π΅Π½ΠΈΠ΅ΠΌ ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΠΉ.
Sub CloseAllWorkbooks() Dim wb ΠΊΠ°ΠΊ ΡΠ°Π±ΠΎΡΠ°Ρ ΠΊΠ½ΠΈΠ³Π° ΠΠ»Ρ ΠΊΠ°ΠΆΠ΄ΠΎΠ³ΠΎ ΠΠ Π² ΡΠ°Π±ΠΎΡΠΈΡ ΠΊΠ½ΠΈΠ³Π°Ρ wb.Close SaveChanges: = True Π‘Π»Π΅Π΄ΡΡΡΠΈΠΉ Π±Π± End Sub
Π‘ΠΊΡΡΡΡ Π²ΡΠ΅ Π»ΠΈΡΡΡ
ΠΡΠ° ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ° ΡΠΊΡΠΎΠ΅Ρ Π²ΡΠ΅ ΡΠ°Π±ΠΎΡΠΈΠ΅ Π»ΠΈΡΡΡ.
ΠΠΎΠ΄ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° HideAllSheets() Dim ws As ΡΠ°Π±ΠΎΡΠΈΠΉ Π»ΠΈΡΡ ΠΠ»Ρ ΠΊΠ°ΠΆΠ΄ΠΎΠ³ΠΎ ws Π² Π»ΠΈΡΡΠ°Ρ ws.Visible = ΠΊΡΠ»ΡΠΈΡΡ ΠΈΠ΄Π΄Π΅Π½ Π‘Π»Π΅Π΄ΡΡΡΠΈΠΉ ΠΌΡ ΠΠΎΠ½Π΅Ρ ΡΡΠ±
ΠΠΎΠΊΠ°Π·Π°ΡΡ Π²ΡΠ΅ Π»ΠΈΡΡΡ
ΠΡΠ° ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ° ΠΏΠΎΠΊΠ°ΠΆΠ΅Ρ Π²ΡΠ΅ ΡΠ°Π±ΠΎΡΠΈΠ΅ Π»ΠΈΡΡΡ.
Sub UnhideAllSheets() Dim ws As ΡΠ°Π±ΠΎΡΠΈΠΉ Π»ΠΈΡΡ ΠΠ»Ρ ΠΊΠ°ΠΆΠ΄ΠΎΠ³ΠΎ ws Π² Π»ΠΈΡΡΠ°Ρ ws.Visible = ΠΊΡΠ»ΡΠΈΡΠ²ΠΈΡΠΈΠ±Π»Π΅ Π‘Π»Π΅Π΄ΡΡΡΠΈΠΉ ΠΌΡ End Sub
ΠΠ²ΡΠΎΠΌΠ°ΠΊΡΠΎΡ | ΠΠΊΠΎΠ½ΡΠ°ΡΠ΅Π»ΡΠ½Π°Ρ Π½Π°Π΄ΡΡΡΠΎΠΉΠΊΠ° VBA | ΠΠ°ΠΆΠΌΠΈΡΠ΅ Π΄Π»Ρ Π±Π΅ΡΠΏΠ»Π°ΡΠ½ΠΎΠΉ ΠΏΡΠΎΠ±Π½ΠΎΠΉ Π²Π΅ΡΡΠΈΠΈ!
ΠΠ°ΡΠΈΡΠΈΡΡ Π²ΡΠ΅ Π»ΠΈΡΡΡ
ΠΡΠ° ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ° Π·Π°ΡΠΈΡΠΈΡ Π²ΡΠ΅ ΡΠ°Π±ΠΎΡΠΈΠ΅ Π»ΠΈΡΡΡ.
Sub ProtectAllSheets() Dim ws As ΡΠ°Π±ΠΎΡΠΈΠΉ Π»ΠΈΡΡ ΠΠ»Ρ ΠΊΠ°ΠΆΠ΄ΠΎΠ³ΠΎ ws Π² Π»ΠΈΡΡΠ°Ρ ws.Protect Password:=". .." Π‘Π»Π΅Π΄ΡΡΡΠΈΠΉ ΠΌΡ ΠΠΎΠ½Π΅Ρ ΡΡΠ±
Π‘Π½ΡΡΡ Π·Π°ΡΠΈΡΡ ΡΠΎ Π²ΡΠ΅Ρ Π»ΠΈΡΡΠΎΠ²
ΠΡΠ° ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ° ΡΠ½ΠΈΠΌΠ΅Ρ Π·Π°ΡΠΈΡΡ ΡΠΎ Π²ΡΠ΅Ρ ΡΠ°Π±ΠΎΡΠΈΡ Π»ΠΈΡΡΠΎΠ².
Sub UnprotectAllSheets() Dim ws As ΡΠ°Π±ΠΎΡΠΈΠΉ Π»ΠΈΡΡ ΠΠ»Ρ ΠΊΠ°ΠΆΠ΄ΠΎΠ³ΠΎ ws Π² Π»ΠΈΡΡΠ°Ρ ws.Unprotect Password:="..." Π‘Π»Π΅Π΄ΡΡΡΠΈΠΉ ΠΌΡ End Sub
Π£Π΄Π°Π»ΠΈΡΡ Π²ΡΠ΅ ΡΠΈΠ³ΡΡΡ Π½Π° Π²ΡΠ΅Ρ Π»ΠΈΡΡΠ°Ρ
ΠΡΠ° ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ° ΡΠ΄Π°Π»ΠΈΡ Π²ΡΠ΅ ΡΠΈΠ³ΡΡΡ Π² ΠΊΠ½ΠΈΠ³Π΅.
Sub DeleteAllShapesOnAllWorksheets() Dim Sheet As Worksheet ΠΠΈΠΌ Π¨ΠΏ ΠΡ Π¨Π΅ΠΉΠΏ ΠΠ»Ρ ΠΊΠ°ΠΆΠ΄ΠΎΠ³ΠΎ Π»ΠΈΡΡΠ° Π² Π»ΠΈΡΡΠ°Ρ ΠΠ»Ρ ΠΊΠ°ΠΆΠ΄ΠΎΠΉ ΡΠΏ Π² Sheet.Shapes Π¨ΠΏ.ΡΠ΄Π°Π»ΠΈΡΡ Π‘Π»Π΅Π΄ΡΡΡΠ°Ρ Π¨ΠΏ Π‘Π»Π΅Π΄ΡΡΡΠΈΠΉ Π»ΠΈΡΡ ΠΠΎΠ½Π΅Ρ ΡΡΠ±
ΠΠ±Π½ΠΎΠ²ΠΈΡΡ Π²ΡΠ΅ ΡΠ²ΠΎΠ΄Π½ΡΠ΅ ΡΠ°Π±Π»ΠΈΡΡ
ΠΡΠ° ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ° ΠΎΠ±Π½ΠΎΠ²ΠΈΡ Π²ΡΠ΅ ΡΠ²ΠΎΠ΄Π½ΡΠ΅ ΡΠ°Π±Π»ΠΈΡΡ Π½Π° Π»ΠΈΡΡΠ΅.
Sub RefreshAllPivotTables() Dim pvt ΠΊΠ°ΠΊ ΡΠ²ΠΎΠ΄Π½Π°Ρ ΡΠ°Π±Π»ΠΈΡΠ° ΠΠ»Ρ ΠΊΠ°ΠΆΠ΄ΠΎΠ³ΠΎ pvt Π² Π»ΠΈΡΡΠ°Ρ (Β«ΠΠΈΡΡ1Β»). Π‘Π²ΠΎΠ΄Π½ΡΠ΅ ΡΠ°Π±Π»ΠΈΡΡ pvt.RefreshTable Π‘Π»Π΅Π΄ΡΡΡΠΈΠΉ ΠΏΠ²Ρ End Sub
ΠΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ For Each Π² Access VBA
Π¦ΠΈΠΊΠ» For Each ΡΠ°Π±ΠΎΡΠ°Π΅Ρ Π² Access VBA ΡΠ°ΠΊ ΠΆΠ΅, ΠΊΠ°ΠΊ ΠΈ Π² Excel VBA. Π ΡΠ»Π΅Π΄ΡΡΡΠ΅ΠΌ ΠΏΡΠΈΠΌΠ΅ΡΠ΅ Π±ΡΠ΄ΡΡ ΡΠ΄Π°Π»Π΅Π½Ρ Π²ΡΠ΅ ΡΠ°Π±Π»ΠΈΡΡ Π² ΡΠ΅ΠΊΡΡΠ΅ΠΉ Π±Π°Π·Π΅ Π΄Π°Π½Π½ΡΡ .
Sub RemoveAllTables() Dim tdf ΠΊΠ°ΠΊ TableDef Dim dbs ΠΊΠ°ΠΊ Π±Π°Π·Π° Π΄Π°Π½Π½ΡΡ Π£ΡΡΠ°Π½ΠΎΠ²ΠΈΡΠ΅ dbs = CurrentDb ΠΠ»Ρ ΠΊΠ°ΠΆΠ΄ΠΎΠ³ΠΎ tdf Π² dbs.TableDefs DoCmd.DeleteObject tdf.Name ΠΠ΅ΡΠ»Ρ Π£ΡΡΠ°Π½ΠΎΠ²ΠΈΡΠ΅ dbs = ΠΠΈΡΠ΅Π³ΠΎ End Sub
VBA Π‘ | ΠΠ°ΠΊ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡ With Π² Excel VBA?
Π ΡΡΠΎΠΉ ΡΡΠ°ΡΡΠ΅ ΠΌΡ ΡΠ²ΠΈΠ΄ΠΈΠΌ ΡΡ Π΅ΠΌΡ Excel VBA Π‘. With β ΡΡΠΎ ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡ Π² ΡΠ·ΡΠΊΠ°Ρ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ. ΠΡΠΎ ΠΎΠ΄ΠΈΠ½ ΠΈΠ· Π½Π°ΠΈΠ±ΠΎΠ»Π΅Π΅ ΡΠ°ΡΡΠΎ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΠΌΡΡ ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡΠΎΠ², ΠΊΠΎΡΠΎΡΡΠΉ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ Ρ ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡΠΎΠΌ END. ΠΠ±ΡΠ΅ΠΊΡ, Π½Π° ΠΊΠΎΡΠΎΡΡΠΉ Π΄Π΅Π»Π°Π΅ΡΡΡ ΡΡΡΠ»ΠΊΠ°, ΡΠΏΠΎΠΌΠΈΠ½Π°Π΅ΡΡΡ ΠΏΠΎΡΠ»Π΅ ΠΊΠ»ΡΡΠ΅Π²ΠΎΠ³ΠΎ ΡΠ»ΠΎΠ²Π° with, ΠΈ Π²Π΅ΡΡ ΠΏΡΠΎΡΠ΅ΡΡ Π·Π°Π²Π΅ΡΡΠ°Π΅ΡΡΡ ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡΠΎΠΌ End With. ΠΠΏΠ΅ΡΠ°ΡΠΎΡ VBA With Π½Π΅ ΠΌΠΎΠΆΠ΅Ρ Π±ΡΡΡ Π±Π΅Π· ΠΊΠΎΠ½ΡΠ° ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡΠΎΠΌ, ΠΏΠΎΡΡΠΎΠΌΡ ΠΎΠ±ΡΠ·Π°ΡΠ΅Π»ΡΠ½ΠΎ Π·Π°ΠΊΡΡΠ²Π°ΡΡ ΡΠ΅ΡΠΈΡ ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡΠΎΠ². ΠΠ»ΡΡΠ΅Π²Π°Ρ ΠΎΡΠΎΠ±Π΅Π½Π½ΠΎΡΡΡ ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡΠ° with Π·Π°ΠΊΠ»ΡΡΠ°Π΅ΡΡΡ Π² ΡΠΎΠΌ, ΡΡΠΎ ΠΌΡ ΠΌΠΎΠΆΠ΅ΠΌ ΠΏΠΎΠ»ΡΡΠΈΡΡ Π΄ΠΎΡΡΡΠΏ ΠΊ ΡΠ²ΠΎΠΉΡΡΠ²Π°ΠΌ ΠΎΠ±ΡΠ΅ΠΊΡΠ°, Π½Π΅ ΠΎΠ±ΡΠ°ΡΠ°ΡΡΡ ΠΊ ΠΎΠ±ΡΠ΅ΠΊΡΡ Π½Π΅ΡΠΊΠΎΠ»ΡΠΊΠΎ ΡΠ°Π·. ΠΠ΅ΡΠΎΠ΄ Π΄ΠΎΡΡΡΠΏΠ° ΠΊ ΡΠ²ΠΎΠΉΡΡΠ²Π°ΠΌ ΠΎΠ±ΡΠ΅ΠΊΡΠ° Π·Π°ΠΊΠ»ΡΡΠ°Π΅ΡΡΡ Π² ΠΊΠ»ΡΡΠ΅Π²ΠΎΠΌ ΡΠ»ΠΎΠ²Π΅ ΡΠΎΡΠΊΠ°. ΠΠΎΠ³Π΄Π° ΠΌΡ ΡΡΠ°Π²ΠΈΠΌ ΠΊΠ»ΡΡΠ΅Π²ΠΎΠ΅ ΡΠ»ΠΎΠ²ΠΎ Ρ ΡΠΎΡΠΊΠΎΠΉ, ΠΌΡ Π²ΠΈΠ΄ΠΈΠΌ Π½Π΅ΡΠΊΠΎΠ»ΡΠΊΠΎ Π²Π°ΡΠΈΠ°Π½ΡΠΎΠ² Π΄ΠΎΡΡΡΠΏΠ° ΠΊ ΡΠ²ΠΎΠΉΡΡΠ²Π°ΠΌ ΠΎΠ±ΡΠ΅ΠΊΡΠ°. ΠΠ°Π²Π°ΠΉΡΠ΅ ΡΠ·Π½Π°Π΅ΠΌ, ΠΊΠ°ΠΊ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡ With Π² Π½Π΅ΠΊΠΎΡΠΎΡΡΡ ΠΏΡΠΈΠΌΠ΅ΡΠ°Ρ Π½ΠΈΠΆΠ΅.
ΠΠ°ΠΊ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ Ρ ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡΠΎΠΌ Π² Excel VBA?
ΠΡ ΡΠ·Π½Π°Π΅ΠΌ, ΠΊΠ°ΠΊ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡ With Π² Excel, ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΡ ΠΊΠΎΠ΄ VBA.
ΠΡ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΡΠΊΠ°ΡΠ°ΡΡ ΡΡΠΎΡ ΡΠ°Π±Π»ΠΎΠ½ VBA Ρ Excel Π·Π΄Π΅ΡΡ β VBA Ρ ΡΠ°Π±Π»ΠΎΠ½ΠΎΠΌ Excel
VBA Ρ β ΠΏΡΠΈΠΌΠ΅Ρ β 1
ΠΠ°Π²Π°ΠΉΡΠ΅ ΡΠ½Π°ΡΠ°Π»Π° Π½Π°ΡΠ½Π΅ΠΌ Ρ Π±Π°Π·ΠΎΠ²ΠΎΠ³ΠΎ ΠΏΡΠΈΠΌΠ΅ΡΠ°, Π² ΠΊΠΎΡΠΎΡΠΎΠΌ ΠΌΡ Π±ΡΠ΄Π΅ΠΌ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡ With Π΄Π»Ρ Π΄ΠΎΡΡΡΠΏΠ° ΠΊ Π·Π½Π°ΡΠ΅Π½ΠΈΡ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½Π° ΠΎΠ±ΡΠ΅ΠΊΡΠ°, Π° Π·Π°ΡΠ΅ΠΌ ΠΏΡΠΈΡΠ²ΠΎΠΈΡΡ Π΅ΠΌΡ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»ΡΡΠΊΠΎΠ΅ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅. ΠΠ»Ρ ΡΡΠΎΠ³ΠΎ Π²ΡΠΏΠΎΠ»Π½ΠΈΡΠ΅ ΡΠ»Π΅Π΄ΡΡΡΠΈΠ΅ Π΄Π΅ΠΉΡΡΠ²ΠΈΡ:
Π¨Π°Π³ 1: ΠΡΡΠ°Π²ΡΡΠ΅ Π½ΠΎΠ²ΡΠΉ ΠΌΠΎΠ΄ΡΠ»Ρ Π² ΡΠ΅Π΄Π°ΠΊΡΠΎΡ Visual Basic (VBE). ΠΠ°ΠΆΠΌΠΈΡΠ΅ Π½Π° Π²ΠΊΠ»Π°Π΄ΠΊΡ Insert > Π²ΡΠ±Π΅ΡΠΈΡΠ΅ Module .
Π¨Π°Π³ 2:Β ΠΠΏΡΠ΅Π΄Π΅Π»ΠΈΡΠ΅ Π½ΠΎΠ²ΡΡ ΠΏΠΎΠ΄ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ Π²ΠΎ Π²ΡΡΠ°Π²Π»Π΅Π½Π½ΠΎΠΌ ΠΌΠΎΠ΄ΡΠ»Π΅, ΠΊΠΎΡΠΎΡΠ°Ρ ΠΌΠΎΠΆΠ΅Ρ ΡΠΎΠ΄Π΅ΡΠΆΠ°ΡΡ Π²Π°Ρ ΠΌΠ°ΠΊΡΠΎΡ.
ΠΠΎΠ΄:
ΠΠΎΠ΄ΠΏΡΠΈΠΌΠ΅Ρ1() End Sub
Π¨Π°Π³ 3:Β ΠΠΎΡΠΊΠΎΠ»ΡΠΊΡ ΠΌΡ Π½Π°ΡΠΈΠ½Π°Π΅ΠΌ Ρ ΡΠ°ΠΌΠΎΠ³ΠΎ ΠΏΡΠΎΡΡΠΎΠ³ΠΎ ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡΠ° with.
ΠΠΎΠ΄:
ΠΠΎΠ΄ΠΏΡΠΈΠΌΠ΅Ρ1() Π‘ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ΠΎΠΌ ("A1") ΠΠΎΠ½Π΅Ρ ΡΡΠ±
Π¨Π°Π³ 4: ΠΠΎΠ³Π΄Π° ΠΌΡ Π½Π°Π±ΠΈΡΠ°Π΅ΠΌ ΡΠΎΡΠΊΡ (.), ΠΌΡ Π²ΠΈΠ΄ΠΈΠΌ ΡΡΠ΄ ΡΠ°Π·Π»ΠΈΡΠ½ΡΡ ΡΡΠ½ΠΊΡΠΈΠΉ, ΡΠ²ΡΠ·Π°Π½Π½ΡΡ Ρ ΠΎΠ±ΡΠ΅ΠΊΡΠΎΠΌ.
ΠΠΎΠ΄:
ΠΠΎΠ΄ΠΏΡΠΈΠΌΠ΅Ρ1() Π‘ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ΠΎΠΌ ("A1") .ΠΠ½Π°ΡΠ΅Π½ΠΈΠ΅ = 15 End Sub
Π¨Π°Π³ 5:Β ΠΡΠ΅Π³Π΄Π° Π½Π΅ Π·Π°Π±ΡΠ²Π°ΠΉΡΠ΅ Π·Π°ΠΊΡΡΠ²Π°ΡΡ ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡ with ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡΠΎΠΌ End.
ΠΠΎΠ΄:
ΠΠΎΠ΄ΠΏΡΠΈΠΌΠ΅Ρ1() Π‘ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ΠΎΠΌ ("A1") .ΠΠ½Π°ΡΠ΅Π½ΠΈΠ΅ = 15 ΠΠΎΠ½Π΅Ρ Ρ ΠΠΎΠ½Π΅Ρ ΡΡΠ±
Π¨Π°Π³ 6: Π’Π΅ΠΏΠ΅ΡΡ Π·Π°ΠΏΡΡΡΠΈΡΠ΅ ΡΡΠΎΡ ΠΊΠΎΠ΄, Π½Π°ΠΆΠ°Π² ΠΊΠ½ΠΎΠΏΠΊΡ Β«ΠΡΠΏΠΎΠ»Π½ΠΈΡΡΒ» ΠΈΠ»ΠΈ ΠΊΠ»Π°Π²ΠΈΡΡ F5.
VBA With β ΠΡΠΈΠΌΠ΅Ρ β2
Π ΡΡΠΎΠΌ ΠΏΡΠΈΠΌΠ΅ΡΠ΅ ΠΌΡ ΡΠ²ΠΈΠ΄ΠΈΠΌ, ΠΊΠ°ΠΊ ΠΈΠ·ΠΌΠ΅Π½ΠΈΡΡ ΠΎΠ΄ΠΈΠ½ ΠΈΠ· ΡΡΠΈΡΡΠΎΠ² ΠΈΠ»ΠΈ ΡΠ²Π΅Ρ ΡΠ²ΠΎΠΉΡΡΠ²Π° ΠΎΠ±ΡΠ΅ΠΊΡΠ°. Π£ ΠΌΠ΅Π½Ρ Π΅ΡΡΡ Π½Π΅ΠΊΠΎΡΠΎΡΡΠ΅ Π΄Π°Π½Π½ΡΠ΅ Π½Π° Π»ΠΈΡΡΠ΅ 2 Π² ΡΡΠ΅ΠΉΠΊΠ°Ρ ΠΎΡ A1 Π΄ΠΎ C3 ΠΎΠ±ΡΡΠ½ΠΎΠ³ΠΎ ΡΠ΅ΡΠ½ΠΎΠ³ΠΎ ΡΠ²Π΅ΡΠ°, ΠΈ Ρ Ρ ΠΎΡΡ ΠΈΠ·ΠΌΠ΅Π½ΠΈΡΡ ΡΡΠΈΡΡ ΡΠ΅ΠΊΡΡΠ° Π½Π° ΡΠΈΠ½ΠΈΠΉ, ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΡ With Statement. ΠΠΎ-ΠΏΠ΅ΡΠ²ΡΡ , Π΄Π°Π²Π°ΠΉΡΠ΅ ΠΏΠΎΡΠΌΠΎΡΡΠΈΠΌ ΡΠ΅ΠΊΡΡΠΈΠ΅ Π΄Π°Π½Π½ΡΠ΅ Π½Π° Π»ΠΈΡΡΠ΅ 2 ΡΠ»Π΅Π΄ΡΡΡΠΈΠΌ ΠΎΠ±ΡΠ°Π·ΠΎΠΌ. ΠΠ»Ρ ΡΡΠΎΠ³ΠΎ Π²ΡΠΏΠΎΠ»Π½ΠΈΡΠ΅ ΡΠ»Π΅Π΄ΡΡΡΠΈΠ΅ Π΄Π΅ΠΉΡΡΠ²ΠΈΡ:
Π¨Π°Π³ 1:Β Π’Π΅ΠΏΠ΅ΡΡ Π² ΡΠΎΠΌ ΠΆΠ΅ ΠΌΠΎΠ΄ΡΠ»Π΅ ΠΎΠ±ΡΡΠ²ΠΈΡΠ΅ Π΅ΡΠ΅ ΠΎΠ΄Π½Ρ ΠΏΠΎΠ΄ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ ΡΠ»Π΅Π΄ΡΡΡΠΈΠΌ ΠΎΠ±ΡΠ°Π·ΠΎΠΌ.
ΠΠΎΠ΄:
ΠΠΎΠ΄ΠΏΡΠΈΠΌΠ΅Ρ2() End Sub
Π¨Π°Π³ 2: ΠΡΠΎΠΌΠ΅ ΡΠΎΠ³ΠΎ, ΡΠ΅ΠΏΠ΅ΡΡ Ρ Π½Π°Ρ Π΅ΡΡΡ Π±ΠΎΠ»Π΅Π΅ ΠΎΠ΄Π½ΠΎΠ³ΠΎ Π»ΠΈΡΡΠ° Π² ΡΡΠΎΠΉ ΠΊΠ½ΠΈΠ³Π΅, ΠΏΠΎΡΡΠΎΠΌΡ Π΄Π°Π²Π°ΠΉΡΠ΅ Π°ΠΊΡΠΈΠ²ΠΈΡΡΠ΅ΠΌ Π»ΠΈΡΡ 2 Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΡΠ»Π΅Π΄ΡΡΡΠ΅Π³ΠΎ ΠΊΠΎΠ΄Π°.
ΠΠΎΠ΄:
ΠΠΎΠ΄ΠΏΡΠΈΠΌΠ΅Ρ2() Π Π°Π±ΠΎΡΠΈΠ΅ Π»ΠΈΡΡΡ("ΠΠΈΡΡ2").ΠΠΊΡΠΈΠ²ΠΈΡΠΎΠ²Π°ΡΡ End Sub
Π¨Π°Π³ 3: Π’Π΅ΠΏΠ΅ΡΡ ΠΎΠ±ΡΡΠ²ΠΈΡΠ΅ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ Ρ ΡΠΈΠΏΠΎΠΌ Π΄Π°Π½Π½ΡΡ Range, Π² ΠΊΠΎΡΠΎΡΠΎΠΉ Π±ΡΠ΄Π΅Ρ Ρ ΡΠ°Π½ΠΈΡΡΡΡ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ Π΄Π»Ρ Π½Π°ΡΠΈΡ Π΄Π°Π½Π½ΡΡ , ΠΊΠ°ΠΊ ΠΏΠΎΠΊΠ°Π·Π°Π½ΠΎ Π½ΠΈΠΆΠ΅, ΠΈ ΡΡΡΠ°Π½ΠΎΠ²ΠΈΡΠ΅ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ Π΄Π»Ρ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½Π°, Π² ΠΊΠΎΡΠΎΡΠΎΠΌ Π΅ΡΡΡ Π½Π°ΡΠΈ Π΄Π°Π½Π½ΡΠ΅ Π½Π° Π»ΠΈΡΡΠ΅ 2.
ΠΠΎΠ΄:
Sub Example2() Π Π°Π±ΠΎΡΠΈΠ΅ Π»ΠΈΡΡΡ("ΠΠΈΡΡ2").ΠΠΊΡΠΈΠ²ΠΈΡΠΎΠ²Π°ΡΡ Dim Rng As Range Π£ΡΡΠ°Π½ΠΎΠ²ΠΈΡΡ Rng = Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ (Β«A1: C3Β») End Sub
Π¨Π°Π³ 4:Β ΠΠΎΠ»ΡΡΠΈΡΠ΅ Π΄ΠΎΡΡΡΠΏ ΠΊ ΡΠ²ΠΎΠΉΡΡΠ²Ρ Font ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ Rng Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΠΈΠ½ΡΡΡΡΠΊΡΠΈΠΈ with ΡΠΎ ΡΠ»Π΅Π΄ΡΡΡΠΈΠΌ ΠΊΠΎΠ΄ΠΎΠΌ, ΠΏΠΎΠΊΠ°Π·Π°Π½Π½ΡΠΌ Π½ΠΈΠΆΠ΅.
ΠΠΎΠ΄:
ΠΠΎΠ΄ΠΏΡΠΈΠΌΠ΅Ρ2() Π Π°Π±ΠΎΡΠΈΠ΅ Π»ΠΈΡΡΡ("ΠΠΈΡΡ2").ΠΠΊΡΠΈΠ²ΠΈΡΠΎΠ²Π°ΡΡ Dim Rng As Range Π£ΡΡΠ°Π½ΠΎΠ²ΠΈΡΡ Rng = Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ (Β«A1: C3Β») Π‘ Rng.Font End Sub
Π¨Π°Π³ 5: Π’Π΅ΠΏΠ΅ΡΡ ΠΌΡ ΠΌΠΎΠΆΠ΅ΠΌ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡ ΡΠΎΡΠΊΠΈ (.), ΡΡΠΎΠ±Ρ ΠΈΠ·ΠΌΠ΅Π½ΠΈΡΡ ΡΠ²Π΅Ρ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½Π°, ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΡ ΡΠ»Π΅Π΄ΡΡΡΠΈΠΉ ΠΊΠΎΠ΄, ΠΈ ΠΈΠ·ΠΌΠ΅Π½ΠΈΡΡ ΡΠ²Π΅Ρ ΡΠ΅ΠΊΡΡΠ° Π² Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½Π΅ ΡΡΠ΅Π΅ΠΊ.
ΠΠΎΠ΄:
ΠΠΎΠ΄ΠΏΡΠΈΠΌΠ΅Ρ2() Π Π°Π±ΠΎΡΠΈΠ΅ Π»ΠΈΡΡΡ("ΠΠΈΡΡ2").ΠΠΊΡΠΈΠ²ΠΈΡΠΎΠ²Π°ΡΡ Dim Rng As Range Π£ΡΡΠ°Π½ΠΎΠ²ΠΈΡΡ Rng = Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ (Β«A1: C3Β») Π‘ Rng.Font .Π¦Π²Π΅Ρ = vbBlue ΠΠΎΠ½Π΅Ρ ΡΡΠ±
Π¨Π°Π³ 6:Β Π’Π΅ΠΏΠ΅ΡΡ Π΄Π°Π²Π°ΠΉΡΠ΅ Π·Π°Π²Π΅ΡΡΠΈΠΌ ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡ with ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡΠΎΠΌ END WITH ΡΠ»Π΅Π΄ΡΡΡΠΈΠΌ ΠΎΠ±ΡΠ°Π·ΠΎΠΌ.
ΠΠΎΠ΄:
ΠΠΎΠ΄ΠΏΡΠΈΠΌΠ΅Ρ2() Π Π°Π±ΠΎΡΠΈΠ΅ Π»ΠΈΡΡΡ("ΠΠΈΡΡ2").ΠΠΊΡΠΈΠ²ΠΈΡΠΎΠ²Π°ΡΡ Dim Rng As Range Π£ΡΡΠ°Π½ΠΎΠ²ΠΈΡΡ Rng = Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ (Β«A1: C3Β») Π‘ Rng.Font .Π¦Π²Π΅Ρ = vbBlue ΠΠΎΠ½Π΅Ρ Ρ End Sub
Π¨Π°Π³ 7:Β ΠΠΎΠ³Π΄Π° ΠΌΡ Π²ΡΠΏΠΎΠ»Π½ΡΠ΅ΠΌ ΠΊΠΎΠ΄, ΠΌΡ ΠΏΠΎΠ»ΡΡΠ°Π΅ΠΌ ΡΠ»Π΅Π΄ΡΡΡΠΈΠΉ ΡΠ΅Π·ΡΠ»ΡΡΠ°Ρ Π½Π° Π»ΠΈΡΡΠ΅ 2.
VBA With β ΠΏΡΠΈΠΌΠ΅Ρ β 3
Π ΡΡΠΎΠΌ ΠΎΡΠ΅Π½Ρ ΠΏΡΠΎΡΡΠΎΠΌ ΠΏΡΠΈΠΌΠ΅ΡΠ΅ ΠΌΡ ΡΠ²ΠΈΠ΄ΠΈΠΌ Π΅ΡΠ΅ ΠΎΠ΄Π½Ρ ΡΡΠ½ΠΊΡΠΈΡ ΡΡΠΈΡΡΠ°, ΠΊΠΎΡΠΎΡΠΎΠΉ ΠΌΠΎΠΆΠ½ΠΎ ΡΠΏΡΠ°Π²Π»ΡΡΡ Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡΠ° With. Π ΡΡΠΎΠΌ ΠΏΡΠΈΠΌΠ΅ΡΠ΅ Ρ Π½Π°Ρ Π΅ΡΡΡ Π°Π½Π°Π»ΠΎΠ³ΠΈΡΠ½ΡΠΉ ΡΠ΅ΠΊΡΡ Π² ΡΡΠ΅ΠΉΠΊΠ°Ρ ΠΎΡ B2 Π΄ΠΎ D5, ΠΈ ΠΎΠ½ΠΈ Π½Π°Π±ΡΠ°Π½Ρ ΠΎΠ±ΡΡΠ½ΡΠΌ ΡΡΠΈΡΡΠΎΠΌ. ΠΡ Ρ ΠΎΡΠΈΠΌ ΠΈΠ·ΠΌΠ΅Π½ΠΈΡΡ ΡΡΠΈΡΡ Π½Π° ΠΆΠΈΡΠ½ΡΠΉ ΠΈ ΠΊΡΡΡΠΈΠ²Π½ΡΠΉ, ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΡ ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡ With. ΠΠΎ-ΠΏΠ΅ΡΠ²ΡΡ , Π΄Π°Π²Π°ΠΉΡΠ΅ ΠΏΠΎΡΠΌΠΎΡΡΠΈΠΌ Π½Π° Π΄Π°Π½Π½ΡΠ΅ Π½Π° Π»ΠΈΡΡΠ΅ 3 ΡΠ»Π΅Π΄ΡΡΡΠΈΠΌ ΠΎΠ±ΡΠ°Π·ΠΎΠΌ. ΠΠ»Ρ ΡΡΠΎΠ³ΠΎ Π²ΡΠΏΠΎΠ»Π½ΠΈΡΠ΅ ΡΠ»Π΅Π΄ΡΡΡΠΈΠ΅ Π΄Π΅ΠΉΡΡΠ²ΠΈΡ:
Π¨Π°Π³ 1: Π’Π΅ΠΏΠ΅ΡΡ Π² ΡΠΎΠΌ ΠΆΠ΅ ΠΌΠΎΠ΄ΡΠ»Π΅ ΠΎΠ±ΡΡΠ²ΠΈΡΠ΅ Π΅ΡΠ΅ ΠΎΠ΄Π½Ρ ΠΏΠΎΠ΄ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ ΡΠ»Π΅Π΄ΡΡΡΠΈΠΌ ΠΎΠ±ΡΠ°Π·ΠΎΠΌ.
ΠΠΎΠ΄:
ΠΠΎΠ΄ΠΏΡΠΈΠΌΠ΅Ρ3() End Sub
Π¨Π°Π³ 2: ΠΡΠΎΠΌΠ΅ ΡΠΎΠ³ΠΎ, ΡΠ΅ΠΏΠ΅ΡΡ Ρ Π½Π°Ρ Π΅ΡΡΡ Π±ΠΎΠ»Π΅Π΅ ΠΎΠ΄Π½ΠΎΠ³ΠΎ Π»ΠΈΡΡΠ° Π² ΡΡΠΎΠΉ ΠΊΠ½ΠΈΠ³Π΅, ΠΏΠΎΡΡΠΎΠΌΡ Π΄Π°Π²Π°ΠΉΡΠ΅ Π°ΠΊΡΠΈΠ²ΠΈΡΡΠ΅ΠΌ Π»ΠΈΡΡ 3 Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΡΠ»Π΅Π΄ΡΡΡΠ΅Π³ΠΎ ΠΊΠΎΠ΄Π°.
ΠΠΎΠ΄:
ΠΠΎΠ΄ΠΏΡΠΈΠΌΠ΅Ρ3() Π Π°Π±ΠΎΡΠΈΠ΅ Π»ΠΈΡΡΡ("ΠΠΈΡΡ3").ΠΠΊΡΠΈΠ²ΠΈΡΠΎΠ²Π°ΡΡ End Sub
Π¨Π°Π³ 3:Β Π’Π΅ΠΏΠ΅ΡΡ ΠΎΠ±ΡΡΠ²ΠΈΡΠ΅ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ ΠΊΠ°ΠΊ ΡΠΈΠΏ Π΄Π°Π½Π½ΡΡ Range, Π² ΠΊΠΎΡΠΎΡΠΎΠΉ Π±ΡΠ΄Π΅Ρ Ρ ΡΠ°Π½ΠΈΡΡΡΡ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ Π½Π°ΡΠΈΡ Π΄Π°Π½Π½ΡΡ , ΠΊΠ°ΠΊ ΠΏΠΎΠΊΠ°Π·Π°Π½ΠΎ Π½ΠΈΠΆΠ΅, ΠΈ ΡΡΡΠ°Π½ΠΎΠ²ΠΈΡΠ΅ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ Π΄Π»Ρ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½Π°, ΠΊΠΎΡΠΎΡΡΠΉ ΡΠΎΠ΄Π΅ΡΠΆΠΈΡ Π½Π°ΡΠΈ Π΄Π°Π½Π½ΡΠ΅ Π½Π° Π»ΠΈΡΡΠ΅ 3.
ΠΠΎΠ΄:
ΠΠΎΠ΄ΠΏΡΠΈΠΌΠ΅Ρ3() Π Π°Π±ΠΎΡΠΈΠ΅ Π»ΠΈΡΡΡ("ΠΠΈΡΡ3"). ΠΠΊΡΠΈΠ²ΠΈΡΠΎΠ²Π°ΡΡ Dim Rng As Range Π£ΡΡΠ°Π½ΠΎΠ²ΠΈΡΡ Rng1 = ΠΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ ("B2: D5") End Sub
Π¨Π°Π³ 4:Β ΠΠΎΠ»ΡΡΠΈΡΠ΅ Π΄ΠΎΡΡΡΠΏ ΠΊ ΡΠ²ΠΎΠΉΡΡΠ²Ρ Font ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ Rng Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡΠ° with.
ΠΠΎΠ΄:
ΠΠΎΠ΄ΠΏΡΠΈΠΌΠ΅Ρ3() Π Π°Π±ΠΎΡΠΈΠ΅ Π»ΠΈΡΡΡ("ΠΠΈΡΡ3").ΠΠΊΡΠΈΠ²ΠΈΡΠΎΠ²Π°ΡΡ Dim Rng As Range Π£ΡΡΠ°Π½ΠΎΠ²ΠΈΡΡ Rng1 = ΠΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ ("B2: D5") Π‘ Rng1.Font ΠΠΎΠ½Π΅ΡΠ½ΡΠΉ ΠΏΠ΅ΡΠ΅Ρ ΠΎΠ΄Π½ΠΈΠΊ
Π¨Π°Π³ 5: Π’Π΅ΠΏΠ΅ΡΡ ΠΌΡ ΡΠ½ΠΎΠ²Π° ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΠΌ ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡ ΡΠΎΡΠΊΠΈ (.) Π² ΠΊΠΎΠ΄Π΅, ΡΡΠΎΠ±Ρ ΠΈΠ·ΠΌΠ΅Π½ΠΈΡΡ ΡΡΠΈΡΡ Π½Π° ΠΏΠΎΠ»ΡΠΆΠΈΡΠ½ΡΠΉ ΠΈ ΠΊΡΡΡΠΈΠ²Π½ΡΠΉ.
ΠΠΎΠ΄:
ΠΠΎΠ΄ΠΏΡΠΈΠΌΠ΅Ρ3() Π Π°Π±ΠΎΡΠΈΠ΅ Π»ΠΈΡΡΡ("ΠΠΈΡΡ3").ΠΠΊΡΠΈΠ²ΠΈΡΠΎΠ²Π°ΡΡ Dim Rng As Range Π£ΡΡΠ°Π½ΠΎΠ²ΠΈΡΡ Rng1 = ΠΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ ("B2: D5") Π‘ Rng1.Font .ΠΠΈΡΠ½ΡΠΉ = ΠΡΡΠΈΠ½Π° .ΠΡΡΡΠΈΠ² = ΠΡΡΠΈΠ½Π° End Sub
Π¨Π°Π³ 6:Β ΠΠ°Π²Π°ΠΉΡΠ΅ Π·Π°ΠΊΠΎΠ½ΡΠΈΠΌ ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡΡ, ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΡ ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡ End, ΠΊΠ°ΠΊ ΠΏΠΎΠΊΠ°Π·Π°Π½ΠΎ Π½ΠΈΠΆΠ΅.
ΠΠΎΠ΄:
ΠΠΎΠ΄ΠΏΡΠΈΠΌΠ΅Ρ3() Π Π°Π±ΠΎΡΠΈΠ΅ Π»ΠΈΡΡΡ("ΠΠΈΡΡ3").ΠΠΊΡΠΈΠ²ΠΈΡΠΎΠ²Π°ΡΡ Dim Rng As Range Π£ΡΡΠ°Π½ΠΎΠ²ΠΈΡΡ Rng1 = ΠΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ ("B2: D5") Π‘ Rng1. Font .ΠΠΈΡΠ½ΡΠΉ = ΠΡΡΠΈΠ½Π° .ΠΡΡΡΠΈΠ² = ΠΡΡΠΈΠ½Π° ΠΠΎΠ½Π΅Ρ Ρ End Sub
Π¨Π°Π³ 7: ΠΠΎΠ³Π΄Π° ΠΌΡ Π²ΡΠΏΠΎΠ»Π½ΠΈΠΌ ΠΏΡΠΈΠ²Π΅Π΄Π΅Π½Π½ΡΠΉ Π²ΡΡΠ΅ ΠΊΠΎΠ΄, ΠΌΡ ΡΠ²ΠΈΠ΄ΠΈΠΌ ΡΠ΅Π·ΡΠ»ΡΡΠ°Ρ Π½Π° Π»ΠΈΡΡΠ΅ 3 ΡΠ»Π΅Π΄ΡΡΡΠΈΠΌ ΠΎΠ±ΡΠ°Π·ΠΎΠΌ.
ΠΠ°ΠΊ ΠΈ Π² ΠΏΡΠΈΠ²Π΅Π΄Π΅Π½Π½ΡΡ Π²ΡΡΠ΅ ΠΏΡΠΈΠΌΠ΅ΡΠ°Ρ , ΠΌΡ ΠΌΠΎΠΆΠ΅ΠΌ Π²ΠΈΠ΄Π΅ΡΡ, Π½Π°ΡΠΊΠΎΠ»ΡΠΊΠΎ Π²Π°ΠΆΠ΅Π½ ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡ with Π² Π½Π°ΡΠ΅ΠΌ ΠΏΠΎΠ²ΡΠ΅Π΄Π½Π΅Π²Π½ΠΎΠΌ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΠΈ. ΠΡΠΎΠΌΠ΅ ΡΠΎΠ³ΠΎ, ΠΎΠ½ ΡΠ΄Π°Π»ΡΠ΅Ρ ΠΏΠΎΠ²ΡΠΎΡΡΡΡΠΈΠ΅ΡΡ ΡΠ°Π³ΠΈ, ΠΊΠΎΠ³Π΄Π° ΠΌΡ ΠΏΡΡΠ°Π΅ΠΌΡΡ ΠΏΠΎΠ»ΡΡΠΈΡΡ Π΄ΠΎΡΡΡΠΏ ΠΊ ΡΠ²ΠΎΠΉΡΡΠ²Π°ΠΌ ΠΎΠ±ΡΠ΅ΠΊΡΠ°. ΠΡ ΡΠ°ΠΊΠΆΠ΅ ΠΌΠΎΠΆΠ΅ΠΌ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡΡ Loop Π² ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡΠ°Ρ With, ΡΡΠΎΠ±Ρ ΠΎΠΏΡΠ΅Π΄Π΅Π»ΠΈΡΡ ΠΊΡΠΈΡΠ΅ΡΠΈΠΈ, ΠΊ ΠΊΠΎΡΠΎΡΡΠΌ ΠΌΡ Ρ ΠΎΡΠΈΠΌ ΠΏΠΎΠ»ΡΡΠΈΡΡ Π΄ΠΎΡΡΡΠΏ Π΄Π»Ρ ΠΎΠ±ΡΠ΅ΠΊΡΠ°.
ΠΠ°ΠΊ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ VBA Ρ (ΡΠ΅Π°Π»ΡΠ½ΡΠΉ ΠΏΡΠΈΠΌΠ΅Ρ)?
ΠΡ ΡΠ°ΡΡΠΌΠΎΡΡΠ΅Π»ΠΈ ΠΎΡΠ½ΠΎΠ²Π½ΡΠ΅ ΡΠΏΠΎΡΠΎΠ±Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΡ ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡΠ° With Π² ΠΏΡΠΈΠ²Π΅Π΄Π΅Π½Π½ΡΡ Π²ΡΡΠ΅ ΠΏΡΠΈΠΌΠ΅ΡΠ°Ρ . Π’Π΅ΠΏΠ΅ΡΡ Π΄Π°Π²Π°ΠΉΡΠ΅ Π²ΠΎΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΠΌΡΡ ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡΠΎΠΌ With Π΄Π»Ρ ΡΠ΅ΡΠ΅Π½ΠΈΡ ΡΠ΅Π°Π»ΡΠ½ΠΎΠΉ Π·Π°Π΄Π°ΡΠΈ. ΠΡ ΡΠΎΠ·Π΄Π°Π΄ΠΈΠΌ ΠΊΠΎΠ΄, ΠΊΠΎΡΠΎΡΡΠΉ Π±ΡΠ΄Π΅Ρ Π·Π°ΠΏΡΠ°ΡΠΈΠ²Π°ΡΡ ΠΈΠΌΡ Ρ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ ΠΈ Π²ΠΎΠ·ΡΠ°ΡΡ, Π·Π°ΡΠ΅ΠΌ ΠΊΠΎΠ΄ ΠΏΡΠΎΠ²Π΅ΡΠΈΡ ΠΈΠΌΡ Π² ΡΠΏΠΈΡΠΊΠ΅ ΠΈ Π²ΡΡΠ°Π²ΠΈΡ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ Π²ΠΎΠ·ΡΠ°ΡΡΠ° ΡΡΠ΄ΠΎΠΌ Ρ ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΡΡΡΠΈΠΌ ΠΈΠΌΠ΅Π½Π΅ΠΌ. ΠΠ°Π½Π½ΡΠ΅ Π½Π° Π»ΠΈΡΡΠ΅ 4 Π²ΡΠ³Π»ΡΠ΄ΡΡ ΡΠ»Π΅Π΄ΡΡΡΠΈΠΌ ΠΎΠ±ΡΠ°Π·ΠΎΠΌ.
ΠΡΠ°ΠΊ, ΠΊΠΎΠ΄, ΠΊΠΎΡΠΎΡΡΠΉ ΠΌΡ Π±ΡΠ΄Π΅ΠΌ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ Π΄Π»Ρ ΡΡΠΎΠ³ΠΎ, ΠΊΠ°ΠΊ ΠΏΠΎΠΊΠ°Π·Π°Π½ΠΎ Π½ΠΈΠΆΠ΅, ΠΌΡ Π²ΡΠΏΠΎΠ»Π½ΠΈΠΌ Π΅Π³ΠΎ, Π° Π·Π°ΡΠ΅ΠΌ ΡΠ°Π·Π±Π΅ΡΠ΅ΠΌΡΡ Ρ Π½ΠΈΠΌ ΡΠ°Π³ Π·Π° ΡΠ°Π³ΠΎΠΌ.
ΠΠΎΠ΄:
ΠΠΎΠ΄ΠΏΡΠΈΠΌΠ΅Ρ4() Dim ws As ΡΠ°Π±ΠΎΡΠΈΠΉ Π»ΠΈΡΡ Dim FoundCell ΠΊΠ°ΠΊ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ Dim Name ΠΊΠ°ΠΊ String, FindThis ΠΊΠ°ΠΊ String, Age ΠΊΠ°ΠΊ Integer, k ΠΊΠ°ΠΊ Integer Π£ΡΡΠ°Π½ΠΎΠ²ΠΈΡΠ΅ ws = Π Π°Π±ΠΎΡΠΈΠ΅ Π»ΠΈΡΡΡ (Β«ΠΠΈΡΡ4Β») ΠΠΌΡ = InputBox("ΠΠ²Π΅Π΄ΠΈΡΠ΅ ΠΈΠΌΡ") ΠΠΎΠ·ΡΠ°ΡΡ = InputBox("ΠΠ²Π΅Π΄ΠΈΡΠ΅ Π²ΠΎΠ·ΡΠ°ΡΡ") ΠΠ°ΠΉΡΠΈΠΡΠΎ = ΠΠΌΡ Π£ΡΡΠ°Π½ΠΎΠ²ΠΈΡΠ΅ FoundCell = ws.Range("A:A").Find(What:=FindThis) k = FoundCell.Row Π‘ ΠΠ‘ Π―ΡΠ΅ΠΉΠΊΠΈ (k, 2). ΠΠ½Π°ΡΠ΅Π½ΠΈΠ΅ = ΠΠΎΠ·ΡΠ°ΡΡ ΠΠΎΠ½Π΅Ρ Ρ ΠΠΎΠ½Π΅ΡΠ½ΡΠΉ ΠΏΠ΅ΡΠ΅Ρ ΠΎΠ΄Π½ΠΈΠΊ
ΠΠΎΠ³Π΄Π° ΠΌΡ Π²ΡΠΏΠΎΠ»Π½ΡΠ΅ΠΌ ΠΊΠΎΠ΄, ΠΌΡ ΠΏΠΎΠ»ΡΡΠ°Π΅ΠΌ ΡΠ»Π΅Π΄ΡΡΡΠΈΠ΅ Π΄Π²Π° Π²ΡΠΏΠ»ΡΠ²Π°ΡΡΠΈΡ ΠΎΠΊΠ½Π°:
ΠΠΎΠ³Π΄Π° ΠΌΡ Π½Π°ΠΆΠΈΠΌΠ°Π΅ΠΌ OK Π΄Π»Ρ Π²ΠΎΠ·ΡΠ°ΡΡΠ°, ΠΌΡ Π²ΠΈΠ΄ΠΈΠΌ ΡΠ΅Π·ΡΠ»ΡΡΠ°Ρ, ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ°Π΅ΠΌΡΠΉ Π½Π° Π»ΠΈΡΡΠ΅ 4 ΡΠ»Π΅Π΄ΡΡΡΠΈΠΌ ΠΎΠ±ΡΠ°Π·ΠΎΠΌ.
Π’Π΅ΠΏΠ΅ΡΡ Π΄Π°Π²Π°ΠΉΡΠ΅ ΡΠ°Π·Π±Π΅ΡΠ΅ΠΌ ΠΊΠΎΠ΄ ΡΠ°Π³ Π·Π° ΡΠ°Π³ΠΎΠΌ:
- ΠΠΎΠ³Π΄Π° ΠΌΡ ΠΏΡΠΎΡΠΈΠΌ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ Π²Π²Π΅ΡΡΠΈ ΠΈΠΌΡ, ΠΊΠΎΠ΄ Π½Π°Ρ ΠΎΠ΄ΠΈΡ Π΅Π³ΠΎ Π² ΡΡΠΎΠ»Π±ΡΠ΅ A.
- ΠΠΎΠ³Π΄Π° Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅, ΠΏΡΠ΅Π΄ΠΎΡΡΠ°Π²Π»Π΅Π½Π½ΠΎΠ΅ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Π΅ΠΌ, Π½Π°ΠΉΠ΄Π΅Π½ΠΎ, ΡΡΡΠΎΠΊΠ° Π΄Π»Ρ Π·Π½Π°ΡΠ΅Π½ΠΈΡ ΡΠΎΡ
ΡΠ°Π½ΡΠ΅ΡΡΡ Π² ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ.