Π§ΠΈΡ‚Π°ΠΉΡ‚Π΅ ΠΊΠ½ΠΈΠ³ΠΈ ΠΎΠ½Π»Π°ΠΉΠ½ Π½Π° Bookidrom.ru! БСсплатныС ΠΊΠ½ΠΈΠ³ΠΈ Π² ΠΎΠ΄Π½ΠΎΠΌ ΠΊΠ»ΠΈΠΊΠ΅

Π§ΠΈΡ‚Π°Ρ‚ΡŒ ΠΎΠ½Π»Π°ΠΉΠ½ Β«VBA для Ρ‡Π°ΠΉΠ½ΠΈΠΊΠΎΠ²Β». Π‘Ρ‚Ρ€Π°Π½ΠΈΡ†Π° 65

Автор Π‘Ρ‚ΠΈΠ² Каммингс

функция

Π‘ΠΈΠΌΠ²ΠΎΠ», ΡΠΎΠΎΡ‚Π²Π΅Ρ‚ΡΡ‚Π²ΡƒΡŽΡ‰ΠΈΠΉ Π·Π½Π°Ρ‡Π΅Π½ΠΈΡŽ ΠΏΠ°Ρ€Π°ΠΌΠ΅Ρ‚Ρ€Π° ΠΊΠΎΠ΄_символа

Filter ( массив_источник, эталон, Π²ΠΊΠ»ΡŽΡ‡Π°Π΅Ρ‚, ΠΌΠ΅Ρ‚ΠΎΠ΄ сравнСния)

Ѐункция (Ρ‚ΠΎΠ»ΡŒΠΊΠΎ Π² VBA6)

Массив, состоящий Ρ‚ΠΎΠ»ΡŒΠΊΠΎ ΠΈΠ· Ρ‚Π΅Ρ… строк ΠΈΠ· массива источника, ΠΊΠΎΡ‚ΠΎΡ€Ρ‹Π΅ содСрТат эталон. АргумСнт массив_истчник Π΄ΠΎΠ»ΠΆΠ΅Π½ Π±Ρ‹Ρ‚ΡŒ массивом строковых Π·Π½Π°Ρ‡Π΅Π½ΠΈΠΉ. Если Π½Π΅ΠΎΠ±ΡΠ·Π°Ρ‚Π΅Π»ΡŒΠ½Ρ‹ΠΉ Π°Ρ€Π³ΡƒΠΌΠ΅Π½Ρ‚ Π²ΠΊΠ»ΡŽΡ‡Π°Π΅Ρ‚ Ρ€Π°Π²Π΅Π½ False, Ρ‚ΠΎ функция Π²ΠΎΠ·Π²Ρ€Π°Ρ‚ΠΈΡ‚ Ρ‚ΠΎΠ»ΡŒΠΊΠΎ строки, ΠΊΠΎΡ‚ΠΎΡ€Ρ‹Π΅ Π½Π΅ Π²ΠΊΠ»ΡŽΡ‡Π°ΡŽΡ‚ эталон

Format (строка)

Ѐункция

Π‘ΠΌ. Π²Ρ‹ΡˆΠ΅ Ρ€Π°Π·Π΄Π΅Π» "Π€ΠΎΡ€ΠΌΠ°Ρ‚ΠΈΡ€ΠΎΠ²Π°Π½ΠΈΠ΅ Π΄Π°Π½Π½Ρ‹Ρ…"

Hex (число)

Ѐункция

Π‘Ρ‚Ρ€ΠΎΠΊΠ°, содСрТащая ΡˆΠ΅ΡΡ‚Π½Π°Π΄Ρ†Π°Ρ‚Π΅Ρ€ΠΈΡ‡Π½ΠΎΠ΅ прСдставлСниС числа

InStr (старт, строка1, строка2)

Ѐункция

Число, ΡΠΎΠΎΡ‚Π²Π΅Ρ‚ΡΡ‚Π²ΡƒΡŽΡ‰Π΅Π΅ ΠΏΠΎΠ·ΠΈΡ†ΠΈΠΈ строки 2 Π² строкС 1; поиск начинаСтся с ΠΏΠΎΠ·ΠΈΡ†ΠΈΠΈ старт, этот Π°Ρ€Π³ΡƒΠΌΠ΅Π½Ρ‚ Π½Π΅ обязатСлСн

InStrRev (строка 1, строка2, старт)

функция (Ρ‚ΠΎΠ»ΡŒΠΊΠΎ Π² VBA6)

Число, ΡΠΎΠΎΡ‚Π²Π΅Ρ‚ΡΡ‚Π²ΡƒΡŽΡ‰Π΅Π΅ ΠΏΠΎΠ·ΠΈΡ†ΠΈΠΈ строки 2 Π² строкС 1, считая с ΠΏΡ€Π°Π²ΠΎΠ³ΠΎ края строки 1; поиск начинаСтся с ΠΏΠΎΠ·ΠΈΡ†ΠΈΠΈ старт, этот Π°Ρ€Π³ΡƒΠΌΠ΅Π½Ρ‚ Π½Π΅ обязатСлСн

Join (массив_строк, Ρ€Π°Π·Π΄Π΅Π»ΠΈΡ‚Π΅Π»ΡŒ)

функция (Ρ‚ΠΎΠ»ΡŒΠΊΠΎ B VBA6)

