- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
        
|
本帖最後由 GBKEE 於 2012-1-16 13:42 編輯
回復 7# tonycho33
資料庫中Z欄到AF欄的儲存格如果有公式連結的話的話好像就會找不到 請舉個例
要如何新增旁邊的B1∼B8 C1∼C3 D1∼D2 可依樣畫葫茹
請改成: 工具->自訂-控制工具箱 的按鈕(CommandButton) 對應的圖片 請要先加工 如圖:
物件模組程式碼修改如下- Option Explicit
- Public WithEvents A_CommandButton As MSForms.CommandButton '物件模組的物件變數
- Private Sub A_CommandButton_Click()
- Dim S As String, Rng As Range
- S = A_CommandButton.Caption
- With Sheet21
- Set Rng = .Columns("Z").Find(S, LookAT:=xlWhole)
- If Rng Is Nothing Then MsgBox "找不到 " & S: Exit Sub
- [K3].Resize(5, 7) = Rng.Resize(5, 7).Value
- If S Like "A*" Then
- S = Replace(A_CommandButton.Caption, "A", "Group ")
- '"A" 改為"Group " : A15 -> Group 15
- ElseIf S Like "B*" Then
- S = Replace(A_CommandButton.Caption, "A", "GroupB ")
- '"B" 改為"GroupB " : B1 -> GroupB 1
- ElseIf S Like "C*" Then
- S = Replace(A_CommandButton.Caption, "C", "GroupC ")
- '"C" 改為"GroupC " : C1 -> GroupC 1
- ElseIf S Like "D*" Then
- S = Replace(A_CommandButton.Caption, "D", "GroupD ")
- '"B" 改為"GroupD " : D1 -> GroupD 1
- End If
- .Shapes(S).Select
- If .[S1] > .[N6] And .[S1] < .[N7] Then
- Selection.ShapeRange.Fill.ForeColor.SchemeColor = 17
- Else
- Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10
- End If
- End With
- DoEvents
- ActiveCell.Select
- End Sub
|
|
發表於 2012-1-13 14:24
| 
