Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / translit / 5 сообщений из 5, страница 1 из 1
02.07.2007, 08:40:18
    #34631145
qazwsx11
qazwsx11
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
translit
Привет. Как можно делать так что бы функци "translit" (кнопка "translit") работала не только для столбец "A", а для всех столбец который есть в данном листе?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.07.2007, 11:21:25
    #34631513
Deggasad
Deggasad
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
translit
qazwsx11Привет. Как можно делать так что бы функци "translit" (кнопка "translit") работала не только для столбец "A", а для всех столбец который есть в данном листе?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.07.2007, 11:31:58
    #34631555
Сергей06
Сергей06
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
translit
Deggasad qazwsx11Привет. Как можно делать так что бы функци "translit" (кнопка "translit") работала не только для столбец "A", а для всех столбец который есть в данном листе?
А можно ли в исходном коде:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
Private Sub CommandButton2_Click()

Dim x As Integer
For x =  1  To  3000 
    Dim bbb9 As String
    bbb9 = Range("A" & x).Value
    slovo = Range("A" & x).Value
    Nzvuk = Range("H1").End(xlDown).Row
   For n =  1  To Nzvuk
         zvuk_lat = Cells(n,  8 )
         zvuk_cyr = Cells(n,  9 )
         slovo = Replace(slovo, zvuk_lat, zvuk_cyr)
   Next n
Range("A" & x).Value = slovo
Next x
End Sub
1. Добавить цикл и менять наименования столбцов, например, с A по H?
2. Не понятны
Dim bbb9 As String
bbb9 = Range("A" & x).Value
строки. Зачем они нужны?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.07.2007, 11:41:56
    #34631596
qazwsx11
qazwsx11
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
translit
Спасибо, то что надо.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.07.2007, 11:43:41
    #34631604
Deggasad
Deggasad
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
translit
Сергей06 Deggasad qazwsx11Привет. Как можно делать так что бы функци "translit" (кнопка "translit") работала не только для столбец "A", а для всех столбец который есть в данном листе?
А можно ли в исходном коде:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
Private Sub CommandButton2_Click()

Dim x As Integer
For x =  1  To  3000 
    Dim bbb9 As String
    bbb9 = Range("A" & x).Value
    slovo = Range("A" & x).Value
    Nzvuk = Range("H1").End(xlDown).Row
   For n =  1  To Nzvuk
         zvuk_lat = Cells(n,  8 )
         zvuk_cyr = Cells(n,  9 )
         slovo = Replace(slovo, zvuk_lat, zvuk_cyr)
   Next n
Range("A" & x).Value = slovo
Next x
End Sub
1. Добавить цикл и менять наименования столбцов, например, с A по H?
2. Не понятны
Dim bbb9 As String
bbb9 = Range("A" & x).Value
строки. Зачем они нужны?


В обратном порядке
2) На фиг не нужны...

1) В моём примере

Private Sub CommandButton2_Click()
Dim iCel As Range, jCel As Range
Dim slovo As String
For Each iCel In Sheets("Лист2").Range("H1:K50")
slovo = iCel.Value
For Each jCel In Range("A1").Resize(Columns("A:B").Find("*", , , , xlByRows, xlPrevious).Row, 1)
slovo = Replace(slovo, jCel.Offset(, 1).Value, jCel.Value)
Next jCel
iCel.Value = slovo
Next iCel
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / translit / 5 сообщений из 5, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 401ms
Закрыть
start [/forum/topic.php?fid=61&tablet=1&tid=2182676]:
 0ms
get settings:
 11ms
get forum list:
 21ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 57ms
get topic data:
 13ms
get forum data:
 3ms
get page messages:
 54ms
get tp. blocked users:
 2ms
others: 232ms
total:  401ms
x
x
Закрыть


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