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

jasonsdk

小學生 Rank: 1

帖子: 1
主題: 0
精華: 0
積分: 7
點名: 0
作業系統: VISTA
軟體版本: EXCEL2007
閱讀權限: 10
註冊時間: 2013-3-15
最後登錄: 2013-3-15

32^#

發表於 2013-3-15 15:35 | 只看該作者

我也碰到類似的困難，真的順利的解決了謝謝～！

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

31^#

發表於 2013-3-14 17:35 | 只看該作者

回復 30# lifedidi

Option Explicit
Private Sub TextBox1_Change()
計時
End Sub
Private Sub TextBox2_Change()
計時
End Sub
Private Sub 計時()
'TextBox3控制項請改成Label控制項為佳
If IsDate(TextBox1) And IsDate(TextBox2) Then
TextBox3 = Format(CDate(TextBox2) - CDate(TextBox1), "HH:MM")
'Label1.Caption = Format(CDate(TextBox2) - CDate(TextBox1), "HH:MM")
Else
TextBox3 = ""
' Label1.Caption = ""
End If
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

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

論壇贊助勳章

30^#

發表於 2013-3-14 16:34 | 只看該作者

GBKEE大大你好：

TextBox1及TextBox2是空格給使用者keyin的

TextBox3也是為時間格式 ex: TextBox1 key入 8:20
TextBox2 key入 11:55
TextBox3 顯示出 3:35
對照圖↓

請問第七列與第八、九列的功能是一樣的嗎？

" ' "不只有註解的功能，還有其他作用？

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

29^#

發表於 2013-3-14 14:36 | 只看該作者

回復 28# lifedidi

Option Explicit
Private Sub UserForm_Initialize()
Dim A As Date
TextBox1.Value = "8:00"
TextBox2.Value = "12:00"
TextBox3 = Val(TextBox2) - Val(TextBox1)
'TextBox3 = Format(CDate(TextBox2) - CDate(TextBox1), "H:M")
'A = CDate(TextBox2) - CDate(TextBox1)
'TextBox3 = A
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

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

論壇贊助勳章

28^#

發表於 2013-3-14 14:05 | 只看該作者

請問大大：
有三個textbox分別是1、2和3
1和2是key時間用，3是把2-1
舉例：textbox1 key入 08:00
textbox2 key入 12:00
textbox3 自動顯示 4:00 (也就是2-1)
目前寫到

Private Sub UserForm_Initialize()

Text1.Value = Format( "HH:MM:SS")
Text2.Value = Format("HH:MM:SS")
TextBox3 = Val(TextBox2) - Val(TextBox1)

End Sub

請問哪裡有錯呢？請指導！感謝你！

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

論壇贊助勳章

27^#

發表於 2013-3-12 18:07 | 只看該作者

哇賽！我了解了！謝謝大大！我繼續研究~

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

26^#

發表於 2013-3-12 16:58 | 只看該作者

回復 25# lifedidi

Sub Ex()
Dim a
With [a1] '不清楚 With ????
' .Parent (上一層的物件): 工作表
If .Parent.AutoFilterMode = False Then .AutoFilter
.AutoFilter Field:=2, Criteria1:=ComboBox1
'For Each a In .Columns(2).Cells.SpecialCells(12)
'上面 For 這裡有錯誤:直接跳到 Next 不會執行回圈
'如是 With ' [a1]->儲存格範圍須改成如下
For Each a In .Parent.Columns(2).Cells.SpecialCells(xlCellTypeVisible)
If a <> "" Then
d(a.Value) = ""
Else
Exit For
End If
Next
End With
End Sub

複製代碼

SpecialCells 方法傳回 Range 物件，此物件代表與指定型態及值相符合的所有儲存格。Range 物件。
expression.SpecialCells(Type, Value)
expression 必選。該運算式會傳回 [套用於] 清單中的其中一個物件。
Type 必選的 XlCellType。要包含的儲存格。
XlCellType 可以是這些 XlCellType 常數之一。
xlCellTypeAllFormatConditions。任何格式的儲存格
xlCellTypeAllValidation。具有驗證準則的儲存格
xlCellTypeBlanks。空儲存格
xlCellTypeComments。包含註解的儲存格
xlCellTypeConstants。包含常數的儲存格
xlCellTypeFormulas。包含公式的儲存格
xlCellTypeLastCell。已用範圍的最後一個儲存格
xlCellTypeSameFormatConditions。有相同格式的儲存格
xlCellTypeSameValidation。有相同驗證準則的儲存格
xlCellTypeVisible。所有可見儲存格

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

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

論壇贊助勳章

25^#

發表於 2013-3-12 16:01 | 只看該作者

本帖最後由 lifedidi 於 2013-3-12 16:02 編輯

If .Parent.AutoFilterMode = False Then .AutoFilter
         .AutoFilter Field:=2, Criteria1:=ComboBox1
         For Each a In .Columns(2).Cells.SpecialCells(12)
         If a <> "" Then
         d(a.Value) = ""
         Else
         Exit For
      End If
      Next

請問大大！這程式碼的變數有哪些呢？我試了一下午還是找不出來，

【For Each a In .Columns(2).Cells.SpecialCells(12)】

這是指第二列的什麼？specialcells(12)→12指的是?

我按F8一個一個跑，都會跳過NEXT，請指教，感謝！

謝謝