Овај водич ће показати како се помоћу функције Замени ВБА замени низови текста.
Замени функцију
Функција ВБА Реплаце враћа низ са заменом. Коришћењем опционих параметара, нови низ може започети на месту наведеном почетком и завршава на крају оригиналног низа.
ВБА Реплаце Замените подниз
Функција ВБА Реплаце може се користити за замену било ког пронађеног подниза, у сваком његовом делу.
| 12345678910111213141516 | Суб РеплацеЕкампле_1 ()МсгБок Реплаце ("АБЦАБЦАБЦ", "А", "!")'Резултат је: "! БЦ! БЦ! БЦ"МсгБок Реплаце ("Волим ружичасту, црвену и црну", "ружичасту", "љубичасту")'Резултат је: "Волим љубичасту, црвену и црну"МсгБок Реплаце ("А, Б, Ц, А, Б, Ц, А, Б, Ц", ",", ",")'Резултат је: "АБЦАБЦАБЦ"МсгБок Реплаце ("АБЦАБЦАБЦ", "АБЦ", "!")'Резултат је: "!!!"МсгБок Реплаце ("АБЦАБЦАБЦ", "АБц", "!")'Резултат је: "АБЦАБЦАБЦ"МсгБок Реплаце ("АБЦАБЦАБЦ", "ЗБЦ", "!")'Резултат је: "АБЦАБЦАБЦ"Енд Суб |
ВБА Замените почетну позицију
Функција ВБА Реплаце може се користити за замену било ког пронађеног подниза, у сваком његовом делу. Ако доделимо почетну позицију, резултат би био део оригиналног низа после те почетне тачке.
| 12345678910111213 | Суб РеплацеЕкампле_2 ()МсгБок Реплаце ("АБЦАБЦАБЦ", "А", "123") 'Резултат је: "123БЦ123БЦ123БЦ"МсгБок Реплаце ("АБЦАБЦАБЦ", "А", "123", 2) 'Резултат је: "БЦ123БЦ123БЦ"МсгБок Реплаце ("АБЦАБЦАБЦ", "А", "123", 7) 'Резултат је: "123БЦ"МсгБок Реплаце ("АБЦАБЦАБЦ", "А", "123", 8) 'Резултат је: "БЦ"МсгБок Реплаце ("АБЦАБЦАБЦ", "АБЦ", "!@") 'Резултат је: "!@!@!@"МсгБок Реплаце ("АБЦАБЦАБЦ", "АБЦ", "!@", 2) 'Резултат је: "БЦ!@!@"МсгБок Реплаце ("АБЦАБЦАБЦ", "АБЦ", "!@", 6) 'Резултат је: "Ц!@"МсгБок Реплаце ("АБЦАБЦАБЦ", "АБЦ", "!@", 7) 'Резултат је: "!@"МсгБок Реплаце ("АБЦАБЦАБЦ", "АБЦ", "!@", 8) 'Резултат је: "БЦ"Енд Суб |
ВБА замени само неколико појава
Функција ВБА Реплаце може се користити за замену било ког пронађеног подниза, у сваком његовом делу. Опционо можемо одлучити колико појављивања треба заменити.
| 123456789101112 | Суб РеплацеЕкампле_3 ()МсгБок Реплаце ("АБЦАБЦАБЦ", "А", "12") 'Резултат је: "12БЦ12БЦ12БЦ"МсгБок Реплаце ("АБЦАБЦАБЦ", "А", "12",, 1) 'Резултат је: "12БЦАБЦАБЦ"МсгБок Реплаце ("АБЦАБЦАБЦ", "А", "12",, 2) 'Резултат је: "12БЦ12БЦАБЦ"МсгБок Реплаце ("АБЦАБЦАБЦ", "А", "12",, 3) 'Резултат је: "12БЦ12БЦ12БЦ"МсгБок Реплаце ("АБЦАБЦАБЦ", "А", "12",, 5) 'Резултат је: "12БЦ12БЦ12БЦ"МсгБок Реплаце ("АБЦАБЦАБЦ", "А", "12", 3, 1)'Резултат је: "Ц12БЦАБЦ"„Заменили смо А са 12, 1 пут почевши од позиције 3 оригиналног низа.Енд Суб |
ВБА замена осетљивости великих и малих слова
ВБА функција замене подразумевано разликује велика и мала слова. То понашање можете променити на велика и мала слова помоћу опционалног параметра (вбТектЦомпаре). У том случају морате дефинисати и почетну позицију претраживања.
| 12345678910111213 | Суб РеплацеЕкампле_4 ()МсгБок Реплаце ("АБцАБЦАБц", "АБц", "12")'Резултат је: "12АБЦ12"МсгБок Реплаце ("АБцАБЦАБц", "АБц", "12",,, вбТектЦомпаре)'Резултат је: "121212"'Када користимо вбТектЦомпаре, морамо додати 2 друга опционална аргумента:'почни и рачунајМсгБок Реплаце ("АБцАБЦАБцАБц", "АБц", "12", 3, 1)'Резултат је: "цАБЦ12АБц"'Почео са позиције 3 и заменио АБЦ само 1 пут.Енд Суб |
Такође можете извршити замену која не разликује велика и мала слова додавањем опције Упореди текст на врх модула:
| 1 | Опција Упореди текст |
ВБА Замените двоструке цитате
ВБА Реплаце функција може заменити знак двоструких наводника који се користи за разграничење почетка и краја низа.
ВБА Цхр функција може вратити знак из његовог броја у скупу знакова.
| 1 | МсгБок Цхр (34) 'Резултат је: " |
Ор
| 1 | МсгБок Цхр (64) 'Резултат је: @ |
Двоструки наводници се могу користити унутар функције ВБА Реплаце помоћу “” ”” или ВБА функције Цхр (34).
| 12345678910111213 | Суб РеплацеЕкампле_5 ()Дим СтрЕк као низСтрЕк = "АБ" "АБ" ""МсгБок СтрЕк 'Резултат је: АБ "АБ"МсгБок Реплаце (СтрЕк, Цхр (34), "12")'Резултат је: АБ12АБ12МсгБок Реплаце (СтрЕк, "" "", "ДК")'Резултат је: "АБДКАБДК"Енд Суб |
ВБА замени линију прекида у ћелији
Функција ВБА Реплаце може пронаћи специјални знак линије прелома у ћелији и уклонити га или га заменити размаком. Специјални знак линије прелома може се унети у ћелију помоћу тастерске пречице Алт+Ентер и може се користити у ВБА коду са бројем скупа знакова помоћу ВБА функције Цхр (10).
| 1234567891011121314 | Суб РеплацеЕкампле_6 ()Дим СтрЕк Ас Стринг 'Дефинишите променљиву низа„Прочитајте вредност ћелије А2 у листу 1СтрЕк = ТхисВоркбоок.Ворксхеетс ("Схеет1"). Ранге ("А2"). Валуе'Знак линије прелома унет са Алт+Ентер је Цхр (10) и невидљив је.„Ова линија кода замењује тај знак размакомСтрЕк = Замени (СтрЕк, Цхр (10), "")'Замените замењену вредност у ћелију Б2 на листу радног листа1ТхисВоркбоок.Ворксхеетс ("Схеет1"). Ранге ("Б2"). Валуе = СтрЕкЕнд Суб |