Одна строка, ΠΊΠΎΠΌΠ±ΠΈΠ½ΠΈΡ€ΡƒΡŽΡ‰Π°Ρ всС строки ΠΈΠ· массив_строк, ΠΊΠΎΡ‚ΠΎΡ€Ρ‹ΠΉ Π΄ΠΎΠ»ΠΆΠ΅Π½ Π±Ρ‹Ρ‚ΡŒ массивом строковых Π΄Π°Π½Π½Ρ‹Ρ…. По ΡƒΠΌΠΎΠ»Ρ‡Π°Π½ΠΈΡŽ Join вставляСт ΠΏΡ€ΠΎΠ±Π΅Π» ΠΌΠ΅ΠΆΠ΄Ρƒ строками, взятыми ΠΈΠ· массива строк, Π½ΠΎ ΠΌΠΎΠΆΠ½ΠΎ Π·Π°Π΄Π°Ρ‚ΡŒ ΠΈ Π΄Ρ€ΡƒΠ³ΠΎΠΉ символ раздСлитСля (символ Π½Π΅ΠΎΠ±Ρ…ΠΎΠ΄ΠΈΠΌΠΎ Π·Π°ΠΊΠ»ΡŽΡ‡ΠΈΡ‚ΡŒ Π² ΠΊΠ°Π²Ρ‹Ρ‡ΠΊΠΈ)

Left (строка, Π΄Π»ΠΈΠ½Π°)

Ѐункция

Π‘Ρ‚Ρ€ΠΎΠΊΠ° ΡƒΠΊΠ°Π·Π°Π½Π½ΠΎΠΉ Π΄Π»ΠΈΠ½Ρ‹ ΠΈΠ· символов, взятых подряд ΠΈΠ· строки, Π·Π°Π΄Π°Π²Π°Π΅ΠΌΠΎΠΉ Π°Ρ€Π³ΡƒΠΌΠ΅Π½Ρ‚ΠΎΠΌ строка, начиная с Π»Π΅Π²ΠΎΠ³ΠΎ края послСднСй

Len (строка)

Ѐункция

Число символов Π² строкС

LCase (строка)

Ѐункция

Копия строки, прСдставлСнная символами Π½ΠΈΠΆΠ½Π΅Π³ΠΎ рСгистра

LSet строковая_

пСрСмСнная = строка

ΠžΠΏΠ΅Ρ€Π°Ρ‚ΠΎΡ€

УстанавливаСт Π·Π½Π°Ρ‡Π΅Π½ΠΈΠ΅ строковой ΠΏΠ΅Ρ€Π΅ΠΌΠ΅Π½Π½ΠΎΠΉ, Ρ€Π°Π²Π½ΠΎΠ΅ Π·Π°Π΄Π°Π½Π½ΠΎΠΉ строкС, Π±Π΅Π· измСнСния Π΄Π»ΠΈΠ½Ρ‹ этой строковой ΠΏΠ΅Ρ€Π΅ΠΌΠ΅Π½Π½ΠΎΠΉ ΠΈ с Ρ€Π°Π·ΠΌΠ΅Ρ‰Π΅Π½ΠΈΠ΅ΠΌ Π·Π°Π΄Π°Π½Π½ΠΎΠΉ строки начиная с Π»Π΅Π²ΠΎΠ³ΠΎ края ΠΏΠ΅Ρ€Π΅ΠΌΠ΅Π½Π½ΠΎΠΉ

LTrim (строка)

Ѐункция

Новая строка, содСрТащая копию Π΄Π°Π½Π½ΠΎΠΉ строки Π±Π΅Π· ΠΏΡ€ΠΎΠ±Π΅Π»ΠΎΠ² Π² Π½Π°Ρ‡Π°Π»Π΅

Mid(строка, старт, Π΄Π»ΠΈΠ½Π°)

Ѐункция

Новая строка Π·Π°Π΄Π°Π½Π½ΠΎΠΉ Π΄Π»ΠΈΠ½Ρ‹ ΠΈΠ· символов Π΄Π°Π½Π½ΠΎΠΉ строки, взятых подряд, начиная с ΠΏΠΎΠ·ΠΈΡ†ΠΈΠΈ старт

Mid(строковая пСрСмСнная, старт, Π΄Π»ΠΈΠ½Π°) = строка

ΠžΠΏΠ΅Ρ€Π°Ρ‚ΠΎΡ€

Начиная с ΠΏΠΎΠ·ΠΈΡ†ΠΈΠΈ старт замСняСт символами Π΄Π°Π½Π½ΠΎΠΉ строки Π·Π°Π΄Π°Π½Π½ΠΎΠ΅ Π°Ρ€Π³ΡƒΠΌΠ΅Π½Ρ‚ΠΎΠΌ Π΄Π»ΠΈΠ½Π° число символов Π² строковой ΠΏΠ΅Ρ€Π΅ΠΌΠ΅Π½Π½ΠΎΠΉ

Oct(число)

Ѐункция

Π‘Ρ‚Ρ€ΠΎΠΊΠ°, содСрТащая Π²ΠΎΡΡŒΠΌΠ΅Ρ€ΠΈΡ‡Π½ΠΎΠ΅ прСдставлСниС числа

