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

ÁקK­«½Æ°õ¦æµ{¦¡

ÁקK­«½Æ°õ¦æµ{¦¡

¦U¦ì«e½ú§A­Ì¦n!
         «e½ú!°ÝÃD¦pªþÀÉ»¡©ú
         ½Ðª¾¹Dªº«e½ú,¤£§[½ç±ÐÁÂÁ¦A¤T!!

Leov37.rar (14.72 KB)

¦^´_ 1# myleoyes
¦ý¶·¦b¦¹§@§ïÅܽЫö¶s9A,³o´N¬O°ÝÃD©Ò¦b???
¥i¥H­z»¡ §A­nªº¬O¤°»ò¶Ü?

TOP

¦^´_ 1# myleoyes
¥H¤U¬O§A©Ò´£¨Ñªº³¡¤Àµ{¦¡ :
Sub HA()
    Range("H3:H152") = ""
    Range("H4").FormulaR1C1 = "=SUM(R[-1]C*R[-1]C[-4],R[-1]C,RC[-1])"
    Range("H4").AutoFill Destination:=Range("H4:H" & [A152].End(3).Row), Type:=xlFillDefault
    Range("H3").Select
    Range("H:H").EntireColumn.AutoFit
End Sub
Sub MA()
    Range("M3:M152") = ""
    Range("M3").FormulaR1C1 = "=RC[-8]"
    Range("M4").FormulaR1C1 = "=SUM(R[-1]C*RC[-9],R[-1]C,R3C13)"
    Range("M4").AutoFill Destination:=Range("M4:M" & [c1526].End(3).Row), Type:=xlFillDefault
    ActiveCell.Select
    [M3].End(xlDown)(2, 1).FormulaR1C1 = "=SUM(R[-1]C*RC[-9],R[-1]C)"
    R = [M152].End(xlUp).Row
    S = "M" & R & ":M" & [A152].End(xlUp).Row
    Range("M" & R).AutoFill Destination:=Range(S), Type:=xlFillDefault
    Range("M3").Select
    Range("M:M").EntireColumn.AutoFit
End Sub

¥Ø«e¶È¬Ý¥X H3 ¤§©Ò¥H·|¨S¸ê®Æ,
¦ü¥G¬O§Aªºµ{¦¡¦b²MªÅ«á¥»´N¨S¦³µ¹ H3 ­È.

TOP

[ª©¥DºÞ²z¯d¨¥]
  • Hsieh(2010-12-21 12:15): ½Ð²M·¡±Ô­z±zªº»Ý¨DÅÞ¿è

¦^´_ 3# luhpro
luhpro«e½ú§A¦n!
GBKEE «e½ú§A¦n!
¡@¡@¡@¡@ ¨â¦ì«e½ú!ÁÂÁÂ!²{¦b°ÝÃD¤£¦b©óH3»Ý¤£»Ý­n­È,
         ¦Ó¬O·í«öA9¶s­×§ï¼Æ¾Ú«á,«oµo²{¼vÅT¨ì¶ñº¡
         ©Ò¥H»Ý­n¥Î¤â°Êªº¤è¦¡°õ¦æ¶ñº¡
         ¦ý¦]¸ê®Æ¦h¤S¦£¸L±`±`§Ñ°O­ì©l¸ê®Æ·íªì
         ¬O¦b­þ¤@¦C¶}©l¶ñº¡,¶¡¹j¤S¬O¦h¤Ö¦C
         ©Ò¥H¦C¦L¥X¨Ó¤~µo²{»P­ì½Z¦³»~
         §K¤£¤F¥DºÞªº%$#@....«¢«¢!!
         ©Ò¥H¤~·Q¬O§_­×§ïµ{¦¡¥i¥H¸Ñ¨M³o­Ó·Ðº¾ªº°ÝÃD
         ·QÅo!¨â¤Ñ³oºØ·QªkÀ³¸Ó¬O¤£¦æ
         «o·Q¨ì¸Ñ¨M¤§¹D,½Ð¥ý±Ð¤p²Ä"°Ñ·Ó¶ñº¡"³o­Óµ{¦¡
         ¦pªþÀÉLeov37-2»¡©ú,¨º´N¥i¥Hªï¤b¦Ó¸Ñ
         Áö«D¨}µ¦,«o¥iÁקK¿ù»~¤S§Ö³t³á!
         ½Ð¤£§[½ç±ÐÁÂÁ¦A¤T!!

Leov37-2.rar (43.57 KB)

TOP

¥»©«³Ì«á¥Ñ luhpro ©ó 2010-12-22 22:22 ½s¿è

§AªºÀɮ׸̻¡ :
AB6§@¬°¶ñº¡ªº¶}©l¦C,´N¬O(A5)ªº¦ì¸m
AB7§@¬°¶ñº¡ªº¶¡¹j¦C¼Æ
±qA3¶}©l©¹¤U¶ñº¡,½Ð°Ýµ{¦¡¬°¦ó?


¤W­±ªº±Ô­z¦bÅÞ¿è¤W¦³¨Ç©Ç©Çªº,
¥H A5 §@¬°¶ñº¡ªº¶}©l¦C,
¶ñº¡ªº¶¡¹j¦C¼Æ¬O 10
¦A¬Ý§A¯S¦a±N A5¡BA15¡BA25 ®Ø°_¨Ó,
§Ú²q§Aªº·N«ä¬O»¡¶ñº¡ªº¹ï¶H¬O§A®Ø°_¨Óªº¨º¨ÇÀx¦s®æA5¡BA15¡BA25¡B....

¦ý§A©³¤U¤S¸É¥R»¡­n¥H A3 ¬°¶ñº¡¶}©lªºÀx¦s®æ,
3 + 10 = 13
«ç»ò¼Ë¤]¤£·|¹ïÀ³¨ì A15 ©O.

¨º»ò¨ì©³§A¬O­n¹ï A3¡BA13¡BA23¡B... ÁÙ¬O A5¡BA15¡BA25¡B... °µ¶ñº¡©O?


¥t¥~­Y¬O§A·Q¥Î AutoFill ¨ç¼Æªº¸Ü, ¸Ó¨ç¼Æªº»¡©ú¸Ì¦³´£¨ì :

Destination     ¥²¿ïªº Range ª«¥óÃþ«¬¡C­n¶ñº¡ªºÀx¦s®æ¡C¥Ø¼Ð½d³ò¥²¶·¥]¬A¨Ó·½½d³ò¡C

¦Ó¦b Range ¸Ì¤S¦³©w¸q :

¥Nªí¬Y¤@Àx¦s®æ¡B¬Y¤@Äæ¡B¬Y¤@¦C¡B¬Y¤@«ü©w½d³ò (¸Ó«ü©w½d³ò¥i¥]§t¤@­Ó©Î­Y¤z³sÄòÀx¦s®æ½d³ò) ©ÎªÌ¬Y¤@¥ßÅé½d³ò¡C

©Ò¥H AutoFill ªº¶ñº¡°Ê§@¬O¤£¯à¸õ¦æ©Î¬O¸õ¦C¶ñº¡ªº. (¬G¦Ó§A¤W­±»¡ªº "¶ñº¡ªº¶¡¹j¦C¼Æ¬O 10" ªº±¡§Î¨Ã¤£¾A¥Î)

¤ñ¸û«ê·í¥i¦æªº¤è¦¡¬O¥Î
For ... Step 10
.
.
.
Next

©Î¬O¥Î

While iI < xxx
  .
  .
  .
  iI = iI + 10
Wend

ªº¤è¦¡¨Ó¹ê°µ.

¦Ü©ó·Q¥Îµ{¦¡¨Ó¹F¨ì¨ú±o¤W­z°Ñ·Ó­ÈªºÀx¦s®æ¤º®e¤è¦¡­Ë¬O¤£§xÃø

·Q³z¹L AB6 §ä¨ì A5 ¥i¥Î¦p¤U¤èªk :

Sub AFill()
  Dim iSRow%, iRow%, iTarget%
  
  With Sheets("Sheet1")
    iSRow = .[AB6]
    iRow = .Range(.[A3], .Cells(.[A3].End(xlDown), 1)).Find(iSRow, LookIn:=xlValues).Row
    iTarget = .Cells(iRow, 1) '³o­Ó´N¬O A5 ªº¦ì¸m, ¥u­nÅܧó«á­±ªº 1 ¹ïÀ³¨ì·Q Fill ªºÄæ¦ì¼Æ§Y¥i,¨Ò¦p : M5 ´N¬O .Cells(iRow, 13)
  End With
End Sub

¨ú±o iRow «á,
¥u­n©ó°j°é¤º¨Ì¦¸¼W¥[¦¹­È§Y¥i "¸õ¦C" ¹ïÀ³¨ì»Ý­n¶ñº¡ªºÀx¦s®æ.

TOP

¦^´_ 5# luhpro
luhpro«e½ú§A¦n!
         «e½ú!ÁÂÁÂ!»Ý¨D¦pªþÀÉ®×
         ½Ð¥ý¶}±ÒLeov37-41°õ¦æ¬Ý¬Ý
         ¦A¶}±ÒLeov37-4´Nª¾¹D»Ý¨D
         ½Ð¤£§[½ç±ÐÁÂÁ¦A¤T!!

Leov37-41.rar (16.89 KB)

Leov37-4.rar (15.82 KB)

TOP

¦^´_ 6# myleoyes
ª«¥ó¤£¤ä´©¦¹ÄݩʩΤèªk. O.O"

§Úªº Office 2003 ¤£Åý§Ú°õ¦æ,
.ThemeColor = xlThemeColorAccent3
.TintAndShade = 0.799981688894314
.PatternTintAndShade = 0
³o¤T­ÓÄÝ©Ê¥¦³£¤£»{ÃÑ.

¬°ÁקK ¥¢¤§²@Âç ; ®t¤§¤d¨½ ªº±¡§Î¥X²{,
§Ú¼È®É¥u¯à¥ý¼ç¤ô¤F,
¨S¯àÀ°¨ì¦£, «Ü©êºp...

TOP

¦^´_ 7# luhpro
luhpro«e½ú§A¦n!
         «e½ú!«D±`·P¿EÁÂÁÂ!¦AªþÀÉ®×
         Leov37-5,Leov37-51¦b2003À³¥i¥H°õ¦æ,±N­ì¶ñº¡µ{¦¡
         Sub ¶ñº¡()
             Dim E&, i&
             Range("AB6") = ActiveCell '¥[¤J³o¤@¦æ¶}©l¦Cªº°Ñ·Ó¦ì¸m
             E = Cells(ActiveCell.Row, 1).End(xlDown).Row
         Again:
             ZZ = Application.InputBox("½Ð¿é¤J¦C¼Æ", "½Ð¿é¤J¶ñº¡¶¡¹j¦C¼Æ", 10, Type:=2)
             If ZZ = "" Or ZZ = False Then End
             Range("AB7") = ZZ '¥[¤J³o¤@¦æ¶¡¹j¦C¼Æªº°Ñ·Ó¼Æ¾Ú
             If ZZ <= 0 Then
             MsgBox "¦C¼Æ¶¡¹j¤£±o¤p©ó¢°¦C¡I¡I¡I", , "¦C¼Æ¿ù»~½Ð­«·s¿é¤J ¡I¡I"
             GoTo Again
             End If
             For i = ActiveCell.Row To E Step ZZ
             With Cells(i, 1).Resize(, 15).Interior
            .ColorIndex = 34
         End With
            Next
            Range("AB5") = 1 '¥[¤J³o¤@¦æAÄ檺°Ñ·Ó¶}Ãö
         End Sub
         ©Ò¥H·í¸ê®Æ§ï§¹«á°õ¦æ°Ñ·Ó¶ñº¡
         ¦]¬°¤p§Ì¯à¤O¤£¨¬,©Ò¥H¥Î«÷´êªº¤è¦¡
         ¥ý§ä¨ì¦ì¸m¦A°õ¦æ¶ñº¡,´N¯à¸Ñ¨M§xÂZªº°ÝÃD
         Sub IA()
             ²M°£¶ñº¡
                 HA
             MA
             °Ñ·Ó¶ñº¡
             Range("I3").Select
             Range("I:I").EntireColumn.AutoFit
         End Sub
         Sub °Ñ·Ó¶ñº¡()
             Dim E&, i&
             §ä¨ì¦ì¸m
             E = Cells(ActiveCell.Row, 1).End(xlDown).Row
             For i = ActiveCell.Row To E Step Range("AB7")
             With Cells(i, 1).Resize(, 15).Interior
                  .ColorIndex = 34
             End With
             Next
             Range("AB5:AB7") = ""
         End Sub
         Sub §ä¨ì¦ì¸m()
             With Sheet1
             Set c = Range("AB6")
             Set Rng = .Cells.Find(Format(c, "0¦C"), LookIn:=xlValues, LookAt:=xlWhole)
                 .Select
             If Not Rng Is Nothing Then Rng.Select
          End With
          End Sub
          ¥u¬O­ì¥»À³¸Ó¤£»Ý­n¦p¦¹½ÆÂø
          µL©`!!¯à¤O¥u¦³¦p¦¹³o¯ë..!!
          «e½ú¯à§_²¤Æµ{¦¡¶Ü?
          §Æ±æ¦³¯à¤Oªº«e½ú,½Ð¤£§[½ç±ÐÁÂÁ¦A¤T!!
          ¤p§Ì¦b¦¹¶¶¯¬¦U¦ì«e½ú!
              ¸t½Ï¸`§Ö¼Ö!!¨­Åé°·±d¨Æ¨Æ¦p·N...

Leov37-5.rar (13.77 KB)

Leov37-51.rar (13.24 KB)

TOP

¦^´_ 8# myleoyes
¬O³o¼Ë¶Ü?
  1. Sub ¶ñº¡()
  2.      Dim E&, i&, R As Range, T%,ZZ
  3.      Range("AB6") = ActiveCell
  4.      E = Cells(ActiveCell.Row, 1).End(xlDown).Row
  5. Again:
  6.       ZZ = Application.InputBox("½Ð¿é¤J¦C¼Æ", "½Ð¿é¤J¶ñº¡¶¡¹j¦C¼Æ", 10, Type:=2)
  7.       If ZZ = "" Or ZZ = False Then End
  8.       Range("AB7") = ZZ
  9.       If ZZ <= 0 Then
  10.         MsgBox "¦C¼Æ¶¡¹j¤£±o¤p©ó¢°¦C¡I¡I¡I", , "¦C¼Æ¿ù»~½Ð­«·s¿é¤J ¡I¡I"
  11.         GoTo Again
  12.       End If
  13.       Range("AB5") = 1
  14.     Application.EnableEvents = False
  15.     For i = ActiveCell.Row To E
  16.         For Each R In Range("c:e,g:i,m:m").Columns
  17.             T = IIf(i + ZZ <= E, ZZ + 1, E - i + 1)
  18.             If Mid(R.Cells(i).Formula, 1, 1) = "=" Then
  19.                 R.Cells(i).AutoFill R.Cells(i).Resize(T)
  20.             Else
  21.                 R.Cells(i).Offset(-1).Resize(2).AutoFill R.Cells(i).Offset(-1).Resize(T + 1)
  22.             End If
  23.         Next
  24.         Cells(i, 1).Resize(, 15).Interior.ColorIndex = 34
  25.         i = i + ZZ - 1
  26.     Next
  27.     Application.EnableEvents = True
  28. End Sub
½Æ»s¥N½X

TOP

¦^´_ 9# GBKEE
GBKEE¨}®v§A¦n!
¡@¡@¡@¨}®v!ÁÂÁÂ!µ{¦¡ªº·Qªk¦³»~
           ¤p§Ì¦p¦¹¤ñ³ë¶ñº¡¤À¬°¤â°Ê(¶ñº¡)
           »P¦Û°Ê(¶ñº¡)¨â³¡¥÷¸ÑÄÀ
           ·í°õ¦æ¤â°Ê(¶ñº¡)®É,¥[¤JRange("AB6") = ActiveCell
           ³o¤@¦æ§@¬°¦Û°Ê(¶ñº¡)¶}©l¦Cªº°Ñ·Ó¦ì¸m
           ¥[¤JRange("AB7") = ZZ
           ³o¤@¦æ§@¬°¦Û°Ê(¶ñº¡)¶¡¹j¦C¼Æªº°Ñ·Ó¼Æ¾Ú
           ¥[¤JRange("AB5") = 1
           ³o¤@¦æ§@¬°Ãö³¬¤â°Ê(¶ñº¡)AÄ檺¶}Ãö
           ¦]¬°AÄæ¬OIJµoÂI,©Ò¥H­n°õ¦æ¦Û°Ê(¶ñº¡)¥²¶·Ãö³¬¤â°Ê(¶ñº¡)
           ¦]¦¹¥u­n¤â°Ê(¶ñº¡)§@¥ô¦ó°Ê§@,³£·|¯d¤U­y¸ñ
           ¨Ñ¦Û°Ê(¶ñº¡)§@¨Ì¾Ú,½T«O°Ê§@¤@­PµL»~
           ©Ò¥H­n°õ¦æ¦Û°Ê(¶ñº¡)´N¥²¶·¥ý§ä¨ìAÄ檺¦ì¸m
           ¦p¤µ¨}®v±N¤â°Ê(¶ñº¡)»P¦Û°Ê(¶ñº¡)¨â³¡¥÷
           ¦X¨Ö¬°³æ¤@µ{¦¡,©Ò¥H°õ¦æ¤â°Ê(¶ñº¡)¬OOK!!
           ¦ý·í«ö¶s9A®É´N¥YºlÅo!!¦]¬°§Aªºµ{¦¡
           Dim E&, i&, R As Range, T%, ZZ
             Range("AB6") = ActiveCell³o¤@¦C¨ÌµM¦s¦b
           ©Ò¥HAB6·|±N­ì¨Óªº¼Æ¦rÅܦ¨«ö¶s9A
           ¦]¦Ó¥¢¥h¥\¯à¦pªþÀɽаѦҬݬÝ
           ¨¯­WÅo!ÁÂÁ¦A¤T!!

Leov37-6.rar (18.63 KB)

TOP

        ÀR«ä¦Û¦b : ¤f»¡¤@¥y¦n¸Ü¡A¦p¤f¥X½¬ªá¡F¤f»¡¤@¥yÃa¸Ü¦p¤f¦R¬r³D¡C
ªð¦^¦Cªí ¤W¤@¥DÃD