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

[µo°Ý] ³vµ§¤ñ¹ï¦^¶Ç¸ê®Æ

[µo°Ý] ³vµ§¤ñ¹ï¦^¶Ç¸ê®Æ

¦U¦ì¤j¤j¦n
¤p©f§Ú·Q°µ­Ó¯S¥ð²Î­p¡A¦]§Ú¥q¯S¥ð¬O©P¦~¨î¡A¬G¨C­Ó¤Hªº¦~«×¯S¥ð´Á¶¡³£¤£¬Û¦P¡A
¤£ª¾¹DVBA¥i¥H°µ¨ì¤é´Á°Ï¶¡ªº§PÂ_¨Ã¦^¶Ç¦~«×¶Ü¡H
§Ú¹w­p±N¨C­Ó¤H¦~«×¯S¥ð°Ï¶¡ªº¤é´Á©ñ¦b¯S¥ð¤Ñ¼Æsheet¸Ì¡A¦bµn¿ýsheet¿é¤J§¹¬ÛÃö¸ê®Æ«á·|À°§Ú§PÂ_½Ðªº¬O­þ­Ó¦~«×¯S¥ð

¦]¤½¥q¥X¶ÔµL¨t²Î¥i¥Î¡A¬GÁٽЦU¦ì¤j¤jÀ°¦£

¯S¥ð²Î­p.zip (15.2 KB)

¦^´_ 1# ÅÚ½³ªd
¦³ªÅÀ°§Ú¸Õ¸Õ¬Ý¬O¤£¬O³o¼Ëªºµ²ªG ·PÁÂ


javascript:;

¯S¥ð²Î­p0118.rar (14.72 KB)

TOP

¥»©«³Ì«á¥Ñ ÅÚ½³ªd ©ó 2021-1-26 16:33 ½s¿è

¦^´_ 2# °a¤ªºµ


    ¬Oªº¡AÁÂÁÂ

¤£¦n·N«ä¡A³o³¡¤À§Ú¤£À´¬O·N«ä¡A¥i¥H¸ò±z½Ð±Ð¶Ü¡H
            A = Arr(x, 1) & "|" & Arr(x, 2) & "|" & Brr(3, 1) & "|" & Brr(3, 2) & "|" & Brr(3, 3) & "|" & Sheets(2).Cells(3, 4)
            A = Split(A, "|")
            For Y = 1 To 6
           Sheets(3).Cells(Rows.Count, Y).End(xlUp)(2) = A(Y - 1)

Public Sub ¯S¥ð²Î­p½m²ß()
    Application.ScreenUpdating = False
   
    Arr = [¯S¥ð¤Ñ¼Æ!A1].CurrentRegion
    Brr = [µn¿ý!A1].CurrentRegion
   
    For x = 2 To UBound(Arr)
        If Brr(1, 2) = Arr(x, 1) And _
        Brr(3, 2) >= Arr(x, 4) And _
        Brr(3, 2) <= Arr(x, 5) Then
            Sheets(2).Cells(3, 4) = Arr(x, 8)
            Sheets(1).Cells(x, 9) = _
            Sheets(1).Cells(x, 9) + Brr(3, 3)
            A = Arr(x, 1) & "|" & Arr(x, 2) & "|" & _
            Brr(3, 1) & "|" & Brr(3, 2) & "|" & _
            Brr(3, 3) & "|" & Sheets(2).Cells(3, 4)
            A = Split(A, "|")
            For Y = 1 To 6
                Sheets(3).Cells(Rows.Count, Y).End(xlUp)(2) = A(Y - 1)
            Next Y
        Exit For
        End If
    Next x
   
    Application.ScreenUpdating = True
End Sub

TOP

¥»©«³Ì«á¥Ñ °a¤ªºµ ©ó 2021-1-26 20:54 ½s¿è

¦^´_ 3# ÅÚ½³ªd
¨ä¹ê ¥Î¦r¨å¤è¦¡¤ñ¸û¦n ¦ý§ÚÁÙ¦b¾Ç²ß¤¤.. ©Ò¥H¥Î¤F¤ñ¸û²Âªº¤è¦¡   
¥H¤U¥u¬O¦êÁp¤å¦r
A = Arr(x, 1) & "|" & Arr(x, 2) & "|" & Brr(3, 1) & "|" & Brr(3, 2) & "|" & Brr(3, 3) & "|" & Sheets(2).Cells(3, 4)

µM«á¦A¤À³Î¨ìÀx¦s®æ
A = Split(A, "|")
For Y = 1 To 6
           Sheets(3).Cells(Rows.Count, Y).End(xlUp)(2) = A(Y - 1)