Replace(строка, Π½Π°ΠΉΡ‚ΠΈ, Π·Π°ΠΌΠ΅Π½ΠΈΡ‚ΡŒ, старт, число_Π·Π°ΠΌΠ΅Π½, ΠΌΠ΅Ρ‚ΠΎΠ΄_сравнСния)

Ѐункция (Ρ‚ΠΎΠ»ΡŒΠΊΠΎ Π² VBA6)

Новая строка, получаСмая Π² Ρ€Π΅Π·ΡƒΠ»ΡŒΡ‚Π°Ρ‚Π΅ Π·Π°ΠΌΠ΅Π½Ρ‹ Π² Π·Π°Π΄Π°Π½Π½ΠΎΠΉ строкС тСкста Π½Π°ΠΉΡ‚ΠΈ тСкстом Π·Π°ΠΌΠ΅Π½ΠΈΡ‚ΡŒ. АргумСнты старт, число_Π·Π°ΠΌΠ΅Π½ ΠΈ ΠΌΠ΅Ρ‚ΠΎΠ΄_сравнСния Π½Π΅ ΠΎΠ±ΡΠ·Π°Ρ‚Π΅Π»ΡŒΠ½Ρ‹. Π˜ΡΠΏΠΎΠ»ΡŒΠ·ΡƒΠΉΡ‚Π΅ число_Π·Π°ΠΌΠ΅Π½, Ρ‡Ρ‚ΠΎΠ±Ρ‹ ΡƒΠΊΠ°Π·Π°Ρ‚ΡŒ, сколько Π·Π°ΠΌΠ΅Π½ слСдуСт ΡΠ΄Π΅Π»Π°Ρ‚ΡŒ, Ссли тСкст Π½Π°ΠΉΡ‚ΠΈ встрСчаСтся нСсколько Ρ€Π°Π· (ΠΏΠΎ ΡƒΠΌΠΎΠ»Ρ‡Π°Π½ΠΈΡŽ Π·Π°ΠΌΠ΅Π½ΡΡŽΡ‚ΡΡ всС случаи появлСния тСкста Π½Π°ΠΉΡ‚ΠΈ Π² строкС)

Right (строка, Π΄Π»ΠΈΠ½Π°)

Ѐункция

Π‘Ρ‚Ρ€ΠΎΠΊΠ° ΡƒΠΊΠ°Π·Π°Π½Π½ΠΎΠΉ Π΄Π»ΠΈΠ½Ρ‹ ΠΈΠ· символов, взятых подряд ΠΈΠ· строки, Π·Π°Π΄Π°Π²Π°Π΅ΠΌΠΎΠΉ Π°Ρ€Π³ΡƒΠΌΠ΅Π½Ρ‚ΠΎΠΌ строка, начиная с ΠΏΡ€Π°Π²ΠΎΠ³ΠΎ края послСднСй

RSet строковая_ пСрСмСнсная = строка

ΠžΠΏΠ΅Ρ€Π°Ρ‚ΠΎΡ€

УстанавливаСт Π·Π½Π°Ρ‡Π΅Π½ΠΈΠ΅ строковой ΠΏΠ΅Ρ€Π΅ΠΌΠ΅Π½Π½ΠΎΠΉ, Ρ€Π°Π²Π½ΠΎΠ΅ Π·Π°Π΄Π°Π½Π½ΠΎΠΉ строкС, Π±Π΅Π· измСнСния Π΄Π»ΠΈΠ½Ρ‹ этой строковой ΠΏΠ΅Ρ€Π΅ΠΌΠ΅Π½Π½ΠΎΠΉ ΠΈ с Ρ€Π°Π·ΠΌΠ΅Ρ‰Π΅Π½ΠΈΠ΅ΠΌ Π·Π°Π΄Π°Π½Π½ΠΎΠΉ строки с ΠΏΡ€Π°Π²ΠΎΠ³ΠΎ края ΠΏΠ΅Ρ€Π΅ΠΌΠ΅Π½Π½ΠΎΠΉ

RTrim (строка)

Ѐункция

Новая строка, содСрТащая копию Π΄Π°Π½Π½ΠΎΠΉ строки Π±Π΅Π· ΠΏΡ€ΠΎΠ±Π΅Π»ΠΎΠ² Π² ΠΊΠΎΠ½Ρ†Π΅

Space (число)

Ѐункция

Π‘Ρ‚Ρ€ΠΎΠΊΠ°, состоящая ΠΈΠ· ΡƒΠΊΠ°Π·Π°Π½Π½ΠΎΠ³ΠΎ числа ΠΏΡ€ΠΎΠ±Π΅Π»ΠΎΠ²

Split(строка, Ρ€Π°Π·Π΄Π΅Π»ΠΈΡ‚Π΅Π»ΡŒ, ΠΏΡ€Π΅Π΄Π΅Π», ΠΌΠ΅Ρ‚ΠΎΠ΄ сравнСния)

Ѐункция (Ρ‚ΠΎΠ»ΡŒΠΊΠΎ B VBA6)

