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
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
我試著用前輩的方法改我的程式碼 不過一直行不通
可以麻煩幫我看看問題出在哪嗎@@?
這是新增的部分
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
發表於 2013-8-12 10:21
| 
