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

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

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

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

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

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

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

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

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


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