Qr код в excel оффлайн

Вы знаете, как создать QR-код на основе определенного значения ячейки в Excel? В этой статье мы подробно расскажем, как этого добиться.

Создайте QR-код на основе значения ячейки с помощью Barcode Control и кода VBA
Легко создавайте сразу несколько QR-кодов на основе значений ячеек с помощью замечательного инструмента.

---

Создайте QR-код на основе значения ячейки с помощью Barcode Control и кода VBA

Элемент управления штрих-кодом может помочь вам быстро создать QR-код на основе значения ячейки в Excel. Пожалуйста, сделайте следующее.

1. Откройте рабочий лист, содержащий значение ячейки, на основе которого вы создадите QR-код.

2. Нажмите Застройщик > Вставить > Больше контроля. Смотрите скриншот:

3. в Больше элементов управления окно, проверьте наличие Контроль штрих-кода Microsoft 16.0 or Контроль штрих-кода Microsoft 15.0.

4. Если вы не нашли элемент управления штрих-кодом в окне «Дополнительные элементы управления» или элемент управления штрих-кодом не соответствует версии 16.0 или 15.0, вам необходимо загрузить файл управления штрих-кодом, щелкнув следующие ссылки: скачать контроль штрих-кода. Если в окне дополнительных элементов управления есть Barcode Control 16.0 или 15.0, просто перейдите на страницу ниже. шаг 10.

После загрузки файла распакуйте его, а затем обновите элемент управления штрих-кодом, используя загруженный элемент управления штрих-кодом в Excel, как показано ниже.

5. Закройте все книги Excel, перейдите в Start раздел, найдите Excel app и щелкните его правой кнопкой мыши, затем выберите Запуск от имени администратора из контекстного меню. Смотрите скриншот:

6. В дебюте Контроль учетных записей диалогового окна, нажмите Да кнопку.

7. Затем создается новая книга. Пожалуйста, нажмите Застройщик > Вставить > Больше контроля. Смотрите скриншот:

8. в Больше элементов управления окна, нажмите Зарегистрироваться Custom кнопку, найдите и выберите один из загруженных файлов OCX с qr-кодом, а затем щелкните Откройте кнопка. Смотрите скриншот:

9. Нажмите OK кнопку, когда он возвращает Больше элементов управления для завершения обновления элемента управления штрих-кодом. Затем снова откройте книгу, содержащую значения ячеек, на основе которых вы создадите QR-коды.

10. Щелкните правой кнопкой мыши вкладку листа и щелкните Просмотреть код из контекстного меню, чтобы открыть Microsoft Visual Basic для приложений окно. Затем скопируйте и вставьте ниже код VAB в окно кода. И наконец нажмите другой + Q ключи для выхода из Microsoft Visual Basic для приложений окно.

Код VBA: создать QR-код в Excel

Sub setQR()
'Updated by Extendoffice 2018/8/22
    Dim xSRg As Range
    Dim xRRg As Range
    Dim xObjOLE As OLEObject
    On Error Resume Next
    Set xSRg = Application.InputBox("Please select the cell you will create QR code based on", "Kutools for Excel", , , , , , 8)
    If xSRg Is Nothing Then Exit Sub
    Set xRRg = Application.InputBox("Select a cell to place the QR code", "Kutools for Excel", , , , , , 8)
    If xRRg Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    Set xObjOLE = ActiveSheet.OLEObjects.Add("BARCODE.BarCodeCtrl.1")
    xObjOLE.Object.Style = 11
    xObjOLE.Object.Value = xSRg.Text
    ActiveSheet.Shapes.Item(xObjOLE.Name).Copy
    ActiveSheet.Paste xRRg
    xObjOLE.Delete
    Application.ScreenUpdating = True
End Sub

11. Нажмите Застройщик > Вставить > Кнопка (элемент управления формой) как показано ниже.

12. Нарисуйте кнопку на текущем листе. В всплывающем Назначить макрос диалоговое окно, выберите установитьQR в поле, а затем щелкните OK кнопку.