Массив строк, ΠΏΠΎΠ»ΡƒΡ‡Π΅Π½Π½Ρ‹ΠΉ Π² Ρ€Π΅Π·ΡƒΠ»ΡŒΡ‚Π°Ρ‚Π΅ раздСлСния Π² Π·Π°Π΄Π°Π½Π½ΠΎΠΉ строки. По ΡƒΠΌΠΎΠ»Ρ‡Π°Π½ΠΈΡŽ ΠΎΡ€ΠΈΠ³ΠΈΠ½Π°Π»ΡŒΠ½Π°Ρ строка раздСляСтся ΠΏΠΎ ΠΏΡ€ΠΎΠ±Π΅Π»Π°ΠΌ, Π½ΠΎ ΠΌΠΎΠΆΠ½ΠΎ Π·Π°Π΄Π°Ρ‚ΡŒ Ρ€Π°Π·Π΄Π΅Π»ΠΈΡ‚Π΅Π»ΡŒ, ΠΎΡ‚Π»ΠΈΡ‡Π½Ρ‹ΠΉ ΠΎΡ‚ ΠΏΡ€ΠΎΠ±Π΅Π»Π° (для задания раздСлитСля ΠΈΡΠΏΠΎΠ»ΡŒΠ·ΡƒΠΉΡ‚Π΅ символ, Π·Π°ΠΊΠ»ΡŽΡ‡Π΅Π½Π½Ρ‹ΠΉ Π² ΠΊΠ°Π²Ρ‹Ρ‡ΠΊΠΈ). ΠΠ΅ΠΎΠ±ΡΠ·Π°Ρ‚Π΅Π»ΡŒΠ½Ρ‹ΠΉ Π°Ρ€Π³ΡƒΠΌΠ΅Π½Ρ‚ ΠΏΡ€Π΅Π΄Π΅Π» Π·Π°Π΄Π°Π΅Ρ‚ максимальноС число строк Π² Π²ΠΎΠ·Π²Ρ€Π°Ρ‰Π°Π΅ΠΌΠΎΠΌ массивС

StrComp(строка1, строка2)

Ѐункция

О, Ссли Π΄Π²Π΅ строки Ρ€Π°Π²Π½Ρ‹; -1,Ссли строка 1 мСньшС, Ρ‡Π΅ΠΌ строка 2; 1, Ссли строка! большС, Ρ‡Π΅ΠΌ строка 2 (ΠΎ сравнСнии строк Π³ΠΎΠ²ΠΎΡ€ΠΈΠ»ΠΎΡΡŒ Π² Π³Π»Π°Π²Π΅ 9)

StrConv(строка, ΠΌΠ΅Ρ‚ΠΎΠ΄ ΠΏΠ΅Ρ€Π΅Π²ΠΎΠ΄Π°)

Ѐункция

Новая строка, созданная Π½Π° основС Π·Π°Π΄Π°Π½Π½ΠΎΠΉ ΡƒΠΊΠ°Π·Π°Π½Π½Ρ‹ΠΌ ΠΌΠ΅Ρ‚ΠΎΠ΄ΠΎΠΌ ΠΏΠ΅Ρ€Π΅Π²ΠΎΠ΄Π°

String(число, символ)

Ѐункция

Π‘Ρ‚Ρ€ΠΎΠΊΠ°, состоящая ΠΈΠ· Π·Π°Π΄Π°Π½Π½ΠΎΠ³ΠΎ числа ΠΏΠΎΠ²Ρ‚ΠΎΡ€ΡΡŽΡ‰ΠΈΡ…ΡΡ символов

StrReverse (строка)

Ѐункция(Ρ‚ΠΎΠ»ΡŒΠΊΠΎ VBA 6)

Π‘Ρ‚Ρ€ΠΎΠΊΠ°, содСрТащая символы Π·Π°Π΄Π°Π½Π½ΠΎΠΉ строки Π² ΠΎΠ±Ρ€Π°Ρ‚Π½ΠΎΠΌ порядкС

Trim(строка)

Ѐункция

Новая строка, содСрТащая копию Π΄Π°Π½Π½ΠΎΠΉ строки Π±Π΅Π· ΠΏΡ€ΠΎΠ±Π΅Π»ΠΎΠ² Π² Π½Π°Ρ‡Π°Π»Π΅ ΠΈ ΠΊΠΎΠ½Ρ†Π΅

UCase(строка)

Ѐункция

Копия строки, прСдставлСнная символами Π²Π΅Ρ€Ρ…Π½Π΅Π³ΠΎ рСгистра


НС Ρ€Π°ΡΡΡ‚Ρ€Π°ΠΈΠ²Π°ΠΉΡ‚Π΅ΡΡŒ, Ссли Π½Π΅ ΠΎΠ±Π½Π°Ρ€ΡƒΠΆΠΈΡ‚Π΅ ΡΡ‚Ρ€ΠΎΠΊΠΎΠ²ΡƒΡŽ Ρ„ΡƒΠ½ΠΊΡ†ΠΈΡŽ, которая Π΄Π΅Π»Π°Π΅Ρ‚ Π² точности Ρ‚ΠΎ, Ρ‡Ρ‚ΠΎ Π²Π°ΠΌ Π½ΡƒΠΆΠ½ΠΎ. ВоспринимайтС эти Ρ„ΡƒΠ½ΠΊΡ†ΠΈΠΈ ΠΊΠ°ΠΊ ΡΡ‚Ρ€ΠΎΠΈΡ‚Π΅Π»ΡŒΠ½Ρ‹Π΅ Π±Π»ΠΎΠΊΠΈ - часто для достиТСния Π½ΡƒΠΆΠ½ΠΎΠ³ΠΎ Ρ€Π΅Π·ΡƒΠ»ΡŒΡ‚Π°Ρ‚Π° эти Ρ„ΡƒΠ½ΠΊΡ†ΠΈΠΈ приходится Π²ΠΊΠ»Π°Π΄Ρ‹Π²Π°Ρ‚ΡŒ ΠΎΠ΄Π½Ρƒ Π² Π΄Ρ€ΡƒΠ³ΡƒΡŽ.

