ReSQL.ru
     
powered by simpleCommunicator - 2.0.58     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Смена одних кодов символов на другие в Excel
25 сообщений из 25, страница 1 из 1
Смена одних кодов символов на другие в Excel
    #37694763
Фотография NickBell
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
NickBell
Участник
Возможно ли в Excel сразу заменить некоторые коды символов на другие коды и как можно это сделать?
Мне нужно поменять один шрифт на другой, но эти буквы имеют различные коды.

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

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

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

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

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

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

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

Спасибо за предложенный вариант. В данный момент я немного иначе поступила, а на будущее учту и такой вариант.
...
Рейтинг: 0 / 0
09.03.2012, 00:37
| Ответить | Цитировать | Написать  
Смена одних кодов символов на другие в Excel
    #37845442
Фотография NickBell
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
NickBell
Участник
Пробую заменить одни символы на другие в таблице, в данный момент для текстового поля 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
20.06.2012, 01:14
| Ответить | Цитировать | Написать  
Смена одних кодов символов на другие в Excel
    #38099936
Фотография NickBell
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
NickBell
Участник
Решила попробовать сейчас сделать в 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, 13:14
| Ответить | Цитировать | Написать  
Смена одних кодов символов на другие в Excel
    #38100008
Фотография ПЕНСИОНЕРКА
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ПЕНСИОНЕРКА
Участник
NickBell,

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

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


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

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

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

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

Подозрение было именно на это, не знала просто как менять. Но сейчас, при спокойной обстановке, поняла, что мне еще на проблему сохранения надо было обратить внимание, вот только не разобрала, что именно надо дселать, вроде бы макросы включила.
...
Рейтинг: 0 / 0
04.01.2013, 22:20
| Ответить | Цитировать | Написать  
Смена одних кодов символов на другие в Excel
    #38100326
Казанский
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Казанский
Гость
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
| Ответить | Цитировать | Написать  
Смена одних кодов символов на другие в Excel
    #38100327
Фотография Serge 007
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Serge 007
Участник
NickBell , выберите формат с поддержкой макросов, например doc
...
Рейтинг: 0 / 0
04.01.2013, 22:56
| Ответить | Цитировать | Написать  
Смена одних кодов символов на другие в Excel
    #38100332
Казанский
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Казанский
Гость
Чтобы не вбивать все коды символов в программу, можно записать их в текстовый файл (см. вложение, разделитель в строке - 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:14
| Ответить | Цитировать | Написать  
Смена одних кодов символов на другие в Excel
    #38100338
Казанский
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Казанский
Гость
Если вместо заменяющих кодов будете писать буквы, то немного проще:
Код: 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
04.01.2013, 23:20
| Ответить | Цитировать | Написать  
Смена одних кодов символов на другие в Excel
    #38100771
Фотография VSVLAD
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VSVLAD
Участник
NickBell,

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


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