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

½Ð°Ý¦p¦ó­pºâ±m²¼´X´Á¥¼¶}ªº¤è¦¡

¥»©«³Ì«á¥Ñ Andy2483 ©ó 2024-1-23 12:18 ½s¿è

ÁÂÁ½׾Â,ÁÂÁ¦U¦ì«e½ú
«á¾ÇÂǦ¹©«¾Ç²ß¨ì«Ü¦hª¾ÃÑ,¾Ç²ß¤è®×¦p¤U,½Ð¦U¦ì«e½ú«ü±Ð
¤µ±m_20240123_6.zip (52.46 KB)

°õ¦æ«e:


°õ¦æµ²ªG:


¼Æ¦rÅã¥Ü1:


¼Æ¦rÅã¥Ü2:


¹Ïªí:
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y

TOP

¦^´_ 11# Andy2483

·PÁ Andy2483 ¤j¤j¤À¨É:)

TOP

ÁÂÁ½׾Â,ÁÂÁ¦U¦ì«e½ú
«á¾ÇÂǦ¹©«½m²ß­­¨î½d³òÀH¾÷¨ú¸¹,¥H¦r¨å°O¿ý¤£­«½Æ,¾Ç²ß¤è®×¦p¤U,½Ð¦U¦ì«e½ú«ü±Ð
°õ¦æ«e:
20240124_1.jpg

°õ¦æµ²ªG:
20240124_2.jpg

Option Explicit
Sub ÀH¾÷¨ú¸¹()
Dim Z
Set Z = CreateObject("Scripting.Dictionary")
[C2:G2].UnMerge
Do Until Z.Count = 5
   Z(Int(Rnd() * 10 ^ 5) Mod 39 + 1) = ""
Loop
[C2].Resize(, 5) = Z.KEYS(): [C2:G2].Activate
End Sub
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y

TOP

¦^´_ 13# Andy2483

·PÁÂ Andy2483 ¤j¤j
¤À¨É¤U¥t¥~¶g´ÁÅܰʼҦ¡

TOP

¦^´_ 14# jdg188


    ÁÂÁ«e½ú¦^´_¤À¨É
«e½ú¤µ±m³o¤è®×¬ã¨s±o²`¤J,Excel«Ü¼F®`,«á¾Ç¹ï¤µ±m³o¶ô¨S¦³¯AÂy,«á¾Ç¤j·§¯à¬ÝÀ´«e½ú¤À¨Éªº¹Ï¤ù¸Ì¸ê®ÆªºÅÞ¿è,¦ý¤£ª¾¹D¨ä·N¸q
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y

TOP

¦^´_  jdg188


    ÁÂÁ«e½ú¦^´_¤À¨É
«e½ú¤µ±m³o¤è®×¬ã¨s±o²`¤J,Excel«Ü¼F®`,«á¾Ç¹ï¤µ±m³o¶ô¨S¦³¯AÂy ...
Andy2483 µoªí©ó 2024-1-24 10:08


Andy2483 ¤j¤j¡A¤£´±·í¡A±z°ª¬Ý¤F..... ÀÉ®×±z¬ã¨s¬Ý¬Ý

    TW-539.rar (963.39 KB)

TOP

¥»©«³Ì«á¥Ñ Andy2483 ©ó 2024-1-30 08:58 ½s¿è

¦^´_ 16# jdg188


    ÁÂÁ«e½ú¦^´_,±z´£¨Ñ½d¨Ò¬O½m²ßVBA¦r¨åªº¦nÃD§÷
«á¾Ç¾Ç²ß¤è®×¦p¤U,½Ð«e½ú«ü±Ð PS:³o 31 ¸¹´¿¸g³sÄò50¦¸¤£¶}¥X
¤µ±m_20240125.zip (113.56 KB)
°õ¦æµ²ªG:


