- ©«¤l
- 835
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 915
- ÂI¦W
- 14
- §@·~¨t²Î
- Win 10,7
- ³nÅ骩¥»
- 2019,2013,2003
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-3
- ³Ì«áµn¿ý
- 2024-11-6
|
¦^´_ 1# ´Ñ»y³¾»ï
¥un·Æ¹«´å¼Ð²¾¨ì«ü©wªºÀx¦s®æ´Nn°µÅܧó¦Ó¤£¬OÂI¿ï¥¦«á¤~Åܧó¶Ü?
³oӻݨD¦b§Ú¦L¶H¤¤ Excel ¦n¹³¨S¦³´£¨Ñ¦¹¨Æ¥óªºÅX°Ê¥\¯à,
§Ú²q¥i¯àn¥Î Windows API ¼h¯Åªº¨ç¼Æ¤~¯à°µ¨ì§a?
µM¦Ó¦pªG¬OÂI¿ï«ü©wÀx¦s®æ«á¤~°µÅܧ󨺻ò¥i¥H¥Î 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 |
|