資料驗證能做多重選擇嗎

請問各位前輩：

一般資料驗證，都只能從下拉清單選擇一項
如附件，我如果想在C2選擇安全帽跟安全鞋，資料驗證好像做不到
請問有比較適當的做法嗎？讓我可以從清單去選，又可以選擇多樣
謝謝大家

資料驗證.zip (27.77 KB)

樓主熱帖

yen956

高中生 Rank: 3 Rank: 3

帖子: 522
主題: 36
精華: 1
積分: 603
點名: 0
作業系統: win xp sp3
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2012-12-13
最後登錄: 2021-7-11

2^#

發表於 2014-3-17 12:54 | 只看該作者

回復 1# ClareWu
試試看:

Option Explicit
'複製被勾選的個人防護具
Private Sub CommandButton1_Click()
Dim Rng, rngB As Range, endRow, Row1 As Integer
'從 [A65536] 由下往上找, 直到找到非空白格為止的 Row(列數值)
endRow = [A65536].End(xlUp).Row
'清除欄C
[C2:C65536] = ""
'設定 rngB 的範圍
Set rngB = [B2].Resize(endRow, 1)
'對於 rngB 的每一個成員 Rng 來說,
For Each Rng In rngB
'如果 Rng 的右一格是 "v"
If Rng = "v" Then
'非空白格的下一格 = 空白格
Row1 = [C65536].End(xlUp).Row + 1
'欄C空白格的值 = Rng 的左一格的值
Cells(Row1, 3) = Rng.Offset(0, -1)
End If
Next
End Sub
'利用欄B 勾選要複製的項目
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Rng, rngB As Range, endRow As Integer
endRow = [A65536].End(xlUp).Row
Set rngB = [B1].Resize(endRow, 1)
'Intersect(Target, rngB) 可將 SelectionChange
'所觸動的有效範圍限制在 rngB 中,
'rngB Is Nothing→表示 rngB 未被觸動
'Not Intersect(Target, rngB) Is Nothing
'→ 表示 rngB 被觸動了(負負得正)
If Not Intersect(Target, rngB) Is Nothing Then
If Target = "v" Then
Target = ""
Else
Target = "v"
End If
End If
End Sub

複製代碼

TOP

ClareWu

中學生 Rank: 2

帖子: 40
主題: 16
精華: 0
積分: 79
點名: 0
作業系統: Windows 7
軟體版本: Office 2007
閱讀權限: 20
性別: 女
註冊時間: 2010-12-20
最後登錄: 2015-10-23

3^#

發表於 2014-3-17 18:00 | 只看該作者

謝謝回覆，請問是不是只能用VB才能達到這個功能？

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

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

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