ÁÂÁ§AÄ@·Nªá®É¶¡À°§Ú´ú¸Õ  ÁÂÁ§A

TOP

¦^´_ 4# °a¤ªºµ


            a = Arr(x, 1) & "|" & Arr(x, 2) & "|" & _
            Brr(3, 1) & "|" & Brr(3, 2) & "|" & _
            Brr(3, 3) & "|" & Sheets(2).Cells(3, 4)
            a = Split(a, "|")
            For Y = 1 To 6
                Sheets(3).Cells(Rows.Count, Y).End(xlUp)(2) = a(Y - 1)
            Next Y
           Exit For

¤£¦n·N«ä¦A½Ð±Ð¤@¤U¡ASheets(3).Cells(Rows.Count, Y).End(xlUp)(2)ªº³¡¤À¡A
Sheets(3).Cells(Rows.Count, Y)³o¬O·|§ì¨ì³Ì«á¤@µ§¸ê®Æªº¦C¼Æ¡A¥[¤WEnd(xlUp)(2)¿ï¨ú¤U¤@¦CªÅ®æ¡A¥i§Ú¤£¤F¸ÑEnd(xlUp)(2)«üªº¬O¡H(2)¤S¦³Ô£·N«ä©O¡H¬°¤°»ò¿ï¨ú¤U¤@¦C¤£¬O¥ÎEnd(xlDown)¡H
¥t¥~¡Aa(Y - 1)¦]¬°¬O°}¦C©Ò¥HA(0)¬O²Ä¤@ªº·N«ä¶Ü¡H

ÁÙ¦b§V¤O¾Ç²ß¤¤¡A©Ò¥H¦³¨Ç«ü¥O¬Ý¤£¤ÓÀ´¡A¦pªG³y¦¨§xÂZÁٽШ£½Ì

TOP

¤u¸¹ W0008
2020/4/24 ½Ð¯S¥ð3¤Ñ
«h108¦~«×¦³2¤Ñ..4/24.4/25, 109¦~¦³1¤Ñ..4/26

TOP

¥»©«³Ì«á¥Ñ °a¤ªºµ ©ó 2021-1-27 20:50 ½s¿è

¦^´_ 5# ÅÚ½³ªd

