返回列表下一主題上一主題發帖

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

棋語鳥鳴

中學生 Rank: 2

帖子: 178
主題: 53
精華: 0
積分: 242
點名: 0
作業系統: xp
軟體版本: 2007
閱讀權限: 20
註冊時間: 2011-2-22
最後登錄: 2023-12-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要如何寫，且設在哪?

樓主熱帖

luhpro

高中生 Rank: 3 Rank: 3

帖子: 824
主題: 6
精華: 0
積分: 904
點名: 0
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2023-12-24

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

棋語鳥鳴