Π ΡΠΊΡΠ΅Π»Ρ ΡΡΠ½ΠΊΡΠΈΡ ΠΏΠΎΠΈΡΠΊ: ΠΠΠΠ‘Π, ΠΠΠΠ‘ΠΠ (ΡΡΠ½ΠΊΡΠΈΠΈ ΠΠΠΠ‘Π, ΠΠΠΠ‘ΠΠ)
Π‘ΠΎΠ΄Π΅ΡΠΆΠ°Π½ΠΈΠ΅
ΠΠΎΠΈΡΠΊ Π½Π° Π»ΠΈΡΡΠ΅ 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
Β
— Excel
MS Office 2007: Microsoft Excel
ΠΠΎΠΈΡΠΊ ΡΠ΅ΡΠ΅Π½ΠΈΡ Π΄Π²ΡΡ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΠΈΡΠ΅ΡΠΊΠΎΠΉ Π·Π°Π΄Π°ΡΠΈ Π² Excel Β Β Β Β
Π ΠΏΡΠ΅Π΄ΡΠ΄ΡΡΠΈΡ Π·Π°Π½ΡΡΠΈΡΡ ΠΌΡ ΡΠ°ΡΡΠΌΠ°ΡΡΠΈΠ²Π°Π»ΠΈ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎΡΡΠΈ ΠΎΠ±ΡΠ°Π±ΠΎΡΠΊΠΈ ΠΈ Π²ΠΈΠ·ΡΠ°Π»ΠΈΠ·Π°ΡΠΈΠΈ ΠΎΠ΄Π½ΠΎΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΠΈΡΠ΅ΡΠΊΠΎΠΉ Π·Π°Π²ΠΈΡΠΈΠΌΠΎΡΡΠΈ (ΡΡΠ½ΠΊΡΠΈΡ Π·Π°Π²ΠΈΡΠΈΡ ΡΠΎΠ»ΡΠΊΠΎ ΠΎΡ ΠΎΠ΄Π½ΠΎΠΉ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ). Π ΡΠ΅Π°Π»ΡΠ½ΠΎΡΡΠΈ, ΡΠ°ΠΊΠΈΠ΅ ΠΏΡΠΎΡΡΡΠ΅ Π·Π°Π²ΠΈΡΠΈΠΌΠΎΡΡΠΈ Π²ΡΡΡΠ΅ΡΠ°ΡΡΡΡ Π΄ΠΎΡΡΠ°ΡΠΎΡΠ½ΠΎ ΡΠ΅Π΄ΠΊΠΎ. Π§Π°ΡΠ΅ ΠΏΡΠΈΡ ΠΎΠ΄ΠΈΡΡΡ ΡΡΠ°Π»ΠΊΠΈΠ²Π°ΡΡΡΡ Ρ ΠΌΠ½ΠΎΠ³ΠΎΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΠΈΡΠ΅ΡΠΊΠΈΠΌΠΈ ΡΡΠ½ΠΊΡΠΈΡΠΌΠΈ. ΠΠ°ΠΊ ΠΎΠ±ΡΠ°Π±Π°ΡΡΠ²Π°ΡΡ ΡΠ°ΠΊΠΈΠ΅ Π·Π°Π²ΠΈΡΠΈΠΌΠΎΡΡΠΈ ΠΈ, ΠΊΠ°ΠΊΠΈΠΌ ΠΎΠ±ΡΠ°Π·ΠΎΠΌ ΠΈΡ Π²ΠΈΠ·ΡΠ°Π»ΠΈΠ·ΠΈΡΠΎΠ²Π°ΡΡ, ΡΠ°ΡΡΠΌΠΎΡΡΠΈΠΌ Π½Π° ΠΏΡΠΈΠΌΠ΅ΡΠ΅ Π΄Π²ΡΡ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΠΈΡΠ΅ΡΠΊΠΎΠΉ Π·Π°Π΄Π°ΡΠΈ.
ΠΡΡΡΡ Π±ΡΠ» ΠΏΡΠΎΠ²Π΅Π΄Π΅Π½ ΡΠΊΡΠΏΠ΅ΡΠΈΠΌΠ΅Π½Ρ, Π½Π°ΠΏΡΠΈΠΌΠ΅Ρ, ΠΈΠ·ΠΌΠ΅ΡΠΈΠ»ΠΈ Π·Π°Π²ΠΈΡΠΈΠΌΠΎΡΡΡ ΠΊΠ°ΠΊΠΎΠ³ΠΎ-ΡΠΎ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΠ° ΠΎΡ ΡΠ΅ΠΌΠΏΠ΅ΡΠ°ΡΡΡΡ ΠΈ Π΄Π°Π²Π»Π΅Π½ΠΈΡ. Π‘ΡΠ΅Π΄Π½ΡΡ ΡΠ΅ΠΌΠΏΠ΅ΡΠ°ΡΡΡΠ° Π±ΡΠ»Π° ΡΠ°Π²Π½Π° 100Β°Π‘. Π¨Π°Π³ ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΡ — 50Β°Π‘. Π‘ΡΠ΅Π΄Π½Π΅Π΅ Π΄Π°Π²Π»Π΅Π½ΠΈΠ΅ — 2 Π°ΡΠΌ. Π¨Π°Π³ ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΡ — 1 Π°ΡΠΌ. Π’Π°ΠΊΠ°Ρ ΡΠΈΡΡΠ΅ΠΌΠ° Π±ΡΠ΄Π΅Ρ ΠΎΠΏΠΈΡΡΠ²Π°ΡΡΡΡ Π·Π°Π²ΠΈΡΠΈΠΌΠΎΡΡΡΡΒ
Z = f{X,Y),
ΡΠ²Π»ΡΡΡΠ΅ΠΉΡΡ ΠΏΠΎΠ²Π΅ΡΡ
Π½ΠΎΡΡΡΡ, ΠΊΠΎΡΠΎΡΡΡ ΡΠ°ΡΡΠΎ ΠΏΠΎΠΊΠ°Π·ΡΠ²Π°ΡΡ Π² Π²ΠΈΠ΄Π΅, ΠΏΠΎΠ΄ΠΎΠ±Π½ΠΎΠΉ ΠΊΠΎΠ½ΡΡΡΠ½ΠΎΠΉ ΠΊΠ°ΡΡΠ΅ (Π ΠΈΡ.
115).
Π§ΡΠΎΠ±Ρ Π½Π°ΠΉΡΠΈ ΡΡΡ Π·Π°Π²ΠΈΡΠΈΠΌΠΎΡΡΡ Π΄Π»Ρ Π½Π°ΡΠ΅Π³ΠΎ ΡΠ»ΡΡΠ°Ρ, Π²ΠΎΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΠΌΡΡ Π·Π°Π³ΠΎΡΠΎΠ²ΠΊΠΎΠΉ Π·Π°Π½ΡΡΠΈΠΉ 4 ΠΈ 6. ΠΠ»Ρ ΡΡΠΎΠ³ΠΎ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ ΠΎΡΠΊΡΡΡΡ ΡΠΎΡ ΡΠ°Π½Π΅Π½Π½ΡΠΉ ΡΠ°ΠΉΠ», ΠΈ ΠΏΠ΅ΡΠ΅ΠΉΡΠΈ Π½Π° Π»ΠΈΡΡ Ρ Π΄Π°Π½Π½ΡΠΌΠΈ. ΠΡΠ΄Π΅Π»ΠΈΠ² ΡΡΠ»ΡΠΊ ΠΠΈΡΡΠ° ΠΏΡΠ°Π²ΠΎΠΉ ΠΊΠ½ΠΎΠΏΠΊΠΎΠΉ ΠΌΡΡΠΈ, Π²ΡΠ±ΡΠ°ΡΡ ΠΊΠΎΠΌΠ°Π½Π΄ΡΒ ΠΠ΅ΡΠ΅ΠΌΠ΅ΡΡΠΈΡΡ/ΡΠΊΠΎΠΏΠΈΡΠΎΠ²Π°ΡΡ.
Π ΠΎΡΠΊΡΡΠ²Π°ΡΡΠ΅ΠΌΡΡ Π΄ΠΈΠ°Π»ΠΎΠ³ΠΎΠ²ΠΎΠΌ ΠΎΠΊΠ½Π΅ ΠΌΠΎΠΆΠ½ΠΎ Π²ΡΠ±ΡΠ°ΡΡ:
- ΠΌΠ΅ΡΡΠΎ ΠΏΠ΅ΡΠ΅ΠΌΠ΅ΡΠ΅Π½ΠΈΡ (ΠΊΠΎΠΏΠΈΡΠΎΠ²Π°Π½ΠΈΡ) Π½Π°ΡΠ΅Π³ΠΎ Π»ΠΈΡΡΠ° (Π² ΡΠ΅ΠΊΡΡΡΡ ΠΊΠ½ΠΈΠ³Ρ ΠΈΠ»ΠΈ Π½ΠΎΠ²ΡΡ).Β ΠΡΠ±Π΅ΡΠΈΡΠ΅ Π½Π°Π·Π²Π°Π½ΠΈΠ΅ ΡΠ΅ΠΊΡΡΠ΅ΠΉ ΠΊΠ½ΠΈΠ³ΠΈ;
- ΠΏΠ΅ΡΠ΅Π΄ ΠΊΠ°ΠΊΠΈΠΌ Π»ΠΈΡΡΠΎΠΌ ΠΌΡ Ρ ΠΎΡΠΈΠΌ ΠΏΠΎΠΌΠ΅ΡΡΠΈΡΡ ΡΠ΅ΠΊΡΡΠΈΠΉ Π»ΠΈΡΡ ΠΈΠ»ΠΈ Π΅Π³ΠΎ ΠΊΠΎΠΏΠΈΡ.Β ΠΡΠ±Π΅ΡΠΈΡΠ΅ Β«(ΠΏΠ΅ΡΠ΅ΠΌΠ΅ΡΡΠΈΡΡ Π² ΠΊΠΎΠ½Π΅Ρ)Β».
ΠΠ΅ Π·Π°Π±ΡΠ΄ΡΡΠ΅ ΠΏΠΎΡΡΠ°Π²ΠΈΡΡ Π³Π°Π»ΠΎΡΠΊΡΒ Π‘ΠΎΠ·Π΄Π°ΡΡ ΠΊΠΎΠΏΠΈΡ, Π² ΠΏΡΠΎΡΠΈΠ²Π½ΠΎΠΌ ΡΠ»ΡΡΠ°Π΅ Π»ΠΈΡΡ ΠΏΡΠΎΡΡΠΎ ΠΏΠ΅ΡΠ΅ΠΌΠ΅ΡΡΠΈΡΡΡΡ Π² ΠΊΠΎΠ½Π΅Ρ ΠΊΠ½ΠΈΠ³ΠΈ. ΠΠ°ΠΊΠΎΠ½ΡΠΈΡΠ΅ ΠΊΠ»Π°Π²ΠΈΡΠ΅ΠΉ ΠΠ.
ΠΠΎ ΡΠΌΠΎΠ»ΡΠ°Π½ΠΈΡ Excel ΡΠΎΠ·Π΄Π°Π΅Ρ ΠΊΠΎΠΏΠΈΡ Ρ ΠΈΠΌΠ΅Π½Π΅ΠΌ ΡΠ΅ΠΊΡΡΠ΅Π³ΠΎ Π»ΠΈΡΡΠ°, Π΄ΠΎΠ±Π°Π²Π»ΡΡ Π² ΠΊΠΎΠ½ΡΠ΅ Π² ΡΠΊΠΎΠ±ΠΊΠ°Ρ
Π½ΠΎΠΌΠ΅Ρ ΠΊΠΎΠΏΠΈΠΈ. ΠΠ»Ρ ΡΠ΄ΠΎΠ±ΡΡΠ²Π° ΠΏΠ΅ΡΠ΅ΠΈΠΌΠ΅Π½ΡΠ΅ΠΌ Π΅Π³ΠΎ. ΠΠ»Ρ ΡΡΠΎΠ³ΠΎ, ΡΠ΅Π»ΠΊΠ½ΡΠ² ΠΏΡΠ°Π²ΠΎΠΉ ΠΊΠ½ΠΎΠΏΠΊΠΎΠΉ ΠΌΡΡΠΈ ΠΏΠΎ ΡΡΠ»ΡΠΊΡ Π»ΠΈΡΡΠ°, Π²ΡΠ±Π΅ΡΠΈΡΠ΅ ΠΊΠΎΠΌΠ°Π½Π΄ΡΒ ΠΠ΅ΡΠ΅ΠΈΠΌΠ΅Π½ΠΎΠ²Π°ΡΡ, Π²Π²Π΅Π΄ΠΈΡΠ΅ Π½ΠΎΠ²ΠΎΠ΅ ΠΈΠΌΡ, Π½Π°ΠΏΡΠΈΠΌΠ΅Ρ, Β«ΠΠΊΡΠΏΠ΅ΡΠΈΠΌΠ΅Π½Ρ_2Β» ΠΈ Π·Π°Π²Π΅ΡΡΠΈΡΠ΅ ΠΊΠ»Π°Π²ΠΈΡΠ΅ΠΉΒ Enter.
Π‘Π½Π°ΡΠ°Π»Π° ΠΏΠ΅ΡΠ΅ΡΡΡΠΎΠΈΠΌ ΡΠ°Π±Π»ΠΈΡΡ ΠΈΡΡ ΠΎΠ΄Π½ΡΡ Π΄Π°Π½Π½ΡΡ , ΠΊΠ°ΠΊ ΠΏΠΎΠΊΠ°Π·Π°Π½ΠΎ Π½Π° Π ΠΈΡ. 116.
ΠΡΠΈΠ²Π΅Π΄ΠΈΡΠ΅ ΡΠ°Π±Π»ΠΈΡΡ ΡΠΊΡΠΏΠ΅ΡΠΈΠΌΠ΅Π½ΡΠ° ΠΊ Π²ΠΈΠ΄Ρ, ΠΏΠΎΠΊΠ°Π·Π°Π½Π½ΠΎΠΌΡ Π½Π° Π ΠΈΡ. 116.
ΠΠ»Ρ Π΄ΠΎΠ±Π°Π²Π»Π΅Π½ΠΈΡ ΡΡΠΎΠ»Π±ΡΠ° Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ Π²ΡΠ΄Π΅Π»ΠΈΡΡ ΡΡΠΎΠ»Π±Π΅Ρ G, ΡΠ΅Π»ΠΊΠ½ΡΠ² ΠΏΠΎ Π·Π°Π³ΠΎΠ»ΠΎΠ²ΠΊΡ ΡΡΠΎΠ³ΠΎ ΡΡΠΎΠ»Π±ΡΠ°, ΠΈ Π²ΡΠΏΠΎΠ»Π½ΠΈΡΡ ΠΊΠΎΠΌΠ°Π½Π΄ΡΒ ΠΠ»Π°Π²Π½Π°Ρ-Π―ΡΠ΅ΠΉΠΊΠΈ-ΠΡΡΠ°Π²ΠΈΡΡ-ΠΡΡΠ°Π²ΠΈΡΡ ΡΡΠΎΠ»Π±ΡΡ Π½Π° Π»ΠΈΡΡ.
ΠΠ½Π΅ΡΠΈΡΠ΅ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΡΠ΅ ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΡ Π² ΡΠ°Π±Π»ΠΈΡΡ. ΠΠ»Ρ ΡΠ΄Π°Π»Π΅Π½ΠΈΡ ΡΡΡΠΎΠΊΠΈ Π½Π΅ΠΎΠ±ΒΡ ΠΎΠ΄ΠΈΠΌΠΎ Π΅Π΅ Π²ΡΠ΄Π΅Π»ΠΈΡΡ, ΡΠ΅Π»ΠΊΠ½ΡΠ² ΠΏΠΎ Π·Π°Π³ΠΎΠ»ΠΎΠ²ΠΊΡ ΡΡΠΎΠΉ ΡΡΡΠΎΠΊΠΈ, ΠΈ Π²ΡΠΏΠΎΠ»Π½ΠΈΡΡ ΠΊΠΎΠΌΠ°Π½Π΄ΡΒ ΠΠ»Π°Π²Π½Π°Ρ-Π―ΡΠ΅ΠΉΠΊΠΈ-Π£Π΄Π°Π»ΠΈΡΡ-Π£Π΄Π°Π»ΠΈΡΡ ΡΡΡΠΎΠΊΠΈ Ρ Π»ΠΈΡΡΠ°.
ΠΠ°ΠΏΠΎΠΌΠ½ΠΈΠΌ, ΡΡΠΎ Π·Π°Π³ΠΎΠ»ΠΎΠ²ΠΊΠΈ ΡΡΠΎΠ»Π±ΡΠΎΠ²Β Π’Π΅ΠΌΠΏΠ΅ΡΠ°ΡΡΡΠ°Β ΠΈΒ ΠΠ°Π²Π»Π΅Π½ΠΈΠ΅Β Π΄ΠΎΠ»ΠΆΠ½Ρ Π²Π²ΠΎΠ΄ΠΈΡΡΡΡ ΠΏΠΎ ΡΠΎΡΠΌΡΠ»Π°ΠΌ, ΡΡΠΎΠ±Ρ ΡΠ΄Π΅Π»Π°ΡΡ Π·Π°Π³ΠΎΡΠΎΠ²ΠΊΡ Π±ΠΎΠ»Π΅Π΅ ΡΠ½ΠΈΠ²Π΅ΡΡΠ°Π»ΡΠ½ΠΎΠΉ. ΠΠ°ΠΏΠΎΠ»Π½ΠΈΠΌ ΡΠ΅ΠΏΠ΅ΡΡ Π΄Π°Π½Π½ΡΠ΅ ΡΠ°Π±Π»ΠΈΡΡΒ ΠΠΊΡΠΏΠ΅ΡΠΈΠΌΠ΅Π½Ρ.
ΠΠΎΠΎΡΠ΄ΠΈΠ½Π°ΡΡ ΡΠΎΡΠ΅ΠΊ 1-9 ΠΌΠΎΠΆΠ½ΠΎ Π²ΡΡΠΈΡΠ»ΠΈΡΡ ΠΏΠΎ ΡΠ»Π΅Π΄ΡΡΡΠΈΠΌ ΡΠΎΡΠΌΡΠ»Π°ΠΌ:
ΠΡΠΈ Π²Π²ΠΎΠ΄Π΅ ΡΠΎΡΠΌΡΠ» Π½Π΅ Π·Π°Π±ΡΠ²Π°ΠΉΡΠ΅ Π΄Π΅Π»Π°ΡΡ ΠΏΠΎΡΡΠΎΡΠ½Π½ΡΠΌΠΈ ΡΡΡΠ»ΠΊΠΈ Π½Π°Β Π₯ΡΡ, YcpΒ ΠΈΒ Π¨Π°Π³, ΡΡΠΎΠ±Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎΡΡΡ ΠΊΠΎΠΏΠΈΡΠΎΠ²Π°Π½ΠΈΡ.
ΠΠ½Π°ΡΠ΅Π½ΠΈΡΒ YΡΠΊΡΠΏΠ΅ΡΒ ΠΌΡ Π΄ΠΎΠ»ΠΆΠ½Ρ Π²Π·ΡΡΡ ΠΈΠ· ΡΠΊΡΠΏΠ΅ΡΠΈΠΌΠ΅Π½ΡΠ° (ΡΠΈΡ.
117).Β YΡΠ°ΡΡΠ΅ΡΒ Π΄ΠΎΠ»ΠΆΠ½Ρ Π²ΡΡΠΈΡΠ»ΡΡΡΡΡ ΠΏΠΎ ΡΠΎΡΠΌΡΠ»Π΅:
ΠΡΠ΅ΠΆΠ΄Π΅, ΡΠ΅ΠΌ Π²Π²ΠΎΠ΄ΠΈΡΡ ΡΠΎΡΠΌΡΠ»Ρ Π΄Π»Ρ YpaΡΡΠ΅Ρ, Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ ΠΌΠΎΠ΄ΠΈΡΠΈΡΠΈΡΠΎΠ²Π°ΡΡ ΡΠ°Π±Π»ΠΈΡΡ ΠΊΠΎΡΡΡΠΈΡΠΈΠ΅Π½ΡΠΎΠ² ΡΠΎΠ³Π»Π°ΡΠ½ΠΎ Π ΠΈΡ. 118, Π²Π²Π΅Π΄Ρ Π½Π°ΡΠ°Π»ΡΠ½ΡΠ΅ Π·Π½Π°ΡΠ΅Π½ΠΈΡ ΠΊΠΎΡΡΡΠΈΡΠΈΠ΅Π½ΡΠΎΠ² 1.
ΠΠ»Ρ ΠΏΠΎΠ΄Π±ΠΎΡΠ° ΡΡΠ½ΠΊΡΠΈΠΈ Π²ΠΎΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΠΌΡΡ ΠΌΠ΅ΡΠΎΠ΄ΠΎΠΌ ΠΌΠΈΠ½ΠΈΠΌΠΈΠ·Π°ΡΠΈΠΈ ΡΡΠΌΠΌΡ ΠΊΠ²Π°Π΄ΡΠ°ΡΠΎΠ² ΡΠ°Π·Π½ΠΎΡΡΠΈ ΡΠΊΡΠΏΠ΅ΡΠΈΠΌΠ΅Π½ΡΠ°Π»ΡΠ½ΡΡ (YΡΠΊΡΠΏΠ΅Ρ) ΠΈ ΡΠ°ΡΡΠ΅ΡΠ½ΡΡ (YΡΠ°ΡΡΠ΅Ρ) Π΄Π°Π½Π½ΡΡ , ΠΊΠΎΡΠΎΡΡΠΉ ΠΌΡ ΡΠ°ΡΡΠΌΠ°ΡΡΠΈΠ²Π°Π»ΠΈ Π² ΠΏΡΠΎΡΠ»ΠΎΠΌ Π·Π°Π½ΡΡΠΈΠΈ.
Π€ΠΎΡΠΌΡΠ»Ρ ΡΠ°ΡΡΠ΅ΡΠ° ΠΊΠ²Π°Π΄ΡΠ°ΡΠ° ΡΠ°Π·Π½ΠΎΡΡΠΈ ΠΈ ΡΠΎΡΠΌΡΠ»Π° ΡΠ°ΡΡΠ΅ΡΠ° ΠΊΡΠΈΡΠ΅ΡΠΈΡ ΠΠΈΡΡΠΎΠ½Π° Ρ Π½Π°Ρ Π½Π° Π»ΠΈΡΡΠ΅ ΡΠΆΠ΅ Π΅ΡΡΡ. Π’Π΅ΠΏΠ΅ΡΡ Π΄ΠΎΡΡΠ°ΡΠΎΡΠ½ΠΎ ΠΏΠΎΠΏΡΠ°Π²ΠΈΡΡ Π² Π½ΠΈΡ ΡΡΡΠ»ΠΊΠΈ ΠΈ Π²ΡΠΏΠΎΠ»Π½ΠΈΡΡ.
ΠΠΎΠΈΡΠΊ ΡΠ΅ΡΠ΅Π½ΠΈΡ Π²ΡΠΏΠΎΠ»Π½ΡΠ΅ΡΡΡ, ΡΠ°ΠΊΠΆΠ΅ ΠΊΠ°ΠΊ ΠΈ Π² ΡΠ»ΡΡΠ°Π΅ ΠΎΠ΄Π½ΠΎΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΠΈΡΠ΅ΡΠΊΠΎΠΉ ΡΡΠ½ΠΊΡΠΈΠΈ, Π½ΠΎ ΠΏΠΎΡΠΊΠΎΠ»ΡΠΊΡ Ρ Π½Π°Ρ Π·Π°Π²ΠΈΡΠΈΠΌΠΎΡΡΡ Π±ΠΎΠ»Π΅Π΅ ΡΠ»ΠΎΠΆΠ½Π°Ρ, Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ Π² Π΄ΠΈΠ°Π»ΠΎΠ³ΠΎΠ²ΠΎΠΌ ΠΎΠΊΠ½Π΅Β ΠΠΎΠΈΡΠΊ ΡΠ΅ΡΠ΅Π½ΠΈΡΒ ΠΎΡΠΊΡΡΡΡ ΠΏΠΎΠ΄ΠΎΠΊΠ½ΠΎΒ ΠΠ°ΡΠ°ΠΌΠ΅ΡΡΡΒ ΠΈ ΡΡΡΠ°Π½ΠΎΠ²ΠΈΡΡ ΡΠ»Π΅Π΄ΡΡΡΠΈΠ΅ ΠΎΠΏΡΠΈΠΈ:
- ΠΠ²ΡΠΎΠΌΠ°ΡΠΈΡΠ΅ΡΠΊΠΎΠ΅ ΠΌΠ°ΡΡΡΠ°Π±ΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅;
- ΡΠ°Π·Π½ΠΎΡΡΠΈ —Β Π¦Π΅Π½ΡΡΠ°Π»ΡΠ½ΡΠ΅.
ΠΠΎΡΠ»Π΅ ΡΡΠΎΠ³ΠΎ Π² ΠΎΠΊΠ½Π΅Β ΠΠΎΠΈΡΠΊ ΡΠ΅ΡΠ΅Π½ΠΈΡΒ Π½Π΅ΠΎΠ±Ρ
ΠΎΠ΄ΠΈΠΌΠΎ ΠΏΠΎΠΏΡΠ°Π²ΠΈΡΡ ΡΡΡΠ»ΠΊΠΈ Π½Π° ΠΏΠΎΠ΄Π±ΠΈΡΠ°Π΅ΠΌΡΠ΅ ΡΡΠ΅ΠΉΠΊΠΈ (ΠΊΠΎΡΡΡΠΈΡΠΈΠ΅Π½ΡΡ) ΠΈ Π²ΡΠ±ΡΠ°ΡΡΒ ΠΠ°ΠΉΡΠΈ ΡΠ΅ΡΠ΅Π½ΠΈΠ΅.
ΠΡΠ»ΠΈ ΡΠ΄ΠΎΠ²Π»Π΅ΡΠ²ΠΎΡΠΈΡΠ΅Π»ΡΠ½ΠΎΠΉ ΡΠΎΡΠ½ΠΎΡΡΠΈ Π½Π΅ Π΄ΠΎΡΡΠΈΠ³Π½ΡΡΠΎ Ρ ΠΏΠ΅ΡΠ²ΠΎΠΉ ΠΏΠΎΠΏΡΡΠΊΠΈ, ΠΎΠΏΠ΅ΡΠ°ΡΠΈΡ ΠΏΠΎΠΈΡΠΊΠ° ΡΠ΅ΡΠ΅Π½ΠΈΡ ΠΌΠΎΠΆΠ½ΠΎ ΠΏΠΎΠ²ΡΠΎΡΠΈΡΡ.
ΠΠ»Ρ ΡΠΎΠ³ΠΎ ΡΡΠΎΠ±Ρ ΠΏΠΎΡΡΡΠΎΠΈΡΡ ΠΏΠΎΠ²Π΅ΡΡ Π½ΠΎΡΡΡ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ ΠΏΠΎΡΡΡΠΎΠΈΡΡ Π½Π° Π»ΠΈΡΡΠ΅ ΠΌΠ°ΡΡΠΈΡΡ Π΄Π°Π½Π½ΡΡ (Π ΠΈΡ. 119).
ΠΠ° ΡΡΠΎΠΌ ΠΆΠ΅ Π»ΠΈΡΡΠ΅ ΠΏΠΎΠ½ΠΈΠΆΠ΅ Π²Π²Π΅Π΄ΠΈΡΠ΅ Π·Π°Π³ΠΎΠ»ΠΎΠ²ΠΎΠΊ ΡΠ°Π±Π»ΠΈΡΡ. Π ΡΡΠ΅ΠΉΠΊΠ΅ Al 6 Π²Π²Π΅Π΄ΠΈΡΠ΅Β X/Y.
ΠΠ°Π»Π΅Π΅ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ Π·Π°ΠΏΠΎΠ»Π½ΠΈΡΡ Π² ΠΌΠ°ΡΡΠΈΡΠ΅ Π΄Π°Π½Π½ΡΡ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½Ρ ΡΠ΅ΠΌΠΏΠ΅ΡΠ°ΡΡΡ ΠΈ Π΄Π°Π²Π»Π΅Π½ΠΈΠΉ, ΠΏΡΠΈ ΠΊΠΎΡΠΎΡΡΡ ΠΏΡΠΎΠ²ΠΎΠ΄ΠΈΠ»ΡΡ Π½Π°Ρ ΡΠΊΡΠΏΠ΅ΡΠΈΠΌΠ΅Π½Ρ. ΠΠ»Ρ ΡΡΠΎΠ³ΠΎ Π² ΡΡΠ΅ΠΉΠΊΠΈΒ Π17Β ΠΈΒ Π16Β Π²Π²ΠΎΠ΄ΡΡΡΡ ΠΌΠΈΠ½ΠΈΠΌΠ°Π»ΡΠ½ΡΠ΅ Π·Π½Π°ΡΠ΅Π½ΠΈΡ ΡΠ΅ΠΌΠΏΠ΅ΡΠ°ΡΡΡΡ ΠΈ Π΄Π°Π²Π»Π΅Π½ΠΈΡ ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²Π΅Π½Π½ΠΎ. ΠΡΡΠΈΡΡΠ²Π°ΡΡΡΡ 11 ΡΡΠ΅Π΅ΠΊ Π²Π½ΠΈΠ· ΠΏΠΎ ΡΡΠΎΠ»Π±ΡΡΒ ΠΒ ΠΈ Π²Π²ΠΎΠ΄ΠΈΡΡΡ ΠΌΠ°ΠΊΡΠΈΠΌΠ°Π»ΡΠ½ΠΎΠ΅ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ΡΠ΅ΠΌΠΏΠ΅ΡΠ°ΡΡΡΡ (ΡΠ°Π²Π½ΠΎΠ΅ 150). ΠΡΠ΄Π΅Π»ΠΈΠ² ΠΈΠ½ΡΠ΅ΡΠ²Π°Π» ΠΌΠ΅ΠΆΠ΄Ρ ΠΌΠΈΠ½ΠΈΠΌΠ°Π»ΡΠ½ΡΠΌ ΠΈ ΠΌΠ°ΠΊΡΠΈΠΌΠ°Π»ΡΠ½ΡΠΌ Π·Π½Π°ΡΠ΅Π½ΠΈΡΠΌΠΈ, Π²ΡΠ±ΠΈΡΠ°Π΅ΡΡΡ ΠΊΠΎΠΌΠ°Π½Π΄Π°Β ΠΠ»Π°Π²Π½Π°Ρ-Π Π΅Π΄Π°ΠΊΡΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ β ΠΠ°ΠΏΠΎΠ»Π½ΠΈΡΡ — ΠΡΠΎΠ³ΡΠ΅ΡΡΠΈΡΒ
Π ΠΎΡΠΊΡΡΠ²ΡΠ΅ΠΌΡΡ ΠΎΠΊΠ½Π΅ (ΡΠΈΡ. 120) Π²ΡΠ΅ ΠΎΡΡΠ°Π²Π»ΡΠ΅ΠΌ Π±Π΅Π· ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΡ ΠΈ Π½Π°ΠΆΠΈΠΌΠ°Π΅ΠΌΒ ΠΠ. ΠΠ°Ρ ΠΈΠ½ΡΠ΅ΡΠ²Π°Π» ΡΠ΅ΠΌΠΏΠ΅ΡΠ°ΡΡΡ Π·Π°ΠΏΠΎΠ»Π½ΠΈΡΡΡ Π·Π½Π°ΡΠ΅Π½ΠΈΡΠΌΠΈ ΠΎΡ ΠΌΠΈΠ½ΠΈΠΌΠ°Π»ΡΠ½ΠΎΠ³ΠΎ Π΄ΠΎ ΠΌΠ°ΠΊΡΠΈΠΌΠ°Π»ΡΠ½ΠΎΠ³ΠΎ Π·Π½Π°ΡΠ΅Π½ΠΈΠΉ Ρ ΠΎΠΏΡΠ΅ΒΠ΄Π΅Π»Π΅Π½Π½ΡΠΌ ΡΠ°Π³ΠΎΠΌ. Π’Π΅ ΠΆΠ΅ ΡΠ°ΠΌΡΠ΅ Π΄Π΅ΠΉΡΡΠ²ΠΈΡ Π½Π΅ΠΎΠ±Ρ
ΠΎΠ΄ΠΈΠΌΠΎ Π²ΡΠΏΠΎΠ»Π½ΠΈΡΡ Π² ΡΡΡΠΎΠΊΠ΅Β 16Β Π΄Π»Ρ Π²Π²ΠΎΠ΄Π° Π·Π½Π°ΡΠ΅Π½ΠΈΠΉ Π΄Π°Π²Π»Π΅Π½ΠΈΡ, ΠΏΡΠΈ ΠΊΠΎΡΠΎΡΡΡ
ΠΏΡΠΎΠ²ΠΎΠ΄ΠΈΠ»ΡΡ ΡΠΊΡΠΏΠ΅ΡΠΈΠΌΠ΅Π½Ρ.
ΠΡΡΠ°Π»ΠΎΡΡ Π²Π²Π΅ΡΡΠΈ Π² ΠΌΠ°ΡΡΠΈΡΡ Π΄Π°Π½Π½ΡΡ ΡΠΎΠ»ΡΠΊΠΎ Π·Π½Π°ΡΠ΅Π½ΠΈΡ ΡΡΠ½ΠΊΡΠΈΠΈΒ YpacΡΠ΅Ρ. Π§ΡΠΎΠ±Ρ Π½Π΅ Π²Π²ΠΎΠ΄ΠΈΡΡ ΡΡΠ½ΠΊΡΠΈΡ ΡΠ½ΠΎΠ²Π°, ΡΠΊΠΎΠΏΠΈΡΡΠ΅ΠΌ Π»ΡΠ±ΡΡ Π½Π°Π±ΡΠ°Π½Π½ΡΡ ΡΠΎΡΠΌΡΠ»Ρ ΠΈΠ· ΡΡΠΎΠ»Π±ΡΠ°Β YΡΠ°ΡΡΠ΅ΡΒ ΡΠ°Π±Π»ΠΈΡΡΒ ΠΠΊΡΠΏΠ΅ΡΠΈΠΌΠ΅Π½Ρ. ΠΠ°Π»Π΅Π΅, Π²ΡΠ΄Π΅Π»ΠΈΠ² ΡΡΠ΅ΠΉΠΊΡΒ B17, Π² ΠΎΠΊΠ½ΠΎ Π²Π²ΠΎΠ΄Π° ΡΠΎΡΠΌΡΠ» Π²ΡΡΠ°Π²Π»ΡΠ΅ΠΌ ΡΠΊΠΎΠΏΠΈΡΠΎΠ²Π°Π½Π½ΡΡ ΡΠΎΡΠΌΡΠ»Ρ. Π ΡΡΠΎΠΉ ΡΠΎΡΠΌΡΠ»Π΅ ΡΡΡΠ»ΠΊΠΈ Π½Π° ΡΠ΅ΠΌΠΏΠ΅ΡΠ°ΡΡΡΡ ΠΈ Π΄Π°Π²Π»Π΅Π½ΠΈΠ΅ ΠΎΡΡΠ°Π»ΠΈΡΡ ΠΏΡΠΈΠΊΡΠ΅ΠΏΠ»Π΅Π½Π½ΡΠΌΠΈ ΠΊ ΡΡΠΎΠ»Π±ΡΠ°ΠΌ ΡΠ°Π±Π»ΠΈΡΡΒ ΠΠΊΡΠΏΠ΅ΡΠΈΠΌΠ΅Π½Ρ, ΠΈΡ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ ΠΏΠ΅ΡΠ΅Π½Π΅ΡΡΠΈ ΠΈΠ»ΠΈ ΠΈΠ·ΠΌΠ΅Π½ΠΈΡΡ ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²Π΅Π½Π½ΠΎ Π΄Π°Π½Π½ΡΠΌ ΠΌΠ°ΡΡΠΈΡΡ. ΠΠ»Ρ ΡΡΠΎΠ³ΠΎ Π² ΡΡΡΠΎΠΊΠ΅ Π²Π²ΠΎΠ΄Π° ΡΠΎΡΠΌΡΠ» ΡΡΠ°Π²ΠΈΠΌ ΠΊΡΡΡΠΎΡ ΠΌΡΡΠΈ Π½Π° ΡΠΎΡΠΌΡΠ»Ρ Π² Π»ΡΠ±ΠΎΠΌ ΠΌΠ΅ΡΡΠ΅ ΠΈ ΠΏΠΎΠ»ΡΡΠ°Π΅ΠΌ ΡΠ°Π·Π½ΠΎΡΠ²Π΅ΡΠ½ΡΠ΅ ΡΡΡΠ»ΠΊΠΈ Π½Π° ΡΠ»Π΅ΠΌΠ΅Π½ΡΡ ΡΠΎΡΠΌΡΠ»Ρ Π² ΡΠ°Π±Π»ΠΈΡΠ΅Β ΠΠΊΡΠΏΠ΅ΡΠΈΠΌΠ΅Π½Ρ. ΠΡΠ΅ ΡΡΡΠ»ΠΊΠΈ Π½Π° ΡΠ΅ΠΌΠΏΠ΅ΡΠ°ΡΡΡΡ (Π° ΠΈΡ ΡΡΠΈ) Π°ΠΊΠΊΡΡΠ°ΡΠ½ΠΎ ΠΏΠ΅ΡΠ΅Π½ΠΎΡΠΈΠΌ Π² ΠΏΠ΅ΡΠ²ΡΡ ΡΡΠ΅ΠΉΠΊΡ ΠΊΠΎΠ»ΠΎΠ½ΠΊΠΈ ΡΠ΅ΠΌΠΏΠ΅ΡΠ°ΡΡΡ Π² ΠΌΠ°ΡΡΠΈΡΠ΅, Π° ΡΡΡΠ»ΠΊΠΈ Π½Π° Π΄Π°Π²Π»Π΅Π½ΠΈΠ΅ (ΡΠΎΠΆΠ΅ ΡΡΠΈ) ΠΏΠ΅ΡΠ΅Π½ΠΎΡΠΈΠΌ Π½Π° ΡΡΡΠΎΠΊΡ Π² ΠΏΠ΅ΡΠ²ΡΡ ΡΡΠ΅ΠΉΠΊΡ Π² ΠΌΠ°ΡΡΠΈΡΠ΅ Π΄Π°Π½Π½ΡΡ .
ΠΠΎΡΠΊΠΎΠ»ΡΠΊΡ Π·Π½Π°ΡΠ΅Π½ΠΈΡ ΡΠ΅ΠΌΠΏΠ΅ΡΠ°ΡΡΡ ΠΈΠ·ΠΌΠ΅Π½ΡΡΡΡΡ ΠΏΠΎ ΠΊΠΎΠ»ΠΎΠ½ΠΊΠ΅, Π½Π΅ΠΎΠ±Ρ
ΠΎΠ΄ΠΈΠΌΠΎ Π²ΡΠ΅ ΡΡΡΠ»ΠΊΠΈ Π½Π° ΡΠ΅ΠΌΠΏΠ΅ΡΠ°ΡΡΡΡ ΡΠ΄Π΅Π»Π°ΡΡ ΡΠΌΠ΅ΡΠ°Π½Π½ΡΠΌΠΈ, Ρ.Π΅. Π·Π°ΠΊΡΠ΅ΠΏΠΈΡΡ ΠΊΠΎΠ»ΠΎΠ½ΠΊΡ Π·Π½Π°ΠΊΠΎΠΌ Π΄ΠΎΠ»Π»Π°ΡΠ° ($Π17). ΠΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΠ΅ Π΄Π°Π²Π»Π΅Π½ΠΈΡ ΠΏΡΠΎΠΈΡΡ
ΠΎΠ΄ΠΈΡ ΠΏΠΎ ΡΡΡΠΎΠΊΠ΅, Π·Π½Π°ΡΠΈΡ, Π·Π°ΠΊΡΠ΅ΠΏΠ»ΡΠ΅ΠΌ ΡΡΡΠΎΠΊΡ (B$16).
2
ΠΠ°Π½Π½ΡΠ΅ Π΄Π»Ρ ΠΏΠΎΡΡΡΠΎΠ΅Π½ΠΈΡ ΠΏΠΎΠ²Π΅ΡΡ Π½ΠΎΡΡΠΈ Π³ΠΎΡΠΎΠ²Ρ, ΠΎΡΡΠ°Π»ΠΎΡΡ ΠΈΡ ΡΠΎΠ»ΡΠΊΠΎ ΠΏΠΎΡΡΡΠΎΠΈΡΡ Π½Π° Π΄ΠΈΠ°Π³ΡΠ°ΠΌΠΌΠ΅. ΠΡΠ΄Π΅Π»ΡΠ΅ΠΌ ΠΎΠ±Π»Π°ΡΡΡ ΠΌΠ°ΡΡΠΈΡΡ Π΄Π°Π½Π½ΡΡ Ρ ΡΠΎΡΠΌΡΠ»Π°ΠΌΠΈ, Π½Π΅ Π·Π°Ρ Π²Π°ΡΡΠ²Π°Ρ Π·Π½Π°ΡΠ΅Π½ΠΈΡ ΡΠ΅ΠΌΠΏΠ΅ΡΠ°ΡΡΡ ΠΈ Π΄Π°Π²Π»Π΅Π½ΠΈΡ. ΠΠ°Π»Π΅Π΅ Π²ΠΎΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΠΌΡΡ Β«ΠΠ°ΡΡΠ΅ΡΠΎΠΌ Π΄ΠΈΠ°Π³ΡΠ°ΠΌΠΌΒ», Π²ΡΠ±ΡΠ°Π² ΡΠΈΠΏ Π΄ΠΈΠ°Π³ΡΠ°ΠΌΠΌΡ Β«ΠΠΎΠ²Π΅ΡΡ Π½ΠΎΡΡΡΒ». ΠΠΊΠΎΠ½ΡΠ°ΡΠ΅Π»ΡΠ½ΡΠΉ Π²ΠΈΠ΄ Π΄ΠΈΠ°Π³ΡΠ°ΠΌΠΌΡ Π±ΡΠ΄Π΅Ρ ΠΏΡΠΈΠΌΠ΅ΡΠ½ΠΎ ΡΠ°ΠΊΠΈΠΌ, ΠΊΠ°ΠΊ ΠΏΠΎΠΊΠ°Π·Π°Π½ΠΎ Π½Π° Π ΠΈΡ. 120.
Π€ΡΠ½ΠΊΡΠΈΡ ΠΠΠΠ‘ΠΠ Excel
ΠΠ»Π°Π²Π½Π°Ρ Β» ΠΡΡΡΠΎΠ΅Π½Π½ΡΠ΅ ΡΡΠ½ΠΊΡΠΈΠΈ Excel Β» Π’Π΅ΠΊΡΡΠΎΠ²ΡΠ΅ ΡΡΠ½ΠΊΡΠΈΠΈ Excel Β» Π€ΡΠ½ΠΊΡΠΈΡ ΠΏΠΎΠΈΡΠΊΠ° Excel
Π‘Π²ΡΠ·Π°Π½Π½Π°Ρ ΡΡΠ½ΠΊΡΠΈΡ:
Π€ΡΠ½ΠΊΡΠΈΡ ΠΠΠΠ’Π
ΠΠΏΠΈΡΠ°Π½ΠΈΠ΅ ΡΡΠ½ΠΊΡΠΈΠΈ ΡΠΊΠ°Π·Π°Π½Π½ΡΠΉ ΡΠΈΠΌΠ²ΠΎΠ» ΠΈΠ»ΠΈ ΠΏΠΎΠ΄ΡΡΡΠΎΠΊΠ° Π² ΠΏΡΠ΅Π΄ΠΎΡΡΠ°Π²Π»Π΅Π½Π½ΠΎΠΉ ΡΠ΅ΠΊΡΡΠΎΠ²ΠΎΠΉ ΡΡΡΠΎΠΊΠ΅.
Π€ΡΠ½ΠΊΡΠΈΡ Π½Π΅ ΡΡΠ²ΡΡΠ²ΠΈΡΠ΅Π»ΡΠ½Π° ΠΊ ΡΠ΅Π³ΠΈΡΡΡΡ. ΠΡΠ»ΠΈ Π²Ρ Ρ ΠΎΡΠΈΡΠ΅ Π²ΡΠΏΠΎΠ»Π½ΠΈΡΡ ΠΏΠΎΠΈΡΠΊ Ρ ΡΡΠ΅ΡΠΎΠΌ ΡΠ΅Π³ΠΈΡΡΡΠ°, ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠΉΡΠ΅ Π²ΠΌΠ΅ΡΡΠΎ ΡΡΠΎΠ³ΠΎ ΡΡΠ½ΠΊΡΠΈΡ Excel Find.
Π‘ΠΈΠ½ΡΠ°ΠΊΡΠΈΡ ΡΡΠ½ΠΊΡΠΈΠΈ ΠΏΠΎΠΈΡΠΊΠ°:
ΠΠΠΠ‘Π( ΡΠ΅ΠΊΡΡ_ΠΏΠΎΠΈΡΠΊΠ°, Π²Π½ΡΡΡΠΈ_ΡΠ΅ΠΊΡΡΠ°, [Π½Π°ΡΠ°Π»ΡΠ½ΡΠΉ_Π½ΠΎΠΌΠ΅Ρ] )
ΠΠ΄Π΅ Π°ΡΠ³ΡΠΌΠ΅Π½ΡΡ ΡΡΠ½ΠΊΡΠΈΠΈ:
| ΡΠ΅ΠΊΡΡ_ΠΏΠΎΠΈΡΠΊΠ° | — | Π‘ΠΈΠΌΠ²ΠΎΠ» ΠΈΠ»ΠΈ ΠΏΠΎΠ΄ΡΡΡΠΎΠΊΠ°, ΠΊΠΎΡΠΎΡΡΡ Π²Ρ Ρ
ΠΎΡΠΈΡΠ΅ Π½Π°ΠΉΡΠΈ.![]() |
| Π²Π½ΡΡΡΠΈ_ΡΠ΅ΠΊΡΡΠ° | — | Π’Π΅ΠΊΡΡΠΎΠ²Π°Ρ ΡΡΡΠΎΠΊΠ° Π΄Π»Ρ ΠΏΠΎΠΈΡΠΊΠ°. |
| [start_num] | — | ΠΠ΅ΠΎΠ±ΡΠ·Π°ΡΠ΅Π»ΡΠ½ΡΠΉ Π°ΡΠ³ΡΠΌΠ΅Π½Ρ, ΡΠΊΠ°Π·ΡΠ²Π°ΡΡΠΈΠΉ ΠΏΠΎΠ·ΠΈΡΠΈΡ Π² ΡΡΡΠΎΠΊΠ΅ inside_text, Ρ ΠΊΠΎΡΠΎΡΠΎΠΉ Π΄ΠΎΠ»ΠΆΠ΅Π½ Π½Π°ΡΠΈΠ½Π°ΡΡΡΡ ΠΏΠΎΠΈΡΠΊ. ΠΡΠ»ΠΈ ΠΎΠΏΡΡΠ΅Π½ΠΎ, ΠΏΡΠΈΠ½ΠΈΠΌΠ°Π΅Ρ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ΠΏΠΎ ΡΠΌΠΎΠ»ΡΠ°Π½ΠΈΡ 1 (Ρ. Π΅. ΠΏΠΎΠΈΡΠΊ Π½Π°ΡΠΈΠ½Π°Π΅ΡΡΡ Ρ Π½Π°ΡΠ°Π»Π° ΡΡΡΠΎΠΊΠΈ Π²Π½ΡΡΡΠΈ_ΡΠ΅ΠΊΡΡΠ°) |
ΠΠΎΠ΄ΡΡΠ°Π½ΠΎΠ²ΠΎΡΠ½ΡΠ΅ Π·Π½Π°ΠΊΠΈ
ΠΡ ΡΠ°ΠΊΠΆΠ΅ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΡΠ»Π΅Π΄ΡΡΡΠΈΠ΅ ΠΏΠΎΠ΄ΡΡΠ°Π½ΠΎΠ²ΠΎΡΠ½ΡΠ΅ Π·Π½Π°ΠΊΠΈ Π² Π°ΡΠ³ΡΠΌΠ΅Π½ΡΠ΅ search_text:
? — Β Β ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΡΠ΅Ρ Π»ΡΠ±ΠΎΠΌΡ ΠΎΠ΄ΠΈΠ½ΠΎΡΠ½ΠΎΠΌΡ ΡΠΈΠΌΠ²ΠΎΠ»Ρ
* Β Β — Β Β ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΡΠ΅Ρ Π»ΡΠ±ΠΎΠΉ ΠΏΠΎΡΠ»Π΅Π΄ΠΎΠ²Π°ΡΠ΅Π»ΡΠ½ΠΎΡΡΠΈ ΡΠΈΠΌΠ²ΠΎΠ»ΠΎΠ²
, Π½Π°ΠΏΡΠΈΠΌΠ΅Ρ. ΡΡΠ»ΠΎΠ²ΠΈΠ΅ «A*e» Π±ΡΠ΄Π΅Ρ ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΠΎΠ²Π°ΡΡ Π»ΡΠ±ΠΎΠΉ ΠΏΠΎΠ΄ΡΡΡΠΎΠΊΠ΅, Π½Π°ΡΠΈΠ½Π°ΡΡΠ΅ΠΉΡΡ Ρ «A» ΠΈ Π·Π°ΠΊΠ°Π½ΡΠΈΠ²Π°ΡΡΠ΅ΠΉΡΡ Π½Π° «e».
ΠΡΠ»ΠΈ ΠΏΡΠ΅Π΄ΠΎΡΡΠ°Π²Π»Π΅Π½Π½ΡΠΉ ΡΠ΅ΠΊΡΡ_ΠΈΡΠΊΠ°Π½ΠΈΡ Π½Π°ΠΉΠ΄Π΅Π½, ΡΡΠ½ΠΊΡΠΈΡ ΠΏΠΎΠΈΡΠΊΠ° Π²ΠΎΠ·Π²ΡΠ°ΡΠ°Π΅Ρ ΡΠΈΡΠ»ΠΎ, ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»ΡΡΡΠ΅Π΅ Π΅Π³ΠΎ ΠΏΠΎΠ·ΠΈΡΠΈΡ Π² ΠΏΡΠ΅Π΄Π΅Π»Π°Ρ
_ΡΠ΅ΠΊΡΡΠ°. ΠΡΠ»ΠΈ ΠΏΡΠ΅Π΄ΠΎΡΡΠ°Π²Π»Π΅Π½Π½ΡΠΉ search_text ΡΠ°Π²Π΅Π½ Π½Π΅ Π½Π°ΠΉΠ΄Π΅Π½ΠΎ , ΡΡΠ½ΠΊΡΠΈΡ Π²ΠΎΠ·Π²ΡΠ°ΡΠ°Π΅Ρ Excel #ΠΠΠΠ§! ΠΎΡΠΈΠ±ΠΊΠ°.
ΠΡΠΈΠΌΠ΅ΡΡ ΡΡΠ½ΠΊΡΠΈΠΈ ΠΏΠΎΠΈΡΠΊΠ°
Π ΡΡΠΎΠ»Π±ΡΠ΅ B ΡΠ»Π΅Π΄ΡΡΡΠ΅ΠΉ ΡΠ»Π΅ΠΊΡΡΠΎΠ½Π½ΠΎΠΉ ΡΠ°Π±Π»ΠΈΡΡ ΠΏΠΎΠΊΠ°Π·Π°Π½Ρ ΠΏΡΠΈΠΌΠ΅ΡΡ ΡΡΠ½ΠΊΡΠΈΠΈ ΠΏΠΎΠΈΡΠΊΠ° Excel, ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΠΌΠΎΠΉ Π΄Π»Ρ ΠΏΠΎΠΈΡΠΊΠ° ΡΠ°Π·Π»ΠΈΡΠ½ΡΡ ΡΠΈΠΌΠ²ΠΎΠ»ΠΎΠ² Π² ΡΠ΅ΠΊΡΡΠΎΠ²ΠΎΠΉ ΡΡΡΠΎΠΊΠ΅ Β«ΠΡΡ ΠΎΠ΄Π½ΡΠΉ ΡΠ΅ΠΊΡΡΒ».
Π€ΠΎΡΠΌΡΠ»Ρ:
| Π Π΅Π·ΡΠ»ΡΡΠ°ΡΡ:
|
ΠΡΠΈΠΌΠ΅ΡΠ°Π½ΠΈΠ΅.
Π ΠΏΡΠΈΠΌΠ΅ΡΠ΅. ΡΡΠ²ΡΡΠ²ΠΈΡΠ΅Π»ΡΠ½ΡΠΉ, Π·Π½Π°ΡΠ΅Π½ΠΈΡ search_text Π² Π²Π΅ΡΡ
Π½Π΅ΠΌ ΠΈ Π½ΠΈΠΆΠ½Π΅ΠΌ ΡΠ΅Π³ΠΈΡΡΡΠ΅, «T» ΠΈ «t», Π²ΠΎΠ·Π²ΡΠ°ΡΠ°ΡΡ ΠΎΠ΄ΠΈΠ½ ΠΈ ΡΠΎΡ ΠΆΠ΅ ΡΠ΅Π·ΡΠ»ΡΡΠ°Ρ (ΡΠΌ. ΡΡΠ΅ΠΉΠΊΠΈ B1 ΠΈ B2).
ΠΠΎΠΏΠΎΠ»Π½ΠΈΡΠ΅Π»ΡΠ½ΡΠ΅ ΡΠ²Π΅Π΄Π΅Π½ΠΈΡ ΠΈ ΠΏΡΠΈΠΌΠ΅ΡΡ ΡΡΠ½ΠΊΡΠΈΠΈ ΠΏΠΎΠΈΡΠΊΠ° Excel ΡΠΌ. Π½Π° Π²Π΅Π±-ΡΠ°ΠΉΡΠ΅ Microsoft Office.
ΠΡΠΈΠ±ΠΊΠ° ΡΡΠ½ΠΊΡΠΈΠΈ ΠΏΠΎΠΈΡΠΊΠ°
ΠΡΠ»ΠΈ Π²Ρ ΠΏΠΎΠ»ΡΡΠ°Π΅ΡΠ΅ ΡΠΎΠΎΠ±ΡΠ΅Π½ΠΈΠ΅ ΠΎΠ± ΠΎΡΠΈΠ±ΠΊΠ΅ ΡΡΠ½ΠΊΡΠΈΠΈ ΠΏΠΎΠΈΡΠΊΠ° Excel, ΡΠΊΠΎΡΠ΅Π΅ Π²ΡΠ΅Π³ΠΎ, ΡΡΠΎ #ΠΠΠΠ§! ΠΎΡΠΈΠ±ΠΊΠ°:
ΠΠ±ΡΠ°Ρ ΠΎΡΠΈΠ±ΠΊΠ°
| #ΠΠΠΠ§! | — | ΠΡΠΎΠΈΡΡ ΠΎΠ΄ΠΈΡ, Π΅ΡΠ»ΠΈ:
|
ΠΠ΅ΡΠ½ΡΡΡΡΡ Π½Π° ΡΡΡΠ°Π½ΠΈΡΡ ΡΠ΅ΠΊΡΡΠΎΠ²ΡΡ
ΡΡΠ½ΠΊΡΠΈΠΉ Excel
ΠΠ΅ΡΠ½ΡΡΡΡΡ Π½Π° ΡΡΡΠ°Π½ΠΈΡΡ Π‘ΠΏΠΈΡΠΎΠΊ Π²ΡΠ΅Ρ
Π²ΡΡΡΠΎΠ΅Π½Π½ΡΡ
ΡΡΠ½ΠΊΡΠΈΠΉ Excel ΡΡΠ²ΡΡΠ²ΠΈΡΠ΅Π»Π΅Π½ ΠΊ Π²ΠΎΠ·Π²ΡΠ°ΡΡ ΠΏΠΎΠ·ΠΈΡΠΈΠΈ.
Β«CΒ» ΠΈ Β«cΒ» ΠΈΠΌΠ΅ΡΡ ΡΠ°Π·Π½ΡΠ΅ Π·Π½Π°ΡΠ΅Π½ΠΈΡ, Π΅ΡΠ»ΠΈ Π²Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΠ΅ ΠΌΠ΅ΡΠΎΠ΄ FIND Π΄Π»Ρ ΠΏΠΎΠ»ΡΡΠ΅Π½ΠΈΡ ΠΏΠΎΠ·ΠΈΡΠΈΠΈ ΡΠ΅ΠΊΡΡΠ° Π² ΠΈΡΡ
ΠΎΠ΄Π½ΠΎΠΉ ΡΡΡΠΎΠΊΠ΅. Π€ΡΠ½ΠΊΡΠΈΡ ΠΠΠΠ‘Π Π½Π΅ΡΡΠ²ΡΡΠ²ΠΈΡΠ΅Π»ΡΠ½Π° ΠΊ ΡΠ΅Π³ΠΈΡΡΡΡ. ΠΡ Π½Π΅ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΠΏΠΎΠ΄ΡΡΠ°Π½ΠΎΠ²ΠΎΡΠ½ΡΠ΅ Π·Π½Π°ΠΊΠΈ Β«*Β» ΠΈ Β«?Β» Π² ΡΡΠ½ΠΊΡΠΈΠΈ ΠΠΠΠ’Π.
ΠΡΠ΅Π΄ΠΏΠΎΠ»ΠΎΠΆΠΈΠΌ, Ρ Π½Π°Ρ Π΅ΡΡΡ ΠΏΡΠ΅Π΄Π»ΠΎΠΆΠ΅Π½ΠΈΠ΅ Β«Π£ Excel ΠΌΠ½ΠΎΠ³ΠΎ ΡΡΠ½ΠΊΡΠΈΠΉΒ». ΠΡ Ρ ΠΎΡΠΈΠΌ Π½Π°ΠΉΡΠΈ ΠΏΠΎΠ·ΠΈΡΠΈΡ Β«ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²ΠΎΒ» Π² ΡΡΠΎΠΌ ΠΏΡΠ΅Π΄Π»ΠΎΠΆΠ΅Π½ΠΈΠΈ. ΠΠΎΠ·ΠΈΡΠΈΡ ΠΎΠ·Π½Π°ΡΠ°Π΅Ρ, Ρ ΠΊΠ°ΠΊΠΎΠ³ΠΎ ΡΠΈΡΠ»Π° Π² ΡΡΠΎΠΌ ΠΏΡΠ΅Π΄Π»ΠΎΠΆΠ΅Π½ΠΈΠΈ Π½Π°ΡΠΈΠ½Π°Π΅ΡΡΡ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²ΠΎ.
ΠΠ»Ρ ΡΡΠΎΠ³ΠΎ ΡΠΎΠ·Π΄Π°Π½Ρ ΡΡΠ½ΠΊΡΠΈΠΈ ΠΠΠΠ‘Π ΠΈ ΠΠΠΠ’Π Π² Excel. ΠΠ±Π΅ ΡΡΠ½ΠΊΡΠΈΠΈ ΠΏΡΠΈΠ½ΠΈΠΌΠ°ΡΡ ΡΡΠΈ Π°ΡΠ³ΡΠΌΠ΅Π½ΡΠ°; Π΄Π²Π° ΡΠΆΠ΅ Π΄ΠΎΠ»ΠΆΠ½ΠΎ Π±ΡΡΡ ΡΡΠ½ΠΎ. Π‘ΠΌ. ΠΏΠΎΡΡΠΈ ΠΎΠ΄ΠΈΠ½Π°ΠΊΠΎΠ²ΡΠΉ ΡΠΈΠ½ΡΠ°ΠΊΡΠΈΡ ΠΠΠΠ’Π ΠΈ ΠΠΠΠ‘Π:
ΠΠΠΠ’Π(Π’Π΅ΠΊΡΡ_Π΄Π»Ρ_ΠΏΠΎΠΈΡΠΊΠ°, ΠΡΡ ΠΎΠ΄Π½ΡΠΉ_ΡΠ΅ΠΊΡΡ, [Π½Π°ΡΠ°Π»ΡΠ½ΡΠΉ_Π½ΠΎΠΌΠ΅Ρ])
SEARCH(find_text,within_text,[start_num])
- Π’Π΅ΠΊΡΡ Π΄Π»Ρ ΠΏΠΎΠΈΡΠΊΠ° β Β«ΠΠ½ΠΎΠ³ΠΎΒ» Π² Π½Π°ΡΠ΅ΠΌ ΠΏΡΠΈΠΌΠ΅ΡΠ΅ ΠΏΡΠ΅Π΄Π»ΠΎΠΆΠ΅Π½ΠΈΡ.
- Source_Text β ΠΡΠ΅Π΄Π»ΠΎΠΆΠ΅Π½ΠΈΠ΅, ΠΊΠΎΡΠΎΡΠΎΠ΅ ΠΌΡ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π»ΠΈ. ΠΡΡΠ΅ΡΡΠ²Π΅Π½Π½ΠΎ, ΡΡΠΎ ΠΌΠΎΠΆΠ΅Ρ Π±ΡΡΡ ΡΡΡΠ»ΠΊΠ° Π½Π° ΡΡΠ΅ΠΉΠΊΡ.
- Π’ΡΠ΅ΡΠΈΠΉ Π½Π΅ΠΎΠ±ΡΠ·Π°ΡΠ΅Π»ΡΠ½ΡΠΉ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡ β Π½Π°ΡΠ°Π»ΡΠ½ΡΠΉ Π½ΠΎΠΌΠ΅Ρ .
ΠΠ½ ΡΠΊΠ°Π·ΡΠ²Π°Π΅Ρ, Ρ ΠΊΠ°ΠΊΠΎΠΉ ΠΏΠΎΠ·ΠΈΡΠΈΠΈ Π²Ρ Ρ
ΠΎΡΠΈΡΠ΅ Π½Π°ΡΠ°ΡΡ ΠΏΠΎΠΈΡΠΊ Π² ΠΈΡΡ
ΠΎΠ΄Π½ΠΎΠΌ ΡΠ΅ΠΊΡΡΠ΅. ΠΠ°ΠΏΡΠΈΠΌΠ΅Ρ, ΠΌΡ Ρ
ΠΎΡΠΈΠΌ Π½Π°ΠΉΡΠΈ Β«ΡΒ» Π² ΠΏΡΠΈΠ²Π΅Π΄Π΅Π½Π½ΠΎΠΌ Π²ΡΡΠ΅ ΠΏΡΠ΅Π΄Π»ΠΎΠΆΠ΅Π½ΠΈΠΈ ΠΈΠ· ΡΠΈΡΠ»Π° 6. Π― ΠΏΠΎΠΊΠ°ΠΆΡ ΡΡΠΎ Π½Π° ΠΏΡΠΈΠΌΠ΅ΡΠ΅, ΡΡΠΎΠ±Ρ Π±ΡΠ»ΠΎ ΠΏΠΎΠ½ΡΡΠ½ΠΎ. - ΠΡΠ»ΠΈ find_text Π½Π΅ Π½Π°ΠΉΠ΄Π΅Π½, #VALUE! ΠΡΠΎΠΈΠ·ΠΎΡΠ»Π° ΠΎΡΠΈΠ±ΠΊΠ°, ΠΈΠ·-Π·Π° ΠΊΠΎΡΠΎΡΠΎΠΉ Π²Ρ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΡΠΏΡΠ°Π²Π»ΡΡΡΡΡ Ρ ΠΏΠΎΠΌΠΎΡΡΡ IFERROR.
- 1.
Π Π°Π·Π½ΠΈΡΠ° ΠΌΠ΅ΠΆΠ΄Ρ ΠΠΠΠ‘Π ΠΈ ΠΠΠΠ’Π Π² Excel - 2.
ΠΡΠΈΠΌΠ΅Ρ ΡΡΠ½ΠΊΡΠΈΠΈ ΠΠΠΠ’Π - 3.
Π€ΡΠ½ΠΊΡΠΈΡ Excel ΠΠΠΠ’Π ΡΠ²Π»ΡΠ΅ΡΡΡ ΠΏΡΠΈΠΌΠ΅ΡΠΎΠΌ Ρ ΡΡΠ΅ΡΠΎΠΌ ΡΠ΅Π³ΠΈΡΡΡΠ° - 4.
ΠΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ ΡΡΠ½ΠΊΡΠΈΠΈ ΠΠΠΠ’Π Π² ΡΠ΅ΠΊΡΡΠ΅ ΡΡΠ΅ΠΉΠΊΠΈ - 5.
ΠΡΠΈΠΌΠ΅Ρ Π°ΡΠ³ΡΠΌΠ΅Π½ΡΠ° Start_Num Π² ΡΡΠ½ΠΊΡΠΈΠΈ ΠΠΠΠ’Π - 6.
ΠΠ±ΡΠ°Π±ΠΎΡΠΊΠ° ΠΎΡΠΈΠ±ΠΊΠΈ, Π΅ΡΠ»ΠΈ ΡΠ΅ΠΊΡΡ Π½Π΅ Π½Π°ΠΉΠ΄Π΅Π½ ΡΡΠ½ΠΊΡΠΈΠ΅ΠΉ ΠΠ‘ΠΠΠΠ¨ΠΠΠΠ - 7.

