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

[µo°Ý] ¨â­Ó°ÝÃD¡G¤ñ¹ï°j°é & Àx¦s®æ°{Ã{

[µo°Ý] ¨â­Ó°ÝÃD¡G¤ñ¹ï°j°é & Àx¦s®æ°{Ã{

Q1:
°²³]§Ú¦³¤@²Õ¸ê®Æ­n¤ñ¹ï
EX: ¤u§@ïA ¤ñ¹ï ¤u§@ïB  ¦b¤u§@ïA¤WÅã¥Ü 111,222,333,..ªº­È
<¤u§@ïA>                           
B 222
A 111
C 333
D 444
C 333

<¤u§@ïB>(¹ï·Óªí)
A 111
B 222
C 333
D 444
E 555
F 666
G 777
                                                         
¥Ø«e§Ú³£¬O¥Î³Ìª½Ä±ªºFor°j°é(¶]2­Ó-> ¤@­Ó¬°¤u§@ïAªº¼Æ¶q(i)¡A¥t¤@¬°¤u§@ïBªº¼Æ¶q(j))¨Ó³B²z
¦ý¦pªG¸ê®Æ¶q¤j ¤ñ¹ï«Ü¯Ó®É
½Ð°Ý¤j¤j¦³¤°»ò§ó¦³®Ä²vªº¤è¦¡¶Ü???
(¥Î¨ç¼Ævlookup·|¤ñ¸û§Ö¶Ü?? ¦ý§Ú¤£¤Ó·|±N¨ç¼ÆÀ³¥Î¦bVBA»yªk¤W¡A¦Ó¥Bvlookup¥²¶·¦h©Ô¤@­ÓÄæ¦ì¨Ó©ñ­È§a?)


Q2:
§Ú·QÅý¬õ¦â©³ªºÀx¦s®æ°{Ã{
·í§@ĵ¥Ü§@¥Î
¥H¤U³o¬O«Ü²Âªº·Qªk «¢«¢
¦Ó¥Bµ{¦¡·|¤@ª½°õ¦æ¡A¥d¦íµLªk°µ¨ä¥L¨Æ
  1.     Do
  2.         If Range("B2").Interior.ColorIndex = 3 Then
  3.             Application.Wait (Now + TimeValue("0:00:01"))
  4.             Range("B2").Interior.ColorIndex = -4142
  5.         End If
  6.         If Range("B2").Interior.ColorIndex = -4142 Then
  7.             Application.Wait (Now + TimeValue("0:00:01"))
  8.             Range("B2").Interior.ColorIndex = 3
  9.         End If
  10.     Loop
½Æ»s¥N½X
·Q»¡¤@¦¸±N2°ÝÃD©ñ¤@­Ó´£°Ý¡A¤~¤£¥e½×¾Âª©­±
¤º¤å¦³ÂI¤¾ªø ¡A ³Â·Ð¦U¦ì¤j¤j   ÁÂÁ  :  )

¦^´_ 1# li_hsien
¸Õ¸Õ¬Ý
  1. Option Explicit
  2. Sub ex()
  3.     Dim Ar As Variant, e As Range, Rng As Range, T As Date
  4.     Ar = Sheet2.[A5:A15].Value           '¤u§@ïB
  5.     Ar = Application.Transpose(Ar)       'Âà´«¬°¤@ºû°}¦C
  6.     Ar = "," & Join(Ar, ",") & ","       'Join(¶Ç¦^¦r¦ê):¥H","¦r¦ê,³sµ²¤@ºû°}¦Cªº¤¸¯À¬°¦r¦ê
  7.                                          
  8.     For Each e In Sheet1.[A3:A10]        '¤u§@ïA
  9.         If InStr(Ar, "," & e & ",") Then '"," & e & "," => °ß¤@ªº¦r¦ê,Ar¤¤´M§ä³o"°ß¤@¦r¦ê"ªº¦ì¸m
  10.             If Rng Is Nothing Then       'InStr(Ar, "," & e & ",")<>0 (False)   => ¦³§ä¨ì³o"°ß¤@¦r¦ê"ªº¦ì¸m
  11.                 Set Rng = e
  12.             Else
  13.                 Set Rng = Union(e, Rng)
  14.             End If
  15.         End If
  16.     Next
  17.     Rng.Parent.Activate                 '¤u§@ïA
  18.     Rng.Interior.Color = vbRed
  19.     T = Time
  20.     Do
  21.         DoEvents
  22.         If Time - T > #12:00:01 AM# Then    '¶¡¹j 1¬í
  23.             T = Time
  24.             If Rng.Interior.Color = vbRed Then
  25.                 Rng.Interior.Color = vbYellow
  26.             Else
  27.                 Rng.Interior.Color = vbRed
  28.             End If
  29.         End If
  30.     Loop
  31. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 2# GBKEE

´ú¸Õ¤F°{Ã{³¡¤Àªº»yªk¡A¯uªº¬O§Ú·Q­nªº°õ¦æ¤è¦¡­C

¤£¹L§Ú·Q­n°{Ã{ªº³¡¤À¡A¬O¥u¦³­ì¨Ó¬õ¦â©³ªºÀx¦s®æ
(¬õ->µL¶ñº¡¡AµL¶ñº¡->¬õ¡A³£¬O¦P¤@­ÓÀx¦s®æ)

¦]¬°§Úªí³æ¤º¦³¦UºØÃC¦â¡AÁÙ¦³µL¶ñº¡ªºªÅ¥Õ®æ¡A§Ú¥u­nÅý­ì¥»¬O¬õ¦âªº¨º´X­Ó°{Ã{

·Q½Ð°ÝªO¤j¡A¦pªG¥[¤J³o±ø¥ó¸Ó«ç»ò¼g???


¥t¥~§Ú·Q¤F¸Ñ¤@¤U
¬O¦]¬°DeEventsªºÃö«Y¡A©Ò¥H¯àÅýµ{¦¡«ùÄò¹B¦æ¥B¥i¥H°õ¦æ¨ä¥L°Ê§@¶Ü???
ÁÙ·Q½Ð°Ý If Time - T > #12:00:01 AM# Then    ¬°¤°»ò¬O¶¡¹j 1¬í§r??? ¤£¤ÓÀ´

·PÁ¤j¤jªºÀ°¦£    ÁÂÁ   :  )

TOP

¦^´_ 3# li_hsien
­n¦³®É¶¡ªº¶¡¹j,¨Ó§ïÅÜÀx¦s®æªº©³¦â,¤~·|³y¦¨Àx¦s®æ°{Ã{ªºµøı®ÄªG.
DeEvents : ¥æ¦^±±¨îÅv¦^µ¹¨t²Î,
¥u­nÅý­ì¥»¬O¬õ¦âªº¨º´X­Ó°{Ã{ : §A´N«ü©w­þ¨ÇÀx¦s®æ
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 1# li_hsien
°Ñ¦Ò
  1. Static Sub SetRangeFlashing(Optional Target, Optional ColorIndex, Optional bQuit As Boolean)
  2.   '¨Ï¥Î¤èªk:
  3.   '  ­n¶}©l°{Ã{½Ð©I¥s¡GSetRangeFlashing Target:=Range("A1:B2,C3"), ColorIndex:=3
  4.   '  ­n°±¤î°{Ã{½Ð©I¥s¡GSetRangeFlashing bQuit:=True

  5.   Dim dteNextTime As Date
  6.   Dim bStatus As Boolean
  7.   Dim RecordColor
  8.   Dim rngFlash As Range
  9.   
  10.   If bQuit Then
  11.     rngFlash.Interior.ColorIndex = RecordColor
  12.     Application.OnTime dteNextTime, "SetRangeFlashing", , False
  13.   Else
  14.     If Not IsMissing(Target) Then Set rngFlash = Target
  15.     If Not IsMissing(ColorIndex) Then RecordColor = ColorIndex
  16.    
  17.     rngFlash.Interior.ColorIndex = IIf(bStatus, RecordColor, xlColorIndexNone)
  18.     bStatus = Not bStatus
  19.     dteNextTime = Now + TimeValue("00:00:01")
  20.     Application.OnTime dteNextTime, "SetRangeFlashing"
  21.   End If
  22. End Sub
½Æ»s¥N½X

TOP

¦^´_ 4# GBKEE

ÁÂÁªO¤jªº¸ÑÄÀ

¤£¹L§ÚÁÙ¬O¤£¤Ó²M·¡¸Ó¦p¦ó«ü©w¯S©wÀx¦s®æ°{Ã{
¥H¤U¬O§Úªº°µªk¡A¬O¥i¥H°{Ã{XDD
¤£¹L¥L°}¦C¦n¹³·|¤@ª½­¿¼Æ¼W¥[@@
  1. Private Sub twinkle()
  2.    
  3.     Dim Rng As Range
  4.     Dim Ar() As Integer
  5.    
  6.     T = Time
  7.     T2 = Time
  8.     Do
  9.         DoEvents
  10.         
  11.         If Time - T > TimeValue("00:00:01") Then
  12.             T = Time
  13.             For i = 6 To Worksheets(2).Range("M65536").End(xlUp).Row
  14.                 If Range("M" & i).Interior.Color = 255 Then
  15.                     Range("M" & i).Interior.ColorIndex = -4142
  16.                     j = j + 1
  17.                     
  18.                     ReDim Preserve Ar(j)
  19.                     
  20.                     Ar(j) = i
  21.                 End If
  22.             Next
  23.             'MsgBox j
  24.             Debug.Print j
  25.             
  26.         End If
  27.         
  28.         'If Time - T > #12:00:05 AM# Then
  29.         
  30.         If Time - T2 > TimeValue("00:00:01") Then
  31.             T2 = Time
  32.             'Application.Wait Now + TimeValue("00:00:01")
  33.             For k = 1 To j
  34.                 Range("M" & Ar(k)).Interior.Color = 255
  35.             Next
  36.             
  37.         End If
  38.         
  39.     Loop
  40.    
  41. End Sub
½Æ»s¥N½X
¤£ª¾¸Ó«ç»ò­×

³Â·Ð¤j¤jÀ°§Ú¬Ý¬Ý  ÁÂÁ  :  )

TOP

¦^´_ 5# stillfish00


    stillfish00 ¤j¤j
    §Ú¤£ª¾¸Ó«ç»ò°õ¦æ­C...

    ª½±µCOPY ¥i¬O¥L¤£¯àRUN

    ¬O¦]¬°static¶Ü? ÁÙ¬O§Ú»Ý­n¦³¤°»ò«e¸mªº»yªk??

TOP

¦^´_ 7# li_hsien
§Ú¥u¬O³æ¯Â¦^µªQ2ªº°ÝÃD¡A´¡¤Jµ{¦¡½X«á¡A1¼ÓQ2ªº¥N½X¥i´«¬°
SetRangeFlashing Target:=Range("B2"), ColorIndex:=3
¨ÏB2Àx¦s®æ°{Ã{¡C

¤£¾A¥Î°j°é¤¤¡A¦Ó¬O¥Î¦b³Ì«á­n«ü©w½d³ò°{Ã{ªº®É­Ô¡C

TOP

¦^´_ 6# li_hsien
½ÐªþÀÉ»¡©ú§Aªº½d³ò
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 9# GBKEE

³o¬O§Úªº´ú¸ÕÀÉ®×

¥D­n·Qªk¬O¥ý¶]¤@¦¸¾ã¦C¡A±NÀx¦s®æ¬°¬õ©³ªºÅܦ¨µL¶ñº¡
¨Ã¥B±NÄæ¦ì°O¤U¨Ó¡A¦A¹L¤@¬íÄÁ¡AŪ¨ú°}¦C¤¤ªºÄæ¦ì
§âÀx¦s®æ¦AÅܦ¨¬õ¦â

¤£¹L§Ú¶]°_¨Ó¦n¹³°{Ã{ªº¤£Ã­©wXDD
¦Ó¥B°}¦C·|¤@ª½­¿¼Æ¦¨ªø
¦³·Q»¡­«¶]´Nerase¤@¦¸
¥i¬O¥L´N¤£¦æ¶]¤F

³Â·Ð¤j¤j À°§Ú¬Ý¬Ý ÁÂÁÂ

    Test-1127_twinkle.zip (10.33 KB)

TOP

        ÀR«ä¦Û¦b : ¥Ç¿ù¥XÄb®¬¤ß¡A¤~¯à²M²bµL·Ð´o¡C
ªð¦^¦Cªí ¤W¤@¥DÃD