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

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

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

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

¦^´_ 8# stillfish00


   

ERROR

VBA.JPG
2013-11-27 10:05


¤£ª¾¹D¬°¤°»ò°õ¦æ°_¨Ó·|»¡¥¨¶°¦³°ÝÃD
­«¶}¤F¤]¬O¤@¼Ë
¤£²M·¡¿ù¦b­þ

§Úªº°õ¦æ¤è¦¡¬O
  1. Sub test()
  2.     SetRangeFlashing Target:=Range("B2"), ColorIndex:=3
  3. End Sub

  4. Static Sub SetRangeFlashing(Optional Target, Optional ColorIndex, Optional bQuit As Boolean)
  5.    
  6.     '¨Ï¥Î¤èªk:
  7.     '  ­n¶}©l°{Ã{½Ð©I¥s¡G
  8.     'SetRangeFlashing Target:=Range("B2"), ColorIndex:=3
  9.     '  ­n°±¤î°{Ã{½Ð©I¥s¡GSetRangeFlashing bQuit:=True

  10.     Dim dteNextTime As Date
  11.     Dim bStatus As Boolean
  12.     Dim RecordColor
  13.     Dim rngFlash As Range
  14.    
  15.     If bQuit Then
  16.       rngFlash.Interior.ColorIndex = RecordColor
  17.       Application.OnTime dteNextTime, "SetRangeFlashing", , False
  18.     Else
  19.       If Not IsMissing(Target) Then Set rngFlash = Target
  20.       If Not IsMissing(ColorIndex) Then RecordColor = ColorIndex
  21.      
  22.       rngFlash.Interior.ColorIndex = IIf(bStatus, RecordColor, xlColorIndexNone)
  23.       bStatus = Not bStatus
  24.       dteNextTime = Now + TimeValue("00:00:01")
  25.       Application.OnTime dteNextTime, "SetRangeFlashing"
  26.     End If
  27.    
  28. End Sub
½Æ»s¥N½X
¤£ª¾¹D³o¼Ë¶]µ{¦¡¬O¤£¬O¥¿½Tªº

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

ÁÂÁ  :   )

TOP

¦^´_ 12# GBKEE

½Ð°Ý¤@¤UªO¤j
Q1:
Set Rng = Union(Rng, Range("A" & i))
unionªº¥Îªk¬O??? §ârange("A"& i) ¥[¤JRng¸Ì­±¶Ü??
Rng¬O°}¦C¶Ü??? ÁÙ¬O???

Q2:
  '**********Àx¦s®æ °{Ã{  ******
    Do
    DoEvents
        If Time - t > TimeValue("00:00:01") Then
            t = Time
            ¬°¤°»ò¨S¦³¬Ý¨ì©¹¤U²Ö¥[ªºÄæ¦ì¼Æ¡ARng¥i¥H©¹¤U¤@Äæ¦ì¶]§r??? ³æ¬Ý³o¼Ë¦n¹³¥u¬O­ì¦a°{¦P¤@­Ó
            Rng.Interior.Color = IIf(Rng.Interior.Color = 255, -4105, 255)
        End If
    Loop
    '**********Àx¦s®æ °{Ã{  ******

Q3:
¥t¥~ÁÙ·Q½Ð°ÝªO¤j
¦³¤°»ò¤èªk¥i¥H§â°}¦C­È¤@¦¸¦L¥X¨Ó¶Ü??
¦Ó¤£¥ÎFOR°j°é¶]



¤£¦n·N«ä°ÝÃD¦³ÂI¦h

ÁÂÁ¤j¤j    :  )

TOP

¦^´_ 14# GBKEE

«D±`·PÁªO¤j

§Ú¤S¦h¤F¦n¦h¸gÅç­È¤F!!!

:   )

TOP

        ÀR«ä¦Û¦b : ¤Hªº¤ß¦a¬O¤@²¥¥Ð¡A¤g¦a¨S¦³¼½¤U¦nºØ¤l¡A¤]ªø¤£¥X¦nªºªG¹ê¡C -
ªð¦^¦Cªí ¤W¤@¥DÃD