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

[µo°Ý] ¥dÀɸê®Æ­n²Î­p¦P¶W¥ð¦¸¼Æ

[µo°Ý] ¥dÀɸê®Æ­n²Î­p¦P¶W¥ð¦¸¼Æ

½Ð±Ð¦U¦ì°ª¤â¡A·Q±N¤½¥qªù¸T¸ê®Æ¤U¸ü«á¡A¥Hvb±N¸ê®Æ¾ã²z¨Ã­pºâ¥X¦P¤¯¶W¥ð¦¸¼Æ¡A¸Ó«ç»ò¼g©O?

¤½¥q¬°12¤p®É¨î¡A¤À¥|¦¸¥ð®§¡A¦]¤u§@¤À¦¨¨â§å½ü¥ð¡A¥H¤U¬O¥ð®§ªº½d³ò®É¶¡¡G
21¡G00~22¡G00 ¥ð®§
23¡G00~00¡G30 ¥ÎÀ\
02¡G00~03¡G00 ¥ð®§
05¡G00~06¡G30 ¥ÎÀ\

¥dÀɸê®Æ.zip (65.34 KB) ¶W¥ð²Î­p.zip (8.11 KB)

¦^´_ 1# FONG47
¶W¥ð ªº©w¸q¬°¦ó?
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

RE: ¥dÀɸê®Æ­n²Î­p¶W¥ð¦¸¼Æ

¦^´_ 2# GBKEE
¤£¦n·N«ä¡A§Ñ¤F»¡©ú¤½¥q³W©wªº®É¶¡¡A¤w­×§ï»¡©ú¡AÁٽаª¤â«e½ú­Ì¨ó§U¡AÁÂÁ¡I

¤½¥q¬°12¤p®É¨î¡A¤À¥|¦¸¥ð®§¡A¦]¤u§@¤À¦¨¨â§å½ü¥ð¡A¥H¤U¬O¥ð®§ªº½d³ò®É¶¡¡G
21¡G00~22¡G00 ¥ð®§  ³W©w¥ð®§20¤ÀÄÁ/¤H
23¡G00~00¡G30 ¥ÎÀ\  ³W©w¥ð®§40¤ÀÄÁ/¤H
02¡G00~03¡G00 ¥ð®§  ³W©w¥ð®§20¤ÀÄÁ/¤H
05¡G00~06¡G30 ¥ÎÀ\  ³W©w¥ð®§40¤ÀÄÁ/¤H

TOP

¦^´_ 3# FONG47
¥dÀɸê®Æ.xls ¸ê®Æ¤¤­û¤u¨C¤é¨ê¥d¬°¦ó¦³¤j©ó4µ§ªº¸ê®Æ
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 4# GBKEE

¤H¦³¤T«æ¡G¤º«æ¡A©Ê«æ¡A¤ß«æ
¶W¹L4¦¸ªº¥dÀɬO¤º«æ°Õ¡I¦¹ÄݤH¤§±`±¡¡Aª½±µ©¿²¤¤j¬ù8¤ÀÄÁ¤º

TOP

¦^´_ 5# FONG47
21¡G00~22¡G00 ¥ð®§  ³W©w¥ð®§20¤ÀÄÁ/¤H
23¡G00~00¡G30 ¥ÎÀ\  ³W©w¥ð®§40¤ÀÄÁ/¤H
02¡G00~03¡G00 ¥ð®§  ³W©w¥ð®§20¤ÀÄÁ/¤H
05¡G00~06¡G30 ¥ÎÀ\  ³W©w¥ð®§40¤ÀÄÁ/¤H
¤£¦n·N«ä . ¥dÀɪº¸ê®Æ§ÚµLªk§ì¥X   [ ¨ê¤J®É¶¡,¨ê¥X®É¶¡ ] ³o¨Ç®É¬qªº ®É¶¡
²á¥H¶W¥ð²Î­p.xlsªº­pºâµ{¦¡½X¥R¼Æ
  1. Option Explicit
  2. Sub Ex()
  3.     Dim Rng(1 To 2) As Range, Ot As Integer, i As Integer, T As Single
  4.     T = #12:20:00 AM#
  5.     With ActiveSheet
  6.         Set Rng(1) = .Range("A3")
  7.         Do While Rng(1) <> ""
  8.             Set Rng(2) = .Range("D1")
  9.             Ot = 0
  10.             Do While IsDate(Rng(2))
  11.                 For i = 1 To 4
  12.                     With .Cells(Rng(1).Row, Rng(2).Column).Cells(i)
  13.                         If .Value > IIf(i Mod 2 > 0, T, T * 2) Then
  14.                             Ot = Ot + 1
  15.                             .Interior.Color = vbRed
  16.                         Else
  17.                             .Interior.ColorIndex = xlNone
  18.                         End If
  19.                     End With
  20.                 Next
  21.                 Set Rng(2) = Rng(2).Offset(, 1)
  22.             Loop
  23.             .Cells(Rng(1).Row, Rng(2).Column) = Ot
  24.             Set Rng(1) = Rng(1).End(xlDown)
  25.         Loop
  26.     End With
  27. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

        ÀR«ä¦Û¦b : ¦Y­W¤F­W¡B­WºÉ¤Ü¨Ó¡A¨ÉºÖ¤FºÖ¡BºÖºÉ´d¨Ó¡C
ªð¦^¦Cªí ¤W¤@¥DÃD