Нижче ми розглянемо програму в Excel VBA що розділяє рядки.
Ситуація:
Помістіть команду на робочому аркуші та додайте такі рядки коду:
1. По -перше, ми оголошуємо змінну під назвою повне ім'я типу String, змінну, що називається командою типу Integer, і змінну, що називається i типу Integer.
Затемнити повне ім'я як рядок, команда як ціле число, i як ціле число
Проблема, з якою ми маємо справу, полягає в тому, що нам потрібно сказати Excel VBA, де ми хочемо розділити рядок. У випадку Сміта кома Майка знаходиться на позиції 6, тоді як у випадку Вільямса, Джанет кома знаходиться на позиції 9.
2. Ми використовуємо цикл для виконання операцій над кожним ім'ям, введеним у Excel. Спочатку ми ініціалізуємо змінну fullname. Далі ми використовуємо функцію Instr для пошуку позиції коми.
Для i = 2 до 7
fullname = Клітинки (i, 1). Значення
commandposition = InStr (повне ім'я, ",")
3. Нарешті, ми хочемо записати частину після коми до стовпця B і частину перед комою до стовпця C. Ви можете досягти цього, додавши рядки:
Клітинки (i, 2). Значення = середнє (повне ім'я, команда + 2)
Клітинки (i, 3). Значення = ліворуч (повне ім’я, команда - 1)
Mid (повне ім'я, команда + 2) означає, що ми хочемо частину повного імені, починаючи з символу 'commandposition + 2' (це саме ім'я).
Ліворуч (повне ім'я, команда - 1) означає, що ми хочемо, щоб частина повного імені починалася з початку до символу "commandposition -1" (це саме прізвище).
4. Не забудьте закрити цикл.
Далі i
5. Додайте шість назв, розділених комами та пробілами, до діапазону ("A2: A7").
6. Перевірте програму.
Результат: