全球人壽_EXCEL高階函數運用班
上課內容：
01_課程介紹與電信業會員手機號碼
02_樞紐分析產生電信業會員各年級生統計表與圖
03_增加年級欄位與分析
04_範例北市公有零售市場行情報表與視覺圖
05_增加分析欄位與自訂函數
06_自訂VBA函數切割資料
07_住宅竊盜點位資訊統計與繪圖
08_刪除資料與重新整理與通訊產品正規化
09_定義名稱與樞紐分析表
10_繪製樞紐分析圖
11_定義名稱與INDIRECT函數
12_產生樞紐分析圖與VBA自動化
13_產生PC硬體零件銷貨資料
14_問題1到6解說
15_問題7到12解說
16_匯入ACCESS資料到EXCEL
17_用MSQUERY查詢ACCESS資料庫
18_從文字檔案會入資料與篩選資料
完整影音
http://goo.gl/aQTMFS
教學論壇(之後課程會放論壇上課學員請自行加入)：
https://groups.google.com/forum/#!forum/pccu_excel_vba05
懶人包：
EXCEL函數與VBA http://terry28853669.pixnet.net/blog/category/list/1384521
EXCEL VBA自動化教學 http://terry28853669.pixnet.net/blog/category/list/1384524
學習目標
一、文字和資料函數：
FIND、MID、IFERROR（擷取括弧內字串與擷取長寬高)
二、邏輯函數：IF、OR、AND綜合應用
三、日期和時間函數：
年曆綜合範例(IF、MONTH、IFFERROR與WEEKDAY函數)
四、數學和三角函數：
SUMIF時數統計表、COUNTIF樂透彩中獎機率統計
五、檢視和參照函數：
VLOOKUP進階、INDEX、OFFSET、INDIRECT
其他綜合範例：股票配股稅率統計表、人事考評管理系統
上課用書：
Excel職場函數468招：超完整！新人工作就要用到的計算函數+公式範例集
作者： 羅剛君
出版社：PCuSER電腦人文化
出版日期：2016/01/30
吳老師 109/11/9
函數,東吳大學推廣部,自強基金會,程式設計,線上教學excel vba教學電子書,excel vba範例,vba語法,vba教學網站,vba教學講義,vba範例教學,excel vba教學視頻
vba if萬用字元 在 [算表] VBA 暗號解碼比對抓錯運算需提高效率- 看板Office 的推薦與評價
軟體:OFFICE 365 EXCEL
版本:1908
目前正在編寫的功能是直接把一個工作表當成暗號表
A欄=暗號，B欄=解碼後的對應詞
另一個工作表則是雜亂無章的暗號跟解碼後的詞彙
然後要用暗號表去抓出文章內是否有出現暗號
而且是否解碼後的詞彙是否是正確的
例如
暗號表
A1=9527 B1=唐伯虎
A2=88 B2=掰掰
(下略)
解碼表
A1=pppij"9527"clizxj B1=pppij"唐伯X"clizxj
C1=解碼偵錯：出現暗號：9527 解碼遺漏：唐伯虎
大概是這種感覺
目前編寫的代碼大致如下：
For Row1 = 2 To 10000
For Row2 = 4 To 10000
Sheets("解碼").Activate
If Sheets("暗號").Cells(Row1, 1).value <> "" Then
If Sheets("解碼").Cells(Row2, 1).value <> "" Then
Code = Sheets("暗號").Cells(Row1, 1).value '暗號
Decry = Sheets("暗號").Cells(Row1, 2).value '解碼對應詞
Decode1 = InStr(1, (Cells(Row2, 1)), Code) '判斷暗號文章是否有暗號
Decode2 = InStr(1, (Cells(Row2, 2)), Decry) '判斷解碼後是否有對應詞
If Decode1 <> 0 And Decode2 = 0 Then '若暗號文章有暗號但解碼後無對應詞
For Col = 7 To 52
If Cells(Row2, Col).value = "" Then
Cells(Row2, Col).value = "解碼遺漏：" & Decry
'在該文章列的7～52欄個別記下解碼遺漏的對應詞(因為可能一格內有多個不同暗號)
Exit For
End If
Next
End If
End If
End If
Next
Next
最後再用Textjoin把紀錄在7～52欄的遺漏紀錄整合在同一格內
然後為了方便辨識雜亂文章中的各個暗號
也去網路上找了幫特定字串上色的寫法
https://access-excel.tips/excel-vba-change-partial-text-color/
我是用Macro 1 – Change partial text color using VBA Macro這個
目前的寫法雖然可以正常運作
但速度上還是有點慢，在有600條暗號的情況下，至少也要60秒才能檢查完
不知道是否有其他方式可以加快運算的速度？
而且現在還有個問題是如果暗號中有兩個9527
但解碼後只有一個唐伯虎，這種情況也不會被判斷成解碼缺失
所以在想是不是應該寫另一個用資料剖析功能運算的版本來測試看看.....
把每個暗號個別分開，就可以連同數量不一致的也抓出來
希望有人可以提供意見，感謝
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 123.193.189.222 (臺灣)
※ 文章網址: https://www.ptt.cc/bbs/Office/M.1570466433.A.3AB.html
這樣就不用多檢查沒有值的欄位
range.find或range.autofilter我會再研究看看
另外 寫入變數內再拿出來的做法有範例嗎？ 網站也可
然後雖然可能不會用到了，但還是想問一下
range.value=值 跟 range="值" 在運算速度上是有差的嗎？
※ 編輯: Kamikiri (60.248.94.55 臺灣), 10/08/2019 10:16:46
感謝，剛剛在看到你的推文前上網查了一下
目前只想出以下寫法(還沒寫好寫正確 但應該類似)？
Dim Array(1,52) as Variant
if 解碼有誤
Array(Row2,Col) = "解碼遺漏：" & Decry
不知道創個Dictionary寫進去之後再整批拿出來是否也相同
總之目前大致上已經有方向，應該沒問題了，感謝解答
※ 編輯: Kamikiri (60.248.94.55 臺灣), 10/08/2019 10:22:03
了解，我晚點再GOOGLE研究看看
最後一問，如果你還有看到的話再麻煩解答
假如我想在解碼中使用萬用字元*
例如 95*7 讓9507~9597全部都視為應該被解碼為唐伯虎的話
是否只能使用Range.Find才有辦法？
發現其他寫法似乎都只會把*視為一般字元而非萬用字元
萬分感謝
※ 編輯: Kamikiri (60.248.94.55 臺灣), 10/08/2019 11:33:39
... <看更多>