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

[µo°Ý] Äæ¦ì¤º®e¥]§tABC¤å¦r§PÂ_

¦^´_ 10# Andy2483


   VBA°õ¦æ¤W,§Ö«Ü¦h~ ¶W±M·~...

TOP

¦^´_ 10# Andy2483


     ½Ð±Ð¦³DÄæ¦ì /FÄæ¦ì /GÄæ¦ì /WÄæ¦ì ­Ó¦³·j´M¬ÛÃö¤å¦r©M¹ïÀ³,­n¦p¦ó§ï¼g©O ?

TOP

¦^´_ 12# jackyliu


    ÁÂÁ«e½ú¦^Âзs»Ý¨D
¼ÒÀÀ»Ý¨D±¡¹Ò°µ¦¨½d¨Ò,½Ð«e½ú¸Õ¸Õ¬Ý!
¤µ¤Ñ²ß±o VBA¦hÄæ·j´MÃöÁä¦r±a¤J¹ïÀ³­È
½m²ß°}¦C»P¦r¨å
§PÂ_TEST-20221003-A.zip (36.45 KB)
­ì©l:
2022-10-03_131552.JPG
2022-10-3 13:29


ÃöÁä¦r¤u§@ªí
2022-10-03_131619.JPG
2022-10-3 13:28


µ²ªG:
2022-10-03_131633.JPG
2022-10-3 13:27

TOP

¦^´_ 13# Andy2483


    ­Y ÅÒ¤å(AÄæ¦ì) ¼W¥[ ÅÒ¤å(DÄæ¦ì) /ÅÒ¤å(GÄæ¦ì)  ·j´M¤å¦r«á¹ïÀ³ÃöÁä¦r,¥i¥H§ï¶Ü?
¥t¥~ ¥i¥H¹ïµ{¦¡Code »¡©ú¤@¤U¶Ü?(¨C¦æµù¸Ñ¤@¤U) ÁÂÁÂ~

TOP

¦^´_ 14# jackyliu


    ÁÂÁ«e½ú¦A¦^ÂÐ
«á¾Ç²q¿ù»Ý¨D!¬Ý³o¦¸¬O§_¾A¦X!
¤µ¥Ð²ß±o ¦hÄæ¤å¦rÀx¦s®æ,¦UÄæ±a¤J¦U¦ÛªºÃöÁä¦r·j´M¨ìªº­È!
½m²ß°}¦C»P¦r¨å!
§PÂ_TEST-20221004-_2.zip (40.63 KB) \
­ì©l:
2022-10-04_090753.JPG
2022-10-4 09:25


ÃöÁä¦r¤u§@ªí:
2022-10-03_131619.JPG
2022-10-4 09:25


µ²ªG:
2022-10-04_090754.JPG
2022-10-4 09:26

TOP

¥»©«³Ì«á¥Ñ Andy2483 ©ó 2022-10-4 09:38 ½s¿è

¦^´_ 14# jackyliu


    ¾Ç²ß¤ß±o¦p¤U¨Ñ«e½ú°Ñ¦Ò
¤]½Ð¦U¦ì«e½ú«ü¥¿!ÁÂÁ¦U¦ì«e½ú!
Option Explicit
Sub ·j´MÃöÁä¦r() '¡÷¡ô¡ö¡õ
Application.ScreenUpdating = False
'¡ô°õ¦æ®É¿Ã¹õµe­±¤£­n¸òµÛÅÜ°Ê

Dim Arr, Brr, Crr, i, x, d, xD, T, q$, f$, n, xA, s, v, SD, SS&
'¡ô«Å§iÅܼÆ
T = Timer
'¡ô¥OT=²{¦b®É¶¡

Set xA = Sheets("ÃöÁä¦r").Cells
'¡ôxA=ÃöÁä¦rªº©Ò¦³Àx¦s®æ

Set xD = CreateObject("Scripting.Dictionary")
'¡ô¥OxD ¬O¦r¨å

SD = Array(, 1, 4, 7, 10, 13, 16) '@@
'¡ô¥OSD¬O¤@ºû°}¦C

