luhpro

謝謝大家
太感動了
luhpro 大大的程式我一開始就有試過
是完全沒問題的
只是他的程式太難~我無法消化
...
ssooi 發表於 2020-12-3 20:54

太難......　O.O
我(業餘者)的程式大都是陽春型的,
很少牽扯到簡化程式碼的部分呢.

要了解程式怎麼跑的,
有個滿不錯的功能：檢視->區域變數視窗,
善用單步模式(F8)
並把左邊有+的都點一下打開觀察每個指令對其成員及內含值的變化,
再搭配底下 即時運算視窗 用 ?變數名 來取值做確認.

Dictionary 不是太難的東西,
它有兩個部分 Item 與 key
Item=vD(key) ' 內含值 = vD(鍵值)

Cells 則是 儲存格的表示形式之一,
Range("B5")=Cells(5, 2) ' Range("儲存格位址")=Cells(列號, 欄號)

IsEmpty 函數則是檢查括弧內的值是否為空,
希望對你有所幫助.

hcm19522

https://blog.xuite.net/hcm19522/twblog/589493905

准提部林

回復 8# luhpro


我習慣用 GOTO , 它可簡化或減少些判斷,
例如:
IF A=1 AND B=2 AND C=3 THEN
  執行動作
END IF
依常理, 它要同時判斷3個, 都符合了才執行,

若分開判斷
IF A<>1 THEN GOTO 100 '這條件成立, 跳至下個迴圈, 而不須再進行B及C的判斷
IF B<>2 THEN GOTO 100
IF C<>3 THEN GOTO 100

當然也可用OR
IF A<>1 OR B<>2 OR C<>3 THEN GOTO 100
但這不確定是否要ABC都判斷完了才跳出

程式寫法, 大家都會養成個人習慣, 只要不影響程式運行效率, 大都能接受吧!!!

luhpro

回復  luhpro


我習慣用 GOTO , 它可簡化或減少些判斷,
例如:
IF A=1 AND B=2 AND C=3 THEN
  執行 ...
准提部林 發表於 2020-12-4 17:23

以你所舉的例子在結構化程式會是這樣的形式:
  For ...
    If A<>1 Then  '這條件成立, 跳至下個迴圈, 而不須再進行B及C的判斷
      If B<>2 Then
        If C<>3 Then
          ......
       End If
     End If
   End If  
...
  Next

程式寫法, 大家都會養成個人習慣, 只要不影響程式運行效率, 大都能接受吧!!!

嗯......
是的, 使用適合自己的方式就可以了.

n7822123

回復 14# luhpro

如果VBA能有 VB.Net的 Continue [For | Do]  語法，一般人可能也不會用到Goto

其實我認為Goto才是最基本的語法，有學過組合語言 的人都知道，很多組合語言都沒有For、Do 迴圈

都是利用標籤跳行執行，來達成迴圈功能，我利用VBA語法來模擬組合語言寫For 、 Do迴圈的邏輯

如下程式 參考


Sub ADD100Sum()
'計算1加到100的累加值
I = 0
N = 100
迴圈:
I = I + 1
S = S + I
If I < N Then GoTo 迴圈
MsgBox "1加到" & N & "的總合= " & S
End Sub

Sub ADDTo30000up()
'計算1加到N的累加值，直到超過30000
'回傳N值
I = 0
Target = 30000
迴圈:
I = I + 1
S = S + I
If S < Target Then GoTo 迴圈
MsgBox "1加到'" & I & "'的累加值=" & S & "，剛過30000 "
End Sub

luhpro

回復 15# n7822123
一般經歷過5.25"磁碟片的人應該也都知道組合語言吧.(總覺得那些遊戲程式又小又超好玩的)
還記得那時侯瘋狂的買組合語言和Basic的書邊看邊學,(一台PC要7萬多,那時還看不到中文呢)
但我也只能算是解析過知道位元移位是甚麼概念罷了,
真要說程式設計還是有很多要學的，
這網站上可挖的寶太多了,學不完阿......

Goto 當然是最早期的基本指令.
它的應用彈性與範圍非常大,
卻也容易因為非預期運算子帶入邏輯條件而走入誤區,
所以後來高階語言才會設計出專有的迴圈指令.

像我一般都是先打好外圍成對指令再在裡面加指令, 即:
先打 Do ... While  或是 For...Next 亦或是 With...End With等,
再在中間加上指令,
好處是作用範圍不會錯,
也不會發生對應不到或不小心交錯成對指令(例 :  For ...  For...  Next...  Next)的情形.

結構化程式是較易解析判讀對想學習的人也較適合.
當然,各種方式與指令只要能善用都是很好的.

你的例子用 Do...Loop Until 迴圈就可以完成的喔:

1. Do
   
2.   I = I + 1
   
3.   S = S + I
   
4. Loop Until Not (I < N)

複製代碼

當然, While...Wend 迴圈也是沒問題的:

1. While I < N
   
2.   I = I + 1
   
3.   S = S + I
   
4. Wend

