返回列表 上一主題 發帖

請問一個VBA 按鈕連結問題

register313
　頭銜: 麻辣 路人甲

大學生Rank: 4

帖子
967 
主題
0 
精華
0 
積分
1001 
點名
0  
作業系統
WIN XP 
軟體版本
OFFICE 2003 
閱讀權限
50 
性別
男 
來自
台北 
註冊時間
2010-11-29 
最後登錄
2022-5-17 

2012龍年全勤獎章熱烈參與勳章
1# 跳轉到 »
發表於 2012-1-13 13:07 | 顯示全部帖子
回復 2# tonycho33

將按鈕改為儲存格
先只處理A1~A11
  1. Private Sub Worksheet_SelectionChange(ByVal T As Range)
  2. If T.Row = 27 And T.Column >= 7 And T.Column <= 17 Then
  3. Set Rng = Columns("Z").Find(T)
  4. [K3].Resize(5, 7) = Rng.Resize(5, 7).Value
  5. If ([S1] > [N6]) And ([S1] < [N7]) Then
  6.    Shapes("Group " & Mid(Rng.Value, 2, 2)).Fill.ForeColor.SchemeColor = 11
  7. Else
  8.    Shapes("Group " & Mid(Rng.Value, 2, 2)).Fill.ForeColor.SchemeColor = 45
  9. End If
  10. End If
  11. End Sub
複製代碼
先抛出一點想法,後續讓大大們繼續討論
畫面.rar (68.08 KB)

TOP

        靜思自在 : 看別人不順眼，是自己修養不夠。
返回列表 上一主題