QRコード自動作成 VBAプログラム

Question

前提・実現したいこと

VBAプログラムでQRコードを自動作成したいです。
実行ボタンを押すと、転記と所定セルの文字をQRコード化されるプログラムを考えています。
J12セルのみｋ12へQRコードとして自動作成したいです。
[イメージ説明](09

悩みごと

転記後のQRコードを作成するコードが分からなかった為、教えていただきたいです。

該当のソースコード

Sub QRコード自動作成()

Dim A As Range 'typeA
Dim B As Range 'typeB
Dim C As Range 'typeC
Dim D As Range 'typeD
Dim E As Range 'typeE
Dim F As Range 'typeF
Dim N As Range 'No
Dim FN As Range 'typeF+No
Dim i As Integer '繰り返しカウント
Dim j As Range '必要行

Set A = Range("J2")
Set B = Range("J3")
Set C = Range("J4")
Set D = Range("J5")
Set E = Range("J6")
Set F = Range("J7")
Set j = Range("J8")

For i = 1 To j
    Cells(11 + i, 2) = i
    Cells(11 + i, 3) = A
    Cells(11 + i, 4) = B
    Cells(11 + i, 5) = C
    Cells(11 + i, 6) = D
    Cells(11 + i, 7) = E
    Cells(11 + i, 8) = F
    Cells(11 + i, 9) = Cells(11 + i, 8) & Cells(11 + i, 2)
    Cells(11 + i, 10) = Cells(11 + i, 3) & vbCrLf & Cells(11 + i, 4) & vbCrLf & Cells(11 + i, 5) & vbCrLf & Cells(11 + i, 6) & vbCrLf & Cells(11 + i, 9)
Next i



End Sub

Comments

[Y.H.]

検索するといっぱい記事がヒットします
https://www.google.com/search?q=vba+qr%E3%82%B3%E3%83%BC%E3%83%89+%E4%BD%9C%E6%88%90

何を調べ、何を試し、何がわからないのか質問に記載ください。

[jabe]

失礼しました。
以後、実施内容も記載するようにします。

このサイトは私にとってプログラムの先生の集まりなので、引き続き活用させていただきたいと考えております。

Answer 1

「QRコードを作成するコードが分からなかった為」とはどのレベルでの話でしょうか。

QRコードはJIS X 0510で規格化されて仕様が公開されていますので、独力でQRコードを生成するプログラムを構築することも可能ですが、ご質問の文言を読む限りでは質問者さんにはちょっとハードルが高いと思います。

市販されているQRコード生成ライブラリを使用されるのが現実的な解決方法ではないかと思いますので、「QRコード出力 VBA」等で検索してヒットするライブラリを使用されるか、Accessのバーコードコントロールを使用する方法
【VBA】QRコード生成（Accessのバーコードコントロール使用）
等を検討されてみてはどうでしょうか。

Comments

[jabe]

回答ありがとうございます。
リンク先の内容で解決できました。コード内容すべては理解できませんでしたが、なんとなく理解できました。
助かりました。

Answer 2

ただググっただけですが、下記を見つけました。
https://www.cellnets.co.jp/column/qrcode/

Comments

[jabe]

回答ありがとうございました。
参考にさせていただきます。