標題: 資料取代 [打印本頁]

---

作者: yeh6712    時間: 2010-7-19 21:20     標題: 資料取代

如何將某欄位中的資料：七年一班、七年二班、…、七年二十班等，全部取代成701、702、…、720。
用巨集要如何寫呢？感謝…

---

作者: Hsieh    時間: 2010-7-19 23:00

回復 1# yeh6712

1. Function MyNum(Mystr$)
   
2. Dim d As Object, i%
   
3. Application.Volatile
   
4. Set d = CreateObject("Scripting.Dictionary")
   
5. If InStr(Mystr, "十") > 0 Then
   
6.    If Split(Mystr, "十")(0) = "" Then
   
7.       Mystr = "一" & Mystr
   
8.    End If
   
9. End If
   
10. For i = 0 To 99
    
11. m = Application.Text(i, "[DBNum1]")
    
12.    d(m) = i
    
13. Next
    
14. MyNum = d(Mystr)
    
15. End Function

複製代碼

[attach]1914[/attach]

---

作者: yeh6712    時間: 2010-7-20 19:32

回復 2# Hsieh


    這個程式碼好像和圖示不一樣吧？！我看不懂耶，是不是貼錯了？

---

作者: Hsieh    時間: 2010-7-20 21:43

回復 3# yeh6712
這是自定義函數
把程式複製到一般模組
C欄公式如圖所示輸入

---

作者: yeh6712    時間: 2010-7-25 15:28

終於了解了，多謝…

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)