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

[µo°Ý] ²Ä¤@¦C¼W¥[ÃC¦â¼Ð¥Ü¡C

[µo°Ý] ²Ä¤@¦C¼W¥[ÃC¦â¼Ð¥Ü¡C

¥»©«³Ì«á¥Ñ ziv976688 ©ó 2019-5-12 13:06 ½s¿è

´ú¸ÕÀÉ¡J ²Ä¤@¦C¼W¥[ÃC¦â¼Ð¥Ü¡C.rar (67.37 KB)
Àɮפº¼W¥[¤u§@ªí«á¡A¦A±N2­Ó¤u§@ªíªº²Ä¤@¦C¼W¥[ÃC¦â¼Ð¥Ü¡J
·íÀɮצWºÙ¤é´Á=DATA!AÄæ¤é´Á®É¡A«h±N¸ÓÀɮפº¦U¤u§@ªí¤§B$1¡JAX$1¦³¥X²{= DATA!D¡JJªº¼Æ¦r¼Ð¥Ü©³¦â(= D¡JI ¼Ð¥Ü6¸¹©³¦â¡F = J¼Ð¥Ü4¸¹©³¦â)¡C

½Ð°Ý¡JVBA»yªk­n¦p¦ó¼W¼g?
ÁÂÁÂÀ°¦£!

¦^´_ 1# ziv976688

      ½Ð°Ñ¦Ò ¡G
  http://forum.twbts.com/viewthrea ... p;extra=&page=5
    43#

  ÁÂÁÂ

TOP

¦^´_ 1# ziv976688

     «Øijª©¥D§â¦Û¤vªºµ{¦¡ PO ¥X¨Ó¡A¥i¥H¤¬¬Û¾Ç²ß¡A
      ¤]¸û®e©ö§ä¥X°ÝÃD¦b­þ¸Ì¡C

TOP

¦^´_ 3# Scott090

§Ú¤£·|¼gVBA¡A¥u¬O·Q½Ð±Ð¥H§Aªº¸Ñµª¦A¼W¥[²Ä1¦Cªº»Ý¨D¡AÀ³¸Ó¦p¦ó¼W¼g?
ÁÂÁ§A!

TOP

¥»©«³Ì«á¥Ñ ziv976688 ©ó 2019-5-12 16:55 ½s¿è

¦^´_ 2# Scott090
¦³¬Ý¨ì¤U¦C2¬qµ{¦¡½X:
FinishCatFile:
      With shSample
            .[b2].Resize(colorNo, colNo) = arDATA
            .Range(.[A1], .[AZ1]).Interior.ColorIndex = 0
            GoSub HasTheData
            
ColoringFields:
            For i = 1 To 7    '(D¡BE¡BF¡BG¡BH¡BI¡BJ)
                  If i < 7 Then .Cells(1, xNumber(1, i) + 1).Interior.ColorIndex = 6 Else .Cells(1, xNumber(1, i) + 1).Interior.ColorIndex = 8
            Next
            
            .Copy
      End With



HasTheData:
      xDate = Format(Mid(Cat, 2, 10), "yyyy/m/d")
      With ThisWorkbook.Sheets("Á`ªí")
            RowNo = 0
            RowNo = .[A:A].Find(xDate, Lookat:=xlPart).Row  
            If RowNo <> 0 Then xNumber = .Range(.Cells(RowNo , "D"), .Cells(RowNo , "J")).Value  
      End With          'end of numbers getting

¦ý¤£ª¾¹D­n¦p¦ó­×§ï©M´¡¤Jªº¦ì¦C?
½Ð§A«ü±Ð!ÁÂÁ§A!

TOP

¦^´_ 5# ziv976688

   ½Ð®Ö¹ï¬O§_©Ò»Ý¡G
      ·s¼W¸ê®Æªí(Tab¤ÎÄæ¦ì©³¦â20190513).rar (69.02 KB)

    ¦n©_ªº°Ý¡A¦P¼ËªºªF¦è¦n¹³¦³´X­Ó¤H¦b°Ý¡A³o¬O¬Æ»òªF¦è?

TOP

¦^´_ 6# Scott090
·PÁ«ü¾É!
À³¸Ó¬O¤U¸ü¤F¦P¼Ëªº²Î­pApp

TOP

¦^´_ 6# Scott090
1.png
2019-5-14 01:58

½Ð°ÝS¤j:
·íDATA!AÄæ¤é´Á=Àɮפé´Á¡A¦ý=DATA!AÄæ¤é´ÁªºD:J¬O""(¨S¦³¼Æ¦r)®É¡A«h¤]¯àÄ~Äò°õ¦æ§¹¦¨¼W¥["«e¤T¤p"ªº¤u§@ªí©M¯Á¤Þ¼ÐÅҼХܶÀ¦âªº»Ý¨D¡C
¥u¬O¤u§@ªíªº²Ä¤@¦C¨S¦³¦A¼Ð¥Ü¶À¦â©Mºñ¦â(EX:2019-05-07)-Ans¡C
µ{¦¡½X­n«ç»ò­×¥¿?
ÁÂÁ§A!

´ú¸ÕÀÉ: Downloads.rar (87.42 KB)

TOP

¦^´_ 8# ziv976688

     ½Ð¥[¤J¬õ¦â¦Û ªº «ü¥O¡A¥Î¥HÁ׶}¦³ªÅ¥Õ½Xªº¿ù»~¡G
     For i = 1 To 7    '(D¡BE¡BF¡BG¡BH¡BI¡BJ)
                  If xNumber(1, i) <> "" Then
                        j = Rng.Find(xNumber(1, i), LookIn:=xlValues, searchorder:=xlByColumns).Column
                        If i < 7 Then .Cells(1, j).Interior.ColorIndex = 6 Else .Cells(1, j).Interior.ColorIndex = 4
                  End If
            Next

TOP

¦^´_ 9# Scott090
·PÁ­ץ¿!
¦A¦¸ÁÂÁ§AªºÀ°¦£!

TOP

        ÀR«ä¦Û¦b : ¤H¥Í¨S¦³©Ò¦³Åv¡A¥u¦³¥Í©Rªº¨Ï¥ÎÅv¡C
ªð¦^¦Cªí ¤W¤@¥DÃD