帖子: 57
主題: 21
精華: 0
積分: 83
點名: 0
作業系統: win7
軟體版本: office 2007
閱讀權限: 20
註冊時間: 2015-9-18
最後登錄: 2022-9-13

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2015-9-25 23:45 | 只看該作者

判斷式出現0,多餘的空白

1.運算元多餘的空白如何清除前提工作人員:編號中間要有空格或是、隔開如 S01、S02、S03
2.沒資料會產生0
3.判斷式設定空白導致沒資料會產生0，如何不產生0

麻煩各位大大幫忙解答，或提出好意見
這問題困惑好久

附件有我問題檔案

TEST01.rar (13.24 KB)

樓主熱帖

Andy2483

　暱稱: 厚臉皮的學生

大學生 Rank: 4

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

9^#

發表於 2023-5-9 09:20 | 只看該作者

回復 2# 准提部林

謝謝論壇,謝謝前輩
後學藉此帖練習陣列與字典,學習方案如下,請前輩再指導

執行前:

執行結果:

Option Explicit
Sub TEST_1()
Dim Brr, Y, A, i&, j%, Ta$, Tb$, Td$, TT$
'↑宣告變數
Set Y = CreateObject("Scripting.Dictionary")
'↑令Y變數是字典
Brr = Range([F1], [A65536].End(3))
'↑令變數是二維陣列並以儲存格值倒入
A = Array(, 1, 2, 4, 6)
'↑設個一維陣列讓後續的結果迴圈抓取指定欄位
For i = 1 To UBound(Brr)
'↑設順迴圈
Ta = Brr(i, 1): Tb = Brr(i, 2): Td = Brr(i, 4): TT = Ta & "|" & Tb
If Y(TT) = "" Then
'↑這疑問句已經不知不覺將 key是TT變數,item是"" ,納入在Y字典中了
   Y(TT) = Y.Count
   '↑索性就依當下key的數量當變數紀錄此key在陣列中的索引列號
   For j = 1 To 4: Brr(Y.Count, j) = Brr(i, A(j)): Next: GoTo i01
   '↑因為是首次納入此key,所以將各欄位值帶入指定位置,覆蓋舊陣列值,
   '↑以上就已經處理了首次值,不必累加數量,所以跳到i01指定位置繼續執行
End If
Brr(Y(TT), 4) = Brr(Y(TT), 4) + Brr(i, 6)
'↑如果程序能跑到這裡,代表不是首次,將該key所帶的item調出來(索引列號),
'讓數量做累加
If InStr(" " & Brr(Y(TT), 3) & " ", " " & Td & " ") = 0 Then
   Brr(Y(TT), 3) = Trim(Brr(Y(TT), 3) & " " & Td)
End If
'↑將不重複工作人員納入
i01: Next
[L:O].ClearContents
'↑清除結果儲存格舊資料
If Y.Count > 1 Then [L1].Resize(Y.Count, 4) = Brr
'↑如果字典裡keys數>1!就從[L1]開始貼入Brr陣列局部值
Set Y = Nothing: Erase Brr
'↑釋放變數
End Sub

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

TOP

mark761222

中學生 Rank: 2

帖子: 57
主題: 21
精華: 0
積分: 83
點名: 0
作業系統: win7
軟體版本: office 2007
閱讀權限: 20
註冊時間: 2015-9-18
最後登錄: 2022-9-13

8^#

發表於 2015-9-28 21:40 | 只看該作者

這邊分享給大家一下
Dim R&  ，&代表長整數
Dim T$ ，$代表字串
以上是快速寫法
[L:O].ClearContents             清除[L:O]所有資料
[L1:O1] = Array("日期", "樣式", "工作人員", "數量")　  將日期，樣式，工作人員，數量寫到儲存格當中
R = Cells(Rows.Count, 1).End(xlUp).Row 將取得最後一筆的資料傳給R(以Ａ欄取得最後一筆〔列號〕)
後面會陸續補上，在忙

TOP

mark761222

中學生 Rank: 2

帖子: 57
主題: 21
精華: 0
積分: 83
點名: 0
作業系統: win7
軟體版本: office 2007
閱讀權限: 20
註冊時間: 2015-9-18
最後登錄: 2022-9-13

7^#

發表於 2015-9-28 21:31 | 只看該作者

回復 6# 准提部林

謝謝，我查了許多網站，已經將程式大概看懂了，有部分還是不懂需要一段時間消化一下，感謝你的指導

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

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

6^#

發表於 2015-9-26 21:23 | 只看該作者

回復 5# mark761222

[A:B]　與Range("A:B") 同義
[A2:B5]　與Range("A2:B5") 同義

其它問題若要說明，可能寫好幾頁也不一定能說明白，
買書或多看論壇的資料，慢慢進階吧！

TOP

mark761222

中學生 Rank: 2

帖子: 57
主題: 21
精華: 0
積分: 83
點名: 0
作業系統: win7
軟體版本: office 2007
閱讀權限: 20
註冊時間: 2015-9-18
最後登錄: 2022-9-13

5^#

發表於 2015-9-26 20:29 | 只看該作者

有幾個問題要請教版大
抱歉問這麼多問題

問題一
R& 後面的&與$代表的涵義是?

問題二
[L:O].ClearContents
[L1:O1] = Array("日期", "樣式", "工作人員", "數量")

[L:O]與[L1:O1] 這是屬於陣列嗎?
[L:O]是不是帶表[L~到數字任何數:O~到任何數]
所以底下假如有[L1:O1]、[L2:O2]、[L3:O3]都可以清除嗎?

問題三
'↓將資料範圍設為陣列（含標題列）
Arr = [A1:F1].Resize(R)

Resize(R) <這個R代表是什麼意思?

問題四
　　T = Arr(j, 1) & Arr(j, 2)
　
　　'↓取出〔索引值〕在字典檔中所帶的〔序號〕，
　　　這〔序號〕用來識別填入〔陣列〕的〔位置〕
　　N = xD(T)　
括號中的T跟上面那個T有相關性嗎?

TOP

准提部林