保留沒有重複的欄位 - Excel程式區

帖子: 835
主題: 6
精華: 0
積分: 915
點名: 16
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2024-11-14

11^# 跳轉到 »

發表於 2020-12-3 22:08 | 只看該作者

謝謝大家
太感動了
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 函數則是檢查括弧內的值是否為空,
希望對你有所幫助.

TOP

hcm19522

大學生 Rank: 4

帖子: 1392
主題: 4
精華: 0
積分: 1402
點名: 0
作業系統: WIN
軟體版本: 2007
閱讀權限: 50
性別: 男
註冊時間: 2015-9-11
最後登錄: 2024-12-27

熱烈參與勳章

12^#

發表於 2020-12-4 10:43 | 只看該作者

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

google"EXCEL迷" blog 或google網址:https://hcm19522.blogspot.com/

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2839
主題: 10
精華: 0
積分: 2895
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-12-27

13^#

發表於 2020-12-4 17:23 | 只看該作者

回復 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都判斷完了才跳出

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

TOP

luhpro

高中生 Rank: 3 Rank: 3

帖子: 835
主題: 6
精華: 0
積分: 915
點名: 16
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2024-11-14

14^#

發表於 2020-12-5 07:01 | 只看該作者

回復 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

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

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

TOP

n7822123

　暱稱: 阿龍

中學生 Rank: 2

帖子: 406
主題: 8
精華: 0
積分: 453
點名: 0
作業系統: WINDOWS 7
軟體版本: 2007
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2015-2-7
最後登錄: 2021-7-31

15^#

發表於 2020-12-5 15:55 | 只看該作者

本帖最後由 n7822123 於 2020-12-5 16:04 編輯

回復 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

1 評分人數

准提部林: 金錢 + 5

程式是依需求寫的，需求表達不清楚
或者沒有上傳附件，愛莫能助

TOP

luhpro

高中生 Rank: 3 Rank: 3

帖子: 835
主題: 6
精華: 0
積分: 915
點名: 16
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2024-11-14

16^#

發表於 2020-12-8 01:54 | 只看該作者

本帖最後由 luhpro 於 2020-12-8 01:58 編輯

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

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

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

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

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

Do
I = I + 1
S = S + I
Loop Until Not (I < N)

複製代碼

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

While I < N
I = I + 1
S = S + I
Wend

複製代碼

TOP

ssooi

中學生 Rank: 2

帖子: 37
主題: 15
精華: 0
積分: 72
點名: 0
作業系統: win10
軟體版本: 0
閱讀權限: 20
註冊時間: 2020-7-23
最後登錄: 2022-5-27

17^#

發表於 2020-12-9 21:32 | 只看該作者

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

TOP

Andy2483

　暱稱: 厚臉皮的學生

大學生 Rank: 4

帖子: 1447
主題: 40
精華: 0
積分: 1471
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 50
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2024-12-5

18^#

發表於 2023-12-1 13:57 | 只看該作者

本帖最後由 Andy2483 於 2023-12-1 18: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

用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

singo1232001

　暱稱: 熱狗慶

中學生 Rank: 2

帖子: 354
主題: 5
精華: 0
積分: 387
點名: 0
作業系統: windows7
軟體版本: vba,vb,excel2007
閱讀權限: 20
性別: 男
註冊時間: 2017-1-8
最後登錄: 2024-8-2

論壇榮譽勳章論壇贊助勳章

19^#

發表於 2023-12-2 02:49 | 只看該作者

回復 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

TEST.zip (15.54 KB)

TOP

singo1232001

　暱稱: 熱狗慶

中學生 Rank: 2

帖子: 354
主題: 5
精華: 0
積分: 387
點名: 0
作業系統: windows7
軟體版本: vba,vb,excel2007
閱讀權限: 20
性別: 男
註冊時間: 2017-1-8
最後登錄: 2024-8-2

論壇榮譽勳章論壇贊助勳章

20^#

發表於 2023-12-2 07:46 | 只看該作者

本帖最後由 singo1232001 於 2023-12-2 07:56 編輯

回復 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 呼叫最簡短的一種寫法了

TOP

[發問] 保留沒有重複的欄位

[收藏此主題] [關注此主題的新回復]

[通過 QQ、MSN 分享給朋友]