- 帖子
- 472
- 主題
- 5
- 精華
- 0
- 積分
- 485
- 點名
- 0
- 作業系統
- Windows
- 軟體版本
- MS Office
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 香港
- 註冊時間
- 2010-7-4
- 最後登錄
- 2014-12-28
|
兩者皆可- Sub 確定_Click()
- Dim E As Shape, Rng As Range
- Sheet2.UsedRange.Offset(1).Clear
- Set Rng = Sheet2.UsedRange.Cells(2, 1)
- For Each E In Sheet1.Shapes
- If E.Type = msoFormControl And E.Name Like "Check Box*" Then
- If E.OLEFormat.Object.Value = 1 Then
- Rng.Offset(, 0) = E.TopLeftCell.Offset(, 1).Value
- Rng.Offset(, 1) = E.TopLeftCell.Offset(, 2).Value
- Rng.Offset(, 2) = E.TopLeftCell.Offset(, 5).Value
- Rng.Offset(, 3) = E.TopLeftCell.Offset(, 7).Value
- Set Rng = Rng.Offset(1)
- End If
- End If
- Next
- End Sub
- Sub 確定_Click()
- Dim E As Shape, Rng As Range
- Sheet2.UsedRange.Offset(1).Clear
- Set Rng = Sheet2.UsedRange.Cells(2, 1)
- For Each E In Sheet1.Shapes
- If E.Type = msoFormControl And E.Name Like "Check Box*" Then
- If E.OLEFormat.Object.Value = 1 Then
- With E.TopLeftCell
- Rng.Resize(, 4) = Array(.Offset(, 1).Value, .Offset(, 2).Value, .Offset(, 5).Value, .Offset(, 7).Value)
- End With
- Set Rng = Rng.Offset(1)
- End If
- End If
- Next
- End Sub
|
|
發表於 2012-10-30 00:29
| 