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

[µo°Ý] ½Ð°Ý¦³µL¯«¤H¥iÀ°¸Ñ¨M³o®æ¦¡¤Æ±ø¥óªº°ÝÃD

[µo°Ý] ½Ð°Ý¦³µL¯«¤H¥iÀ°¸Ñ¨M³o®æ¦¡¤Æ±ø¥óªº°ÝÃD

¥»©«³Ì«á¥Ñ hank10459 ©ó 2014-3-3 12:07 ½s¿è

¦U¦ì EXCEL¯«¤H±z¦n¡A·Q½Ð°Ý§Ú²{¦b°µ³o­Ó¹Ï¡A¦pªG¤À¬°2­Ó¬¡­¶(03BAY»P04(05)BAY)¡A·í04BAY¦³¸ê®Æ®É¡A03BAYªº¹ïÀ³¦ì¸mÅܦ¨¥´¤@­Ó¤j¤e¤e¡A¤£ª¾¦³µL°ª¤â¦³µL¿ìªk¥i¥Î©O? ¦pªG¦³¬Ý¤£À´±o¤p§Ì·|¦A¦h°µ»¡©ú¡C ÁÂÁÂ
¦p¹Ï¬°§Ú·QÅܦ¨ªº³o¼Ë¡C

Q1.gif (24.94 KB)

Q1.gif

¦nÃø³á
¤£ª¾¹D¦p¦ó¸Ñ¨M
¦³¯«¤H¶Ü

TOP

¦^´_ 15# seer_et
¤£«È®ð, ¸ÓÁÂÁª©¤j.

TOP

¦^´_ 14# yen956

¤]ÁÂÁ§Aªº»¡©ú¡A¾Ç¨ì¤F¡C

TOP

¥»©«³Ì«á¥Ñ yen956 ©ó 2014-3-6 09:48 ½s¿è

¦^´_ 10# Hsieh
ÁÂÁ¦^ÂлP«ü¾É,
²×©óª¾¹D Dim r& = Dim r as long, ÁÂÁÂ!!
¤S, ¸Õ¤F¦n¤[, ¤]²×©óª¾¹D:
'.Borders(i) µeÃä®Øªº°Ñ¼Æ
'i = 1 ¡÷ ¥ª
'i = 2 ¡÷ ¥k
'i = 3 ¡÷ ¤W
'i = 4 ¡÷ ¤U
'i = 5 ¡÷ ¥ª¤W¨ì¥k¤U
'i = 6 ¡÷ ¥ª¤U¨ì¥k¤W
      For i = 5 To 6
           With .Borders(i)
                 .LineStyle = xlContinuous
           End With
     Next
ªº·N«ä, ÁÂÁÂ!!

TOP

¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 10# Hsieh
¤j¤j§A¦n:
    Dim r&, k&, i%
½Ð°Ý ¸ê®Æ«¬ºA & ¥Nªí¤°»ò? ÁÂÁÂ!!
¯¸¤º,¯¸¥~§¡¤w·j´M¹L¤F, ...
(§Úª¾¹D % ¥Nªí¾ã¼Æ)

TOP

¦^´_ 10# Hsieh
¤j¤jªºVBA¯u¯«©_, ¥ý¦¬¤UºCºC¬ã¨s°Õ, ÁÂÁÂ!!

TOP

¦^´_ 5# hank10459
®æ¦¡¤Æ±ø¥ó¬OµLªk±±¨î±×½uªº®æ½u
¬JµM¥ÎVBA»²§U¡A¥i¥H²³æ¤@ÂI
03BAY¤u§@ªí¼Ò²Õµ{¦¡½X
  1. Private Sub Worksheet_Activate()
  2. Dim r&, k&, i%
  3. With Sheets("(04)05BAY")
  4. For k = 3 To 33 Step 3 'CÄæ¨ìAGÄæ¡A¶¡¹j3Äæ´`Àô
  5.    For r = 4 To 26 Step 3 '²Ä4¦C¨ì26¦C¡A¶¡¹j3¦C´`Àô
  6.       If Application.CountA(.Cells(r, k).Resize(3, 3)) = 7 Then '¦pªG¥þ³¡¶ñº¡
  7.          With Cells(r, k).Resize(3, 3)
  8.             .Merge '¦X¨ÖÀx¦s®æ
  9.             For i = 5 To 6
  10.                With .Borders(i) 'µe±×½u
  11.                   .LineStyle = xlContinuous
  12.                End With
  13.             Next
  14.           End With
  15.           Else '§_«h°õ¦æ½Æ»s¶K¤W¡B²M°£¤º®e
  16.           .Cells(r, k).Resize(3, 3).Copy Cells(r, k): Cells(r, k).Resize(3, 3) = ""
  17.        End If
  18.     Next
  19. Next
  20. End With
  21. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 8# sunnyso


    ¦¬¨ì¤FS¤j¡CÁÂÁ±zªº´£¨Ñ¡C

TOP

        ÀR«ä¦Û¦b : ¤Hªº¤ß¦a¬O¤@²¥¥Ð¡A¤g¦a¨S¦³¼½¤U¦nºØ¤l¡A¤]ªø¤£¥X¦nªºªG¹ê¡C -
ªð¦^¦Cªí ¤W¤@¥DÃD