[發問] 下拉式清單裡選擇&quot;篩選不重複的資料&quot;

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 267
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2025-10-31

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

2^#

發表於 2013-2-26 11:18 | 只看該作者

回復 1# lifedidi
表單模組

Private Sub UserForm_Initialize()
Set d = CreateObject("Scripting.Dictionary")
With Sheet1
For Each a In .Range(.[A1], .[A1].End(xlDown))
d(a.Value) = ""
Next
End With
ComboBox1.List = d.keys
End Sub

複製代碼

學海無涯_不恥下問

帖子: 104
主題: 32
精華: 0
積分: 144
點名: 0
作業系統: windowsXP
軟體版本: 2007
閱讀權限: 20
性別: 男
註冊時間: 2013-2-25
最後登錄: 2022-9-2

論壇贊助勳章

3^#

發表於 2013-2-26 13:15 | 只看該作者

謝謝超級版主的幫忙

這筆資料為

sheet1:
　　A　Ｂ
１　●　3:05
２　●　1:51
３　○　0:40
４　○　3:01
５　○　5:11
６　※　5:01
７　※　3:36
８　※　2:11

(＊Ａ為產品類別　Ｂ為需時)

小弟需要的流程：

【在Sheet2建立按鈕】→【按下後show出A視窗】→【下拉式清單選擇●○※之一】→【選擇●】→【點選確定】→【按下後show出B視窗】→【Ｂ視窗為兩個按鈕 1.總時間 2.平均時間】→【點選1.總時間】→【show出C視窗】→【C視窗有個ListBOX顯示出結果】

煩請大大指點，感謝。

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 267
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2025-10-31

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

4^#

發表於 2013-2-26 14:17 | 只看該作者

本帖最後由 Hsieh 於 2013-2-26 14:18 編輯

回復 3# lifedidi

Sheet2模組

Private Sub CommandButton1_Click()
FormA.Show 0
End Sub

複製代碼

FormA模組

Private Sub CommandButton1_Click()
FormB.Show 0
End Sub
Private Sub UserForm_Initialize()
Set d = CreateObject("Scripting.Dictionary")
With Sheet1
For Each a In .Range(.[A2], .[A1].End(xlDown))
d(a.Value) = ""
Next
End With
ComboBox1.List = d.keys
End Sub

複製代碼

FormB模組

Private Sub CommandButton1_Click()
FormC.Show 0
FormC.計算 1
End Sub
Private Sub CommandButton2_Click()
FormC.Show 0
FormC.計算 2
End Sub

複製代碼

FormC模組

Sub 計算(work As Integer)
Dim Ar()
With Sheet1
For Each a In .Range(.[A2], .[A1].End(xlDown))
If a.Value = FormA.ComboBox1.Value Then
ReDim Preserve Ar(s)
Ar(s) = a.Offset(, 1).Value
s = s + 1
End If
Next
End With
If work = 1 Then ListBox1.AddItem Format(Application.Sum(Ar), "hh:mm:ss")
If work = 2 Then ListBox1.AddItem Format(Application.Average(Ar), "hh:mm:ss")
End Sub

複製代碼

Form Test.zip (12.55 KB)

學海無涯_不恥下問

帖子: 104
主題: 32
精華: 0
積分: 144
點名: 0
作業系統: windowsXP
軟體版本: 2007
閱讀權限: 20
性別: 男
註冊時間: 2013-2-25
最後登錄: 2022-9-2

論壇贊助勳章

5^#

發表於 2013-2-26 15:39 | 只看該作者

謝謝超級版主的幫忙！小弟公式還在吸收中。

請教儲存格的問題：

B欄為小時:分 (ex: 03:50 為 3小時50分鐘)

我的儲存格式該用哪一種型式？小弟目前用"自訂"mm:hh

run起來怪怪的，顯示不出來，

小弟手上的資料大約估計加總後為幾百個小時，

對應的格式該怎麼設定呢？麻煩了。

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 267
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2025-10-31

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

6^#

發表於 2013-2-26 16:02 | 只看該作者

回復 5# lifedidi
你是要在LISTBOX內顯示或是儲存格內顯示?
LISTBOX內要顯示超過24小時加總時間

Sub 計算(work As Integer)
Dim Ar()
With Sheet1
For Each a In .Range(.[A2], .[A1].End(xlDown))
If a.Value = FormA.ComboBox1.Value Then
ReDim Preserve Ar(s)
Ar(s) = a.Offset(, 1).Value
s = s + 1
End If
Next
End With
If work = 1 Then ListBox1.AddItem Application.Text(Application.Sum(Ar), "[hh]:mm:ss")
If work = 2 Then ListBox1.AddItem Application.Text(Application.Average(Ar), "[hh]:mm:ss")
End Sub

複製代碼