ΠŸΡ€Π΅Π΄ΡΡ‚Π°Π²ΠΈΠΌ, Π½Π°ΠΏΡ€ΠΈΠΌΠ΅Ρ€, Ρ‡Ρ‚ΠΎ Ρƒ вас Π΅ΡΡ‚ΡŒ список ΠΏΠΎΠ»Π½Ρ‹Ρ… ΠΈΠΌΠ΅Π½ Π² Π²ΠΈΠ΄Π΅ ΡΠ»Π΅Π΄ΡƒΡŽΡ‰ΠΈΡ… строк:

"Π‘Π°ΠΌΠΎΠ΄ΡƒΡ€, Иван АкакиСвич, Π°ΠΊΠ°Π΄."

"НСвСсСлый, Π‘Ρ‚Π΅ΠΏΠ°Π½ Π€Π΅Π΄ΠΎΡ€ΠΎΠ²ΠΈΡ‡, ΠΏΡ€ΠΎΡ„."

"Π¨ΡƒΡ‚Π½ΠΈΠΊ, Василий Π‘Ρ‚Π΅ΠΏΠ°Π½ΠΎΠ²ΠΈΡ‡, ΠΊΠ°Π½Π΄."

(Ρ‚Π°ΠΊΠΎΠΉ список Π΄ΠΎΠ»ΠΆΠ΅Π½ Ρ…Ρ€Π°Π½ΠΈΡ‚ΡŒΡΡ Π² массивС строк; массивы Π±ΡƒΠ΄ΡƒΡ‚ Ρ€Π°ΡΡΠΌΠ°Ρ‚Ρ€ΠΈΠ²Π°Ρ‚ΡŒΡΡ Π² Π³Π»Π°Π²Π΅ 13).

ΠŸΡ€Π΅Π΄ΠΏΠΎΠ»ΠΎΠΆΠΈΠΌ, Ρ‡Ρ‚ΠΎ ΠΊΡ‚ΠΎ-Ρ‚ΠΎ заставил вас ΡƒΠ±Ρ€Π°Ρ‚ΡŒ звания Π² ΠΊΠΎΠ½Ρ†Π΅ ΠΊΠ°ΠΆΠ΄ΠΎΠΉ ΠΈΠ· Π²Ρ‹ΡˆΠ΅ΠΏΡ€ΠΈΠ²Π΅Π΄Π΅Π½Π½Ρ‹Ρ… строк. ИмСна Π² спискС ΠΈΠΌΠ΅ΡŽΡ‚ Ρ€Π°Π·Π½ΡƒΡŽ Π΄Π»ΠΈΠ½Ρƒ, Ρ‚Π°ΠΊ Ρ‡Ρ‚ΠΎ Π³ΠΎΡ‚ΠΎΠ²Ρ‹Π΅ Ρ„ΡƒΠ½ΠΊΡ†ΠΈΠΈ Π·Π°Π΄Π°Ρ‡Ρƒ Π½Π΅ Ρ€Π΅ΡˆΠ°ΡŽΡ‚.

Но Ссли ΠΏΡ€Π΅Π΄ΠΏΠΎΠ»ΠΎΠΆΠΈΡ‚ΡŒ, Ρ‡Ρ‚ΠΎ ΠΎΡ€ΠΈΠ³ΠΈΠ½Π°Π»ΡŒΠ½ΠΎΠ΅ имя содСрТится Π² ΠΏΠ΅Ρ€Π΅ΠΌΠ΅Π½Π½ΠΎΠΉ str-Бтарая, Ρ‚ΠΎ ΠΏΠΎΠΌΠΎΠΆΠ΅Ρ‚ ΡΠ»Π΅Π΄ΡƒΡŽΡ‰ΠΈΠΉ Ρ‚Ρ€ΡŽΠΊ:

strНовая = Left(strБтарая, Len(strБтарая) - 7)

Если Π±Ρ‹ VBA Ρ‡ΠΈΡ‚Π°Π» ΠΊΠ½ΠΈΠ³ΠΈ вмСсто ΠΏΡ€ΠΎΠ³Ρ€Π°ΠΌΠΌΠ½ΠΎΠ³ΠΎ ΠΊΠΎΠ΄Π°, я объяснил Π±Ρ‹ Π΅ΠΌΡƒ, Ρ‡Ρ‚ΠΎ эти дСйствия ΠΌΠΎΠΆΠ½ΠΎ Π²Ρ‹ΠΏΠΎΠ»Π½ΠΈΡ‚ΡŒ ΡΠ»Π΅Π΄ΡƒΡŽΡ‰ΠΈΠΌ ΠΎΠ±Ρ€Π°Π·ΠΎΠΌ.

