<![CDATA[MaruMagi部落格之拷貝經驗]]> http://maru.gates.tw/index.php zh-tw http://maru.gates.tw/read.php/.htm <![CDATA[中華郵政公司的3+2轉碼程式夠難用..還是自己寫程式比較快]]> zuyan <zuyan_chang@yahoo.com.tw> Wed, 20 May 2009 04:27:02 +0000 http://maru.gates.tw/read.php/.htm 想到了中華郵政有3+2的郵遞區號轉檔程式可以使用
但是沒想到我在用的時候困難重重,還沒辦法轉成才糟糕
所以只好自己寫了一小段VBA程式來處理

Sheet1 為名單
點擊在新視窗中瀏覽此圖片
Sheet2 為 郵遞區號 table表,格式為 (鄉鎮市區,區碼)
點擊在新視窗中瀏覽此圖片

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

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

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碼才會有人用
Tags - , , , , ]]> http://maru.gates.tw/read.php/.htm#blogcomment <![CDATA[[評論] 中華郵政公司的3+2轉碼程式夠難用..還是自己寫程式比較快]]> <user@domain.com> Thu, 01 Jan 1970 00:00:00 +0000 http://maru.gates.tw/read.php/.htm#blogcomment