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

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

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

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

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

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2013-11-27 14:14 ½s¿è

¦^´_ 10# li_hsien
  1. Dim Rng As Range
  2. Private Sub twinkle()
  3.     Dim t As Date
  4.     '³]¥ß Rngªº½d³ò *********
  5.     With Worksheets(1)
  6.     For i = 1 To .Range("A65536").End(xlUp).Row
  7.         If .Range("A" & i).Interior.Color = 255 Then
  8.             .Range("A" & i).Interior.Color = -4105  '¬õ©³ªºÅܦ¨µL¶ñº¡
  9.             '******±NÄæ¦ì°O¤U¨Ó *****
  10.             If Rng Is Nothing Then
  11.                 Set Rng = Range("A" & i)
  12.             Else
  13.                 Set Rng = Union(Rng, Range("A" & i))
  14.             End If
  15.             '******±NÄæ¦ì°O¤U¨Ó *****
  16.         End If
  17.     Next
  18.     End With
  19.     t = Time
  20.     '**********Àx¦s®æ °{Ã{  ******
  21.     Do
  22.     DoEvents
  23.         If Time - t > TimeValue("00:00:01") Then
  24.             t = Time
  25.             Rng.Interior.Color = IIf(Rng.Interior.Color = 255, -4105, 255)
  26.         End If
  27.     Loop
  28.     '**********Àx¦s®æ °{Ã{  ******
  29. End Sub
½Æ»s¥N½X
¦^´_ 11# li_hsien
11# ªºµ{¦¡½X(½Ð½Æ»s©ó¤@¯ë¼Ò²Õ (Module1)¤¤ ¸Õ¸Õ
¥H¤Uµ{¦¡½X¤]¬O½Ð½Æ»s©ó¤@¯ë¼Ò²Õ¸Õ¸Õ
  1. Dim Rng As Range, Msg As Boolean    '¦b¼Ò²Õ³»ºÝ³]¥ß³o¼Ò²Õ¥i¥Î¤§ÅܼÆ
  2. Sub twinkle()
  3.     Msg = False
  4.     '³]¥ß Rngªº½d³ò *********
  5.     With Worksheets(1)
  6.         For i = 1 To .Range("A65536").End(xlUp).Row
  7.             If .Range("A" & i).Interior.Color = 255 Then
  8.                 .Range("A" & i).Interior.Color = -4105  '¬õ©³ªºÅܦ¨µL¶ñº¡
  9.                 '******±NÄæ¦ì°O¤U¨Ó *****
  10.                 If Rng Is Nothing Then
  11.                     Set Rng = Range("A" & i)
  12.                 Else
  13.                     Set Rng = Union(Rng, Range("A" & i))
  14.                 End If
  15.                 '******±NÄæ¦ì°O¤U¨Ó *****
  16.             End If
  17.         Next
  18.     End With
  19.     Application.Wait Time + #12:00:01 AM#  'µ¥­Ô1¬íÄÁ
  20.     SetRangeFlashing                       '°õ¦æ³oµ{§Ç
  21. End Sub
  22. Private Sub SetRangeFlashing() 'Àx¦s®æ °{Ã{
  23.     If Msg = True Then
  24.         Rng.Interior.Color = 255   'ÁÙ­ì¬õ¦â
  25.         Exit Sub
  26.     End If
  27.     Rng.Interior.Color = IIf(Rng.Interior.Color = 255, -4105, 255)
  28.     Application.OnTime Time + #12:00:01 AM#, "SetRangeFlashing"
  29. End Sub
  30. Sub Stop_Flashing()   '°±¤îÀx¦s®æ°{Ã{
  31.     Msg = True
  32. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 13# li_hsien
Q1:
     Set Rng = Union(Rng, Range("A" & i))
    unionªº¥Îªk¬O??? §ârange("A"& i) ¥[¤JRng¸Ì­±¶Ü?? :¨S¿ùRng¬O°}¦C¶Ü??? ¬ORange
  1. 'Union ¤èªk ¶Ç¦^¨â­Ó©Î¦h­Ó½d³òªº¦X¨Ö½d³ò¡C
  2. Option Explicit
  3. Sub EX()
  4. Dim Rng As Range
  5. Set Rng = [A1:A5]
  6. Set Rng = Union([A1:A5], [C5:C15])
  7. MsgBox Rng.Address
  8. End Sub
½Æ»s¥N½X

Q2:
     ¬°¤°»ò¨S¦³¬Ý¨ì©¹¤U²Ö¥[ªºÄæ¦ì¼Æ¡ARng¥i¥H©¹¤U¤@Äæ¦ì¶]§r??? ³æ¬Ý³o¼Ë¦n¹³¥u¬O­ì¦a°{¦P¤@­Ó
     ¬Ý Q1: ªº»¡©ú
Q3:
¦³¤°»ò¤èªk¥i¥H§â°}¦C­È¤@¦¸¦L¥X¨Ó¶Ü?? ¦Ó¤£¥ÎFOR°j°é¶]
  1. Option Explicit
  2. Sub EX()
  3. Dim AR()
  4. AR = Array(5, 10, 15, 20)
  5. [A1].Resize(1, UBound(AR) + 1) = AR
  6. [A5].Resize(UBound(AR) + 1) = Application.WorksheetFunction.Transpose(AR)
  7. MsgBox Join(AR, vbLf)
  8. 'WorksheetFunction.Transpose:Âà¸m(¤u§@ªí¨ç¼Æ)
  9. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

        ÀR«ä¦Û¦b : ¨ü¤HÂI¤ô¤§®¦¡A¶··í´é¬u¥H³ø¡C
ªð¦^¦Cªí ¤W¤@¥DÃD