- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
        
|
2#
發表於 2012-10-30 17:22
| 只看該作者
回復 1# emma
二個按鈕維持固定在使用者的視窗之中，
這裡已問過!
顯示格式為「紅字+千分位樣式」
- 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
- With Rng.CurrentRegion.Offset(1).Columns(3) '第3欄
- .NumberFormatLocal = "#,##0_ "
- .Font.ColorIndex = 3
- End With
- End Sub
|
|
發表於 2012-10-30 18:11
| 
