Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Смена одних кодов символов на другие в Excel / 25 сообщений из 25, страница 1 из 1
07.03.2012, 10:23
    #37694763
NickBell
NickBell
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Смена одних кодов символов на другие в Excel
Возможно ли в Excel сразу заменить некоторые коды символов на другие коды и как можно это сделать?
Мне нужно поменять один шрифт на другой, но эти буквы имеют различные коды.

1 код символа 2 код символа10D0006110D1006210D2006710D3006410D4006510D50076
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.03.2012, 12:05
    #37694993
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Смена одних кодов символов на другие в Excel
NickBell,

непонятно, что такое "сразу". При вводе что ли?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.03.2012, 12:36
    #37695053
NickBell
NickBell
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Смена одних кодов символов на другие в Excel
Shocker.ProNickBell,

непонятно, что такое "сразу". При вводе что ли?
Не так буквально ... :)

Текст уже набран, но другим шрифтом и с другой кодировкой и сейчас появилась надобность заменить на другой шрифт, но этот шрифт уже имеет другую кодировку.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.03.2012, 15:17
    #37695432
PlanB
PlanB
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Смена одних кодов символов на другие в Excel
формулами нет
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.03.2012, 16:13
    #37695543
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Смена одних кодов символов на другие в Excel
А поиском-заменой?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.03.2012, 16:20
    #37695554
Serge 007
Serge 007
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Смена одних кодов символов на другие в Excel
Коды символов изменить нельзя. Они прописаны в DLL и используются по умолчанию.
Почему у Вас два кода символа?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.03.2012, 19:06
    #37695775
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Смена одних кодов символов на другие в Excel
Serge 007,

Я так понял, заменить надо не коды, а символы с указанными кодами
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.03.2012, 20:34
    #37695875
Serge 007
Serge 007
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Смена одних кодов символов на другие в Excel
Shocker.ProSerge 007,

Я так понял, заменить надо не коды, а символы с указанными кодами
Может быть...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.03.2012, 22:27
    #37695998
NickBell
NickBell
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Смена одних кодов символов на другие в Excel
Shocker.ProЯ так понял, заменить надо не коды, а символы с указанными кодами
Да, так и надо. У меня есть один вариант и пожалуй им и воспользуюсь, просто мне хотелось прямо в Excel сделать замену, так как вполне возможно, что мне те же операции придется еще раз делать в будущем.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.03.2012, 22:30
    #37696001
NickBell
NickBell
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Смена одних кодов символов на другие в Excel
Serge 007Коды символов изменить нельзя. Они прописаны в DLL и используются по умолчанию.
Почему у Вас два кода символа?
Это не два кода символа. Это 33 букв со своими кодами должны замениться на 33 буквы со своими символами. Здесь было показано 2 столбца и у меня было выписано только по 5 штук с каждой стороны для примера.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.03.2012, 22:42
    #37696011
Serge 007
Serge 007
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Смена одних кодов символов на другие в Excel
NickBell,

Тогда я ничего не понимаю...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.03.2012, 23:38
    #37696053
AndreTM
AndreTM
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Смена одних кодов символов на другие в Excel
Чего непонятного-то? У человека текст в Юникоде с какой-то своей кодировкой, а ему надо заменить кодировку на ASCII... Дал бы ТС образец своего файлика - давно бы посоветовали
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.03.2012, 23:46
    #37696060
AndreTM
AndreTM
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Смена одних кодов символов на другие в Excel
Таки подозреваю, что вот это
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.03.2012, 23:47
    #37696063
mds_world
mds_world
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Смена одних кодов символов на другие в Excel
NickBell,

можно так в модуле екселя. Столбец, имя листа подставить свои
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
sub replacement()
    Dim cn As ADODB.Connection, rs As ADODB.Recordset
    Dim SCon$, StrSql$
    Set cn = New ADODB.Connection
    Set rs = New ADODB.Recordset
    SCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ThisWorkbook.FullName _
    & ";Extended Properties=""Excel 8.0;HDR=no"";"
    cn.Open SCon
    StrSql = "SELECT *  FROM [list1$]"
    rs.Open StrSql, cn, adOpenDynamic, adLockPessimistic
    Do Until rs.EOF
        rs(0) = Replace(rs(0), chrw(&h10D0}, chrw(&h0065))
        'остальные замены
        rs.MoveNext
    Loop
    rs.UpdateBatch
    rs.MoveFirst
    ActiveSheet.Cells(1, 1).CopyFromRecordset rs
end sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.03.2012, 00:37
    #37696827
NickBell
NickBell
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Смена одних кодов символов на другие в Excel
mds_world,

