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

Вход

Регистрация

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

 

= Мир MS Excel/Добавить шрифты в макрос - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Добавить шрифты в макрос (Макросы/Sub)
Добавить шрифты в макрос
baaur Дата: Понедельник, 27.10.2014, 08:40 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 70
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Добрый день, уважаемые гуру excel! Нужна Ваша помощь, есть готовый макрос взятый с сайта http://excelvba.ru/code/DativeCase, пытался самостоятельно ввести Казахские шрифты в макрос что бы распознавал буквы правильно, но увы ничего не получилось. Не могли бы вы подсказать или помочь как правильно вставить шрифты.
Зарание благодарю за любую помощь, спасибо.
К сообщению приложен файл: 5339906.xlsm (19.0 Kb)
 
Ответить
СообщениеДобрый день, уважаемые гуру excel! Нужна Ваша помощь, есть готовый макрос взятый с сайта http://excelvba.ru/code/DativeCase, пытался самостоятельно ввести Казахские шрифты в макрос что бы распознавал буквы правильно, но увы ничего не получилось. Не могли бы вы подсказать или помочь как правильно вставить шрифты.
Зарание благодарю за любую помощь, спасибо.

Автор - baaur
Дата добавления - 27.10.2014 в 08:40
alex77755 Дата: Понедельник, 27.10.2014, 10:56 | Сообщение № 2
Группа: Проверенные
Ранг: Обитатель
Сообщений: 362
Репутация: 64 ±
Замечаний: 0% ±

Попробуй заменить строку [vba]
Код
DativeCase = StrConv(DativeCase, vbProperCase)
[/vba]
на [vba]
Код
DativeCase = StrConv(DativeCase, 67)
[/vba]


Могу помочь в VB6, VBA
Alex77755@mail.ru
 
Ответить
СообщениеПопробуй заменить строку [vba]
Код
DativeCase = StrConv(DativeCase, vbProperCase)
[/vba]
на [vba]
Код
DativeCase = StrConv(DativeCase, 67)
[/vba]

Автор - alex77755
Дата добавления - 27.10.2014 в 10:56
baaur Дата: Понедельник, 27.10.2014, 12:18 | Сообщение № 3
Группа: Пользователи
Ранг: Участник
Сообщений: 70
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Попробуй заменить строку

alex77755, Большое при большое Вам спасибо!!!!!! Работает!
hands
 
Ответить
Сообщение
Попробуй заменить строку

alex77755, Большое при большое Вам спасибо!!!!!! Работает!
hands

Автор - baaur
Дата добавления - 27.10.2014 в 12:18
RAN Дата: Понедельник, 27.10.2014, 12:20 | Сообщение № 4
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
alex77755, а откуда 67?


Быть или не быть, вот в чем загвоздка!
 
Ответить
Сообщениеalex77755, а откуда 67?

Автор - RAN
Дата добавления - 27.10.2014 в 12:20
alex77755 Дата: Понедельник, 27.10.2014, 12:46 | Сообщение № 5
Группа: Проверенные
Ранг: Обитатель
Сообщений: 362
Репутация: 64 ±
Замечаний: 0% ±

RAN,
Исключительно из справки: Примечание 67=64+3
Цитата
Возвращает значение типа Variant (String), содержащее преобразованную строку.

Синтаксис

StrConv(string, conversion)

Синтаксис функции StrConv содержит следующие именованные аргументы:

Элемент Описание
string Обязательный. Строковое выражение, которое следует преобразовать.
conversion Обязательный. Значение типа Integer. Сумма значений, указывающих тип преобразования, которое следует выполнить.
Значения

Ниже приведены допустимые значения аргумента conversion:

Константа Значение Описание
vbUpperCase 1 Преобразование строки к верхнему регистру.
vbLowerCase 2 Преобразование строки к нижнему регистру.
vbProperCase 3 Преобразование первой буквы каждого слова в строке в прописную.
vbWide* 4* Преобразование однобайтовых символов в двухбайтовые.
VbNarrow* 8* Преобразование двухбайтовых символов в однобайтовые.
VbKatakana** 16** Преобразование символов хираганы в символы катаканы.
VbHiragana** 32** Преобразование символов катаканы в символы хираганы.
VbUnicode 64 Преобразование строки в Unicode с помощью используемой по умолчанию системной кодовой страницы.
VbFromUnicode 128 Преобразование строки из Unicode с помощью используемой по умолчанию системной кодовой страницы.
* Применимо к дальневосточным национальным настройкам.
** Применимо только к японскому языку.

Примечание Эти константы определяются в языке Visual Basic для приложений. Это означает, что их имена можно использовать в любом месте кода вместо фактических значений. Большинство из констант могут быть объединены (например vbUpperCase + vbWide). Исключением являются взаимно противоречащие константы (например vbUnicode + vbFromUnicode). Использование констант vbWide, vbNarrow, vbKatakana и vbHiragana в несовместимой национальной настройке приводит к ошибкам выполнения.

Ниже перечислены допустимые символы, служащие разделителями слов: Null (Chr$(0)), горизонтальная табуляция (Chr$(9)), перевод строки (Chr$(10)), вертикальная табуляция (Chr$(11)), конец страницы (Chr$(12)), возврат каретки (Chr$(13)
), пробел (однобайтовая система) (Chr$(32)). Код пробела в двухбайтовых системах (DBCS) зависит от текущей страны.


Могу помочь в VB6, VBA
Alex77755@mail.ru
 
Ответить
СообщениеRAN,
Исключительно из справки: Примечание 67=64+3
Цитата
Возвращает значение типа Variant (String), содержащее преобразованную строку.

Синтаксис

StrConv(string, conversion)

Синтаксис функции StrConv содержит следующие именованные аргументы:

Элемент Описание
string Обязательный. Строковое выражение, которое следует преобразовать.
conversion Обязательный. Значение типа Integer. Сумма значений, указывающих тип преобразования, которое следует выполнить.
Значения

Ниже приведены допустимые значения аргумента conversion:

Константа Значение Описание
vbUpperCase 1 Преобразование строки к верхнему регистру.
vbLowerCase 2 Преобразование строки к нижнему регистру.
vbProperCase 3 Преобразование первой буквы каждого слова в строке в прописную.
vbWide* 4* Преобразование однобайтовых символов в двухбайтовые.
VbNarrow* 8* Преобразование двухбайтовых символов в однобайтовые.
VbKatakana** 16** Преобразование символов хираганы в символы катаканы.
VbHiragana** 32** Преобразование символов катаканы в символы хираганы.
VbUnicode 64 Преобразование строки в Unicode с помощью используемой по умолчанию системной кодовой страницы.
VbFromUnicode 128 Преобразование строки из Unicode с помощью используемой по умолчанию системной кодовой страницы.
* Применимо к дальневосточным национальным настройкам.
** Применимо только к японскому языку.

Примечание Эти константы определяются в языке Visual Basic для приложений. Это означает, что их имена можно использовать в любом месте кода вместо фактических значений. Большинство из констант могут быть объединены (например vbUpperCase + vbWide). Исключением являются взаимно противоречащие константы (например vbUnicode + vbFromUnicode). Использование констант vbWide, vbNarrow, vbKatakana и vbHiragana в несовместимой национальной настройке приводит к ошибкам выполнения.

Ниже перечислены допустимые символы, служащие разделителями слов: Null (Chr$(0)), горизонтальная табуляция (Chr$(9)), перевод строки (Chr$(10)), вертикальная табуляция (Chr$(11)), конец страницы (Chr$(12)), возврат каретки (Chr$(13)
), пробел (однобайтовая система) (Chr$(32)). Код пробела в двухбайтовых системах (DBCS) зависит от текущей страны.

Автор - alex77755
Дата добавления - 27.10.2014 в 12:46
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Добавить шрифты в макрос (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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