For s = 1 To Columns.Count Step 2
'¡ô³]©w°j°és±q 1 ¨ì¾ã­Ó¤u§@ªíªº³Ì«á¤@Äæ,¨C¶¦^¨Ó¤@¦¸s­n+2

   If xA(1, s) = "" Then
   '¡ô·í²Ä1¦CªºsÄæ¬OªÅ®æ!
   
      GoTo 101
      '¡ô±ø¥ó¦¨¥ß´N¸õ¨ì 101 ªº¼Ð¥Ü¦ì¸m
      
   End If
   SS = (s + 1) / 2
   '¡ô¥OSS ¬O­n«ü¦V SD°}¦C ªº¦ì¸m,·ís¬O1®ÉSS=1,¬O«ü¦V¤W¤è@@ªº1
   '¡ô,·ís¬O3®ÉSS=3,¬O«ü¦V¤W¤è@@ªº4

   
   Arr = Range(Cells(2, SD(SS)), Cells(Rows.Count, SD(SS)).End(3))
   '¡ô§âÀx¦s®æ­È­Ë¤J Arr°}¦C ¸Ì
   '¡ô·ís¬O1®É,Arr°}¦C ¸Ì©ñªº¬O[A2:A101]

   
   ReDim Crr(1 To UBound(Arr), 1 To 1)
   '¡ô«Å§i Crr°}¦Cªº¤j¤p!Áa¤è¦V¬O1 ¨ì(Arr°}¦CÁa¦V¼Æ¶q),¾î¤è¦V¬O1Äæ)
   
   Brr = xA.Range(xA(1, s), xA(Rows.Count, s + 1).End(3))
  '¡ô§âÀx¦s®æ­È­Ë¤J Brr°}¦C ¸Ì
   '¡ô·ís¬O1®É,¨ì¶i¥hªº¬OSheets("ÃöÁä¦r").[A1:B10]

   
   xD.RemoveAll
   '¡ô²MªÅxD¦r¨å
   
   For d = 2 To UBound(Brr)
   '¡ô³]©w°j°é,±q2 ¨ì Brr°}¦CÁa¦V¼Æ¶q
   
       xD(Brr(d, 1)) = Brr(d, 2)
       '¡ô·íd=2 ¦r¨åªºkey="ABC",item="¤W¤WÅÒ"
      
   Next
   For i = 1 To UBound(Arr)
   '¡ô³]©w°j°é,±q1 ¨ì Arr°}¦CÁa¦V¼Æ¶q
   
      For Each x In xD.Keys
      '¡ô¥Ox¬O¦r¨å¸Ìªº¤@¤À¤l,°j°é±q¦r¨å¸Ìªº²Ä1­Ókey¶}©l¹B¥Î
      ',¨C¶¦^¨Ó´NÅܦ¨²Ä2­Ókey.....

      
         q = UCase(Arr(i, 1))
         '¡ô¥Oq¦r¦ê¬OArr°}¦Cªº­È(¥B¤p¼g­^¤å¦r¥À³£Åܤj¼g),¨Ò¦p UCase("NHjoOa")="NHJOOA"
         
         f = UCase(x)
         '¡ô¥Of¦r¦ê¬OxD.Key(¥B¤p¼g­^¤å¦r¥À³£Åܤj¼g)
         
         n = Len(x)
         '¡ô¥On¬OxD.Keyªº¦r¼Æ
         
         If InStr(q, f) <> 0 Then
         '¡ô¦pªGq¦r¦ê¸Ì¥]§t¤Ff¦r¦ê,f¦r¦ê¦bq¦r¦êªº²Ä´X­Ó¦r¦ì¸m,¨Ò¦p InStr("ABCD", "CD")=3
         
            Crr(i, 1) = xD(x)
            '¡ô¦pªG¤W¤è±ø¥ó¦¨¥ß!´N¥OCrr°}¦C¸Ë¤J key¬Ox ªºitem xD(x)
            
            Cells(i + 1, SD(SS)).Characters(InStr(q, f), n).Font.ColorIndex = 3
            '¡ô¦pªG¤W¤è±ø¥ó¦¨¥ß!´N§â¦rÅܬõ¦â
            
            Exit For
            '¡ô¦pªG¤W¤è±ø¥ó¦¨¥ß!´N¸õ¥X (For Each x In xD.Keys)³o­Ó°j°é
         End If
      Next
   Next
   v = Array(, 2, 5, 8, 11, 14, 17)(SS)
   '¡ô¥Ov¬O¤@ºû°}¦C!¬O¥Î¨Ó«ü©wÃöÁä¦r©Ò·j´M¨ìªº­È­n©ñ­þ¸Ì
   
   Cells(2, v).Resize(UBound(Crr), 1) = Crr
   '¡ô·ís=1®É §âCrr­Ë¤J¤u§@ªí[B2:B101]
   
   Cells(1, v) = Brr(1, 2)
   '¡ô·ís=1®É [B1]="ÅÒ§O"
   