1. Π‘Π½Π°Ρ‡Π°Π»Π° вызываСтся функция Len, которая вычисляСт Π΄Π»ΠΈΠ½Ρƒ ΠΎΡ€ΠΈΠ³ΠΈΠ½Π°Π»ΡŒΠ½ΠΎΠΉ строки.

2. Из Ρ€Π΅Π·ΡƒΠ»ΡŒΡ‚Π°Ρ‚Π°, ΠΏΠΎΠ»ΡƒΡ‡Π΅Π½Π½ΠΎΠ³ΠΎ Π² ΠΏ. 1, вычитаСтся 7, ΠΏΠΎΡΠΊΠΎΠ»ΡŒΠΊΡƒ ΠΊΠ°ΠΆΠ΄ΠΎΠ΅ ΠΈΠ· Π·Π²Π°Π½ΠΈΠΉ Π·Π°Π½ΠΈΠΌΠ°Π΅Ρ‚ сСмь символов Π² ΠΊΠΎΠ½Ρ†Π΅ строки (Π²ΠΊΠ»ΡŽΡ‡Π°Ρ Π·Π°ΠΏΡΡ‚ΡƒΡŽ ΠΈ ΠΏΡ€ΠΎΠ±Π΅Π»).

Π’ Ρ€Π΅Π·ΡƒΠ»ΡŒΡ‚Π°Ρ‚Π΅ получится число, ΠΊΠΎΡ‚ΠΎΡ€ΠΎΠΌΡƒ Π΄ΠΎΠ»ΠΆΠ½Π° Π±Ρ‹Ρ‚ΡŒ Ρ€Π°Π²Π½Π° Π΄Π»ΠΈΠ½Π° Π½ΠΎΠ²ΠΎΠΉ строки.

3. ВызываСтся функция Left, ΠΈΡΠΏΠΎΠ»ΡŒΠ·ΡƒΡŽΡ‰Π°Ρ Π²Ρ‹Ρ‡ΠΈΡΠ»Π΅Π½Π½ΡƒΡŽ Π΄Π»ΠΈΠ½Ρƒ Π² качСствС значСния Π²Ρ‚ΠΎΡ€ΠΎΠ³ΠΎ Π°Ρ€Π³ΡƒΠΌΠ΅Π½Ρ‚Π°.

Ѐункция Left Ρ‡ΠΈΡ‚Π°Π΅Ρ‚ ΡΡ‚ΠΎΠ»ΡŒΠΊΠΎ символов, сколько Π·Π°Π΄Π°Π½ΠΎ Π²Ρ‚ΠΎΡ€Ρ‹ΠΌ Π°Ρ€Π³ΡƒΠΌΠ΅Π½Ρ‚ΠΎΠΌ, ΠΈΠ· строки, ΡƒΠΊΠ°Π·Π°Π½Π½ΠΎΠΉ ΠΏΠ΅Ρ€Π²Ρ‹ΠΌ Π°Ρ€Π³ΡƒΠΌΠ΅Π½Ρ‚ΠΎΠΌ, возвращая Ρ‚ΠΎΠ»ΡŒΠΊΠΎ эти ΠΏΡ€ΠΎΡ‡ΠΈΡ‚Π°Π½Π½Ρ‹Π΅ символы.

4. Новая, Π±ΠΎΠ»Π΅Π΅ короткая строка, возвращСнная Ρ„ΡƒΠ½ΠΊΡ†ΠΈΠ΅ΠΉ Left, присваиваСтся ΠΏΠ΅Ρ€Π΅ΠΌΠ΅Π½Π½ΠΎΠΉ

ΠŸΡ€ΠΎΠ΄ΠΎΠ»ΠΆΠ°Ρ Ρ€Π°Π±ΠΎΡ‚Π°Ρ‚ΡŒ с Π½ΠΎΠ²Ρ‹ΠΌ списком ΡƒΠΆΠ΅ Π±Π΅Π· Π·Π²Π°Π½ΠΈΠΉ, ΠΏΡ€Π΅Π΄ΠΏΠΎΠ»ΠΎΠΆΠΈΠΌ, Ρ‡Ρ‚ΠΎ Ρ‚Π΅ΠΏΠ΅Ρ€ΡŒ вас попросили ΠΈΠ·Π²Π»Π΅Ρ‡ΡŒ ΠΈΠΌΠ΅Π½Π° с отчСствами ΠΈ ΠΏΠΎΠΌΠ΅ΡΡ‚ΠΈΡ‚ΡŒ ΠΈΡ… Π² Π½ΠΎΠ²Ρ‹ΠΉ список. Π­Ρ‚Ρƒ Π·Π°Π΄Π°Ρ‡Ρƒ ΠΌΠΎΠΆΠ½ΠΎ Π²Ρ‹ΠΏΠΎΠ»Π½ΠΈΡ‚ΡŒ с ΠΏΠΎΠΌΠΎΡ‰ΡŒΡŽ ΡΠ»Π΅Π΄ΡƒΡŽΡ‰Π΅Π³ΠΎ ΠΎΠΏΠ΅Ρ€Π°Ρ‚ΠΎΡ€Π°:

strMMfl = Mid (strHoBafl, InStr (str-Новая, ",") + 2)

