Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Перебор букв и замена их макросом в Excel / 20 сообщений из 20, страница 1 из 1
11.06.2014, 11:06
    #38667284
Ser Artur
Ser Artur
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Перебор букв и замена их макросом в Excel
Добрый день господа форумчане. Давно не заходил на сайт. Как Ваши дела, как здоровье?
У меня один мааалЭнкий вопрос как можно "перебрать буквы в яйчейке" то есть
из 1С я выгрузил список контрагентов, шрифт которых не понятный то ли ANSI то ли что-то другой, но не юникод. Теперь надо их перевести на юникод, но перевод надо по буквам. то есть слова в яйчейке надо перевести используя буквы из справочника "Азбука"



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

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

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

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

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

перебрать символами юникода
Код: vbnet
1.
Даниелян
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.06.2014, 13:46
    #38667554
Ser Artur
Ser Artur
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Перебор букв и замена их макросом в Excel
Вот например так, здесь только буквы, а вот для слова что вписать в код????
Код: 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:47
    #38667555
Ser Artur
Ser Artur
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Перебор букв и замена их макросом в Excel
Забыл файл
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.06.2014, 00:19
    #38668232
iMrTidy
iMrTidy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Перебор букв и замена их макросом в Excel
Ser Artur,
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.06.2014, 01:27
    #38668253
Ser Artur
Ser Artur
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Перебор букв и замена их макросом в Excel
Болшой поклон Тебе дорогой. пошарю по макросу посмотрю. Макросы мое хобби, вот вместо того чтобы жиру беситься, я решаэ задачки макросами
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.06.2014, 01:28
    #38668254
Ser Artur
Ser Artur
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Перебор букв и замена их макросом в Excel
Интересное решение. Сами делали?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.06.2014, 13:10
    #38668401
DictR
DictR
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Перебор букв и замена их макросом в Excel
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
| Ответить | Цитировать | Написать  
24.06.2014, 15:35
    #38678629
Сергей06
Сергей06
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Перебор букв и замена их макросом в Excel
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
| Ответить | Цитировать | Написать  
25.06.2014, 17:45
    #38680164
капитанская дочка
капитанская дочка
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Перебор букв и замена их макросом в Excel
Сергей06,

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


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