若儲存格格式則自訂為[hh]:mm

學海無涯_不恥下問

帖子: 104
主題: 32
精華: 0
積分: 144
點名: 0
作業系統: windowsXP
軟體版本: 2007
閱讀權限: 20
性別: 男
註冊時間: 2013-2-25
最後登錄: 2022-9-2

論壇贊助勳章

7^#

發表於 2013-2-26 17:25 | 只看該作者

回復 6# Hsieh

大大，請麻煩幫忙看一下哪裡有問題，

工時系統excel版本).rar (69.61 KB)

謝謝，辛苦了。

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 267
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2025-10-31

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

8^#

發表於 2013-2-26 23:05 | 只看該作者

本帖最後由 Hsieh 於 2013-2-27 19:01 編輯

回復 7# lifedidi
首先先把所有Form.Show的參數加上0
Form.Show 0
讓開啟的表單都為非強制回應

Sub 計算(work As Integer)
Dim Ar(), Ay()
With Sheet1
For Each a In .Range(.[D7], .[D7].End(xlDown)) '在D欄的資料循環
If a.Value = 專案編號.ComboBox1.Value Then '如果D欄的值等於下拉選單的值
ReDim Preserve Ar(s) '保留陣列元素並重設陣列上限
ReDim Preserve Ay(s)
Ar(s) = a.Offset(, 17).Value '將D欄向右17欄的值寫入陣列
Ay(s) = a.Offset(, -3).Resize(, 26).Value '將A:Z欄的值寫入陣列
s = s + 1 '預備下次陣列擴展的上限
End If
Next
End With
If s > 0 Then '如果有符合的資料
Sheet2.Range("C5").CurrentRegion.Offset(2) = "" '先清空上次的查詢內容
Sheet2.[C7].Resize(s, 26) = Application.Transpose(Application.Transpose(Ay)) '寫入工作表
If work = 1 Then ListBox1.AddItem Application.Text(Application.Sum(Ar), "[hh]:mm:ss") '文字方塊顯示加總結果
If work = 2 Then ListBox1.AddItem Application.Text(Application.Average(Ar), "[hh]:mm:ss") '文字方塊顯示平均結果
End If
End Sub

複製代碼

學海無涯_不恥下問

帖子: 104
主題: 32
精華: 0
積分: 144
點名: 0
作業系統: windowsXP
軟體版本: 2007
閱讀權限: 20
性別: 男
註冊時間: 2013-2-25
最後登錄: 2022-9-2

論壇贊助勳章

9^#

發表於 2013-2-27 09:44 | 只看該作者

非常謝謝Hsieh大大，照你的做法在show後面加0 就可以順利完成。

小弟想以此類推其他部分，可以解釋變數的部分嗎？謝謝！

小弟繼續研究...

帖子: 104
主題: 32
精華: 0
積分: 144
點名: 0
作業系統: windowsXP
軟體版本: 2007
閱讀權限: 20
性別: 男
註冊時間: 2013-2-25
最後登錄: 2022-9-2

論壇贊助勳章

10^#

發表於 2013-2-27 21:59 | 只看該作者

回復 8# Hsieh

大大你好：

以下為我程式碼，小弟愚昧，請幫忙修改。

想法：
【先篩選D7以下資料】→【再篩選G7以下資料】→【兩次篩選後的資料總工時相加(並把資料貼在C7之後)】

操作：
【第一視窗：選擇資料(D7篩選)按確定】→【第二視窗：選擇資料(G7篩選)案確定】→【第三視窗：ListBox秀出總工時】 *所篩選出的資料PO在C7之後

Sub 計算(work As Integer)
Dim Ar(), Ay()
With Sheet1
For Each a In .Range(.[D7], .[D7].End(xlDown))
   If a.Value = 工種查詢x專案編號.ComboBox1.Value Then
      ReDim Preserve Ar(s)
      ReDim Preserve Ay(s)
      Ar(s) = a.Offset(, 14).Value
      Ay(s) = a.Offset(, -3).Resize(, 23).Value
      s = s + 1
   End If
Next
For Each a In .Range(.[G7], .[G7].End(xlDown))
   If a.Value = 工種查詢x專案x選擇工種.ComboBox1.Value Then
      ReDim Preserve Ar(x)
      ReDim Preserve Ay(x)
      Ar(x) = a.Offset(, 11).Value
      Ay(x) = a.Offset(, -6).Resize(, 23).Value
      x = x + 1
   End If
Next

End With
If s > 0 Then
Sheet2.Range("C5").CurrentRegion.Offset(2) = ""
Sheet2.[C7].Resize(x, 23) = Application.Transpose(Application.Transpose(Ay))
If work = 1 Then ListBox1.AddItem Application.Text(Application.Sum(Ar), "[hh]:mm:ss")
End If
End Sub