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

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

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

½Ð°Ý§Ú·Q­n·í·Æ¹«²¾¨ìB1¤W¤è®É¡A¨äC1~E1ªº¦rÅé¤j¤pÅܦ¨30¡A¥BÀx¦s®æ¼e«×Åܦ¨21°ª«×Åܦ¨57
               ·í·Æ¹«²¾¨ìB2¤W¤è®É¡A¨äC2~E2ªº¦rÅé¤j¤pÅܦ¨30¡A¥BÀx¦s®æ¼e«×Åܦ¨21°ª«×Åܦ¨57
               ·í·Æ¹«²¾¨ìB3¤W¤è®É¡A¨äC3~E3ªº¦rÅé¤j¤pÅܦ¨30¡A¥BÀx¦s®æ¼e«×Åܦ¨21°ª«×Åܦ¨57
¤@ª½¨ì.........·Æ¹«²¾¨ìB8¤W¤è®É¡A¨äC8~E8ªº¦rÅé¤j¤pÅܦ¨30¡A¥BÀx¦s®æ¼e«×Åܦ¨21°ª«×Åܦ¨57
½Ð°Ý¦¹ÃþªºVBA­n¦p¦ó¼g¡A¥B³]¦b­þ?

¦^´_ 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

¦^´_ 2# luhpro


    OK~§Ú¤F¸Ñ¤F~ÁÂÁ±zªº¦^ÂÐ!

TOP

³o­Ó¥\¯à¦b½s¿è¸ê®Æªº®É­Ô«Ü¦n¥Î¡A¥i¥H´î»´²´·úªº¯h³Ò¡A¥i¬O¦³¨S¦³¿ìªk¦b¸ê®Æ½s¿è§¹«á¡AÂ÷¶}Àx¦s®æ®É±NÀx¦s®æ¤Î¦rÅé¦^´_¦¨­ì¨Óªº¤j¤p?
Jess

TOP

¦^´_ 2# luhpro
    ±z¦n¡F
½Ð°Ý³oµ{¦¡½X¦³­­©wª©¥»¶Ü?
§Ú¨Ï¥Î¦b2010ª©¦n¹³¨S¦³¤ÏÀ³

TOP

        ÀR«ä¦Û¦b : ¡i®É¤é²öªÅ¹L¡j¤@­Ó¤H¦b¥@¶¡°µ¤F¦h¤Ö¨Æ¡A´Nµ¥©ó¹Ø©R¦³¦hªø¡C¦]¦¹¥²¶·»P®É¶¡Ävª§¡A¤Á²ö¨Ï®É¤éªÅ¹L¡C
ªð¦^¦Cªí ¤W¤@¥DÃD