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

[µo°Ý] END ÄÝ©Ê°ÝÃD¹B¥Î

[µo°Ý] END ÄÝ©Ê°ÝÃD¹B¥Î

¦U¦ì¥ý¶i¦n ¤p§Ì¦³°ÝÃD·Q½Ð±Ð

¦b¥Lµ{¦¡¹Bºâ¹Lµ{¤¤ °»´ú¹Bºâ¥X¨Óªºµ²ªG"¨º¤@®æ" »yªk­n«ç¼Ë¼¶¼g?
§Ú­n¨ú±o  M ³o­Ócellsªº¦ì¸m ¥H§Q«á­±ªº»yªk¹B§@
¥t Cells(I, J) - Cells(I, (J - 2)) = 0 ­nÅý¥L¶]¨ì¤£µ¥©ó0 »yªk­n«ç­×§ï
  1. Sub AAA123()
  2.   
  3. Dim I%, J%, k%                        '«Å§iÅܼÆ
  4. Dim current As Worksheet
  5. For Each current In Worksheets        '¹ï©Ò¦³¬¡­¶Ã¯§@³B²z
  6. current.Select
  7. 'J = Rows(1).End(xlToRight).Column     '¨ú±o²Ä¤@¦C³Ì«á¤@®æ¦³¸ê®Æªº­È
  8. J = 1
  9. Do While Cells(1, J) <> "°ªµ{"        'º¡¨¬±ø¥ó®É°õ¦æ¥H¤U°Ê§@
  10. J = J + 1
  11. Loop
  12. J = J - 1
  13. Columns(J).Insert Shift:=xlToRight    '¦V¥k´¡¤J¤@Äæ
  14. k = Range("a:a").End(xlDown).Row      '¨ú±oAÄæ³Ì«á¤@®æ¦³¸ê®Æªº­È
  15. Range(Columns(J + 1).Rows(2), Columns(J + 2).Rows(k)).Clear  'Äæ¦ì¼Æ­È²M°£
  16. Cells(1, J) = Now()                   'Áä¤J®É¶¡
  17. For I = 2 To k Step 1                 '°j°é³B²z
  18.     If Cells(I, (J - 1)) - Cells(I, (J - 2)) > 0 Then    '­Y¬Û´î¤j©ó0 ¶]­t¶Ã¼Æ
  19.         Randomize
  20.         Cells(I, J) = Round(((-0.1 - -0.3) * Rnd + -0.3), 1) + Cells(I, (J - 1))
  21.             ElseIf Cells(I, (J - 1)) - Cells(I, (J - 2)) < 0 Then   '­Y¬Û´î¤p©ó0 ¶]¥¿¶Ã¼Æ
  22.                 Randomize
  23.                 Cells(I, J) = Round(((0.3 - 0.1) * Rnd + 0.1), 1) + Cells(I, (J - 1))
  24.         Else
  25.             Cells(I, J) = ""           '¥H¤W±ø¥ó¤£¦¨¥ß«h¬°ªÅ¦r¦ê
  26.     End If
  27. If Cells(I, J) - Cells(I, (J - 2)) = 0 Then
  28.     Call µ¥©ó0
  29. End If
  30.     With Cells(I, J + 1)              '¨D±o¨âªÌ®t²§
  31.         .Formula = "=IF(ISBLANK(" & .Offset(0, -1).Address & "),""""," & .Offset(0, -1).Address & " - " & .Offset(0, -2).Address & ")"
  32.     End With
  33.             With Cells(I, J + 2)                  '¨D±o°ªµ{
  34.                 .Formula = "=IF(ISBLANK(" & .Offset(0, -2).Address & "),""""," & "b" & I & "+(" & .Offset(0, -2).Address & "*0.001)-ROUND(RAND()*0.00005,5))"
  35.             End With
  36.     If Cells(I, J) = "" Then          '·í¦¹¬°ªÅ¦r¦ê
  37.         Cells(I, J + 1) = ""          '«hÅã¥ÜªÅ¦r¦ê
  38.         Cells(I, J + 2) = ""
  39.     End If
  40. Next I
  41. 'Cells(1, J) = Now()                   'Áä¤J®É¶¡
  42. Set current = Nothing                 'ÄÀ©ñª«¥óÅܼÆ
  43. Next current
  44. MsgBox "Worksheets working Success!!" '°T®§´£¥Ü
  45. 'Range(Columns(J + 2).Rows(2), Columns(J + 2).Rows(k)).Copy  '°ªµ{½Æ»s
  46. End Sub

  47. Sub µ¥©ó0()

  48. Dim I%, J%, k%, M%
  49. J = 1
  50. Do While Cells(1, J) <> "°ªµ{"        'º¡¨¬±ø¥ó®É°õ¦æ¥H¤U°Ê§@
  51. J = J + 1
  52. Loop
  53. J = J - 2
  54. M = Cells(Rows.Count, Columns(J).End(xlDown)).End(xlUp).Rows          '³o¦æ¼g¤£¥X¨Ó...
  55. 'M = Range("J" & 65536).End(xlUp).Rows
  56.          If Cells(M, (J - 1)) - Cells(M, (J - 2)) > 0 Then    '­Y¬Û´î¤j©ó0 ¶]­t¶Ã¼Æ
  57.             Randomize
  58.             Cells(M, J - 1) = Round(((-0.1 - -0.3) * Rnd + -0.3), 1) + Cells(M, (J - 1))
  59.                
  60.                 ElseIf Cells(M, (J - 1)) - Cells(M, (J - 2)) < 0 Then   '­Y¬Û´î¤p©ó0 ¶]¥¿¶Ã¼Æ
  61.                     Randomize
  62.                     Cells(M, J - 1) = Round(((0.3 - 0.1) * Rnd + 0.1), 1) + Cells(M, (J - 1))
  63.         End If
  64.    
  65. End Sub
½Æ»s¥N½X
¤wªþ¤WÀÉ®×

½Ð¦U¦ì¤j¤j«ü±Ð

¦^´_ 1# alex520188
Cells(I, J) - Cells(I, (J - 2)) = 0 ­nÅý¥L¶]¨ì¤£µ¥©ó0 »yªk­n«ç­×§ï
If Cells(I, J) - Cells(I, (J - 2)) <> 0  Then
¨S¬Ý¨ìªþÀɪü!

TOP

¦^´_ 2# GBKEE


    ¤w¸É¤W~ 123.rar (14.81 KB)

TOP

M = Cells(Rows.Count, j).End(xlUp).Row
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 4# Hsieh


    M = Cells(Rows.Count, j).End(xlUp).Row
ÁÂÁÂhsiehªO¥Dªº«üÂI ¨S·Q¨ì³o»ò²³æ¤@¥y §Ú«o·Q¤£¥X¨Ó

§Úªº²Ä¤G­Ó°ÝÃD "Cells(I, J) - Cells(I, (J - 2)) = 0 ­nÅý¥L¶]¨ì¤£µ¥©ó0 »yªk­n«ç­×§ï" ¥i¯à»¡ªº¤£¬O«Ü²M·¡
§Ú´«­Ó¤è¦¡ªí¹F
Randomize §Ú¦³³]°Ï¶¡µ¹¥L¶] ¦ý¬O¸g¹LSub µ¥©ó0() ³o­Óµ{¦¡¤§«á Cells(I, J)ÁÙ¬O¦³¾÷²v·|¶]¥X»PCells(I, J-2)¦P¼Ëªº­È
¦³¤°»ò¤èªk¥i¥HÅý¥¦¶Ã¼Æ¹L«áªº­È³£¤£¬Ûµ¥©O

TOP

¥N½X§ó¥¿
Cells(M, J - 1) §ï¦¨Cells(M, J )

TOP

        ÀR«ä¦Û¦b : ªY½à§O¤H´N¬O²øÄY¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD