返回列表 上一主題 發帖

[發問] 請問當滑鼠移到B1上方時，如和利用VBA讓C1~E1字體和欄框放大?

棋語鳥鳴

帖子
178 
主題
53 
精華
0 
積分
242 
點名
0  
作業系統
xp 
軟體版本
2007 
閱讀權限
20 
註冊時間
2011-2-22 
最後登錄
2024-7-5 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2011-5-16 21:16 | 只看該作者

[發問] 請問當滑鼠移到B1上方時，如和利用VBA讓C1~E1字體和欄框放大?

請問我想要當滑鼠移到B1上方時，其C1~E1的字體大小變成30，且儲存格寬度變成21高度變成57
               當滑鼠移到B2上方時，其C2~E2的字體大小變成30，且儲存格寬度變成21高度變成57
               當滑鼠移到B3上方時，其C3~E3的字體大小變成30，且儲存格寬度變成21高度變成57
一直到.........滑鼠移到B8上方時，其C8~E8的字體大小變成30，且儲存格寬度變成21高度變成57
請問此類的VBA要如何寫，且設在哪?
收藏 分享

jackson7015

帖子
233 
主題
53 
精華
0 
積分
292 
點名
0  
作業系統
WinXp 
軟體版本
2010 
閱讀權限
20 
性別
男 
註冊時間
2012-1-6 
最後登錄
2024-3-8 

論壇贊助勳章
5#
發表於 2014-5-16 09:06 | 只看該作者
回復 2# luhpro
    您好；
請問這程式碼有限定版本嗎?
我使用在2010版好像沒有反應

TOP

jesscc

帖子
162 
主題
44 
精華
0 
積分
244 
點名
0  
作業系統
windows 7 
軟體版本
office 2010 
閱讀權限
20 
性別
男 
註冊時間
2011-4-4 
最後登錄
2022-10-3 

論壇贊助勳章
4#
發表於 2011-5-31 23:17 | 只看該作者
這個功能在編輯資料的時候很好用，可以減輕眼睛的疲勞，可是有沒有辦法在資料編輯完後，離開儲存格時將儲存格及字體回復成原來的大小?
Jess

TOP

棋語鳥鳴

帖子
178 
主題
53 
精華
0 
積分
242 
點名
0  
作業系統
xp 
軟體版本
2007 
閱讀權限
20 
註冊時間
2011-2-22 
最後登錄
2024-7-5 
3#
發表於 2011-5-17 13:33 | 只看該作者
回復 2# luhpro


    OK~我了解了~謝謝您的回覆!

TOP

luhpro

帖子
835 
主題
6 
精華
0 
積分
915 
點名
16  
作業系統
Win 10,7 
軟體版本
2019,2013,2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-3 
最後登錄
2024-11-14 
2#
發表於 2011-5-16 22:54 | 只看該作者
回復 1# 棋語鳥鳴
只要滑鼠游標移到指定的儲存格就要做變更而不是點選它後才變更嗎?
這個需求在我印象中 Excel 好像沒有提供此事件的驅動功能,
我猜可能要用 Windows API 層級的函數才能做到吧?

然而如果是點選指定儲存格後才做變更那麼可以用 SelectionChange 事件函數來實現 :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  With Target
    If .Column = 2 And .Row < 9 Then
      With Range(.Offset(0, 1), .Offset(0, 3))
        .Columns.ColumnWidth = 21
        .Rows.RowHeight = 57
        .Font.Size = 30
      End With
    End If
  End With
End Sub

TOP

        靜思自在 : 屋寬不如心寬。
返回列表 上一主題