Генератор QR-кода

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Генератор QR-кода (Макросы/Sub)

Генератор QR-кода

konstantin_987

Дата: Пятница, 10.02.2017, 23:34 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 27

Репутация: 1 ±

Замечаний: 0% ±

Excel 2010

Доброго времени суток, уважаемые форумчане!
Прошу помощи!
Есть задача сгенерировать: QR-код, с нескольких источников (ячеек).
У меня получается только все в строчку, а хотелось бы что бы так как подается в файле

К сообщению приложен файл: 11111.xlsm (26.5 Kb)

Ответить

bmv98rus

Дата: Суббота, 11.02.2017, 09:16 | Сообщение № 2

Группа: Друзья

Ранг: Участник клуба

Сообщений: 4107

Репутация: 768 ±

Замечаний: 0% ±

Excel 2013/2016

Вы передаете строку символов, ну и код генерится для строки.
Еслм вставить разделитель в формулу

Код

=C5&CHAR(10)&C6&CHAR(10)&C7

то результтаты совпадают, хотя код немного отличается.
Да и посмотрите, в вашем примере исходные данные отличаются.

~~Замечательный~~ Временно просто медведь ~~, процентов на 20~~.

Сообщение отредактировал bmv98rus - Суббота, 11.02.2017, 10:21

Ответить

konstantin_987

Дата: Суббота, 11.02.2017, 10:26 | Сообщение № 3

Группа: Пользователи

Ранг: Новичок

Сообщений: 27

Репутация: 1 ±

Замечаний: 0% ±

Excel 2010

bmv98rus, то что нужно
Спасибьо огромное)!!!

Ответить

Lion

Дата: Понедельник, 16.10.2017, 15:05 | Сообщение № 4

Группа: Пользователи

Ранг: Прохожий

Сообщений: 7

Репутация: 0 ±

Замечаний: 0% ±

Excel 2007

Подскажите пожалуйста, а как сделать так , что бы после знака "&" в одном из текстов генерация QR-кода не останавливалась. Пример текста который надо перевести в QR-код плилогаю

К сообщению приложен файл: 9306753.xlsm (26.1 Kb)

Сообщение отредактировал Lion - Понедельник, 16.10.2017, 15:36

Ответить

_Boroda_

Дата: Понедельник, 16.10.2017, 15:09 | Сообщение № 5

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16675

Репутация: 6481 ±

Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS

- Прочитайте Правила форума
- Приложите файл в формате Excel размером до 100кб согласно п.3 Правил форума

Непонятно что Вы хотите

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

Lion

Дата: Вторник, 12.12.2017, 13:32 | Сообщение № 6

Группа: Пользователи

Ранг: Прохожий

Сообщений: 7

Репутация: 0 ±

Замечаний: 0% ±

Excel 2007

Спрошу проще, как сделать так чтоб символ & тоже мог присутствовать в QR-коде?

Сообщение отредактировал Lion - Вторник, 12.12.2017, 13:33

Ответить

bmv98rus

Дата: Вторник, 12.12.2017, 15:51 | Сообщение № 7

Группа: Друзья

Ранг: Участник клуба

Сообщений: 4107

Репутация: 768 ±

Замечаний: 0% ±

Excel 2013/2016

Lion,

Цитата _Boroda_, 16.10.2017 в 15:09, в сообщении № 5 ()

- Прочитайте Правила форума

А так, перекодировать в %26

~~Замечательный~~ Временно просто медведь ~~, процентов на 20~~.

Сообщение отредактировал bmv98rus - Вторник, 12.12.2017, 16:41

Ответить

konstantin_987

Дата: Пятница, 05.01.2018, 23:28 | Сообщение № 8

Группа: Пользователи

Ранг: Новичок

Сообщений: 27

Репутация: 1 ±

Замечаний: 0% ±

Excel 2010

Как на листе сформировать 2 QR-кода с данными из двух разных ячеек?

Ответить

bmv98rus

Дата: Пятница, 05.01.2018, 23:49 | Сообщение № 9

Группа: Друзья

Ранг: Участник клуба

Сообщений: 4107

Репутация: 768 ±

Замечаний: 0% ±

Excel 2013/2016

вставить еще раз формулу и изменить имя кода

Код

=URL_QRCode_SERIES("qr_code_2";C2;190;"qrCode")

[vba]

Код

Function URL_QRCode_SERIES( _
    ByVal [color=red]PictureName [/color]As String, _
    ByVal QR_Value As String, _
    Optional ByVal PictureSize As Long = 120, _
    Optional ByVal DisplayText As String = "", _
    Optional ByVal Updateable As Boolean = True)

[/vba]