→ soyoso: 設個程序sub..end sub，將beforesave內的巨集，複製到該 07/31 21:09
→ soyoso: 程序內，再f8逐筆執行看看 07/31 21:09
→ ck3300511: s大您看我的程式有問題嗎? 07/31 22:56
→ soyoso: 提供檔案看看 07/31 23:11
→ ck3300511: 好~我明天提供給您 07/31 23:53
軟體:Excel
https://imgur.com/Zj9kLi6
如上圖，我想要使用者在填表後、存檔前利用VBA檢核是否符合規定位數
E欄11碼、I欄3碼、J和K欄2碼、L欄5碼
(已有設定資料驗證，但使用者都用複製貼上把格式蓋掉)
我的想法是在P~T欄用函數Len算出EIJKL欄的位數，然後使用者貼檔後
計算每欄的平均值，只要不等於規定的位數，按儲存或另存新檔，
就會跳出視窗告訴使用者格式錯了
但是附件的程式好像不會跑，似乎也不能按F8逐筆執行看看問題在哪
有請高人指點是哪個地方要修正....感謝
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 118.169.113.174 (臺灣)
※ 文章網址: https://www.ptt.cc/bbs/Office/M.1564576825.A.7B1.html