ªð¦^¦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)

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


½Ð°²¤]³\¬O¤@¤Ñ, ©Î¥b¤Ñ, ©Î´X¤p®É´X¤Àªº, ¶V§Ë¶V½ÆÂø,
ÁÙ¬O¬ÝÃD¥Dªº·N«ä§a!
§Ú¬Oı±o, ³o¥Î¤â°Êµn¿ý¸û¤£¥X¿ù, À³¸Ó³£¦³½Ð°²³æ,
©ÎªÌ, ¥X¶Ô¨t²Î¤]·|¦³³oºØ³]¸m.

TOP

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

¦^·Ç¤j¸É¯Zªº±ø¥ó§Ú¥[¤F ¦pªG¦³¦h¾lªº®É¶¡ ¥i¥HÀ°§Ú¬Ý¬Ý ¬O¤£¬O³o¼ËªºÅÞ¿è ³Â·Ð§A¤F  


javascript:;

¯S¥ð²Î­p0129.rar (103.29 KB)

TOP

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


³o¸ò¸U¦~¾ä¨S¦³Ãö«Y,
¨C¦~¬F©²³£·|¤½§G¹j¦~ªº¸`¤é¤Î¸É¯Z¤é,
©Ò¥H´X¥G¨C¦~³£­n«Ø¤@­Ó¦~«×¤é´Á¹ï·Óªí!!!
½Ð¯S¥ð, ¤]¥u¸ò¤µ¦~¤Î©ú¦~¦³Ãö«Y

TOP

¥»©«³Ì«á¥Ñ °a¤ªºµ ©ó 2021-1-29 16:19 ½s¿è

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

·Ç¤j ³o¬O¦³¥[¤J¸U¦~¾ä(ºô¸ô¤W§äªºµy·L­×§ï°²¤é) ªº¤è¦¡¦³¦©°£¦C°²¤é ¤j·§ÀH·N³]©w¤F´X­Ó¶µ¥Ø ¦³ªÅ¥i¥HÀ°§Ú¬Ý¬Ý ¦³¨S¦³¹F¨ì§Aµ¹ªºÃD¥Ø­n¨D ¯ÊÂI´N¬O ¦³ÂIºC ¦]¬°µ{¦¡¤Óªø¤F
·Pı§ÚªºÅ޿観°ÝÃDªº¼Ë¤l.   ³Â·Ð§A¤F

   
[attach]33015[/attach]

¯S¥ð²Î­p½m²ß.rar (54.88 KB)

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

¦^´_ 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

¥»©«³Ì«á¥Ñ 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

¥»©«³Ì«á¥Ñ °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

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

TOP

        ÀR«ä¦Û¦b : «Ý¤H°h¤@¨B¡A·R¤H¼e¤@¤o¡A´N·|¬¡±o«Ü§Ö¼Ö¡C
ªð¦^¦Cªí ¤W¤@¥DÃD