Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Какие библиотеки необходимо подключить. - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Какие библиотеки необходимо подключить.
Vertep7 Дата: Воскресенье, 24.12.2023, 15:00 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 52
Репутация: 0 ±
Замечаний: 20% ±

Excel 2007
Здравствуйте. Мне необходимо исправить кракозябры на кириллицу. И по этой причине я нашел какой-то вроде как полностью рабочий код, скопировал без изменения к себе в модуль, но проверить его не смог он не работает. Прерывается на s = Selection
В связи с этим прошу подсказать какой джентльменский набор библиотек следует подключить в Экселе, что бы подавляющее количество скриптов выполнялось без проблем. Если дело в этом конечно.

[vba]
Код
Sub Corr1252_1251()
Dim s$, i&, j&
  s = Selection
  For i = 1 To Len(s)
    j = AscW(Mid$(s, i, 1))
    If j < 256 Then
        Mid$(s, i, 1) = Chr(j)
'       Debug.Print i & vbTab & Mid$(s, i, 1) & vbTab & j & vbTab & Chr(j)
    End If
  Next
  Selection.Text = s
End Sub
[/vba]
Сейчас у меня подключены по всей видимости стандартные библиотеки из пакета:

Visual Basic For Applications
Microsoft Excel 12.0 Object Library
OLE Automation
Microsoft Office 12.0 Object Library


Сообщение отредактировал Vertep7 - Воскресенье, 24.12.2023, 15:04
 
Ответить
СообщениеЗдравствуйте. Мне необходимо исправить кракозябры на кириллицу. И по этой причине я нашел какой-то вроде как полностью рабочий код, скопировал без изменения к себе в модуль, но проверить его не смог он не работает. Прерывается на s = Selection
В связи с этим прошу подсказать какой джентльменский набор библиотек следует подключить в Экселе, что бы подавляющее количество скриптов выполнялось без проблем. Если дело в этом конечно.

[vba]
Код
Sub Corr1252_1251()
Dim s$, i&, j&
  s = Selection
  For i = 1 To Len(s)
    j = AscW(Mid$(s, i, 1))
    If j < 256 Then
        Mid$(s, i, 1) = Chr(j)
'       Debug.Print i & vbTab & Mid$(s, i, 1) & vbTab & j & vbTab & Chr(j)
    End If
  Next
  Selection.Text = s
End Sub
[/vba]
Сейчас у меня подключены по всей видимости стандартные библиотеки из пакета:

Visual Basic For Applications
Microsoft Excel 12.0 Object Library
OLE Automation
Microsoft Office 12.0 Object Library

Автор - Vertep7
Дата добавления - 24.12.2023 в 15:00
Pelena Дата: Воскресенье, 24.12.2023, 15:59 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 19373
Репутация: 4531 ±
Замечаний: ±

Excel 365 & Mac Excel
Здравствуйте.
необходимо исправить кракозябры на кириллицу

здесь есть про борьбу с кракозябрами


"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеЗдравствуйте.
необходимо исправить кракозябры на кириллицу

здесь есть про борьбу с кракозябрами

Автор - Pelena
Дата добавления - 24.12.2023 в 15:59
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!