13. Выключите Режим проектирования кликнув Застройщик > Режим проектирования.

14. Нажмите кнопку в открывшемся Kutools for Excel выберите ячейку, на основе которой будет создан QR-код, и нажмите OK.

15. В секунду Kutools for Excel выберите ячейку для размещения QR-кода. Смотрите скриншот:

Тогда QR-код будет немедленно вставлен в указанную ячейку. Повторите шаги с 14 по 15, чтобы завершить создание всех QR-кодов. Смотрите скриншот:

---

Легко создавайте сразу несколько QR-кодов на основе значений ячеек с помощью замечательного инструмента.

Честно говоря, описанный выше метод не прост в использовании, поскольку у него есть свои ограничения. Здесь настоятельно рекомендуется Вставить QR-код особенность Kutools for Excel. Эта функция может помочь вам быстро вставить QR-коды в большом количестве на основе указанных значений ячеек в Excel всего за несколько щелчков мышью. Пожалуйста, сделайте следующее, чтобы это сделать.

1. Во-первых, подготовьте свои значения, на основе которых вы хотите создать QR-код.

2. Нажмите Кутулс > Вставить > Вставить QR-код.

Советы: Если вы не можете найти объект по этому пути, нажмите другой + S клавиши одновременно, чтобы открыть Поиск функций Kutools коробка, введите вручную QR код в поле поиска, тогда вы увидите Вставить QR-код функция указана в списке, просто нажмите, чтобы активировать эту функцию. Смотрите скриншот:

Теперь панель «Вставить QR-код» отображается в правой части книги.

3. в Вставить QR-код панели необходимо настроить следующим образом.

4. Затем Kutools for Excel появится диалоговое окно, щелкните ОК.

5. Затем одновременно создаются QR-коды. Вам нужно вручную закрыть Вставить QR-код панель, если завершите создание всех QR-кодов.

Нажмите, чтобы узнать больше об этой функции …

---

Связанная статья:

• Как легко вставить штрих-код в ячейки с помощью шрифта штрих-кода в Excel?

 

QRCodeAX

Simple QR Code generator for MS Office (Access, Excel)

QRCodeAX is an ActiveX Object for generating QR Codes in Windows Enviroment.
It is based on yas78/QRCodeLibVBA.

Installation:

Main file is QRCodeAX.ocx. Place it anywhere to your system drive and then run regsvr32.exe QRCodeAX.ocx from the command prompt as an administrator.
Based on your system, the file should normally live in WindowsSystem32 directory, (on 64bit system in WindowssysWOW64), but it does not really matter.

That’s it. Now the examples should work.

Placing QRCodeAX into Excel or Access files

If you want to place the QRCode into your Excel sheet / app, click Developer tab > Insert > More Controls, then choose QRCodeAX from the list and the draw the object on the sheet. See the ExcelExample.xlsm

In MS Access, enter the Design view, on the Controls tab click More > ActiveX Controls and choose QRCodeAX from the list. You can bind the Control Source directly to the data field so you don’t have to use VBA or Macros at all. Unfortunately, the continuous forms does not support this kind of ActiveX Control, which is really shame.

A Google translated README.md from yas78/QRCodeLibVBA follows:

QRCodeLibVBA

QRCodeLibVBA is a QR code generation library written in Excel VBA.
Generate model 2 code symbols based on JIS X 0510.

Feature

• It corresponds to numbers, alphanumeric characters, 8 bit bytes, and kanji mode
• Can create split QR code
• Can be saved to 1 bpp or 24 bpp BMP file (DIB)
• It can be obtained as 1 bpp or 24 bpp IPicture object
• Image coloring (foreground color / background color) can be specified
• Character code in 8 bit byte mode can be specified

Quick start

Please refer to QRCodeLib.xlam in 32bit version Excel.

How to use

Example 1. Indicates the minimum code of the QR code consisting of a single symbol (not a split QR code).