Спасибо за предложенный вариант. В данный момент я немного иначе поступила, а на будущее учту и такой вариант.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.06.2012, 01:14
    #37845442
NickBell
NickBell
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Смена одних кодов символов на другие в Excel
Пробую заменить одни символы на другие в таблице, в данный момент для текстового поля t1 в Access, но выходит ошибка:
Run-time error “94” (Invalid use of Null)

Что мешает, пока не могу понять.

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
Private Sub cmd_replace_Click()
Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("Table", dbOpenDynaset)

Do While Not rs.EOF
   rs.Edit
   rs!t1 = Replace(rs("t1"), ChrW(&H10D0), "a")
   rs!t1 = Replace(rs("t1"), ChrW(&H10D1), "b")
   rs!t1 = Replace(rs("t1"), ChrW(&H10D2), "c")
   rs!t1 = Replace(rs("t1"), ChrW(&H10D3), "d")
   rs!t1 = Replace(rs("t1"), ChrW(&H10D4), "e")
      'остальные замены
   rs.MoveNext
Loop
rs.Update
rs.Close
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.01.2013, 13:14
    #38099936
NickBell
NickBell
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Смена одних кодов символов на другие в Excel
Решила попробовать сейчас сделать в Excel (2007), но похоже в этом коде что-то заменить надо для другой версии, в итоге, замена не идет.

 
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
Option Explicit

Sub replacement()
    Dim cn As ADODB.Connection, rs As ADODB.Recordset
    Dim SCon$, StrSql$
    Set cn = New ADODB.Connection
    Set rs = New ADODB.Recordset
    SCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ThisWorkbook.FullName _
    & ";Extended Properties=""Excel 8.0;HDR=no"";"
    cn.Open SCon
    StrSql = "SELECT *  FROM [Sheet1$]"
    rs.Open StrSql, cn, adOpenDynamic, adLockPessimistic
    Do Until rs.EOF
        rs(0) = Replace(rs(0), ChrW(&H10D0), ChrW(&H61))
        rs(0) = Replace(rs(0), ChrW(&H10D1), ChrW(&H62))
        rs(0) = Replace(rs(0), ChrW(&H10D2), ChrW(&H67))
        rs(0) = Replace(rs(0), ChrW(&H10D3), ChrW(&H64))
        rs(0) = Replace(rs(0), ChrW(&H10D4), ChrW(&H65))
        rs(0) = Replace(rs(0), ChrW(&H10D5), ChrW(&H76))
        rs(0) = Replace(rs(0), ChrW(&H10D6), ChrW(&H7A))
        rs(0) = Replace(rs(0), ChrW(&H10D7), ChrW(&H54))
        rs(0) = Replace(rs(0), ChrW(&H10D8), ChrW(&H69))
        rs(0) = Replace(rs(0), ChrW(&H10D9), ChrW(&H6B))
        rs(0) = Replace(rs(0), ChrW(&H10DA), ChrW(&H6C))
        rs(0) = Replace(rs(0), ChrW(&H10DB), ChrW(&H6D))
        rs(0) = Replace(rs(0), ChrW(&H10DC), ChrW(&H6E))
        rs(0) = Replace(rs(0), ChrW(&H10DD), ChrW(&H6F))
        rs(0) = Replace(rs(0), ChrW(&H10DE), ChrW(&H70))
        rs(0) = Replace(rs(0), ChrW(&H10DF), ChrW(&H4A))
        rs(0) = Replace(rs(0), ChrW(&H10E0), ChrW(&H72))
        rs(0) = Replace(rs(0), ChrW(&H10E1), ChrW(&H73))
        rs(0) = Replace(rs(0), ChrW(&H10E2), ChrW(&H74))
        rs(0) = Replace(rs(0), ChrW(&H10E3), ChrW(&H75))
        rs(0) = Replace(rs(0), ChrW(&H10E4), ChrW(&H66))
        rs(0) = Replace(rs(0), ChrW(&H10E5), ChrW(&H71))
        rs(0) = Replace(rs(0), ChrW(&H10E6), ChrW(&H52))
        rs(0) = Replace(rs(0), ChrW(&H10E7), ChrW(&H79))
        rs(0) = Replace(rs(0), ChrW(&H10E8), ChrW(&H53))
        rs(0) = Replace(rs(0), ChrW(&H10E9), ChrW(&H43))
        rs(0) = Replace(rs(0), ChrW(&H10EA), ChrW(&H63))
        rs(0) = Replace(rs(0), ChrW(&H10EB), ChrW(&H5A))
        rs(0) = Replace(rs(0), ChrW(&H10EC), ChrW(&H77))
        rs(0) = Replace(rs(0), ChrW(&H10ED), ChrW(&H57))
        rs(0) = Replace(rs(0), ChrW(&H10EE), ChrW(&H78))
        rs(0) = Replace(rs(0), ChrW(&H10EF), ChrW(&H6A))
        rs(0) = Replace(rs(0), ChrW(&H10F0), ChrW(&H68))
        rs.MoveNext
    Loop
    rs.UpdateBatch
    rs.MoveFirst
    ActiveSheet.Cells(1, 1).CopyFromRecordset rs
