Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 04.12.2018, 17:41   #1
shchnad
Пользователь
 
Аватар для shchnad
 
Регистрация: 26.11.2018
Сообщений: 10
По умолчанию избавление от иероглифов

Уважаемые умные люди,
подскажите ПЖЛ программку для того, чтобы при вводе данных с клавиатуры процедурой Application.Inputbox русский текст (заголовки и вопросы в меню) выводился на русском языке, а не иероглифами...нужна именно программка для размещения ее в module, а не смена настроек компьютера! Я нашла на одном форум сайте такую программку, но она для MsgBox! Один хороший умный человек ее там выложил! Вот бы еще такую же, но для Application.Inputbox.....прилагаю упомянутую программку

Код:
Option Explicit
 
#If Win64 Then
    Private Declare PtrSafe Function MessageBox Lib "user32" Alias "MessageBoxW" ( _
        ByVal hwnd As LongPtr, ByVal lpText As LongPtr, ByVal lpCaption As LongPtr, ByVal wType As Long) As Long
#Else
    Private Declare Function MessageBox Lib "user32" Alias "MessageBoxW" ( _
        ByVal hwnd As Long, ByVal lpText As Long, ByVal lpCaption As Long, ByVal wType As Long) As Long
#End If
 
Public Function MsgBox(Prompt As String, Optional Buttons As VbMsgBoxStyle, Optional Title As String = " ") As VbMsgBoxResult
    Dim i&, s$, char$
    For i = 1 To Len(Prompt)
        char = Mid$(Prompt, i, 1)
        If AscW(char) < 0 Or AscW(char) > 255 Then
            s = s & char
        Else
            s = s & Mid$(StrConv(char, vbUnicode, &H419), 1, 1)
        End If
    Next
    MsgBox = MessageBox(Application.hwnd, StrPtr(s), StrPtr(Title), ByVal Buttons)
End Function
shchnad вне форума Ответить с цитированием
Старый 07.12.2018, 10:24   #2
EducatedFool
Программист VBA
СуперМодератор
 
Аватар для EducatedFool
 
Регистрация: 13.07.2008
Сообщений: 6,856
По умолчанию

попробуйте такой вариант:
https://excelvba.ru/articles/c_1251.nls
EducatedFool вне форума Ответить с цитированием
Старый 07.12.2018, 14:18   #3
jillitil
Форумчанин
 
Аватар для jillitil
 
Регистрация: 17.10.2018
Сообщений: 184
По умолчанию

Настройки смотрели?
Изображения
Тип файла: jpg screenshot.1.jpg (97.7 Кб, 135 просмотров)
jillitil вне форума Ответить с цитированием
Старый 12.12.2018, 12:12   #4
shchnad
Пользователь
 
Аватар для shchnad
 
Регистрация: 26.11.2018
Сообщений: 10
По умолчанию

EducatedFool, огромное спасибо!
jillitil, у меня французский винд стоит (по семейным причинам не могу русский поставить)
shchnad вне форума Ответить с цитированием
Старый 12.12.2018, 12:24   #5
Alex11223
Старожил
 
Аватар для Alex11223
 
Регистрация: 12.01.2011
Сообщений: 19,500
По умолчанию

Цитата:
Сообщение от jillitil Посмотреть сообщение
Настройки смотрели?
первое сообщение читали?
Цитата:
Сообщение от shchnad Посмотреть сообщение
у меня французский винд стоит
это не смена язык, но может сломать какие-нибудь старые (не юникодные) французские программы.
Цитата:
Сообщение от shchnad Посмотреть сообщение
Один хороший умный человек ее там выложил! Вот бы еще такую же, но для Application.Inputbox
это вызов стандартного юникодного месседжбокса из WinApi.
Inputbox в WinApi нет.
Ушел с форума, https://www.programmersforum.rocks, alex.pantec@gmail.com, https://github.com/AlexP11223
ЛС отключены Аларом.

Последний раз редактировалось Alex11223; 12.12.2018 в 12:31.
Alex11223 вне форума Ответить с цитированием
Старый 12.12.2018, 14:06   #6
jillitil
Форумчанин
 
Аватар для jillitil
 
Регистрация: 17.10.2018
Сообщений: 184
По умолчанию

Цитата:
Сообщение от Alex11223 Посмотреть сообщение
первое сообщение читали?
Не понял юмора. У мадам ось иностранная, ей предложили подменить в реестре параметры которые, ну как бы, корявят систему, в итоге винда думает что она по прежнему французкая (латиница центр.европейская и западно-европейская), а на самом деле отображает кирилицу. Я же предложил корректно дать понять винде что работать надо с кириллицей.
Впрочем уже поздно, дама видимо в реестр полезла.
Изображения
Тип файла: jpg screenshot.3.jpg (35.2 Кб, 78 просмотров)
Тип файла: jpg screenshot.2.jpg (33.4 Кб, 74 просмотров)
jillitil вне форума Ответить с цитированием
Старый 12.12.2018, 14:12   #7
Alex11223
Старожил
 
Аватар для Alex11223
 
Регистрация: 12.01.2011
Сообщений: 19,500
По умолчанию

Цитата:
Сообщение от shchnad Посмотреть сообщение
нужна именно программка для размещения ее в module, а не смена настроек компьютера
↑↑↑
Ушел с форума, https://www.programmersforum.rocks, alex.pantec@gmail.com, https://github.com/AlexP11223
ЛС отключены Аларом.
Alex11223 вне форума Ответить с цитированием
Старый 12.12.2018, 14:14   #8
jillitil
Форумчанин
 
Аватар для jillitil
 
Регистрация: 17.10.2018
Сообщений: 184
По умолчанию

Ах вот оно что, мадам любит страдать
jillitil вне форума Ответить с цитированием
Старый 12.12.2018, 16:26   #9
Alex11223
Старожил
 
Аватар для Alex11223
 
Регистрация: 12.01.2011
Сообщений: 19,500
По умолчанию

Вообще я не в курсе что там в этом Экселевском VBA (там нет Юникода в 2018?! Serieusement?), но если что всегда можно поставить виртуалку (VirtualBox, VMWare Player) с любой нужной локалью как на скриншоте выше.
Ушел с форума, https://www.programmersforum.rocks, alex.pantec@gmail.com, https://github.com/AlexP11223
ЛС отключены Аларом.
Alex11223 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как в латвийском Windows (стр.Win1257)запустить без иероглифов приложение Win1251 alexey.barkalov Windows 2 07.11.2016 15:43
Отображение китайских иероглифов в cxGrid Ferkel Компоненты Delphi 12 16.06.2012 06:31
При открытии Справки выходит форма с отображением иероглифов (программа на Delphi 7 ) O_o_sun Помощь студентам 2 17.05.2012 13:38
избавление от for,copy и delete Work Group Помощь студентам 0 08.12.2009 13:42
Избавление от неприятных звуков БуреВестник Microsoft Office Word 2 24.10.2009 15:06