12
返回列表 上一主題 發帖

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

rick4615

帖子
16 
主題
3 
精華
0 
積分
25 
點名
0  
作業系統
winXP 
軟體版本
2007 
閱讀權限
10 
性別
男 
註冊時間
2013-8-9 
最後登錄
2013-11-12 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2013-8-12 10:21 | 只看該作者

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

小弟目前要將checkbox確定為true之資料欄進行選取   並定義為一個字串 以便之後進行檔案輸出用

Function 資料輸出test() '2013/08/12
    Dim CK As Object
    Dim HK As String
    For Each CK In ActiveSheet.OLEObjects
     If CK.Name Like "CheckBox*" & CK.Object.Value = True Then
   
現在卡在checkbox不知道如何與要選取的欄位做一個連結的動作

檔案格式大概如下

需要將連同listname連同item進行選取
               A                          B                     C
1         checkbox1    checkbox2    checkbox3

2         listname 1     listname 2    listname 3
3          item                 item                  item
4          item                 item                  item

求各位前輩幫忙解答~~~～~
收藏 分享

rick4615

帖子
16 
主題
3 
精華
0 
積分
25 
點名
0  
作業系統
winXP 
軟體版本
2007 
閱讀權限
10 
性別
男 
註冊時間
2013-8-9 
最後登錄
2013-11-12 
2#
發表於 2013-8-12 10:35 | 只看該作者
QQ 補充一下
因之前新增checkbox之程式碼有點問題
checkbox並不會依照號碼遞增  會有跳號動作@@

TOP

Hsieh

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

2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
3#
發表於 2013-8-12 11:19 | 只看該作者
回復 2# rick4615
  1. Sub 加入()
  2. With 工作表1
  3.   For i = 1 To 3
  4.   Set a = .Range("A1").Offset(, i)
  5.      With .OLEObjects.Add(ClassType:="Forms.CheckBox.1", Left:=.Cells(i, 1).Left, Top:=.Cells(i, 1).Top, Width:=100, Height:=20)
  6.      .LinkedCell = a.Address
  7.      .Object.Caption = i
  8.      End With
  9.   Next
  10. End With
  11. End Sub
  12. Sub 刪除()
  13. ActiveSheet.OLEObjects.Delete
  14. End Sub
  15. Sub 資料輸出()
  16. With 工作表1
  17. For i = 1 To .OLEObjects.Count
  18.    If .OLEObjects(i).Object.Value Then
  19.       Set a = Range(.OLEObjects(i).LinkedCell)
  20.       MsgBox a.Offset(1).Value & Chr(10) & a.Offset(2).Value & Chr(10) & a.Offset(3).Value
  21.     End If
  22. Next
  23. End With
  24. End Sub
複製代碼
學海無涯_不恥下問

TOP

rick4615

帖子
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

TOP

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的說明
  1. Sub 資料輸出()
  2. With 工作表1
  3. For i = 1 To .OLEObjects.Count          'Count 屬性 傳回集合中的物件數目。
  4.    If .OLEObjects(i).Object.Value Then '  它的Value是True 條件就成立
  5.       Set a = Range(.OLEObjects(i).LinkedCell)
  6.       MsgBox a.Offset(1).Value & Chr(10) & a.Offset(2).Value & Chr(10) & a.Offset(3).Value
  7.     End If
  8. Next
  9. End With
  10. End Sub
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

Hsieh

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

2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
6#
發表於 2013-8-12 14:04 | 只看該作者
回復 4# rick4615
  1. Sub 加入()
  2. With 工作表1
  3.   For i = 1 To 3 '加入3個CheckBox
  4.   Set a = .Range("A1").Offset(, i)
  5.      With .OLEObjects.Add(ClassType:="Forms.CheckBox.1", Left:=.Cells(i, 1).Left, Top:=.Cells(i, 1).Top, Width:=100, Height:=20)
  6.      .LinkedCell = a.Address '指定連結儲存格
  7.      .Object.Caption = i
  8.      End With
  9.   Next
  10. End With
  11. End Sub
  12. Sub 刪除()
  13. Dim Ob As OLEObject
  14. For Each Ob In ActiveSheet.OLEObjects
  15.    If Ob.progID = "Forms.CheckBox.1" Then Ob.Delete '只刪除CheckBox
  16. Next
  17. End Sub
  18. Sub 資料輸出()
  19. With 工作表1
  20. For i = 1 To .OLEObjects.Count
  21. If .OLEObjects(i).progID = "Forms.CheckBox.1" Then
  22.    If .OLEObjects(i).Object.Value Then
  23.       Set a = Range(.OLEObjects(i).LinkedCell) '被勾選地的CheckBox連結儲存格
  24.       MsgBox a.Offset(1).Value & Chr(10) & a.Offset(2).Value & Chr(10) & a.Offset(3).Value '顯示被勾選的項目
  25.     End If
  26. End If
  27. Next
  28. End With
  29. End Sub
複製代碼
學海無涯_不恥下問

TOP

rick4615

帖子
16 
主題
3 
精華
0 
積分
25 
點名
0  
作業系統
winXP 
軟體版本
2007 
閱讀權限
10 
性別
男 
註冊時間
2013-8-9 
最後登錄
2013-11-12 
7#
發表於 2013-8-12 15:53 | 只看該作者
回復 5# GBKEE


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

TOP

rick4615

帖子
16 
主題
3 
精華
0 
積分
25 
點名
0  
作業系統
winXP 
軟體版本
2007 
閱讀權限
10 
性別
男 
註冊時間
2013-8-9 
最後登錄
2013-11-12 
8#
發表於 2013-8-12 16:06 | 只看該作者
回復 6# Hsieh

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

TOP

Hsieh

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

2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
9#
發表於 2013-8-12 16:24 | 只看該作者
回復 8# rick4615
  1. Sub 資料輸出()
  2. With 工作表1
  3. For i = 1 To .OLEObjects.Count
  4. If .OLEObjects(i).progID = "Forms.CheckBox.1" Then
  5.    If .OLEObjects(i).Object.Value Then
  6.       Set a = .Range(.OLEObjects(i).LinkedCell) '被勾選地的CheckBox連結儲存格
  7.       MsgBox Join(Application.Transpose(.Range(a.Offset(1), a.End(xlDown))), Chr(10)) '顯示被勾選的項目
  8.    End If
  9. End If
  10. Next
  11. End With
  12. End Sub
複製代碼
學海無涯_不恥下問

TOP

rick4615

帖子
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) "

TOP

        靜思自在 : 人生沒有所有權，只有生命的使用權。
12
返回列表 上一主題