ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ½Ð°Ý·í·Æ¹«²¾¨ìB1¤W¤è®É¡A¦p©M§Q¥ÎVBAÅýC1~E1¦rÅé©MÄæ®Ø©ñ¤j?

¦^´_ 1# ´Ñ»y³¾»ï
¥u­n·Æ¹«´å¼Ð²¾¨ì«ü©wªºÀx¦s®æ´N­n°µÅܧó¦Ó¤£¬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

TOP

        ÀR«ä¦Û¦b : ÀR§¤±`®¦¤v¹L¡B¶¢½Í²ö½×¤H«D¡C
ªð¦^¦Cªí ¤W¤@¥DÃD