大量複選表單的程式碼如何簡潔的操作? - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 大量複選表單的程式碼如何簡潔的操作?

返回列表下一主題上一主題發帖

[發問] 大量複選表單的程式碼如何簡潔的操作?

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

1^# 跳轉到 »

發表於 2016-12-23 05:57 | 顯示全部帖子

本帖最後由 c_c_lai 於 2016-12-23 07:11 編輯

回復 3# starry1314
#2 資料不變，只需再增加一個按鈕就行了：

Private Sub CommandButton3_Click() ' 比對選用資料
Dim ct As Variant
With MultiPage1.Pages(0)
For Each ct In .Controls
If Sheets("選用資料").Columns("B:B").Find(ct.Caption, lookat:=xlWhole) Is Nothing Then
ct.Object.Value = False
Else
ct.Object.Value = True
End If
Next
End With
End Sub

複製代碼

靜思自在 : 小事不做、大事難成。

返回列表下一主題上一主題