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

[µo°Ý] Àx¦s®æ³W«h°ÝÃD

[µo°Ý] Àx¦s®æ³W«h°ÝÃD

¦U¦ì¤j¤j ±z¦n:

¥Øªº­n¨ÏÀx¦s®æ¦Û°ÊÅܦ⠠§PÂ_¦¡»Ý¦³¸ó¤À­¶§PÂ_¬Y°Ï°ìªº­È  ¸Ô²Ó°ÝÃD¦³¼g¦bÀÉ®×¸Ì ·Ð½Ð¨ó§U¸ÑºÃ ©ÎªÌ¦³¨ä¥L§@ªk ÁÂÁÂ

cc.rar (8.63 KB)

¤å¥ó

=OR(B$3=INDIRECT("A!$M$4:$M$17"))*(B$3<>"")
=MATCH(B$3,INDIRECT("A!$M$4:$M$17"),)
=RANK(B$3,INDIRECT("A!$M$4:$M$17"))
=COUNTIF(INDIRECT("A!$M$4:$M$17"),B$3)

TOP

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


    ·PÁª©¥D  ¥i¥H¤F  §Ú¬ã¨s¤@¤U ÁÂÁ±z

TOP

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

ª©¥D±z¦n  :

ÁÙ¦³¹J¨ì¤@­Ó°ÝÃD ¥d¦í¤F  §Ú¸Õ¹L­è­èª©¥Dªº¥|ºØ¼gªk¥h·f°tAND ¦ý¬OÁÙ¬O¥¢±Ñ  ªì¾ÇªÌ ©êºp  ¦A½Ð«ü±Ð DD.rar (9.25 KB)
   