Sub ¶}¥X¦¸¼Æ²Î­p3()
Dim Crr(1 To 6, 1 To 100), i%, j%, V%, xR As Range, D As Date, y%, ii%, S&, Z, T$, TT, M%
If UBound(Brr) < 100 Then Exit Sub
Set Z = CreateObject("Scripting.Dictionary")
Worksheets.Add after:=Worksheets(Sheets.Count): ActiveSheet.Name = "¶}¥X¦¸¼Æ3"
Cells.Font.Name = "·L³n¥¿¶ÂÅé": Cells.HorizontalAlignment = xlCenter: Set xR = [C1]
For i = UBound(Brr) To 100 Step -1
   With xR.Resize(6, UBound(Crr, 2))
      Range(.Rows(1), .Rows(1).Offset(, -2)).Borders.LineStyle = xlContinuous
      Range(.Rows(1), .Rows(1).Offset(, -2)).Interior.ColorIndex = 19
      For ii = 7 To 10: Range(.Cells, .Offset(, -2)).Borders(ii).Weight = 4: Next
      Intersect(.Columns(1), .Columns(1).Offset(1)).Interior.ColorIndex = i Mod 15 + 33
   End With
   D = Brr(i, 2) + 1: S = Brr(i, 1) + 1
   For j = 1 To 6
      TT = T & "/": T = ""
      For V = 1 To 100
         Crr(1, V) = V - 1
         For y = 2 To 6
            If V = 1 Then T = T & "/" & Brr(i - V + 1, y + 1)
            If Z(Val(Brr(i - V + 1, y + 1))) = 0 Then
               Crr(y, V) = Brr(i - V + 1, y + 1)
               Z(Val(Brr(i - V + 1, y + 1))) = 1
               If InStr(TT, "/" & Val(Brr(i - V + 1, y + 1)) & "/") Then
                  xR(y, V).Interior.ColorIndex = 5: xR(y, V).Font.ColorIndex = 2
                  If M < V Then M = V
               End If
            End If
         Next
      Next
   Next
   With xR.Resize(6, UBound(Crr, 2)): .Value = Crr: xR(1, -1) = "´Á¼Æ (¤é´Á)": End With
   xR(2, -1).Resize(5).Merge: xR(2, -1) = S & " (" & D & ")": xR(2, -1).Font.Bold = True
   xR(2, -1).Resize(5).Interior.ColorIndex = IIf(i = UBound(Brr), 38, 40)
   Set xR = xR(7, 1): Z.RemoveAll: Erase Crr
Next
ActiveSheet.UsedRange.EntireColumn.AutoFit: [B:B].ColumnWidth = 2
ActiveSheet.UsedRange.Offset(, M + 2).EntireColumn.Delete
ActiveSheet.UsedRange.Borders(10).Weight = 4: ActiveWindow.Zoom = 85
ActiveSheet.UsedRange.Offset([C65536].End(3).Row).EntireRow.Delete
End Sub

¬¡­¶Ã¯2.zip (6.1 KB)

³o¬O¶Ç¿ùªº½d¨Ò

¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y

TOP

¦^´_ 17# Andy2483

·PÁ Andy2483¤j¤jºë²¥N½X§e²{¡A¯u¬O¤Ó´Î¤F¡A°õ¦æ«á°ò¥»¨S¦³°ÝÃD¡A
   1. ±©²Ä¤@­¶¡]¤µ±m539¡^¦p§R°£³Ì«á¤@¦C¸ê®Æ©Î§ó¦hÀx¦s®æ¡]H336~AT336(¦p¹Ï¡^·|¯d¤U¸ê®Æ¡F¥B²Ä¤G¦C²Î­p·|»P³Ì«á¤@¦C¬Û®t¤@¦C¡C
   2. H2... Àx¦s®æÂÔ¬O¥¼¶}´Á¼Æ¤§­pºâ¡A蒒¿ïµLª½±µ§@¥Î¡C
   3. K¡BS ... µ¥¦æ­ì¥»¤§¡u¦h¿ï¨ú®Ö¨ú¤è¶ô¡v¥u¬O°ÊºA»²§UÆ[¬Ý¸¹½X¸¨ÂIÀ³¥Î¡A­ì·N¨Ã«D³Ì·s¶}¥X¸¹½X¦æ¤§¼Ð¥Ü¡C
   ÁÂÁ±z¡I
   

TOP

¦^´_ 18# jdg188


    ÁÂÁ«e½ú¦A¦^´_
¤è®×­×¥¿­×§ï¦p¤U,½Ð«e½ú«ü±Ð
¤µ±m_20240126_1.zip (117 KB)
¿ï¨ú²Ä1¦C¸¹½X®ÄªG:
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y

TOP

¦^´_ 19# Andy2483
·PÁÂAndy2483¤j¤j¦^ÂФέץ¿¡A¤×¨ä¬O§YÂI§YÅܦâ¯u¬OÅåÆA¡C
ps¡GH2...»P H337... ²Î­p¸ê®Æ¤£²Å¡]¦p¤U¹Ï¥u²Î­p¦Ü H336...¡^½Ð­×¥¿¡AÁÂÁ¡I
  

TOP

        ÀR«ä¦Û¦b : ¬Ý§O¤H¤£¶¶²´¡A¬O¦Û¤v­×¾i¤£°÷¡C
ªð¦^¦Cªí ¤W¤@¥DÃD