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

[µo°Ý] ¦p¦ó¥[´¡¦æ¼Æ

À³¸Ó¨S¤H¬Ý±oÀ´ÅÞ¿è~~
°µ¤@±i­ìªí,
¤Î¤@±iµ²ªGªí, ¨Ã»¡©ú³W«h¬yµ{,
³o¼Ë¤]³\¥i¥H¤ñ¹ï~~

TOP

¥»©«³Ì«á¥Ñ donod ©ó 2019-7-11 10:57 ½s¿è

¦^´_ 11# ­ã´£³¡ªL
½Ð­ã´£³¡ªL¤j¤j«ü±Ð¡AÁÂÁÂ!
G¦ÜJÄæ¡A·íKÄæ(¶¡¶Z)ªºµ´¹ï­È¤p©óÀx¦s®æM4¤Î¤j©óÀx¦s®æL4¡A³£¦Û°Ê¦V¤U¥[´¡¦æ¼Æ¡A±N¨C¦æ¶¡¶Z(JÄæ)³£Åܬ°¥HN4¤¤ªº³]©w¡A¶¡¶Z·|¬O»¼¼W©Î»¼´î
TEST3.rar (125.39 KB)

TOP

Sub TEST()
Dim xE As Range, i&, j&, Num(2), xR As Range, U(3), UK&
Num(0) = [N4]: Num(1) = [L4]: Num(2) = [M4]
Set xE = Cells(Rows.Count, "G").End(xlUp)
For i = xE.Row To 6 Step -1
    Set xR = Cells(i - 1, "G")
    U(1) = xR(2, 4):  U(2) = xR(1, 4):  U(0) = U(1) - U(2)
    If Abs(U(0)) <= Num(1) Or Abs(U(0)) >= Num(2) Then GoTo 101
    U(3) = Int(Abs(U(0)) / Num(0)) - 1
    If U(3) <= 0 Then GoTo 101
    xR(2, 1).Resize(U(3)).EntireRow.Insert
    xR.Resize(1, 3).Copy xR(2, 1).Resize(U(3), 3)
    For j = 1 To U(3)
        xR(j + 1, 4) = U(2) + Num(0) * j * IIf(U(0) >= 0, 1, -1)
    Next j
101: Next i
End Sub

Xl0000599.rar (14.58 KB)


=========================

TOP

¦^´_ 13# ­ã´£³¡ªL
·PÁ­㴣³¡ªL¤j¤j¡A¥i¥H¤F!¦]¦³«Ü¦hÀÉ®×­n³B²z¡A¨C¦¸¤Q¸U¦æ¥H¤W¡A¦³¨ÇÁÙ¦b¹B¦æ¤¤¡C¨S¦³¤j¤jÀ°§U¡A¤£¥i¯à§¹¦¨¡C¸U¤À·PÁÂ!

TOP

¦^´_ 14# donod


¨C¦¸¤Q¸U¦æ¥H¤W???
³B²z§¹°Ï¶¡«á¤SÅܦ¨´X¦æ???

¥H³o¼Æ¾Ú¶q, ¤W­±¨ºµ{¦¡ªÖ©w¤ÓºC¤F~~

TOP

¦^´_ 14# donod


¥Î³o­Ó¶]¬Ý¬Ý:
Xl0000599_v2.rar (15.11 KB)

TOP

¦^´_ 16# ­ã´£³¡ªL
ÁÂÁ­㴣³¡ªL¦AÀ°§U¡A³B²z¦h¹L65536¦æ´N¤£¦æ

TOP

¦^´_ 17# donod


´«³o­Ó:
Xl0000599_v3.rar (15.5 KB)

TOP

¥»©«³Ì«á¥Ñ donod ©ó 2019-7-12 17:50 ½s¿è

¦^´_ 18# ­ã´£³¡ªL
·PÁ­㴣³¡ªL¤j¤j¡A°õ¦æ³¡¥÷«Ü¦n¡A³B²z³t«×¶W§Ö!¥u¬OÁ٭줣¤F¡C

Xl0000599_v4.rar (18.64 KB)

TOP

¦^´_ 19# donod


ÁÙ­ì--§Ú³ookªº

­ì©l¸ê®Æ­n¥ý©ñ¦bSheet2

TOP

        ÀR«ä¦Û¦b : ¯à·F¤£·F¡A¤£¦p­W·F¹ê·F¡C
ªð¦^¦Cªí ¤W¤@¥DÃD