[發問] 判斷checkbox為true之後將資料選取

帖子: 16
主題: 3
精華: 0
積分: 25
點名: 0
作業系統: winXP
軟體版本: 2007
閱讀權限: 10
性別: 男
註冊時間: 2013-8-9
最後登錄: 2013-11-12

12^#

發表於 2013-8-13 13:55 | 只看該作者

回復 11# Hsieh

了解! 感謝您的解答:) :)

Hsieh

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

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

11^#

發表於 2013-8-12 23:10 | 只看該作者

回復 10# rick4615

Sub ex()
Dim Sht As Worksheet
Set Sht = 工作表1
With Sht.OLEObjects("ListBox1").Object '清單方塊
For i = 0 To .ListCount - 1 '清單
MyList = .List(i)
With Sht.OLEObjects.Add(ClassType:="Forms.CheckBox.1", _
DisplayAsIcon:=False, Link:=False, Left:=0 + 93.5 * i, Top:=126, Width:=90, Height:=22.5)
.Object.Caption = MyList '以清單為CheckBox標題
End With
Next
End With
End Sub

複製代碼

學海無涯_不恥下問

帖子: 16
主題: 3
精華: 0
積分: 25
點名: 0
作業系統: winXP
軟體版本: 2007
閱讀權限: 10
性別: 男
註冊時間: 2013-8-9
最後登錄: 2013-11-12

10^#

發表於 2013-8-12 17:39 | 只看該作者

回復 9# Hsieh

我試著用前輩的方法改我的程式碼  不過一直行不通
可以麻煩幫我看看問題出在哪嗎@@?
這是新增的部分
For i = 0 To ListCount - 1
   Set a = Range("A3").Offset(, i)
      OLEObjects.Add(ClassType:="Forms.CheckBox.1", _
      DisplayAsIcon:=False, Link:=False, Left:=0 + 93.5 * i, Top:=126, Width:=90, Height:=22.5) _
      .Object.Caption = listname(i) _
      .LinkedCell = a.Address
   Next i

他會一直出現  " 不正確的定位項(qualifier) "

Hsieh

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

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

9^#

發表於 2013-8-12 16:24 | 只看該作者

回復 8# rick4615

Sub 資料輸出()
With 工作表1
For i = 1 To .OLEObjects.Count
If .OLEObjects(i).progID = "Forms.CheckBox.1" Then
If .OLEObjects(i).Object.Value Then
Set a = .Range(.OLEObjects(i).LinkedCell) '被勾選地的CheckBox連結儲存格
MsgBox Join(Application.Transpose(.Range(a.Offset(1), a.End(xlDown))), Chr(10)) '顯示被勾選的項目
End If
End If
Next
End With
End Sub

複製代碼

學海無涯_不恥下問

帖子: 16
主題: 3
精華: 0
積分: 25
點名: 0
作業系統: winXP
軟體版本: 2007
閱讀權限: 10
性別: 男
註冊時間: 2013-8-9
最後登錄: 2013-11-12

8^#

發表於 2013-8-12 16:06 | 只看該作者

回復 6# Hsieh

請問前輩如何要讓他自動增加offset項目呢??
因為資料比數可能是會變動的如果寫這樣是不是會無法得到所有資料呢@@?

帖子: 16
主題: 3
精華: 0
積分: 25
點名: 0
作業系統: winXP
軟體版本: 2007
閱讀權限: 10
性別: 男
註冊時間: 2013-8-9
最後登錄: 2013-11-12

7^#

發表於 2013-8-12 15:53 | 只看該作者

回復 5# GBKEE

收到! 只是常常分開我還能大概董合在一起就不知道怎解了

Hsieh

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

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

6^#

發表於 2013-8-12 14:04 | 只看該作者

回復 4# rick4615

Sub 加入()
With 工作表1
For i = 1 To 3 '加入3個CheckBox
Set a = .Range("A1").Offset(, i)
With .OLEObjects.Add(ClassType:="Forms.CheckBox.1", Left:=.Cells(i, 1).Left, Top:=.Cells(i, 1).Top, Width:=100, Height:=20)
.LinkedCell = a.Address '指定連結儲存格
.Object.Caption = i
End With
Next
End With
End Sub
Sub 刪除()
Dim Ob As OLEObject
For Each Ob In ActiveSheet.OLEObjects
If Ob.progID = "Forms.CheckBox.1" Then Ob.Delete '只刪除CheckBox
Next
End Sub
Sub 資料輸出()
With 工作表1
For i = 1 To .OLEObjects.Count
If .OLEObjects(i).progID = "Forms.CheckBox.1" Then
If .OLEObjects(i).Object.Value Then
Set a = Range(.OLEObjects(i).LinkedCell) '被勾選地的CheckBox連結儲存格
MsgBox a.Offset(1).Value & Chr(10) & a.Offset(2).Value & Chr(10) & a.Offset(3).Value '顯示被勾選的項目
End If
End If
Next
End With
End Sub

複製代碼

學海無涯_不恥下問

GBKEE

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

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

5^#

發表於 2013-8-12 14:00 | 只看該作者

回復 4# rick4615
不了解就多看VBA的說明

Sub 資料輸出()
With 工作表1
For i = 1 To .OLEObjects.Count 'Count 屬性傳回集合中的物件數目。
If .OLEObjects(i).Object.Value Then ' 它的Value是True 條件就成立
Set a = Range(.OLEObjects(i).LinkedCell)
MsgBox a.Offset(1).Value & Chr(10) & a.Offset(2).Value & Chr(10) & a.Offset(3).Value
End If
Next
End With
End Sub

複製代碼

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

帖子: 16
主題: 3
精華: 0
積分: 25
點名: 0
作業系統: winXP
軟體版本: 2007
閱讀權限: 10
性別: 男
註冊時間: 2013-8-9
最後登錄: 2013-11-12

4^#

發表於 2013-8-12 11:54 | 只看該作者

回復 3# Hsieh

Hsieh前輩您好小弟看了您的程式碼之後有些不明白，可能需要您幫忙解答一下＠＠

Sub 刪除()
ActiveSheet.OLEObjects.Delete             <= 這裡是要刪除什麼QQ? 如果有其他的oleobjects 會不會刪除到別的呢?
End Sub

最後一段就完全不懂了@@

Sub 資料輸出()
With 工作表1
For i = 1 To .OLEObjects.Count
If .OLEObjects(i).Object.Value Then
   Set a = Range(.OLEObjects(i).LinkedCell)
   MsgBox a.Offset(1).Value & Chr(10) & a.Offset(2).Value & Chr(10) & a.Offset(3).Value
End If
Next
End With
End Sub