(2) ·|©T©w«O«ù¦b²Ä2Äæ¶}©l
End(xlUp) ¬OÁקK¨C¦C¤¤¦pªG¦³ªÅ®æ¤]¤£·|°»´ú¿ù»~ ¦]¬° ¬O¥Ñ¤U©¹¤W
¦pªG¨Ï¥Î End(xlDown) ¤]¬O¥i¥H ¦ý²Ä¤@¦C¨ì³Ì«á¤@¦C ¤¤¶¡¤£¥i¥H¦³ªÅ®æ §_«h·|¤Ö§ì¸ê®Æ
a(Y - 1)¦]¬°¬O°}¦C©Ò¥HA(0)¬O²Ä¤@ªº·N«ä¶Ü¡H   ¬Oªº  
§Ú¨ì³o¸Ì ±q0¶}©l ¨ì²{¦b¤]ÁÙ¦bºN¯Á¤¤.. ¦³¾÷·|´N¨Ó³o¸Ì§ä¤@¨ÇÃD¥Ø¨Ó½m²ß¶¶«K½Ð¤j¤j­ÌÀ°¦£´ú¸Õ ¤]³\·|¶^¶^¼²¼²...
¦ý¨ì³Ì«áÁÙ¬O¥i¥H¾Ç²ß¨ì§ó¦hªº ¸gÅç. ª¾ÃÑ
¹ï§Ú¨Ó»¡³o¨Ç³£¬O·|²Ö¿nªº  ³£¬O­È±oªº  ³o¸Ì¬O¤@­Ó«Ü¦nªº¦a¤è §Ú¤]«Ü³ßÅw³o¸Ì  
¦]¬°¥i¥H¾Ç²ß¨ì«Ü¦h¤j¤jªº ½s¼g¤è¦¡ »P ¨ç¦¡ªº¥Îªk ÁÙ¦³ «ä¦ÒÆ[©À  


ÁÂÁ·ǤjÀ°¦£¦^´_ ·PÁÂ

TOP

¥»©«³Ì«á¥Ñ jcchiang ©ó 2021-1-28 12:47 ½s¿è

¦^´_ 1# ÅÚ½³ªd

¸Õ¸Õ¬Ý
Sub ex()
Dim d As Object
Dim a, b, x%
Set d = CreateObject("Scripting.Dictionary")
For Each b In Range(Sheets("µn¿ý").[B3], Sheets("µn¿ý").[B65536].End(3))
   For x = 0 To b.Offset(, 1) - 1
      With Sheets("¯S¥ð¤Ñ¼Æ")
         For Each a In Range(.[a2], .[a65535].End(3))
            If a = Sheets("µn¿ý").[b1] And a.Offset(, 3) <= b + x And a.Offset(, 4) >= b + x Then                    
               If b.Offset(, 2) = "" Then   '±N¦~«×¸ê®Æ©ñ¤JSheets("µn¿ý")
                  b.Offset(, 2) = a.Offset(, 7)
               Else
                   b.Offset(, 2) = b.Offset(, 2) & "/" & a.Offset(, 7)
               End If               
               a.Offset(, 8) = a.Offset(, 8) + 1    '±N¤w¥ð¤Ñ¼Æ²Ö­p©ñ¤JSheets("¯S¥ð¤Ñ¼Æ")
               d(a & b + x) = Array(a, a.Offset(, 1), b.Offset(, -1), b + x, "1", a.Offset(, 7))
            End If
         Next
      End With
   Next
Next
Sheets("list").[a65535].End(3).Offset(1).Resize(d.Count, 6) = Application.Transpose(Application.Transpose(d.Items))
Set d = Nothing
End Sub

TOP

¦^´_ 6# ­ã´£³¡ªL

©êºp ¨S¦³µo²{·Ç¤j¦b´£¿ô§Ú .. ¦ý³o¼gªk ¨S¦³ jcchiang ¤j¤jªº¦n
  1. Public Sub ¦r¨å¹B¥Î½m²ß()
  2.     Application.ScreenUpdating = False
  3.    
  4.     Arr = [¯S¥ð¤Ñ¼Æ!A1].CurrentRegion
  5.     Brr = [µn¿ý!A1].CurrentRegion
  6.     Set xD = CreateObject("Scripting.Dictionary")
  7.    
  8.     For H = Brr(3, 2) To Brr(3, 2) + (Brr(3, 3) - 1)
  9.         xD(H) = ""
  10.     Next H
  11.    
  12.     For x = 2 To UBound(Arr)
  13.    
  14.         If Brr(1, 2) = Arr(x, 1) Then
  15.         
  16.             For Each D In xD
  17.                 R = Array(Arr(x, 1), Arr(x, 2), [µn¿ý!A3], D, 1, Arr(x, 8))
  18.                 If D >= Arr(x, 4) And D <= Arr(x, 5) Then
  19.                
  20.                     For K = 1 To 6
  21.                         [list!A1].Cells(Rows.Count, K).End(xlUp)(2) = R(K - 1)
  22.                     Next K
  23.                 Sheets(2).Cells(3, 4) = Sheets(2).Cells(3, 4) & " " & Arr(x, 8)
  24.                 G = G + 1
  25.                 End If
  26.             Next D
  27.             
  28.         If G <> 0 Then Sheets(1).Cells(x, 9) = Sheets(1).Cells(x, 9) + G
  29.         End If
  30.    
  31.     G = 0
  32.     Next x
  33.    
  34. Application.ScreenUpdating = True
  35. End Sub
½Æ»s¥N½X

TOP

ÃD¥D³oÀÉ®×À³¬O¯ó½Z©Ê½è,¨ä¹êÁÙ¦³½Ñ¦h¹ê»Ú°ÝÃD,
1) ¥i¯à¤W¤È¦³¤W¯Z, ¤U¤ÈÁ{®É¦³¨Æ, ¤S¤£¯à½Ð¨Æ°²(·|¦©¿ú), ¥u¯à¥Î¥b¤Ñ©è¯S¥ð
2) ¯S¥ð³sÄò¤é´Á¤¤¹J¨Ò°²¤é, ³oÁ`¤£¯àºâ¶i¥h§a!
3) ¨Ò°²¤é¤¤ªº©P¤», ¦³®É¤S¬O½Õ¥ðªº¸É¯Z¤é, ¨º¤S¥i¥Hºâ¶i¥h?

TOP

        ÀR«ä¦Û¦b : ºw¤ô¦¨ªe¡C²É¦Ì¦¨ÅÚ¡A¤Å»´¤vÆF¡A¤Å¥Hµ½¤p¦Ó¤£¬°¡C
ªð¦^¦Cªí ¤W¤@¥DÃD