標題：中華郵政公司的3+2轉碼程式夠難用..還是自己寫程式比較快
出處：MaruMagi部落格之拷貝經驗
時間：Wed, 20 May 2009 12:27:02 +0000
作者：zuyan
地址：http://maru.gates.tw/read.php/215.htm

內容：
由於受人之託,處理名單可是上頭都沒有郵遞區號(村里長名單,在內政部網站可以下載)
想到了中華郵政有3+2的郵遞區號轉檔程式可以使用
但是沒想到我在用的時候困難重重,還沒辦法轉成才糟糕
所以只好自己寫了一小段VBA程式來處理

Sheet1 為名單

點擊在新視窗中瀏覽此圖片
http://maru.gates.tw...ttachment.php?fid=38
 
 Sheet2 為 郵遞區號 table表,格式為 (鄉鎮市區,區碼)

點擊在新視窗中瀏覽此圖片
http://maru.gates.tw...ttachment.php?fid=39


在名單資料中有一個重要的地方是在有一個鄉鎮市的欄位,所以為了比較方便使用了該欄位做為比對的欄位

用了 迴圈,判斷式,字串比對 三個基本的指令

i = 1
j = 1
For i = 2 To 7833
    For j = 1 To 392
        If InStr(Sheet1.Cells(i, 2), Sheet2.Cells(j, 1)) = 1 Then
          Sheet1.Cells(i, 8) = Sheet2.Cells(j, 2)
          Exit For
       End If
    Next
Next


不是我不想用3+2碼,而是3碼,反正還是寄的到...
下次中華郵政的3+2碼的產生軟體可以聰明一些,那3+2碼才會有人用


Generated by Bo-blog 2.1.1 Release