Public Sub Example()
    Dim sbls As Symbols
    Set sbls = CreateSymbols()
    sbls.AppendString "012345abcdefg"

    Dim pict As stdole.IPicture
    Set pict = sbls(0).Get24bppImage()
    
End Sub

Example 2. Specify the error correction level

Create a Symbols object by setting the value of the ErrorCorrectionLevel enumeration to the argument of the CreateSymbols function.

Dim sbls As Symbols
Set sbls = CreateSymbols(ErrorCorrectionLevel.H)

Example 3. Specify upper limit of model number

Create a Symbols object by setting arguments of the CreateSymbols function.

Dim sbls As Symbols
Set sbls = CreateSymbols(maxVer:=10)

Example 4. Specify the character code to use in 8-bit byte mode

Create a Symbols object by setting arguments of the CreateSymbols function.

Dim sbls As Symbols
Set sbls = CreateSymbols(byteModeCharsetName:="utf-8")

Example 5. Create divided QR code

Create a Symbols object by setting arguments of the CreateSymbols function. If you do not specify the upper limit of the model number, it will be split up to model number 40 as the upper limit.

Dim sbls As Symbols
Set sbls = CreateSymbols(allowStructuredAppend:=True)

An example of dividing when exceeding model number 1 and acquiring IP picture object of each QR code is shown below.

Dim sbls As Symbols
Set sbls = CreateSymbols(maxVer:=1, allowStructuredAppend:=True)
sbls.AppendString "abcdefghijklmnopqrstuvwxyz"

Dim pict As stdole.IPicture
Dim sbl As Symbol

For Each sbl In sbls
    Set pict = sbl.Get24bppImage()
Next

Example 6. Save to BMP file

Use the Save1bppDIB, or Save 24bppDIB method of the Symbol class.

Dim sbls As Symbols
Set sbls = CreateSymbols()
sbls.AppendString "012345abcdefg"

sbls(0).Save1bppDIB "D:qrcode1bpp1.bmp"
sbls(0).Save1bppDIB "D:qrcode1bpp2.bmp", 10 ' 10 pixels per module
sbls(0).Save24bppDIB "D:qrcode24bpp1.bmp"
sbls(0).Save24bppDIB "D:qrcode24bpp2.bmp", 10 ' 10 pixels per module

Выбираем функцию QRcodePrint, проставляем нужные параметры — получаем QR-код в выбранной ячейке.

Особенности: функционал надстройки/библиотеки BedvitXLL (на момент публикации этого сообщения — это бесплатная надстройка для Excel).
Как использовать: Зайти по ссылке, скачать архив и запустить установщик (или ручками поставить нужную версию в папку …AppDataRoamingMicrosoftAddIns), выбрать нужную функцию в категории «XLL». Всё.

Параметры/Аргументы функции QRcodePrint :
1. QRcodeText — что печатаем, строка(обязательное).
2. SizePixel — размер пикселя (не картинки, а квадратика в QR), по умолчанию 4 (минимально рекомендуемый)
3. PixelColorR =0 цвет RGB (0-255) если хотим цветную картинку (по умолчанию черный)
4. PixelColorG = 0
5. PixelColorB =0
6. VersionSymbol — версия символов (1-40) (по умолчанию = 0-выбор автоматом), см. ниже
7. LevelErrCorrect — уровень коррекции ошибок (0-3, по умолчанию = 1 ~15%), см. ниже
8.WidthImage — постоянная ширина (т.к. при кодировании разного размера данных размер QR меняется). Если хотим постоянный размер — проставляем. По умолчанию «-1» (размер фактический)
9.HeightImage — постоянная высота, тоже, что и п.8
Результат: При удаче, возвращается закодированная в QR-коде строка, при ошибке — «#ЧИСЛО!»

При обновлении данных, функция создает новый QRcode, старый удаляется, если он находится в этой же ячейке, в которой рассчитывается функция (левый, верхний угол рисунка).
В функции можно делать любые ссылки, в т.ч. и в другую книгу.
По версиям символов 1-40 и уровням коррекции ошибок 0-3 (L-H) — можно просветиться в Вики