ReSQL.ru
     
powered by simpleCommunicator - 2.0.39     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Перебор букв и замена их макросом в Excel
20 сообщений из 20, страница 1 из 1
Перебор букв и замена их макросом в Excel
    #38667284
Фотография Ser Artur
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ser Artur
Участник
Добрый день господа форумчане. Давно не заходил на сайт. Как Ваши дела, как здоровье?
У меня один мааалЭнкий вопрос как можно "перебрать буквы в яйчейке" то есть
из 1С я выгрузил список контрагентов, шрифт которых не понятный то ли ANSI то ли что-то другой, но не юникод. Теперь надо их перевести на юникод, но перевод надо по буквам. то есть слова в яйчейке надо перевести используя буквы из справочника "Азбука"



"Бухгалтера можно уподобить пчеловоду, ибо от его труда - учетной информации - извлекают пользу очень многие, но трудится он один. М.Ф. Ван Бреда"
...
Рейтинг: 0 / 0
11.06.2014, 11:06
| Ответить | Цитировать | Написать  
Перебор букв и замена их макросом в Excel
    #38667288
Фотография Ser Artur
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ser Artur
Участник
...
Рейтинг: 0 / 0
11.06.2014, 11:08
| Ответить | Цитировать | Написать  
Перебор букв и замена их макросом в Excel
    #38667291
Фотография Ser Artur
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ser Artur
Участник
Не хочу чтоб решили за меня, а просто подбросьте "ниточку" с которой я могу найду решение. Зараннее благодарен
...
Рейтинг: 0 / 0
11.06.2014, 11:11
| Ответить | Цитировать | Написать  
Перебор букв и замена их макросом в Excel
    #38667311
капитанская дочка
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
капитанская дочка
Участник
Ser Artur,

можно канешно тупо в лоб substitute но это коряво длинно и долго или на вба replace но я думаю что тебе стоит пошамашинть с 1с
...
Рейтинг: 0 / 0
11.06.2014, 11:22
| Ответить | Цитировать | Написать  
Перебор букв и замена их макросом в Excel
    #38667421
Фотография Ser Artur
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ser Artur
Участник
A через replace как. Там надо в слове перебрать все буквы. Это можно через Like сделать?
...
Рейтинг: 0 / 0
11.06.2014, 12:23
| Ответить | Цитировать | Написать  
Перебор букв и замена их макросом в Excel
    #38667444
Фотография The_Prist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
The_Prist
Участник
Ser Artur,

только через цикл по каждому символу.
...
Рейтинг: 0 / 0
11.06.2014, 12:33
| Ответить | Цитировать | Написать  
Перебор букв и замена их макросом в Excel
    #38667449
Фотография Ser Artur
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ser Artur
Участник
А кто из вас пробовал циклом?
...
Рейтинг: 0 / 0
11.06.2014, 12:34
| Ответить | Цитировать | Написать  
Перебор букв и замена их макросом в Excel
    #38667455
Фотография Ser Artur
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ser Artur
Участник
Приблизительно так что ли
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
For n = 2 To 10
For m = 2 To 10
    Range("D" & n).Replace What:=Range("A" & n), Replacement:=Range("B" & m), LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
Next m
Next n


??????????
...
Рейтинг: 0 / 0
11.06.2014, 12:41
| Ответить | Цитировать | Написать  
Перебор букв и замена их макросом в Excel
    #38667461
Фотография Ser Artur
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ser Artur
Участник
Где
Range("D" & n).Replace....................изменяемая яйчейка
What:=Range("A" & n), ....................поиск символа
Replacement:=Range("B" & m)..........заменяемый
...
Рейтинг: 0 / 0
11.06.2014, 12:44
| Ответить | Цитировать | Написать  
Перебор букв и замена их макросом в Excel
    #38667480
Фотография Ser Artur
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ser Artur
Участник
Эт я рекордером записал
...
Рейтинг: 0 / 0
11.06.2014, 12:58
| Ответить | Цитировать | Написать  
Перебор букв и замена их макросом в Excel
    #38667485
Фотография The_Prist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
The_Prist
Участник
Ser Artur,

За основу можете взять код из этой статьи: http://www.planetaexcel.ru/techniques/7/56/
...
Рейтинг: 0 / 0
11.06.2014, 13:00
| Ответить | Цитировать | Написать  
Перебор букв и замена их макросом в Excel
    #38667547