Ѐункция Mid ΠΈΠ·Π²Π»Π΅ΠΊΠ°Π΅Ρ‚ символы ΠΈΠ· любого мСста Π² строкС, ΠΊΠΎΡ‚ΠΎΡ€ΡƒΡŽ Π²Ρ‹ ΡƒΠΊΠ°ΠΆΠ΅Ρ‚Π΅ Π² Π²ΠΈΠ΄Π΅ Π°Ρ€Π³ΡƒΠΌΠ΅Π½Ρ‚Π°. Π’Ρ‚ΠΎΡ€ΠΎΠΉ ΠΆΠ΅ Π°Ρ€Π³ΡƒΠΌΠ΅Π½Ρ‚ этой Ρ„ΡƒΠ½ΠΊΡ†ΠΈΠΈ Π³ΠΎΠ²ΠΎΡ€ΠΈΡ‚, с ΠΊΠ°ΠΊΠΎΠ³ΠΎ мСста Π² этой строкС слСдуСт Π½Π°Ρ‡Π°Ρ‚ΡŒ ΠΈΠ·Π²Π»Π΅Ρ‡Π΅Π½ΠΈΠ΅ символов. Π’ Π΄Π°Π½Π½ΠΎΠΌ случаС этот Π°Ρ€Π³ΡƒΠΌΠ΅Π½Ρ‚ прСдставляСт собой Π²Ρ‹Ρ€Π°ΠΆΠ΅Π½ΠΈΠ΅, состоящСС ΠΈΠ· Ρ„ΡƒΠ½ΠΊΡ†ΠΈΠΈ InStr плюс 2.

Ѐункция InStr ΠΈΡ‰Π΅Ρ‚ Π² Π·Π°Π΄Π°Π½Π½ΠΎΠΉ строкС (ΠΏΠ΅Ρ€Π²Ρ‹ΠΉ Π°Ρ€Π³ΡƒΠΌΠ΅Π½Ρ‚) Π΄Ρ€ΡƒΠ³ΡƒΡŽ строку (Π²Ρ‚ΠΎΡ€ΠΎΠΉ Π°Ρ€Π³ΡƒΠΌΠ΅Π½Ρ‚).

Π’ Π΄Π°Π½Π½ΠΎΠΌ случаС Π²Ρ‚ΠΎΡ€ΠΎΠΉ Π°Ρ€Π³ΡƒΠΌΠ΅Π½Ρ‚ - это запятая, которая Π² спискС слСдуСт Π·Π° Ρ„Π°ΠΌΠΈΠ»ΠΈΠ΅ΠΉ. Π—Π½Π°Ρ‡Π΅Π½ΠΈΠ΅, ΠΊΠΎΡ‚ΠΎΡ€ΠΎΠ΅ Π²ΠΎΠ·Π²Ρ€Π°Ρ‰Π°Π΅Ρ‚ InStr, соотвСтствуСт Π½ΠΎΠΌΠ΅Ρ€Ρƒ ΠΏΠΎΠ·ΠΈΡ†ΠΈΠΈ Π² ΠΏΠ΅Ρ€Π²ΠΎΠΉ строкС, Π³Π΄Π΅ встрСчаСтся вторая строка, - Ρ‚Π΅ΠΏΠ΅Ρ€ΡŒ Π²Ρ‹ Π·Π½Π°Π΅Ρ‚Π΅, Π³Π΄Π΅ заканчиваСтся фамилия.

К Π·Π½Π°Ρ‡Π΅Π½ΠΈΡŽ, Π²ΠΎΠ·Π²Ρ€Π°Ρ‰Π΅Π½Π½ΠΎΠΌΡƒ Ρ„ΡƒΠ½ΠΊΡ†ΠΈΠ΅ΠΉ InStr, добавляСтся 2, Ρ‡Ρ‚ΠΎΠ±Ρ‹ ΠΏΡ€ΠΎΠΏΡƒΡΡ‚ΠΈΡ‚ΡŒ Π·Π°ΠΏΡΡ‚ΡƒΡŽ ΠΈ ΡΠ»Π΅Π΄ΡƒΡŽΡ‰ΠΈΠΉ Π·Π° Π½Π΅ΠΉ ΠΏΡ€ΠΎΠ±Π΅Π» ΠΈ Π½Π°ΠΉΡ‚ΠΈ ΠΏΠΎΠ·ΠΈΡ†ΠΈΡŽ, с ΠΊΠΎΡ‚ΠΎΡ€ΠΎΠΉ начинаСтся имя. Π’Π΅ΠΏΠ΅Ρ€ΡŒ функция Mid ΠΈΠ·Π²Π»Π΅Ρ‡Π΅Ρ‚ символы, начиная с этого мСста ΠΈ Π΄ΠΎ ΠΊΠΎΠ½Ρ†Π° строки (ΠΏΠΎΡΠΊΠΎΠ»ΡŒΠΊΡƒ Π½Π΅ ΡƒΠΊΠ°Π·Π°Π½ Ρ‚Ρ€Π΅Ρ‚ΠΈΠΉ, Π½Π΅ΠΎΠ±ΡΠ·Π°Ρ‚Π΅Π»ΡŒΠ½Ρ‹ΠΉ Π°Ρ€Π³ΡƒΠΌΠ΅Π½Ρ‚ Π΄Π»ΠΈΠ½Π°).

