返回列表 上一主題 發帖

請問一個VBA 按鈕連結問題

tonycho33

帖子
102 
主題
30 
精華
0 
積分
137 
點名
0  
作業系統
winxp 
軟體版本
12 
閱讀權限
20 
性別
男 
註冊時間
2011-11-24 
最後登錄
2018-12-6 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2012-1-12 11:00 | 只看該作者

請問一個VBA 按鈕連結問題

請問一下我想設計上面有按鈕A1~A25
對應的資料庫在左邊(AB欄為空白)
只要按下對應的按鈕則顯示在K3~Q7的儲存格上

另外,M6是開始時間,M7是結束時間,S1是比對時間值
如果比對時間值在M6~M7(對應到資料庫上的比對時間)之間則顯示對應物件綠色
如果超出區間則顯示紅色

要如何寫呢
謝謝

畫面.rar (65.39 KB)

收藏 分享
Tony

tonycho33

帖子
102 
主題
30 
精華
0 
積分
137 
點名
0  
作業系統
winxp 
軟體版本
12 
閱讀權限
20 
性別
男 
註冊時間
2011-11-24 
最後登錄
2018-12-6 
2#
發表於 2012-1-13 11:45 | 只看該作者
請求各位協助
謝謝
Tony

TOP

register313
　頭銜: 麻辣 路人甲

大學生Rank: 4

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

2012龍年全勤獎章熱烈參與勳章
3#
發表於 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

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
4#
發表於 2012-1-13 14:24 | 只看該作者
回復 2# tonycho33
你檔案的 按鈕A1~A25 是 : 工具->自訂-表單               的按鈕(Button)
                                請改成:  工具->自訂-控制工具箱   的按鈕(CommandButton)
對應物件 的命名 (有對應性) :  如按鈕文字 (A1)  -> 對應物件 ( Group 1)  ; 按鈕文字( A16) ->  對應物件(Group 16)
請修改後上傳 再試試看.

TOP

tonycho33

帖子
102 
主題
30 
精華
0 
積分
137 
點名
0  
作業系統
winxp 
軟體版本
12 
閱讀權限
20 
性別
男 
註冊時間
2011-11-24 
最後登錄
2018-12-6 
5#
發表於 2012-1-13 17:16 | 只看該作者
回復 4# GBKEE

畫面.rar (83.45 KB)

Tony

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
6#
發表於 2012-1-13 18:43 | 只看該作者
回復 5# tonycho33
試試看


RE畫面.rar (125.31 KB)

TOP

tonycho33

帖子
102 
主題
30 
精華
0 
積分
137 
點名
0  
作業系統
winxp 
軟體版本
12 
閱讀權限
20 
性別
男 
註冊時間
2011-11-24 
最後登錄
2018-12-6 
7#
發表於 2012-1-16 11:16 | 只看該作者
本帖最後由 tonycho33 於 2012-1-16 11:30 編輯

回復 6# GBKEE

你好
你寫的程式可以RUN
但是有問題想請教
資料庫中Z欄到AF欄的儲存格如果有公式連結的話的話好像就會找不到
要如何處理呢
要如何新增
旁邊的B1～B8
             C1～C3
             D1～D2

謝謝
Tony

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
8#
發表於 2012-1-16 13:38 | 只看該作者
本帖最後由 GBKEE 於 2012-1-16 13:42 編輯

回復 7# tonycho33
資料庫中Z欄到AF欄的儲存格如果有公式連結的話的話好像就會找不到  請舉個例
要如何新增旁邊的B1～B8             C1～C3             D1～D2                       可依樣畫葫茹  
請改成:  工具->自訂-控制工具箱   的按鈕(CommandButton)     對應的圖片 請要先加工   如圖:


物件模組程式碼修改如下
  1. Option Explicit
  2. Public WithEvents A_CommandButton As MSForms.CommandButton   '物件模組的物件變數
  3. Private Sub A_CommandButton_Click()
  4.     Dim S As String, Rng As Range
  5.     S = A_CommandButton.Caption
  6.     With Sheet21
  7.         Set Rng = .Columns("Z").Find(S, LookAT:=xlWhole)
  8.         If Rng Is Nothing Then MsgBox "找不到 " & S: Exit Sub
  9.         [K3].Resize(5, 7) = Rng.Resize(5, 7).Value
  10.         If S Like "A*" Then
  11.             S = Replace(A_CommandButton.Caption, "A", "Group ")
  12.             '"A" 改為"Group " :  A15 ->   Group 15
  13.         ElseIf S Like "B*" Then
  14.             S = Replace(A_CommandButton.Caption, "A", "GroupB ")
  15.             '"B" 改為"GroupB " :  B1 ->   GroupB 1
  16.         ElseIf S Like "C*" Then
  17.             S = Replace(A_CommandButton.Caption, "C", "GroupC ")
  18.             '"C" 改為"GroupC " :  C1 ->   GroupC 1
  19.         ElseIf S Like "D*" Then
  20.             S = Replace(A_CommandButton.Caption, "D", "GroupD ")
  21.             '"B" 改為"GroupD " :  D1 ->   GroupD 1
  22.         End If
  23.         .Shapes(S).Select
  24.         If .[S1] > .[N6] And .[S1] < .[N7] Then
  25.             Selection.ShapeRange.Fill.ForeColor.SchemeColor = 17
  26.         Else
  27.             Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10
  28.         End If
  29.     End With
  30.     DoEvents
  31.     ActiveCell.Select
  32. End Sub
複製代碼

TOP

tonycho33

帖子
102 
主題
30 
精華
0 
積分
137 
點名
0  
作業系統
winxp 
軟體版本
12 
閱讀權限
20 
性別
男 
註冊時間
2011-11-24 
最後登錄
2018-12-6 
9#
發表於 2012-1-16 14:10 | 只看該作者
回復 8# GBKEE

公式連結的問題

畫面.rar (130.38 KB)

Tony

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
10#
發表於 2012-1-16 15:36 | 只看該作者
回復 9# tonycho33
物件模組的程式碼
Set Rng = .Columns("Z").Find(S,  LookAt:=xlWhole)
改成
Set Rng = .Columns("Z").Find(S, LookIn:=xlValues, LookAt:=xlWhole)

TOP

        靜思自在 : 小事不做、大事難成。
返回列表 上一主題