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

¤@­Ó²M°£±×®Ø½u°ÝÃD

¤@­Ó²M°£±×®Ø½u°ÝÃD

¤j¤j­Ì,
¤p§Ì¦³¤@°ÝÃD, ½Ð¤j¤j­Ì¨ó§U¸Ñ¨M, ²{ªþ¤WÀÉ®×, ¤º¦³¼ÐÅÒ»¡©ú, ½Ð¤j¤j­Ì¨ó§U,
ÁÂÁÂ!
aaa.rar (35.06 KB)

¦^´_ 1# ©P¤j°¶
Ãö³¬¨Æ¥óµ{§ÇIJµo
  1. Sub ²M°£±×½u()
  2. '
  3. ' ²M°£±×½u Macro
  4. ' shchao ¦b 2010/11/15 ¿ý»sªº¥¨¶°
  5. '

  6. '
  7. Application.EnableEvents = False
  8.     Range("B15:K34").Select
  9.     Selection.ClearContents
  10.     Selection.Borders(xlDiagonalDown).LineStyle = xlNone
  11.     Selection.Borders(xlDiagonalUp).LineStyle = xlNone
  12.     With Selection.Borders(xlEdgeLeft)
  13.         .LineStyle = xlDouble
  14.         .Weight = xlThick
  15.         .ColorIndex = xlAutomatic
  16.     End With
  17.     With Selection.Borders(xlEdgeTop)
  18.         .LineStyle = xlDouble
  19.         .Weight = xlThick
  20.         .ColorIndex = xlAutomatic
  21.     End With
  22.     With Selection.Borders(xlEdgeBottom)
  23.         .LineStyle = xlContinuous
  24.         .Weight = xlThin
  25.         .ColorIndex = 15
  26.     End With
  27.     With Selection.Borders(xlEdgeRight)
  28.         .LineStyle = xlDouble
  29.         .Weight = xlThick
  30.         .ColorIndex = xlAutomatic
  31.     End With
  32.     With Selection.Borders(xlInsideVertical)
  33.         .LineStyle = xlContinuous
  34.         .Weight = xlMedium
  35.         .ColorIndex = 15
  36.     End With
  37.     With Selection.Borders(xlInsideHorizontal)
  38.         .LineStyle = xlContinuous
  39.         .Weight = xlThin
  40.         .ColorIndex = 15
  41.     End With
  42.     Range("E8:F8").Select
  43.     Application.EnableEvents = True
  44. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¿ý»sªº¥N½X¬O«Ü¤¾ªøªº¡A¦Ó§Aªº¥Øªº¥u¶·­n¤@¥y¡C
Sub ²M°£±×½u()
    [B15:K34].Borders(6).LineStyle = xlNone
End Sub

TOP

ÁÂÁÂ两¦ìª©¥D¤j¤j, °ÝÃD¤w¸Ñ¨M, ¦b¦¹¯¬Ä@§Ö¼Ö...ÁÂÁÂ!!

TOP

¦^´_ 4# ©P¤j°¶


    §Æ±æ¦b³o2­Ó¦^ÂФ¤±z¯à¤F¸Ñ´X­Ó­«ÂI
1¡Bµ{¦¡½X¤¤ªºSELECT·|IJµo¨Æ¥óµ{§Çªº¸Ñ¨M¤èªk
2¡B¿ý»s¥¨¶°«áÀ³¥h¸ÑŪµ{¦¡½Xªº·N¸q¡A¤~¯à¥h¿¾¦sµ×´îµuµ{¦¡½X¡A©ö©ó¤é«á­×¥¿
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

Hsieh¤j¤j,
°J¤ßÁÂÁÂÄ_¶Qªº·N¨£, ¯¬Ä@§Ö¼Ö!

TOP

        ÀR«ä¦Û¦b : ¤p¨Æ¤£°µ¡B¤j¨ÆÃø¦¨¡C
ªð¦^¦Cªí ¤W¤@¥DÃD