Π’ Ρ€Π΅Π°Π»ΡŒΠ½ΠΎΠΌ ΠΏΡ€ΠΎΠ³Ρ€Π°ΠΌΠΌΠΈΡ€ΠΎΠ²Π°Π½ΠΈΠΈ Ρ€Π°Π±ΠΎΡ‚Π΅ с Π΄Π°Ρ‚Π°ΠΌΠΈ ΠΈ Π²Ρ€Π΅ΠΌΠ΅Π½Π΅ΠΌ отводится Π΄Π°Π»Π΅ΠΊΠΎ Π½Π΅ послСдняя, Π° часто ΠΈ главная Ρ€ΠΎΠ»ΡŒ. ΠŸΠΎΡΡ‚ΠΎΠΌΡƒ VBA ΠΏΡ€Π΅Π΄Π»Π°Π³Π°Π΅Ρ‚ ряд ΠΎΠΏΠ΅Ρ€Π°Ρ‚ΠΎΡ€ΠΎΠ² ΠΈ Ρ„ΡƒΠ½ΠΊΡ†ΠΈΠΉ, ΠΏΠΎΠ·Π²ΠΎΠ»ΡΡŽΡ‰ΠΈΡ… Π²Ρ‹ΡΡΠ½ΠΈΡ‚ΡŒ Ρ‚Π΅ΠΊΡƒΡ‰ΠΈΠ΅ врСмя ΠΈ Π΄Π°Ρ‚Ρƒ, ΠΏΡ€ΠΎΠ²ΠΎΠ΄ΠΈΡ‚ΡŒ вычислСния с Π΄Π°Ρ‚Π°ΠΌΠΈ ΠΈ ΠΈΠ·Π²Π»Π΅ΠΊΠ°Ρ‚ΡŒ ΠΈΠ· ΠΏΠ΅Ρ€Π΅ΠΌΠ΅Π½Π½Ρ‹Ρ… со значСниями Π΄Π°Ρ‚ Ρ€Π°Π·Π»ΠΈΡ‡Π½Ρ‹Π΅ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½Ρ‚Ρ‹ Ρ‚ΠΈΠΏΠ° Π²Ρ€Π΅ΠΌΠ΅Π½ΠΈ, Π³ΠΎΠ΄Π° ΠΈΠ»ΠΈ дня Π½Π΅Π΄Π΅Π»ΠΈ.

Π’ Ρ‚Π°Π±Π». 11.4 прСдставлСно описаниС Ρ‚Π°ΠΊΠΈΡ… ΠΊΠΎΠΌΠ°Π½Π΄. Π£ Π½Π΅ΠΊΠΎΡ‚ΠΎΡ€Ρ‹Ρ… Ρ„ΡƒΠ½ΠΊΡ†ΠΈΠΉ Π² этой Ρ‚Π°Π±Π»ΠΈΡ†Π΅ ΠΎΠΏΡƒΡ‰Π΅Π½Ρ‹ Π½Π΅ΠΎΠ±ΡΠ·Π°Ρ‚Π΅Π»ΡŒΠ½Ρ‹Π΅ Π°Ρ€Π³ΡƒΠΌΠ΅Π½Ρ‚Ρ‹ - Π²Ρ‹ всСгда смоТСтС ΡƒΡ‚ΠΎΡ‡Π½ΠΈΡ‚ΡŒ Π΄Π΅Ρ‚Π°Π»ΠΈ ΠΏΠΎ справкС VBA.

ПослС Ρ‚Π°Π±Π»ΠΈΡ†Ρ‹ нСсколько Π½Π°ΠΈΠ±ΠΎΠ»Π΅Π΅ Π²Π°ΠΆΠ½Ρ‹Ρ… ΠΊΠΎΠΌΠ°Π½Π΄, относящихся ΠΊ Π΄Π°Ρ‚Π°ΠΌ ΠΈ Π²Ρ€Π΅ΠΌΠ΅Π½ΠΈ, Ρ€Π°ΡΡΠΌΠ°Ρ‚Ρ€ΠΈΠ²Π°ΡŽΡ‚ΡΡ ΠΏΠΎΠ΄Ρ€ΠΎΠ±Π½Π΅Π΅.

Π§Ρ‚ΠΎΠ±Ρ‹ Π²ΠΎΡΠΏΠΎΠ»ΡŒΠ·ΠΎΠ²Π°Ρ‚ΡŒΡΡ прСдоставляСмым здСсь ΠΌΠ°Ρ‚Π΅Ρ€ΠΈΠ°Π»ΠΎΠΌ, Π²Ρ‹ Π΄ΠΎΠ»ΠΆΠ½Ρ‹ ясно ΠΏΡ€Π΅Π΄ΡΡ‚Π°Π²Π»ΡΡ‚ΡŒ, ΠΊΠ°ΠΊ VBA ΠΎΠ±Ρ€Π°Π±Π°Ρ‚Ρ‹Π²Π°Π΅Ρ‚ значСния Π΄Π°Ρ‚ ΠΈ Π²Ρ€Π΅ΠΌΠ΅Π½ΠΈ ΠΈ ΠΊΠ°ΠΊ Ρ€Π°Π±ΠΎΡ‚Π°Ρ‚ΡŒ с ΠΏΠ΅Ρ€Π΅ΠΌΠ΅Π½Π½Ρ‹ΠΌΠΈ, хранящими Π΄Π°Ρ‚Ρ‹ (см. Π³Π»Π°Π²Ρƒ 7).