Π€ΡΠ½ΠΊΡΠΈΡ ΠΠΠΠ‘Π Excel - 8.
ΠΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ ΠΏΠΎΠ΄ΡΡΠ°Π½ΠΎΠ²ΠΎΡΠ½ΡΡ Π·Π½Π°ΠΊΠΎΠ² Π² ΡΡΠ½ΠΊΡΠΈΠΈ ΠΠΠΠ‘Π
Π Π°Π·Π½ΠΈΡΠ° ΠΌΠ΅ΠΆΠ΄Ρ ΠΠΠΠ‘Π ΠΈ ΠΠΠΠ’Π Π² Excel
ΠΡΡΡ Π΄Π²Π° ΠΎΡΠ»ΠΈΡΠΈΡ:
- Π€ΡΠ½ΠΊΡΠΈΡ ΠΠΠΠ’Π ΡΡΠ²ΡΡΠ²ΠΈΡΠ΅Π»ΡΠ½Π° ΠΊ ΡΠ΅Π³ΠΈΡΡΡΡ. Β«CΒ» ΠΈ Β«cΒ» ΠΈΠΌΠ΅ΡΡ ΡΠ°Π·Π½ΡΠ΅ Π·Π½Π°ΡΠ΅Π½ΠΈΡ, Π΅ΡΠ»ΠΈ Π²Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΠ΅ ΡΡΠ½ΠΊΡΠΈΡ FIND Π΄Π»Ρ ΠΏΠΎΠ»ΡΡΠ΅Π½ΠΈΡ ΠΏΠΎΠ·ΠΈΡΠΈΠΈ ΡΠ΅ΠΊΡΡΠ° Π² ΠΈΡΡ ΠΎΠ΄Π½ΠΎΠΉ ΡΡΡΠΎΠΊΠ΅.
- Π‘ Π΄ΡΡΠ³ΠΎΠΉ ΡΡΠΎΡΠΎΠ½Ρ, ΡΡΠ½ΠΊΡΠΈΡ ΠΠΠΠ‘Π Π½Π΅ΡΡΠ²ΡΡΠ²ΠΈΡΠ΅Π»ΡΠ½Π° ΠΊ ΡΠ΅Π³ΠΈΡΡΡΡ.
- ΠΡ Π½Π΅ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΠΏΠΎΠ΄ΡΡΠ°Π½ΠΎΠ²ΠΎΡΠ½ΡΠ΅ Π·Π½Π°ΠΊΠΈ Β«*Β» ΠΈ Β«?Β» Π² ΡΡΠ½ΠΊΡΠΈΠΈ ΠΠΠΠ’Π.
- Π€ΡΠ½ΠΊΡΠΈΡ ΠΠΠΠ‘Π ΠΏΠΎΠ·Π²ΠΎΠ»ΡΠ΅Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΠΏΠΎΠ΄ΡΡΠ°Π½ΠΎΠ²ΠΎΡΠ½ΡΠ΅ Π·Π½Π°ΠΊΠΈ.
Π‘ΠΌ. ΡΠ»Π΅Π΄ΡΡΡΠΈΠΉ ΡΠ°Π·Π΄Π΅Π» Ρ ΠΏΡΠΈΠΌΠ΅ΡΠ°ΠΌΠΈ Π΄Π»Ρ ΠΈΠ·ΡΡΠ΅Π½ΠΈΡ ΡΡΠ½ΠΊΡΠΈΠΉ ΠΈ ΠΏΠΎΠ½ΠΈΠΌΠ°Π½ΠΈΡ ΡΠ°Π·Π»ΠΈΡΠΈΠΉ.
ΠΡΠΈΠΌΠ΅Ρ ΡΡΠ½ΠΊΡΠΈΠΈ ΠΠΠΠ’Π
ΠΠΎΠ·Π²ΠΎΠ»ΡΡΠ΅ ΠΌΠ½Π΅ Π½Π°ΡΠ°ΡΡ Ρ ΠΏΡΠΎΡΡΠΎΠ³ΠΎ ΠΏΡΠΈΠΌΠ΅ΡΠ° ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΡ ΠΏΡΠ΅Π΄Π»ΠΎΠΆΠ΅Π½ΠΈΡ ΠΈ ΠΏΠΎΠΈΡΠΊΠ° ΠΏΠΎΠ·ΠΈΡΠΈΠΈ ΡΠ»ΠΎΠ²Π° Π² ΡΡΠΎΠΌ ΠΏΡΠ΅Π΄Π»ΠΎΠΆΠ΅Π½ΠΈΠΈ. Π€ΠΎΡΠΌΡΠ»Π° ΠΠΠΠ’Π ΠΏΡΠΈΠΌΠ΅Π½ΡΠ΅ΡΡΡ Π² ΡΡΠ΅ΠΉΠΊΠ΅ D11 ΡΠ»Π΅Π΄ΡΡΡΠΈΠΌ ΠΎΠ±ΡΠ°Π·ΠΎΠΌ:
=ΠΠΠΠ’Π(«ΠΠΌΡ»,»ΠΠ΅Π½Ρ Π·ΠΎΠ²ΡΡ ΠΠ΅Π½»)
Π Π΅Π·ΡΠ»ΡΡΠ°Ρ:
Π‘Π»ΠΎΠ²ΠΎ Β«ΠΠΌΡΒ» Π½Π°ΡΠΈΠ½Π°Π΅ΡΡΡ Ρ ΠΏΠΎΠ·ΠΈΡΠΈΠΈ 4 Π² Π΄Π°Π½Π½ΠΎΠΌ ΠΏΡΠ΅Π΄Π»ΠΎΠΆΠ΅Π½ΠΈΠΈ.
ΠΠ½Π°Π΅ΡΠ΅ Π»ΠΈ Π²Ρ, ΡΡΠΎ Π² Excel Π΅ΡΡΡ ΡΡΠ½ΠΊΡΠΈΠΈ FINDB ΠΈ SEARCHB, ΠΊΠΎΡΠΎΡΡΠ΅ ΡΠ°Π±ΠΎΡΠ°ΡΡ Ρ ΡΠ·ΡΠΊΠ°ΠΌΠΈ, ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΡΡΠΈΠΌΠΈ Π½Π°Π±ΠΎΡ Π΄Π²ΡΡ Π±Π°ΠΉΡΠΎΠ²ΡΡ ΡΠΈΠΌΠ²ΠΎΠ»ΠΎΠ² (DBCS). ΠΠΠΠ’Π/ΠΠΠΠ‘Π ΠΏΡΠ΅Π΄Π½Π°Π·Π½Π°ΡΠ΅Π½ Π΄Π»Ρ Π½Π°Π±ΠΎΡΠ° ΠΎΠ΄Π½ΠΎΠ±Π°ΠΉΡΠΎΠ²ΡΡ ΡΠΈΠΌΠ²ΠΎΠ»ΠΎΠ² (SBCS) β ΠΊΠ°ΠΆΠ΄ΡΠΉ ΡΠΈΠΌΠ²ΠΎΠ» ΡΡΠΈΡΠ°Π΅ΡΡΡ ΡΠ°Π²Π½ΡΠΌ 1.
ΠΡΠΈΠΌΠ΅Ρ ΡΡΠ½ΠΊΡΠΈΠΈ ΠΠΠΠ‘Π Π² Excel Ρ ΡΡΠ΅ΡΠΎΠΌ ΡΠ΅Π³ΠΈΡΡΡΠ°
Π’Π΅ΠΏΠ΅ΡΡ Π΄Π°Π²Π°ΠΉΡΠ΅ ΡΠ°ΡΡΠΌΠΎΡΡΠΈΠΌ ΠΏΡΠΈΠΌΠ΅Ρ ΡΡΠ½ΠΊΡΠΈΠΈ ΠΠΠΠ‘Π Ρ ΡΡΠ΅ΡΠΎΠΌ ΡΠ΅Π³ΠΈΡΡΡΠ°. ΠΡΠΏΠΎΠ»ΡΠ·ΡΡ ΡΠΎ ΠΆΠ΅ ΠΏΡΠ΅Π΄Π»ΠΎΠΆΠ΅Π½ΠΈΠ΅, ΡΡΠΎ ΠΈ Π²ΡΡΠ΅, Π·Π° ΠΈΡΠΊΠ»ΡΡΠ΅Π½ΠΈΠ΅ΠΌ ΡΠΎΠ³ΠΎ, ΡΡΠΎ ΠΌΡ Π½Π°ΠΉΠ΄Π΅ΠΌ ΠΌΠ΅ΡΡΠΎΠΏΠΎΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅ Β«ΠΈΠΌΡΒ»:
.
=ΠΠΠΠ’Π(«ΠΈΠΌΡ»,»ΠΠ΅Π½Ρ Π·ΠΎΠ²ΡΡ ΠΠ΅Π½»)
ΠΠΈΠ΄ΠΈΡΠ΅ Π»ΠΈ, #ΠΠΠΠ§! ΠΡΠΎΠΈΠ·ΠΎΡΠ»Π° ΠΎΡΠΈΠ±ΠΊΠ° , ΠΊΠΎΠ³Π΄Π° ΠΌΡ ΠΈΠ·ΠΌΠ΅Π½ΠΈΠ»ΠΈ ΡΠ΅Π³ΠΈΡΡΡ Β«NΒ» Π½Π° Β«nΒ» Π² ΡΡΠ½ΠΊΡΠΈΠΈ ΠΠΠΠ’Π.
ΠΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ ΡΡΠ½ΠΊΡΠΈΠΈ ΠΠΠΠ’Π Π² ΡΠ΅ΠΊΡΡΠ΅ ΡΡΠ΅ΠΉΠΊΠΈ
Π ΡΡΠΎΠΌ ΠΏΡΠΈΠΌΠ΅ΡΠ΅ Ρ Π±ΡΠ΄Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΡΡΠ½ΠΊΡΠΈΡ ΠΠΠΠ’Π Π΄Π»Ρ ΠΏΠΎΠΈΡΠΊΠ° ΠΏΠΎΠ·ΠΈΡΠΈΠΈ Π±ΡΠΊΠ²Ρ Π² ΡΡΠ΅ΠΉΠΊΠ΅ A7. Π‘ΡΠΎΠ»Π±Π΅Ρ A ΡΠΎΠ΄Π΅ΡΠΆΠΈΡ ΠΈΠΌΠ΅Π½Π° ΡΠΎΡΡΡΠ΄Π½ΠΈΠΊΠΎΠ² ΡΠΎΠ»ΡΠΊΠΎ Π΄Π»Ρ Π΄Π΅ΠΌΠΎΠ½ΡΡΡΠ°ΡΠΈΠΈ:
Π€ΠΎΡΠΌΡΠ»Π° ΠΠΠΠ’Π:
= ΠΠΠΠ’Π («Ρ», A7)
Π Π΅Π·ΡΠ»ΡΡΠΈΡΡΡΡΠΈΠΉ Π»ΠΈΡΡ:
ΠΡ ΠΌΠΎΠΆΠ΅ΡΠ΅ Π²ΠΈΠ΄Π΅ΡΡ, ΡΡΠΎ ΠΏΠΎΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅ Β«hΒ» ΡΠ°Π²Π½ΠΎ 2 Π² ΡΠ΅ΠΊΡΡΠ΅ A1 = Shabee
ΠΡΠΈΠΌΠ΅Ρ Π°ΡΠ³ΡΠΌΠ΅Π½ΡΠ° Start_Num Π² ΡΡΠ½ΠΊΡΠΈΠΈ FIND
2 ΡΠ΅ΠΊΡΡ Π² ΡΡΠ΅ΠΉΠΊΠ΅ B3 ΠΈΡΠ΅ΡΡΡ.
B3 ΡΠΎΠ΄Π΅ΡΠΆΠΈΡ ΡΠ»Π΅Π΄ΡΡΡΠΈΠΉ ΡΠ΅ΠΊΡΡ:
Β«ΠΠ’-ΡΠΊΡΠΏΠ΅ΡΡ / Excel / Powerpoint / WordΒ»
ΠΡ ΠΈΡΠΊΠ°Π»ΠΈ ‘p’, ΠΊΠΎΡΠΎΡΡΠΉ Π²ΡΡΡΠ΅ΡΠ°Π΅ΡΡΡ Π² ΠΏΠΎΠ·ΠΈΡΠΈΡΡ 6 ΠΈ 26. ΠΠ΄Π½Π°ΠΊΠΎ Π°ΡΠ³ΡΠΌΠ΅Π½Ρ start_num ΡΠΊΠ°Π·Π°Π½, ΠΊΠ°ΠΊ ΠΏΠΎΠΊΠ°Π·Π°Π½ΠΎ Π½ΠΈΠΆΠ΅, ΠΈ ΠΏΠΎΡΠΌΠΎΡΡΠΈΡΠ΅ ΡΠ΅Π·ΡΠ»ΡΡΠ°Ρ:
= FIND(B10, B3,8)
Π Π΅Π·ΡΠ»ΡΡΠ°Ρ:
ΠΠΎΠ½ΠΈΠΌΠ°Π΅ΡΠ΅, ΠΎΠ½ Π²Π΅ΡΠ½ΡΠ» 26, ΠΏΠΎΡΠΎΠΌΡ ΡΡΠΎ ΠΠΠΠ’Π Π½Π°ΡΠ°Π» ΠΏΠΎΠΈΡΠΊ Ρ ΠΏΠΎΠ·ΠΈΡΠΈΠΈ 8.
ΠΠ±ΡΠ°Π±ΠΎΡΠΊΠ° ΠΎΡΠΈΠ±ΠΊΠΈ, Π΅ΡΠ»ΠΈ ΡΠ΅ΠΊΡΡ Π½Π΅ Π½Π°ΠΉΠ΄Π΅Π½ ΡΡΠ½ΠΊΡΠΈΠ΅ΠΉ ΠΠ‘ΠΠΠΠ¨ΠΠΠΠ
ΡΠΎΠΎΠ±ΡΠ΅Π½ΠΈΠ΅ ΠΎΠ± ΠΎΡΠΈΠ±ΠΊΠ΅, Π΅ΡΠ»ΠΈ Π΄Π°Π½Π½ΡΠΉ ΠΏΠΎΠΈΡΠΊΠΎΠ²ΡΠΉ ΡΠ΅ΡΠΌΠΈΠ½ Π½Π΅ Π½Π°ΠΉΠ΄Π΅Π½, Π²Ρ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΡΡΠ½ΠΊΡΠΈΡ ΠΠ‘ΠΠΠΠ¨ΠΠΠΠ Ρ ΠΠΠΠ’Π Π΄Π»Ρ ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ΅Π½ΠΈΡ ΠΎΠΏΠΈΡΠ°ΡΠ΅Π»ΡΠ½ΠΎΠ³ΠΎ ΡΠΎΠΎΠ±ΡΠ΅Π½ΠΈΡ, Π½Π°ΠΏΡΠΈΠΌΠ΅Ρ. Β«ΠΠΎΠΈΡΠΊΠΎΠ²ΠΎΠ΅ ΡΠ»ΠΎΠ²ΠΎ Π½Π΅ Π½Π°ΠΉΠ΄Π΅Π½ΠΎΒ».
Π‘ΠΌ. ΠΏΡΠΈΠΌΠ΅Ρ Π½ΠΈΠΆΠ΅, Π³Π΄Π΅ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ ΠΌΠΎΠΆΠ΅Ρ Π²Π²Π΅ΡΡΠΈ Π»ΡΠ±ΠΎΠΉ ΡΠ΅ΠΊΡΡ Π² ΡΡΠ΅ΠΉΠΊΡ B10. ΠΠ²Π΅Π΄Π΅Π½Π½ΡΠΉ ΡΠ΅ΠΊΡΡ Π±ΡΠ΄Π΅Ρ ΠΈΡΠΊΠ°ΡΡΡΡ Π² ΡΡΠ΅ΠΉΠΊΠ΅ B3. Π― ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π» ΠΊΠΎΠΌΠ±ΠΈΠ½Π°ΡΠΈΡ ΠΠ‘ΠΠΠΠ¨ΠΠΠΠ/ΠΠΠΠ’Π ΠΈ Π²Π²Π΅Π» ΡΠ°Π·Π»ΠΈΡΠ½ΡΠ΅ ΡΠ΅ΠΊΡΡΡ, Π² ΡΠΎΠΌ ΡΠΈΡΠ»Π΅ Π½Π΅ΡΡΡΠ΅ΡΡΠ²ΡΡΡΠΈΠΉ. ΠΠΎΡΠΌΠΎΡΡΠΈΡΠ΅ Π½Π° ΡΠΎΡΠΌΡΠ»Ρ ΠΈ ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΡ:
Π€ΠΎΡΠΌΡΠ»Π°:
=ΠΠ‘ΠΠΠΠ¨ΠΠΠΠ(ΠΠΠΠ’Π(B10,B3), «ΠΠ°Π΄Π°Π½Π½ΡΠΉ ΡΠ΅ΠΊΡΡ Π½Π΅ Π½Π°ΠΉΠ΄Π΅Π½!»)
Π Π΅Π·ΡΠ»ΡΡΠ°ΡΡ.
ΠΠΌΠ΅ΡΡΠΎ ΡΠΎΠ³ΠΎ, ΡΡΠΎΠ±Ρ ΠΏΠΎΠΊΠ°Π·ΡΠ²Π°ΡΡ ΠΎΡΠΈΠ±ΠΊΡ, Β«ΠΠ°Π½Π½ΡΠΉ ΡΠ΅ΠΊΡΡ Π½Π΅ Π½Π°ΠΉΠ΄Π΅Π½!Β» ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ°Π΅ΡΡΡ ΡΠΎΠΎΠ±ΡΠ΅Π½ΠΈΠ΅.
ΠΡΠΈΠΌΠ΅ΡΠ°Π½ΠΈΠ΅. ΠΡΠ»ΠΈ Π²Ρ ΡΠΊΠΎΠΏΠΈΡΡΠ΅ΡΠ΅/Π²ΡΡΠ°Π²ΠΈΡΠ΅ ΡΡΡ ΡΠΎΡΠΌΡΠ»Ρ, Π²Π½ΠΈΠΌΠ°ΡΠ΅Π»ΡΠ½ΠΎ ΠΏΡΠΎΠ²Π΅ΡΡΡΠ΅ Π΄Π²ΠΎΠΉΠ½ΡΠ΅ ΠΊΠ°Π²ΡΡΠΊΠΈ, ΠΈΠ½Π°ΡΠ΅ ΠΌΠΎΠΆΠ΅Ρ Π²ΠΎΠ·Π½ΠΈΠΊΠ½ΡΡΡ ΠΎΡΠΈΠ±ΠΊΠ° ΠΈΠΌΠ΅Π½ΠΈ.
Π€ΡΠ½ΠΊΡΠΈΡ ΠΠΠΠ‘Π Excel
ΠΡΠ΅ ΠΏΡΠΈΠ²Π΅Π΄Π΅Π½Π½ΡΠ΅ Π²ΡΡΠ΅ ΠΏΡΠΈΠΌΠ΅ΡΡ Π±ΡΠ΄ΡΡ ΡΠ°Π±ΠΎΡΠ°ΡΡ ΠΎΠ΄ΠΈΠ½Π°ΠΊΠΎΠ²ΠΎ, Π΅ΡΠ»ΠΈ Π²Ρ ΠΏΡΠΎΡΡΠΎ Π·Π°ΠΌΠ΅Π½ΠΈΡΠ΅ ΡΠ»ΠΎΠ²ΠΎ Β«ΠΠΠΠ’ΠΒ» Π½Π° Β«ΠΠΠΠ‘ΠΒ», Π·Π° ΠΈΡΠΊΠ»ΡΡΠ΅Π½ΠΈΠ΅ΠΌ ΠΏΡΠΈΠΌΠ΅ΡΠ° Ρ ΡΡΠ΅ΡΠΎΠΌ ΡΠ΅Π³ΠΈΡΡΡΠ°. ΠΡΠ°ΠΊ, Ρ Π½Π΅ Π±ΡΠ΄Ρ ΡΠ½ΠΎΠ²Π° ΠΏΠΎΠΊΠ°Π·ΡΠ²Π°ΡΡ Π²ΡΠ΅ ΡΡΠΈ ΠΏΡΠΈΠΌΠ΅ΡΡ Π΄Π»Ρ ΡΡΠ½ΠΊΡΠΈΠΈ ΠΠΠΠ‘Π, Π° ΠΏΡΠΎΠ΄ΠΎΠ»ΠΆΡ, ΠΏΠΎΠΊΠ°Π·Π°Π², ΡΠ΅ΠΌ ΠΎΠ½Π° ΠΎΡΠ»ΠΈΡΠ°Π΅ΡΡΡ ΠΎΡ ΡΡΠ½ΠΊΡΠΈΠΈ ΠΠΠΠ’Π.
ΠΡΠ°ΠΊ, Π΄Π°Π²Π°ΠΉΡΠ΅ ΡΠ½Π°ΡΠ°Π»Π° ΠΏΠΎΡΠΌΠΎΡΡΠΈΠΌ Π½Π° Π½Π΅ΡΡΠ²ΡΡΠ²ΠΈΡΠ΅Π»ΡΠ½ΠΎΡΡΡ ΠΊ ΡΠ΅Π³ΠΈΡΡΡΡ ΡΡΠ½ΠΊΡΠΈΠΈ ΠΠΠΠ‘Π.
ΠΠ»Ρ ΡΡΠΎΠ³ΠΎ Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΡ ΡΠΎΡ ΠΆΠ΅ Π»ΠΈΡΡ, ΡΡΠΎ ΠΈ Π² ΠΏΡΠΈΠ²Π΅Π΄Π΅Π½Π½ΠΎΠΌ Π²ΡΡΠ΅ ΠΏΡΠΈΠΌΠ΅ΡΠ΅. Π ΡΠΎΡΠΌΡΠ»Π΅ ΠΠΠΠ‘Π Ρ ΡΠΊΠ°Π·Π°Π» ΡΡΠ΅ΠΉΠΊΡ B8, ΡΠΎΠ΄Π΅ΡΠΆΠ°ΡΡΡ ΡΠ΅ΠΊΡΡ Β«Π‘ΡΠ΅ΡΠ°Β». ΠΠΎΡΠΌΠΎΡΡΠΈΡΠ΅ Π½Π° ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΡ ΠΏΠΎΠΈΡΠΊΠ° ΡΠ°Π·Π»ΠΈΡΠ½ΡΡ ΡΠ΅ΠΊΡΡΠΎΠ² ΠΏΠΎ ΡΡΠΎΠΉ ΡΠΎΡΠΌΡΠ»Π΅:
Π€ΠΎΡΠΌΡΠ»Π° ΠΠΠΠ‘Π:
=ΠΠΠΠ‘Π(B10,B8)
Π Π΅Π·ΡΠ»ΡΡΠ°ΡΡ:
3 β ΠΈ Π²ΠΎΠ·Π²ΡΠ°ΡΠ°Π΅ΡΡΡ ΠΏΠΎΠ·ΠΈΡΠΈΡ 1,
Β«TΒ» Π½Π΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ Π² Β«Π£ΡΠ΅ΡΠ½ΡΡ
Π·Π°ΠΏΠΈΡΡΡ
Β», Π½ΠΎ ΠΠΠΠ‘Π Π²Π΅ΡΠ½ΡΠ» ΠΏΠΎΠ·ΠΈΡΠΈΡ Β«tΒ».

