Excel VBA HKID verify and random generate

 

Excel VBA

前言

HKID Check digit 有一段時間，中學生的電腦課本會在，特別是教到 Algorithm、Encryption 這幾課

海豚只為這是眾所周知的事情，2005年已有blogger 文章提及。

曾拿着那點，查問公司的Senior，為什麼系統都沒有做這個檢查，去防止 users 輸入錯誤的資料

他的答法是因為香港政府從來沒有官方承認過或核實過這算法，海豚翻查資料，原來好像是某官員在非官方的場合稍為提到過。

感覺好像好有道理，但用了那麼久，這算法都沒有問題，沒有一個HKID是額外。

在UX的觀點，這完全站不著腳。提醒 user 輸入錯誤有助提升UX，同時減少系統錯誤資料，減輕後期維護成本。

好像銀行apps，開戶申請一樣，輸入地址都有suggestion，這些suggestion 可能來自政府 open API，可能來自 銀行內客戶的database。

如suggestion 沒有你的地址，你還是可到下一步，但必須勾

我已確認上述地址無誤之類的，它就是要減少人為錯誤

https://www.postman.com/crimson-spaceship-895558/workspace/siri-shortcut-hk-bus-eta/request/20883356-b7fae962-1ffc-4748-a1d1-0416110fa83e?action=share&creator=1096966&ctx=documentation

https://solar-satellite-338196.postman.co/workspace/My-Workspace~c4ab8058-eb17-4984-8464-a4821af4c9f6/collection/1096966-80a64a29-351d-491c-b922-682482df9f2e?action=share&creator=1096966&active-environment=1096966-6bc62fc9-4dc2-4f11-afe3-1e5f8cb79d89

所以海豚認為 根本就是臉子問題 / 倣氣過盛，不願改變。

Excel Verify HKID, random generate

下載:

HKID validate.xlsm

https://github.com/dolphinotaku/HKAddressExcel/raw/refs/heads/main/HKID%20validate.xlsm

使用方法

custom 的formula

=wCheckHKID()

=wRandomHKID

Excel VBA Enable

最近在搞那些有的沒的，記錄一下Excel VBA

先打開Excel

檔案 > 選項

如螢幕太小，會是

檔案 > 其它 > 選項

Excel > 檔案 > 選項 > 自訂功能區

勺開發人員

確定

Excel > 檔案 > 選項 > 信任中心

信任中心設定

在信任中心 > 巨集設定

啟用VBA巨集……

勺 在VBA 巨集時啟用時啟用Excel 4.0 巨集

勺 估任存取 VBA 專案物件模型

Excel VBA Module

開發人員 > Visual Basic

在VBAProject 右按 > 插入 > 模組

在模組的檔案中插入，自訂的程式碼

存取時如遇錯誤見下面訊息，按否

將檔案另存成 .xlsm

.xlsm 才可以跑VBA啊

Reference

Address Lookup Service

https://data.gov.hk/en-data/dataset/hk-dpo-als_01-als

Request format for Address Lookup Service (JSON Output)

https://data.gov.hk/en-data/dataset/hk-dpo-als_01-als/resource/b85e5d54-8feb-4040-83a9-16c87ca019a2

Example

https://www.als.gov.hk/lookup?q=central%20government%20offices

HKID Formula (HKID Number Check Digit) 香港身份證號碼計算

https://computerterminal.blogspot.com/2005/11/hkid-calculation.html

Access Excel Function HKID Check Digit (last digit)

http://excel-access.blogspot.com/2015/03/access-excel-function-hkid-check-digit.html

Access Excel Generate random HKID Hong Kong ID card number

http://excel-access.blogspot.com/2015/04/access-excel-generate-random-hkid-hong.html