End Sub



И почему-то в коде вместо ChrW(&H0061)) записывает ChrW(&H61)),
Двойные нули 00 исчезают куда-то.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.01.2013, 14:36
    #38100008
ПЕНСИОНЕРКА
ПЕНСИОНЕРКА
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Смена одних кодов символов на другие в Excel
NickBell,

в ворде это что-то типа
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.01.2013, 21:09
    #38100278
скукотища
скукотища
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Смена одних кодов символов на другие в Excel
> NickBell,
> Решила попробовать сейчас сделать в Excel (2007), но похоже в этом коде что-то заменить надо для другой версии, в итоге, замена не идет.

Поменять строку соединения (провайдер; доп.опции, если нужно).
строка соединения для Excel 2007


> И почему-то в коде вместо ChrW(&H0061)) записывает ChrW(&H61)),
> Двойные нули 00 исчезают куда-то.

Это нормально. Вас же не удивит, если IDE заменит 0061 на 61.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.01.2013, 22:20
    #38100314
NickBell
NickBell
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Смена одних кодов символов на другие в Excel
ПЕНСИОНЕРКА,

Для ворда у меня есть спец. функция, просто она не ставится в самом Excel, но всё равно спасибо за предложенный вариант.

скукотищаПоменять строку соединения (провайдер; доп.опции, если нужно).
строка соединения для Excel 2007

Подозрение было именно на это, не знала просто как менять. Но сейчас, при спокойной обстановке, поняла, что мне еще на проблему сохранения надо было обратить внимание, вот только не разобрала, что именно надо дселать, вроде бы макросы включила.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.01.2013, 22:56
    #38100326
Казанский
Казанский
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Смена одних кодов символов на другие в Excel
mds_world
Код: vbnet
1.
2.
3.
4.
sub replacement()
    Dim cn As ADODB.Connection, rs As ADODB.Recordset
'...
end sub

А не проще вместо этого всего
Код: vbnet
1.
cells.Replace chrw(&h10D0), chrw(&h0065), xlpart
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.01.2013, 22:56
    #38100327
Serge 007
Serge 007
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Смена одних кодов символов на другие в Excel
NickBell , выберите формат с поддержкой макросов, например doc
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.01.2013, 23:14
    #38100332
Казанский
Казанский
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Смена одних кодов символов на другие в Excel
Чтобы не вбивать все коды символов в программу, можно записать их в текстовый файл (см. вложение, разделитель в строке - Tab), и использовать такую программу:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Sub repl()
Dim k%, s$, a$()
k = FreeFile
Open "d:\podstanovka.txt" For Input As k 'тут путь к файлу
While Not EOF(k)
    Input #k, s
    a = Split(s, vbTab)
    Cells.Replace ChrW("&h" & a(0)), ChrW("&h" & a(1)), xlPart
Wend
Close k
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.01.2013, 23:20
    #38100338
Казанский
Казанский
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Смена одних кодов символов на другие в Excel
Если вместо заменяющих кодов будете писать буквы, то немного проще:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Sub repl1()
Dim k%, s$, a$()
k = FreeFile
Open "d:\podstanovka1.txt" For Input As k
While Not EOF(k)
    Input #k, s
    a = Split(s, vbTab)
    Cells.Replace ChrW("&h" & a(0)), a(1), xlPart
Wend
Close k
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.01.2013, 22:44
    #38100771
VSVLAD
VSVLAD
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Смена одних кодов символов на другие в Excel
NickBell,

Сохраняйте в xlsm, docm и т.д. с поддержкой макросов. Или в старый формат xls, doc, но не xlsx, docx
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Смена одних кодов символов на другие в Excel / 25 сообщений из 25, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 464ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2175102]:
 0ms
get settings:
 10ms
get forum list:
 13ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 53ms
get topic data:
 13ms
get forum data:
 3ms
get page messages:
 62ms
get tp. blocked users:
 1ms
others: 303ms
total:  464ms
x
x
Закрыть


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