Next

101
MsgBox "¦@¯Ó®É: " & Timer - T

Application.ScreenUpdating = True
'¡ô¿Ã¹õµe­±«ì´_ÅÜ°Ê
End Sub

TOP

¦^´_ 1# jackyliu
  1. Sub test()
  2.     For uu = 3 To ¤u§@ªí1.Range("a3").CurrentRegion.Rows.Count
  3.         ¤u§@ªí2.Cells(uu, 1) = ¤u§@ªí1.Cells(uu, 1)
  4.         ¤u§@ªí2.Cells(uu, 2) = ¤u§@ªí1.Cells(uu, 2)
  5.         
  6.          If (InStr(1, ¤u§@ªí2.Cells(uu, 1), "ABC") >= 1) Then
  7.             ¤u§@ªí2.Cells(uu, 4) = "¤Wñ"
  8.          End If
  9.         
  10.          If (InStr(1, ¤u§@ªí2.Cells(uu, 1), "A") >= 1) And (InStr(1, ¤u§@ªí2.Cells(uu, 1), "D") >= 1) And (InStr(1, ¤u§@ªí2.Cells(uu, 1), "E") >= 1) And (InStr(1, ¤u§@ªí2.Cells(uu, 1), "D") >= 1) Then
  11.             ¤u§@ªí2.Cells(uu, 4) = "¤Uñ"
  12.          End If
  13.          If ¤u§@ªí2.Cells(uu, 1) <> "" And ¤u§@ªí2.Cells(uu, 4) = "" Then
  14.             ¤u§@ªí2.Cells(uu, 4) = "²¤"
  15.          End If
  16.          
  17.         If ¤u§@ªí2.Cells(uu, 1) <> "" Then
  18.             If uu = 3 Then
  19.                 ¤u§@ªí2.Cells(uu, 3) = DateAdd("n", 90, ¤u§@ªí2.Cells(uu - 1, 3))
  20.                 ¤u§@ªí2.Cells(uu, 3).Select
  21.                 Selection.NumberFormatLocal = "hh:mm"
  22.             End If
  23.             If uu > 3 Then
  24.                 ¤u§@ªí2.Cells(uu, 3) = DateAdd("h", 8, ¤u§@ªí2.Cells(uu - 1, 3))
  25.                 §@ªí2.Cells(uu, 3).Select
  26.                 Selection.NumberFormatLocal = "hh:mm"
  27.             End If
  28.         End If
  29.             If ¤u§@ªí2.Cells(uu, 1) = "" Then End
  30.     Next
  31.    
  32.    
  33.     ¤u§@ªí2.Cells(2, 4) = ""
  34. End Sub
½Æ»s¥N½X

  ¦h°µ¦h·Q¦h¾Ç²ß¡A¤Ö¬Ý¤Ö¿ù¤Ö°g³~

  ¦h°µ=¦h¦h½m²ß¡A¦h¦h½s¼g¡C
  ¦h·Q=·Q·Q¬°¤°»ò¤H®aµ{¦¡­n¨º¼Ë¼g¡A¦pªG´«¦¨¦Û¤v¡A¤S·|«ç¼g¡C
  ¦h¾Ç²ß=¾Ç²ß¤H®aªºµo°Ý¨Ã¸Ñµª¡A¾Ç²ß¤H®aªº¼gªk

  ¤Ö¬Ý=¥u¬Ý¤£°µ¤]ªPµM

TOP

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


    ÁÂÁ«e½ú
¤½¦¡¦nÃø,°}¦C¤½¦¡§óÃø,«á¾Ç¬ã¨s¤F¤@¾ã¤Ñ,ÃjÃjÀ´À´
Àµ½Ð«ü¥¿«ü¾É,ÁÂÁÂ
§PÂ_TEST_20221216_2.zip (9.11 KB)

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

TOP

        ÀR«ä¦Û¦b : ¤f»¡¦n¸Ü¡B¤ß·Q¦n·N¡B¨­¦æ¦n¨Æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD