powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / translit
6 сообщений из 6, страница 1 из 1
translit
    #34631141
qazwsx11
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Привет. Как можно делать так что бы функци "translit" (кнопка "translit") работала не только для столбец "A", а для всех столбец который есть в данном листе?
...
Рейтинг: 0 / 0
translit
    #34631147
qazwsx11
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
...
Рейтинг: 0 / 0
translit
    #34631252
Фотография gjghjc
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Ты код кнопки видел????
Или не добрался до него?

С уважением, Николай.
...
Рейтинг: 0 / 0
translit
    #34631271
qazwsx11
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Код кнопки видел и кое-что менял там. Знаю, с помощи цикла можно делать, но, так как VB незнаю, не могу делать.
...
Рейтинг: 0 / 0
translit
    #34631438
JaneDoe
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
ну это же настолько очевидно...
посмотри внимательно там буковка "A" есть... она отвечает за какой-то "A", попробуй другие буквы...например "B"... посмотри что получиться выяви связь
...
Рейтинг: 0 / 0
translit
    #34631453
Фотография gjghjc
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
первое что пришло на ум это заменить
Код: plaintext
slovo = Range("A" & x).Value
на
Код: plaintext
slovo= Cells(x,  1 ).Text

Соответственно, если заменить 1 на 2 то замена произойдет во втором столбце (столбце "B") и т.д.
Привинтим цикл и получим такой вот алгоритм.

цикл по столбцам

цикл по строкам

Действие с элементом массива (например замена букв с русских на латинские)

конец цикла по строкам

конец цикла по столбцам

При определении границ циклов советую почитать в хелпе VBA о такой штуке как USEDRANGE.
потому как в твоем случае то что будет находится в строке 3001 останется не транслитерированным.
Также если это не определено твоим заданием то соответсвие латинских букв русским имхо лучше сделать в коде создав массивы например с названиями RusArr и LatArr.
С уважением, Николай.
...
Рейтинг: 0 / 0
6 сообщений из 6, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / translit
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]