Вставить немецкое ö в строку кода
Udik
Дата: Понедельник, 11.07.2016, 18:00 |
Сообщение № 1
Группа: Друзья
Ранг: Старожил
Сообщений: 1588
Репутация:
192
±
Замечаний:
0% ±
Excel 2016 х 64
Вопрос: есть ли возможность вставить в строку кода немецкое ö? Мне строку с ö надо многократно вставить в таблицу html. Но эта буква не хочет даже в редакторе жить .
Вопрос: есть ли возможность вставить в строку кода немецкое ö? Мне строку с ö надо многократно вставить в таблицу html. Но эта буква не хочет даже в редакторе жить . Udik
вот вам барабан яд 41001231307558 wm R419131876897 udik1968@gmail.com
Ответить
Сообщение Вопрос: есть ли возможность вставить в строку кода немецкое ö? Мне строку с ö надо многократно вставить в таблицу html. Но эта буква не хочет даже в редакторе жить . Автор - Udik Дата добавления - 11.07.2016 в 18:00
Саня
Дата: Понедельник, 11.07.2016, 18:09 |
Сообщение № 2
Группа: Друзья
Ранг: Ветеран
Сообщений: 1068
Репутация:
560
±
Замечаний:
0% ±
XL 2016
[vba]Код
for i=1 to 10000 cells(i,1) = chrw(i) next i
[/vba] д.б. где-то там!
[vba]Код
for i=1 to 10000 cells(i,1) = chrw(i) next i
[/vba] д.б. где-то там! Саня
Ответить
Сообщение [vba]Код
for i=1 to 10000 cells(i,1) = chrw(i) next i
[/vba] д.б. где-то там! Автор - Саня Дата добавления - 11.07.2016 в 18:09
SLAVICK
Дата: Понедельник, 11.07.2016, 18:10 |
Сообщение № 3
Группа: Модераторы
Ранг: Старожил
Сообщений: 2290
Репутация:
766
±
Замечаний:
0% ±
2019
ChrW в помощь. [vba]Код
Sub D() dd.LabL = "Прив" & ChrW(246) & "т": dd.Show End Sub
[/vba] Ну если то передайте ее в стринг и дальше юзайте. [offtop] Саня , немного опередил [/offtop]
ChrW в помощь. [vba]Код
Sub D() dd.LabL = "Прив" & ChrW(246) & "т": dd.Show End Sub
[/vba] Ну если то передайте ее в стринг и дальше юзайте. [offtop] Саня , немного опередил [/offtop]SLAVICK
Иногда все проще чем кажется с первого взгляда.
Сообщение отредактировал SLAVICK - Понедельник, 11.07.2016, 18:13
Ответить
Сообщение ChrW в помощь. [vba]Код
Sub D() dd.LabL = "Прив" & ChrW(246) & "т": dd.Show End Sub
[/vba] Ну если то передайте ее в стринг и дальше юзайте. [offtop] Саня , немного опередил [/offtop]Автор - SLAVICK Дата добавления - 11.07.2016 в 18:10
_Boroda_
Дата: Понедельник, 11.07.2016, 18:13 |
Сообщение № 4
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16666
Репутация:
6478
±
Замечаний:
0% ±
2003; 2007; 2010; 2013 RUS
[vba]Код
a = ChrW(246) Range("D1") = a
[/vba] Добавлено Поржал сейчас - 246 нашел точно также, как у Сани [vba]Код
For i = 1 To 9999 Range("C" & i) = ChrW(i) Next i
[/vba] А вообще-то можно вот так число 246 найти [vba][/vba]
[vba]Код
a = ChrW(246) Range("D1") = a
[/vba] Добавлено Поржал сейчас - 246 нашел точно также, как у Сани [vba]Код
For i = 1 To 9999 Range("C" & i) = ChrW(i) Next i
[/vba] А вообще-то можно вот так число 246 найти [vba][/vba] _Boroda_
Скажи мне, кудесник, любимец ба’гов... Платная помощь: Boroda_Excel@mail.ru Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
Сообщение отредактировал _Boroda_ - Понедельник, 11.07.2016, 18:18
Ответить
Сообщение [vba]Код
a = ChrW(246) Range("D1") = a
[/vba] Добавлено Поржал сейчас - 246 нашел точно также, как у Сани [vba]Код
For i = 1 To 9999 Range("C" & i) = ChrW(i) Next i
[/vba] А вообще-то можно вот так число 246 найти [vba][/vba] Автор - _Boroda_ Дата добавления - 11.07.2016 в 18:13
Udik
Дата: Понедельник, 11.07.2016, 18:33 |
Сообщение № 5
Группа: Друзья
Ранг: Старожил
Сообщений: 1588
Репутация:
192
±
Замечаний:
0% ±
Excel 2016 х 64
Спасибо всем пойду над кодом издеваться
Спасибо всем пойду над кодом издеваться Udik
вот вам барабан яд 41001231307558 wm R419131876897 udik1968@gmail.com
Ответить
Сообщение Спасибо всем пойду над кодом издеваться Автор - Udik Дата добавления - 11.07.2016 в 18:33
SLAVICK
Дата: Понедельник, 11.07.2016, 18:52 |
Сообщение № 6
Группа: Модераторы
Ранг: Старожил
Сообщений: 2290
Репутация:
766
±
Замечаний:
0% ±
2019
нашел точно также, как у Сани
а я давно уже юзаю юдфки: [vba]Код
Function ChrW_text(Optional i# = -32768) If i > 65535 Or i < -32768 Then ChrW_text = "Error": Exit Function ChrW_text = ChrW(i) End Function Function AscChrW_text(s$) AscChrW_text = AscW(s) End Function
[/vba] Кстати почему? по моим данным : [vba][/vba]только искать глазками в таком массиве
нашел точно также, как у Сани
а я давно уже юзаю юдфки: [vba]Код
Function ChrW_text(Optional i# = -32768) If i > 65535 Or i < -32768 Then ChrW_text = "Error": Exit Function ChrW_text = ChrW(i) End Function Function AscChrW_text(s$) AscChrW_text = AscW(s) End Function
[/vba] Кстати почему? по моим данным : [vba][/vba]только искать глазками в таком массиве SLAVICK
Иногда все проще чем кажется с первого взгляда.
Ответить
Сообщение нашел точно также, как у Сани
а я давно уже юзаю юдфки: [vba]Код
Function ChrW_text(Optional i# = -32768) If i > 65535 Or i < -32768 Then ChrW_text = "Error": Exit Function ChrW_text = ChrW(i) End Function Function AscChrW_text(s$) AscChrW_text = AscW(s) End Function
[/vba] Кстати почему? по моим данным : [vba][/vba]только искать глазками в таком массиве Автор - SLAVICK Дата добавления - 11.07.2016 в 18:52
Udik
Дата: Понедельник, 11.07.2016, 18:52 |
Сообщение № 7
Группа: Друзья
Ранг: Старожил
Сообщений: 1588
Репутация:
192
±
Замечаний:
0% ±
Excel 2016 х 64
рано я обрадовался [vba]Код
strA = "Krutschakow Wadim |R" & ChrW(246) & "srather Str. 612a | 51107 K" & ChrW(246) & "ln"
[/vba] в строку обычное о встаёт. Может ещё где-то надо настройки менять? strA объявлена как String
рано я обрадовался [vba]Код
strA = "Krutschakow Wadim |R" & ChrW(246) & "srather Str. 612a | 51107 K" & ChrW(246) & "ln"
[/vba] в строку обычное о встаёт. Может ещё где-то надо настройки менять? strA объявлена как String Udik
вот вам барабан яд 41001231307558 wm R419131876897 udik1968@gmail.com
Сообщение отредактировал Udik - Понедельник, 11.07.2016, 18:56
Ответить
Сообщение рано я обрадовался [vba]Код
strA = "Krutschakow Wadim |R" & ChrW(246) & "srather Str. 612a | 51107 K" & ChrW(246) & "ln"
[/vba] в строку обычное о встаёт. Может ещё где-то надо настройки менять? strA объявлена как String Автор - Udik Дата добавления - 11.07.2016 в 18:52
SLAVICK
Дата: Понедельник, 11.07.2016, 18:56 |
Сообщение № 8
Группа: Модераторы
Ранг: Старожил
Сообщений: 2290
Репутация:
766
±
Замечаний:
0% ±
2019
в строку обычное о встаёт
с чего Вы взяли? просто нужно выводить через элементы юзерформы.
в строку обычное о встаёт
с чего Вы взяли? просто нужно выводить через элементы юзерформы.SLAVICK
Иногда все проще чем кажется с первого взгляда.
Ответить
Сообщение в строку обычное о встаёт
с чего Вы взяли? просто нужно выводить через элементы юзерформы.Автор - SLAVICK Дата добавления - 11.07.2016 в 18:56
Udik
Дата: Понедельник, 11.07.2016, 19:01 |
Сообщение № 9
Группа: Друзья
Ранг: Старожил
Сообщений: 1588
Репутация:
192
±
Замечаний:
0% ±
Excel 2016 х 64
просто нужно выводить через элементы юзерформы.
э, в html файл? как-то плохо представляю эту комбинацию вот строка кода которая в файл идёт [vba]Код
Print #1, "<td>" & strA & "</td>"
[/vba]
просто нужно выводить через элементы юзерформы.
э, в html файл? как-то плохо представляю эту комбинацию вот строка кода которая в файл идёт [vba]Код
Print #1, "<td>" & strA & "</td>"
[/vba]Udik
вот вам барабан яд 41001231307558 wm R419131876897 udik1968@gmail.com
Ответить
Сообщение просто нужно выводить через элементы юзерформы.
э, в html файл? как-то плохо представляю эту комбинацию вот строка кода которая в файл идёт [vba]Код
Print #1, "<td>" & strA & "</td>"
[/vba]Автор - Udik Дата добавления - 11.07.2016 в 19:01
SLAVICK
Дата: Понедельник, 11.07.2016, 19:09 |
Сообщение № 10
Группа: Модераторы
Ранг: Старожил
Сообщений: 2290
Репутация:
766
±
Замечаний:
0% ±
2019
про html как-то выпало из виду. Думал просто msgBox. Ну тогда нужно правильно записывать файл, пробуйте так: [vba]Код
Sub D() strA = "Krutschakow Wadim |R" & ChrW(246) & "srather Str. 612a | 51107 K" & ChrW(246) & "ln" SaveTextToFile strA, "d:\dd.html" dd.LabL = strA dd.Show End Sub Function SaveTextToFile(ByVal txt$, ByVal filename$) As Boolean Dim fso As Object Set fso = CreateObject("Scripting.FileSystemObject") Dim Fileout As Object Set Fileout = fso.CreateTextFile(filename$, True, True) Fileout.Write txt$ Fileout.Close End Function
[/vba]
про html как-то выпало из виду. Думал просто msgBox. Ну тогда нужно правильно записывать файл, пробуйте так: [vba]Код
Sub D() strA = "Krutschakow Wadim |R" & ChrW(246) & "srather Str. 612a | 51107 K" & ChrW(246) & "ln" SaveTextToFile strA, "d:\dd.html" dd.LabL = strA dd.Show End Sub Function SaveTextToFile(ByVal txt$, ByVal filename$) As Boolean Dim fso As Object Set fso = CreateObject("Scripting.FileSystemObject") Dim Fileout As Object Set Fileout = fso.CreateTextFile(filename$, True, True) Fileout.Write txt$ Fileout.Close End Function
[/vba]SLAVICK
Иногда все проще чем кажется с первого взгляда.
Ответить
Сообщение про html как-то выпало из виду. Думал просто msgBox. Ну тогда нужно правильно записывать файл, пробуйте так: [vba]Код
Sub D() strA = "Krutschakow Wadim |R" & ChrW(246) & "srather Str. 612a | 51107 K" & ChrW(246) & "ln" SaveTextToFile strA, "d:\dd.html" dd.LabL = strA dd.Show End Sub Function SaveTextToFile(ByVal txt$, ByVal filename$) As Boolean Dim fso As Object Set fso = CreateObject("Scripting.FileSystemObject") Dim Fileout As Object Set Fileout = fso.CreateTextFile(filename$, True, True) Fileout.Write txt$ Fileout.Close End Function
[/vba]Автор - SLAVICK Дата добавления - 11.07.2016 в 19:09
Саня
Дата: Понедельник, 11.07.2016, 19:17 |
Сообщение № 11
Группа: Друзья
Ранг: Ветеран
Сообщений: 1068
Репутация:
560
±
Замечаний:
0% ±
XL 2016
[vba]Код
dim sO_aumlyaut_4html as string sO_aumlyaut_4html = "ö"
[/vba]
[vba]Код
dim sO_aumlyaut_4html as string sO_aumlyaut_4html = "ö"
[/vba] Саня
Сообщение отредактировал Саня - Понедельник, 11.07.2016, 19:21
Ответить
Сообщение [vba]Код
dim sO_aumlyaut_4html as string sO_aumlyaut_4html = "ö"
[/vba] Автор - Саня Дата добавления - 11.07.2016 в 19:17
Udik
Дата: Понедельник, 11.07.2016, 19:17 |
Сообщение № 12
Группа: Друзья
Ранг: Старожил
Сообщений: 1588
Репутация:
192
±
Замечаний:
0% ±
Excel 2016 х 64
Ну тогда нужно правильно записывать файл,
попробовал эти 2 процедуры, вроде нормально выводит. Завтра буду свой код переделывать.
Ну тогда нужно правильно записывать файл,
попробовал эти 2 процедуры, вроде нормально выводит. Завтра буду свой код переделывать.Udik
вот вам барабан яд 41001231307558 wm R419131876897 udik1968@gmail.com
Ответить
Сообщение Ну тогда нужно правильно записывать файл,
попробовал эти 2 процедуры, вроде нормально выводит. Завтра буду свой код переделывать.Автор - Udik Дата добавления - 11.07.2016 в 19:17
Udik
Дата: Понедельник, 11.07.2016, 19:23 |
Сообщение № 13
Группа: Друзья
Ранг: Старожил
Сообщений: 1588
Репутация:
192
±
Замечаний:
0% ±
Excel 2016 х 64
Саня , не выходит каменный цветок вашим способом При вставке в редактор ö сразу в о переходит.
Саня , не выходит каменный цветок вашим способом При вставке в редактор ö сразу в о переходит.Udik
вот вам барабан яд 41001231307558 wm R419131876897 udik1968@gmail.com
Ответить
Сообщение Саня , не выходит каменный цветок вашим способом При вставке в редактор ö сразу в о переходит.Автор - Udik Дата добавления - 11.07.2016 в 19:23
Саня
Дата: Понедельник, 11.07.2016, 19:23 |
Сообщение № 14
Группа: Друзья
Ранг: Ветеран
Сообщений: 1068
Репутация:
560
±
Замечаний:
0% ±
XL 2016
Саня, не выходит каменный цветок вашим способом
При вставке в редактор ö сразу в о переходит.
посмотри рисунок ниже кода
Саня, не выходит каменный цветок вашим способом
При вставке в редактор ö сразу в о переходит.
посмотри рисунок ниже кодаСаня
Ответить
Сообщение Саня, не выходит каменный цветок вашим способом
При вставке в редактор ö сразу в о переходит.
посмотри рисунок ниже кодаАвтор - Саня Дата добавления - 11.07.2016 в 19:23
Udik
Дата: Понедельник, 11.07.2016, 19:31 |
Сообщение № 15
Группа: Друзья
Ранг: Старожил
Сообщений: 1588
Репутация:
192
±
Замечаний:
0% ±
Excel 2016 х 64
до меня не доходит, при вставке в файл через ChrW(246) та же фигня была, пока SLAVICK , не помог. === ааа, допёр - вместо одной буквы вставлять комбинацию. == Проверил, с ней и старый код работает. Ещё раз всем спасибо!
до меня не доходит, при вставке в файл через ChrW(246) та же фигня была, пока SLAVICK , не помог. === ааа, допёр - вместо одной буквы вставлять комбинацию. == Проверил, с ней и старый код работает. Ещё раз всем спасибо!Udik
вот вам барабан яд 41001231307558 wm R419131876897 udik1968@gmail.com
Сообщение отредактировал Udik - Понедельник, 11.07.2016, 19:40
Ответить
Сообщение до меня не доходит, при вставке в файл через ChrW(246) та же фигня была, пока SLAVICK , не помог. === ааа, допёр - вместо одной буквы вставлять комбинацию. == Проверил, с ней и старый код работает. Ещё раз всем спасибо!Автор - Udik Дата добавления - 11.07.2016 в 19:31
Саня
Дата: Понедельник, 11.07.2016, 19:35 |
Сообщение № 16
Группа: Друзья
Ранг: Ветеран
Сообщений: 1068
Репутация:
560
±
Замечаний:
0% ±
XL 2016
в хтмл-файлах браузеры умеют читать спецсимволы: амперсанд+решетка+246+точка_с_запятой - получится нужный тебе символ
в хтмл-файлах браузеры умеют читать спецсимволы: амперсанд+решетка+246+точка_с_запятой - получится нужный тебе символ Саня
Ответить
Сообщение в хтмл-файлах браузеры умеют читать спецсимволы: амперсанд+решетка+246+точка_с_запятой - получится нужный тебе символ Автор - Саня Дата добавления - 11.07.2016 в 19:35