Фотография Ser Artur
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ser Artur
Участник
Файл хорош но здесь другое
1 Вход в яйчейку
2 Перебор слова
3 Замена на другие символы

Ну скажем слово которое состоит из символов одного из шрифтов -
Код: vbnet
1.
Дониэлан

перебрать символами юникода
Код: vbnet
1.
Даниелян
...
Рейтинг: 0 / 0
11.06.2014, 13:40
| Ответить | Цитировать | Написать  
Перебор букв и замена их макросом в Excel
    #38667554
Фотография Ser Artur
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ser Artur
Участник
Вот например так, здесь только буквы, а вот для слова что вписать в код????
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
Sub Translate()
Dim n As Variant
        
        For n = 2 To 10
          
         
                If Range("A" & n) = Range("D" & n) Then
                   Range("D" & n) = Range("B" & n)
                End If
         
          
        Next n
 
End Sub
...
Рейтинг: 0 / 0
11.06.2014, 13:46
| Ответить | Цитировать | Написать  
Перебор букв и замена их макросом в Excel
    #38667555
Фотография Ser Artur
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ser Artur
Участник
Забыл файл
...
Рейтинг: 0 / 0
11.06.2014, 13:47
| Ответить | Цитировать | Написать  
Перебор букв и замена их макросом в Excel
    #38668232
iMrTidy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
iMrTidy
Участник
Ser Artur,
...
Рейтинг: 0 / 0
12.06.2014, 00:19
| Ответить | Цитировать | Написать  
Перебор букв и замена их макросом в Excel
    #38668253
Фотография Ser Artur
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ser Artur
Участник
Болшой поклон Тебе дорогой. пошарю по макросу посмотрю. Макросы мое хобби, вот вместо того чтобы жиру беситься, я решаэ задачки макросами
...
Рейтинг: 0 / 0
12.06.2014, 01:27
| Ответить | Цитировать | Написать  
Перебор букв и замена их макросом в Excel
    #38668254
Фотография Ser Artur
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ser Artur
Участник
Интересное решение. Сами делали?
...
Рейтинг: 0 / 0
12.06.2014, 01:28
| Ответить | Цитировать | Написать  
Перебор букв и замена их макросом в Excel
    #38668401
DictR
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DictR
Гость
Ser Artur,
можно использовать как формулу массива
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
Function RepChr(sRepl, dFind, dRepl)
a = sRepl.Value
af = dFind.Value
ar = dRepl.Value
Set d = CreateObject("scripting.dictionary")
If UBound(af) <> UBound(ar) Then Exit Function
For i = 1 To UBound(af)
d(af(i, 1)) = ar(i, 1)
Next
For i = 1 To UBound(a)
    For j = 1 To Len(a(i, 1))
     If d.exists(Mid(a(i, 1), j, 1)) Then Mid(a(i, 1), j, 1) = d(Mid(a(i, 1), j, 1))
    Next
Next
RepChr = a
End Function
...
Рейтинг: 0 / 0
12.06.2014, 13:10
| Ответить | Цитировать | Написать  
Перебор букв и замена их макросом в Excel
    #38678629
Сергей06
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сергей06
Участник
Ser Artur,

а если попробовать так:
=ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(A4;E4;F4);E5;F5);E6;F6);E7;F7);E8;F8);E9;F9);E10;F10);E11;F11);E12;F12);E13;F13)
?
...
Рейтинг: 0 / 0
24.06.2014, 15:35
| Ответить | Цитировать | Написать  
Перебор букв и замена их макросом в Excel
    #38680164
капитанская дочка
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
капитанская дочка
Участник
Сергей06,

а если букав будет 30 че так и будешь формулу колбасить пока пальцы не отвалятцо?
...
Рейтинг: 0 / 0
25.06.2014, 17:45
| Ответить | Цитировать | Написать  
20 сообщений из 20, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Перебор букв и замена их макросом в Excel
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru             Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=38667311&tid=2173970]:
 0ms
get settings:
 10ms
get forum list:
 13ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 30ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 58ms
get tp. blocked users:
 1ms
others: 15ms
total:  149ms
созд. / загр.: 149ms
x
x
Закрыть


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