複製代碼

ssooi

謝謝各位前輩
學習到非常多
謝謝

Andy2483

謝謝論壇,謝謝各位前輩
後學藉此帖練習陣列與字典,學習方案如下,請各位前輩指教
執行前:

下載 (75.55 KB)

2023-12-1 13:56

執行結果:

下載 (82.8 KB)

2023-12-1 13:56

Option Explicit
Sub TEST()
Dim Brr, Z, A, i&, j%, R&, Y&, T$
'↑宣告變數
Set Z = CreateObject("Scripting.Dictionary")
'↑令Z變數是字典
Brr = Range([C1], [A65536].End(3))
'↑令Brr變數是裝入儲存格值的二維陣列
For i = 2 To UBound(Brr)
'↑設順迴圈!從2到Brr陣列最大索引列號
   T = Brr(i, 1) & "|" & Brr(i, 3)
   '↑令T變數是第1欄與第3欄陣列值以 "|"符號串接的新字串
   Z(T) = Z(T) + 1: Z(T & "/r") = i
   '↑令T變數為key的item值累加1(這是要記錄字串組出現過幾次)
   '↑令T變數連接"/r" 的新字串為key,item是索引列號,納入Z字典中
Next
For Each A In Z.Keys
'↑設逐項迴圈!令A是Z字典裡的Keys之一
   If Right(A, 2) = "/r" Or Z(A) > 1 Then GoTo A01
   '↑如果是記錄列號或 字串組出現過次大於1 的都跳過
   R = R + 1: Y = Z(A & "/r")
   '↑令R變數累加1 (這是要讓符合條件的資料放置的列號)
   For j = 1 To 3: Brr(R, j) = Brr(Y, j): Next
   '↑令符合條件的資料寫入指定的陣列位置
A01: Next
If R = 0 Then Exit Sub Else [J:L].ClearContents
'↑如果沒有符合條件的資料!就結束程式執行,否則清除舊的結果格內容
[J2].Resize(R, 3) = Brr
'↑令擴展的儲存格區域以Brr陣列值寫入,超過該範圍的陣列值忽略
[J1:L1] = [A1:C1].Value
'↑令新標題位置格值等於 原標題值
End Sub

singo1232001

回復 1# ssooi


兩種寫法   自己挑一個
Sub t1()
o = Split("Provider=Microsoft.,,.0;Extended Properties=Excel ,,.0;Data Source=" & ThisWorkbook.FullName, ",")
Set cn = CreateObject("adodb.connection"): If Application.Version > 12 Then o(1) = "ACE.OLEDB.12": _
o(3) = 12: cn.Open Join(o, "") Else o(1) = "Jet.OLEDB.4": o(3) = 8: cn.Open Join(o, "")
    q = "SELECT a.序號, a.時程, a.牌子 FROM [工作表2$A1:C] as a "
q = q & "WHERE EXISTS ( SELECT 1 FROM [工作表2$A1:C] AS b "
q = q & "               WHERE b.序號 = a.序號 AND b.牌子 = a.牌子 "
q = q & "               GROUP BY b.序號, b.牌子 HAVING COUNT(*) = 1)"
[G:J].ClearContents: [G1].CopyFromRecordset cn.Execute(q)
End Sub




Sub t2()
o = Split("Provider=Microsoft.,,.0;Extended Properties=Excel ,,.0;Data Source=" & ThisWorkbook.FullName, ",")
Set cn = CreateObject("adodb.connection"): If Application.Version > 12 Then o(1) = "ACE.OLEDB.12": _
o(3) = 12: cn.Open Join(o, "") Else o(1) = "Jet.OLEDB.4": o(3) = 8: cn.Open Join(o, "")
    q = "SELECT a.序號, a.時程, a.牌子 FROM [工作表2$A1:C] AS a "
q = q & "WHERE ( SELECT COUNT(*) FROM [工作表2$A1:C] AS b "
q = q & "        WHERE b.序號 = a.序號 AND b.牌子 = a.牌子) = 1"
[G:J].ClearContents: [G1].CopyFromRecordset cn.Execute(q)
End Sub

singo1232001

回復 19# singo1232001



   Sub t5()
I = Split("Provider=Microsoft.,Jet.OLEDB.4,.0;Extended Properties=Excel ,8,.0;Data Source=", ",")
If Application.Version > 12 Then I(1) = "ACE.OLEDB.12": I(3) = 12
Set cn = CreateObject("adodb.connection"): cn.Open Join(I, "") & ThisWorkbook.FullName
   q = "SELECT a.序號, a.時程, a.牌子 FROM [工作表2$A1:C] AS a WHERE (  SELECT COUNT(*) "
q = q & "FROM [工作表2$A1:C] AS b WHERE b.序號 = a.序號 AND b.牌子 = a.牌子) = 1"
[G:J].ClearContents: [G1].CopyFromRecordset cn.Execute(q)
End Sub

我覺得 前三行的方式 應該是adodb.connection 呼叫最簡短的一種寫法了