Find("", After:=c, SearchFormat:=True)
Loop
End With
Find(Format(d, "m\/d\/"), LookIn:=xlFormulas, LookAt:=xlPart)
If Not c Is Nothing Then
MsgBox "ΠΠ°ΡΠ΅Π»"
Else
MsgBox "ΠΠ΅ Π½Π°ΡΠ΅Π»"
End If

ΠΠ½ ΡΠΊΠ°Π·ΡΠ²Π°Π΅Ρ, Ρ ΠΊΠ°ΠΊΠΎΠΉ ΠΏΠΎΠ·ΠΈΡΠΈΠΈ Π²Ρ Ρ
ΠΎΡΠΈΡΠ΅ Π½Π°ΡΠ°ΡΡ ΠΏΠΎΠΈΡΠΊ Π² ΠΈΡΡ
ΠΎΠ΄Π½ΠΎΠΌ ΡΠ΅ΠΊΡΡΠ΅. ΠΠ°ΠΏΡΠΈΠΌΠ΅Ρ, ΠΌΡ Ρ
ΠΎΡΠΈΠΌ Π½Π°ΠΉΡΠΈ Β«ΡΒ» Π² ΠΏΡΠΈΠ²Π΅Π΄Π΅Π½Π½ΠΎΠΌ Π²ΡΡΠ΅ ΠΏΡΠ΅Π΄Π»ΠΎΠΆΠ΅Π½ΠΈΠΈ ΠΈΠ· ΡΠΈΡΠ»Π° 6. Π― ΠΏΠΎΠΊΠ°ΠΆΡ ΡΡΠΎ Π½Π° ΠΏΡΠΈΠΌΠ΅ΡΠ΅, ΡΡΠΎΠ±Ρ Π±ΡΠ»ΠΎ ΠΏΠΎΠ½ΡΡΠ½ΠΎ.