我的位置：首頁 >   > 

    貓咪的VBA筆記-在EXCEL上製作可改變內容的QRcode

      發表時間：
    最近沉迷於VBA的有趣之中，剛好今日完全用Excel寫出的可變動的QRCode，在此做個筆記！

    （懶得使用圖片，但我會盡可能紀錄的詳細的！並沒有）

    以下使用版本為OFFICE 365






    首先嘛，因為我只需要QRcode在固定的地方顯示，所以我不需要利用VBA新增QRcode，於是這部分直接使用新增控制項來新增一個BARCode控制項，步驟如下：
       
        1.開發人員 / 插入 / Active X 控制項 / 其他控制項 / Microsoft Barcode Control 16.0
       
    如此一來應該會出現一個「條碼」，我們需要將他改成QRcode的樣式：

        2.在「開發人員/設計模式」下右鍵該條碼 / Microsoft Barcode Control 16.0 物件 / 內容 / 樣式->改成「11 - QR code」

    如此一來就可以獲得一個漂亮的QRcode了，只需要將它調整適合大小並放到所想要的位置！

        3.調整合適大小，並放置到想要的位置

    那麼為了方便我們來在VBA內操控它，我們可以在設計模式的旁邊找到「屬性」，打開後再點擊剛剛做好的QRcode，當啷！我們就可以看把它裡面通通看光光囉，我們就可以看到它的屬性了呢！在(Name)的地方為它取一個好名字吧！

        4.「開發人員/屬性」打開屬性視窗，點擊QRcode，將屬性視窗內的(name)取一個想要的稱呼

    再來就進入到VBA的部分囉！為了操控這個QRCode的值，我採取的方案是按下按鈕的同時更新它的內容！！進階的使用者當然可以做一個表單使用文字方塊讓使用者輸入，但這不是這篇筆記的重點，所以會盡可能的簡單！

    5.作者寫到這邊懶了，總之就是先新增一個巨集吧<3

    Sub indata()
         ActiveSheet.OLEObjects("QRcode(name)的名稱").Object.Value = range("A1").Value
    End Sub

    6.總之就是這樣，把這個小王八蛋指定到按鈕上，按下去就可以把QRcode的值變成A1的值囉！剩下的就只是變化囉！