- 帖子
- 4901
- 主題
- 44
- 精華
- 24
- 積分
- 4916
- 點名
- 166
- 作業系統
- Windows 7
- 軟體版本
- Office 20xx
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台北
- 註冊時間
- 2010-4-30
- 最後登錄
- 2024-7-27
              
|
回復 2# rick4615
- Sub 加入()
- With 工作表1
- For i = 1 To 3
- 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 刪除()
- ActiveSheet.OLEObjects.Delete
- 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
|
|
發表於 2013-8-12 11:19
| 
發表於 2013-8-12 10:35
| 