¼W¥[³W«h §PŪA! M$4©MN$4¤§¶¡ªº¤é´Á ­nÅã¥Ü¶À¦â  ¤§«e¦b¦P¤@¤u§@­¶¬O¥ÎAND¸Ñ¨M  ¦³¿ìªk¦b½d³ò©Ê°Ï°ìA!(M4:N14)§PŪ¥X¦U²Õ°Ï(M$4 N$4)

TOP

¦^´_ 4# eghost


=(B$3>INDIRECT("A!M4:M17"))*(B$3<INDIRECT("A!N4:N17"))

TOP

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


    ·PÁª©¤j¸ÑºÃ  ¾É¦V¤p§Ì¤£¦PªºÀ³¥Î«äºû

     ¥Ø«e´ú¸Õ¦³¤@°ÝÃD   A! ³]¤F¦h²Õ°Ï¬q®É¶¡(°_ÂI ²×ÂI)  ¥Ø«e¥u¯àŪ¨ì²Ä¤@²Õªº°Ï¶¡  ¤§«áªº°Ï¶¡µLªkŪ¥X  ¦b·Ð½Ðª©¤j©Î¦U¦ì¥ý¶i¸ÑºÃ  Àx¦s®æ¬Ò¦³½T»{³W«h¼g¤J
                                                    EE.rar (8.95 KB)

TOP

¥»©«³Ì«á¥Ñ ­ã´£³¡ªL ©ó 2015-12-24 09:34 ½s¿è

¦^´_ 6# eghost

OFFICEª©¥»¤ÓÂÂ, ®æ¦¡¤Æ¤½¦¡·|³Q¦Y±¼¤@¨Ç¦r¤¸, ¦A¸Õ¸Õ:
=OR((B$3>INDIRECT("A!M4:M17"))*(B$3<INDIRECT("A!N4:N17")))

Xl0000233.rar (4.84 KB)

TOP

¸Õ¸ÕVBA:
  1. Sub ²©ö¾î¦¡¦~¾ä()
  2.     Dim yy As Integer, mm As Integer, dd As Integer, d2 As Integer, w As Integer
  3.     yy = 2016
  4.     [B2:AF47] = ""
  5.     [B2:AF47].Interior.ColorIndex = xlNone
  6.     For mm = 1 To 12
  7.         d2 = Day(DateSerial(yy, mm + 1, 0))
  8.         For dd = 1 To d2
  9.             Cells(mm * 4 - 1, dd + 1) = DateSerial(yy, mm, dd)
  10.             w = Weekday(Cells(mm * 4 - 1, dd + 1), vbSunday)
  11.             Cells(mm * 4 - 2, dd + 1).NumberFormatLocal = "d"
  12.             Cells(mm * 4 - 2, dd + 1).FormulaR1C1 = "=RIGHT(TEXT(R[1]C,""aaa""))"
  13.             If w = 1 Then
  14.                 Cells(mm * 4 - 2, dd + 1).Font.ColorIndex = 3
  15.             ElseIf w = 7 Then
  16.                 Cells(mm * 4 - 2, dd + 1).Font.ColorIndex = 5
  17.             Else
  18.                 Cells(mm * 4 - 2, dd + 1).Font.ColorIndex = 1
  19.             End If
  20.         Next
  21.     Next
  22. End Sub

  23. Sub º£«á¸ê°T()
  24.     Dim shA As Worksheet
  25.     Dim LstR As Integer, I As Integer, J As Integer, eDay As Integer, mNUM As Integer
  26.     Dim Rng As Range, SD As Range, ED As Range, Scel As Range, Ecel As Range
  27.     Set shA = Sheets("A")
  28.     Set Rng = [B3:AF47]
  29.     Rng.Interior.ColorIndex = xlNone
  30.     LstR = shA.[M4].End(xlDown).Row
  31.     For I = 4 To LstR
  32.         Set SD = shA.Cells(I, 13)     'Start Date
  33.         Set ED = shA.Cells(I, 14)     'End Date
  34.         If SD.Value > ED.Value Then
  35.             MsgBox "°_©l¤é´Á¡G" & SD.Value & " > ²×¤î¤é´Á¡G" & ED.Value & ", ½Ð¬d©ú¦AÄ~Äò!!", vbOKOnly
  36.             Exit For
  37.         End If
  38.         Set Scel = Rng.Find(SD, Lookat:=xlWhole)       '¦b¦~¾ä¤¤´M§ä Start Date
  39.         If Scel Is Nothing Then
  40.             MsgBox "¬dµL¦¹¤é´Á:" & SD & ", ½Ð¬d©ú¦AÄ~Äò!!", vbOKOnly
  41.             Exit For
  42.         End If
  43.         Set Ecel = Rng.Find(ED, Lookat:=xlWhole)       '¦b¦~¾ä¤¤´M§ä End Date
  44.         If Ecel Is Nothing Then
  45.             MsgBox "¬dµL¦¹¤é´Á:" & ED & ", ½Ð¬d©ú¦AÄ~Äò!!", vbOKOnly
  46.             Exit For
  47.         End If
  48.         
  49.         If Scel.Row = Ecel.Row Then    '¦P¤@¤ë
  50.             Scel.Resize(1, Ecel.Column - Scel.Column + 1).Interior.ColorIndex = 6
  51.         ElseIf Ecel.Row - Scel.Row >= 4 Then    '¸ó«e«á¤ë
  52.             eDay = Day(DateSerial(Year(Scel), Month(Scel) + 1, 0))
  53.             Scel.Resize(1, eDay - Scel.Column + 2).Interior.ColorIndex = 6
  54.             Cells(Ecel.Row, "B").Resize(1, Ecel.Column - 1).Interior.ColorIndex = 6
  55.             If Ecel.Row - Scel.Row > 4 Then     '¸ó¨â¤T¤ë
  56.                 For J = Scel.Row + 4 To Ecel.Row - 4 Step 4
  57.                     Cells(J, "B").Resize(1, Cells(J, "B").End(xlToRight).Column - 1).Interior.ColorIndex = 6
  58.                 Next
  59.             End If
  60.         End If
  61.     Next
  62. End Sub
½Æ»s¥N½X
test.gif

TOP

¦^´_ 8# yen956


    ·PÁª©¥D©Myen956¤jªºvba¤ä´©  ¤p§Ì°ÝÃD¸Ñ¨M¤F ·|¬ã¨sy¤jªºvba  ÁÂÁ¨â¦ì¤j¤j ! ·P¿E¤£ºÉ !!:loveliness:

TOP

        ÀR«ä¦Û¦b : ¯u¥¿ªº·R¤ß¡A¬O·ÓÅU¦n¦Û¤vªº³oÁû¤ß¡C
ªð¦^¦Cªí ¤W¤@¥DÃD