EXCEL VBA辦公自動化--自強基金會2012(第9次上課)
完整影音連結：
http://groups.google.com/group/excel-vba2012?hl=zh-TW
本次上課解說除了內建的函數外，如何自訂自己需求的函數，
可以隨心所欲建立自己的函數外，也能隨意的自訂引數，
讓工作變得更隨心所欲，並比較函數與副程式的不同，
並將函數改成副程式的VBA程式，
要點主要：
1.副程式沒有回傳值。
2.副程式若沒有引數，如何取得儲存格的值。
3.如何給訂範圍，讓迴圈幫我們自動完成工作。
吳老師 101/10/10
01_問題8需求說明
02_撰寫刪除列的流程說明
03_刪除列程式說明與加上註解
04_如何快速取得業務性名總數
05_錄製所需程式的巨集並修改
06_快速分類程式碼註解與修改
07_快速分類迴圈內程式碼修改
EXCEL函數與VBA進階班總整理:
http://terry55wu.blogspot.com/p/excelvba.html
目前 EXCEL函數與VBA完整影音論壇：
1.EXCEL函數與VBA設計
http://groups.google.com/group/labor_excel_vba?hl=zh-TW
2.EXCEL函數與VBA進階51
http://groups.google.com/group/excelvba51?hl=zh-TW
3.EXCEL函數與VBA雲端班
http://groups.google.com/group/excelvbacloud?hl=zh-TW
4.EXCEL VBA辦公自動化班
http://groups.google.com/group/excelvba_cloud?hl=zh-TW
5.EXCEL函數與VBA設計(自強基金會2012)
http://groups.google.com/group/excelvba2012?hl=zh-TW
6.EXCEL VBA辦公自動化(2012)
http://groups.google.com/group/excel-vba2012?hl=zh-TW
EXCEL,VBA,函數,自強基金會,吳清輝老師,程式設計,線上教學,e化創新,雲端計算,吳老師提供,APP教學
vba判斷儲存格是否有值 在 [算表] vba dictionary 遇到空值如何跳過- 看板Office 的美食出口停車場
軟體:excel
版本:2016
hi,小弟前兩天有發問如何用access 顯示重複次數，用來管理歌曲清單的(兩萬多筆)
當初是因為excel 函數(count if) 計算太吃資源，爬文可以用access 來處理
現在又覺得access 不是很直覺，因為不太會用...
反正現在試出一個方法就是用vba來檢查是否重複（如圖），跑起來也是很快速
現在一個問題就是，我的語法裡面，如果遇到空白的值，也會返回 "重複" 結果
程式碼如下，不知道該怎麼修改...
Sub 按鈕5_Click()
Dim Arr, xD, i&, T$, U&, TM
TM = Timer
Set xD = CreateObject("Scripting.Dictionary")
Arr = Range([K2], Cells(Rows.Count, 11).End(3))
For i = 1 To UBound(Arr)
T = Arr(i, 1): U = xD(T): Arr(i, 1) = ""
If U > 0 Then Arr(U, 1) = "重覆": xD(T) = -1: U = -1
If U < 0 Then Arr(i, 1) = "重覆"
If U = 0 Then xD(T) = i
Next i
[I2].Resize(UBound(Arr)) = Arr
MsgBox Timer - TM
End Sub
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 114.221.186.225
※ 文章網址: https://www.ptt.cc/bbs/Office/M.1550742493.A.882.html
現在想重新發問...圖片中有詳細說明...感謝您的幫忙...
程式碼一樣是上面那個下去改應該就可以了吧？
※ 編輯: sworder12 (114.221.186.225), 02/22/2019 19:40:37
※ 編輯: sworder12 (114.221.186.225), 02/22/2019 19:42:28
目前寫到這樣...感覺卡在K欄迴圈不懂怎麼寫入...
Sub 按鈕5_Click()
Dim Arr, xD, i&, T$, U&, TM
Dim Arr, Brr, xD, i&, T$, U&, TM
TM = Timer
Set xD = CreateObject("Scripting.Dictionary")
Arr = Range([A2], Cells(Rows.Count, 1).End(3)) '改為a2至a欄下方最後一個有值的儲存格
Brr = Range([K2], Cells(Rows.Count, 11).End(3))
'加上迴圈於k欄，將有資料的值先加入於變數xD內，值指定為0；該迴圈寫於原本for...next的上方
----這邊寫不出來----
For i = 1 To UBound(Arr)
T = Arr(i, 1): Arr(i, 1) = ""
if xD.exists(T) then U = xD(T)
If U > 0 Then Arr(U, 1) = "重覆": xD(T) = -1: U = -1
If U < 0 Then Arr(i, 1) = "重覆"
If U = 0 Then xD(T) = i And T <> ""
end if
Next i
[I2].Resize(UBound(Arr)) = Arr
MsgBox Timer - TM
End Sub
※ 編輯: sworder12 (114.221.186.225), 02/22/2019 23:37:54
※ 編輯: sworder12 (114.221.186.225), 02/22/2019 23:38:45
最終程式碼如下在此貼上，有需求的人可以看看，最後再次感謝大神幫忙！
Sub 按鈕5_Click()
Dim Arr, Brr, xD, i&, T$, U&, TM
TM = Timer
Set xD = CreateObject("Scripting.Dictionary")
Arr = Range([A2], Cells(Rows.Count, 1).End(3))
Brr = Range([K2], Cells(Rows.Count, 11).End(3))
For i = 1 To UBound(Brr)
T = Brr(i, 1)
If T <> "" Then xD(T) = 0
Next i
For i = 1 To UBound(Arr)
T = Arr(i, 1): Arr(i, 1) = ""
If xD.exists(T) Then
U = xD(T)
If U > 0 Then Arr(U, 1) = "重覆": xD(T) = -1: U = -1
If U < 0 Then Arr(i, 1) = "重覆"
If U = 0 And T <> "" Then xD(T) = i
End If
Next i
[I2].Resize(UBound(Arr)) = Arr
MsgBox Timer - TM
End Sub
※ 編輯: sworder12 (117.60.68.75), 02/23/2019 09:02:43
... <看更多>
相關內容