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

[µo°Ý] ¨ì´Á¤é¦Û°Ê¼uµ¡´£¿ô,¥H´£¿ô¹L¸ê®Æ¸Ó¦p¦ó½Õ¾ã©O?

[µo°Ý] ¨ì´Á¤é¦Û°Ê¼uµ¡´£¿ô,¥H´£¿ô¹L¸ê®Æ¸Ó¦p¦ó½Õ¾ã©O?

½Ð°Ýcells(Äæ,¦C) ¥¿½T¶Ü?

¦]¸ê®Æ³£¦b¦P1SHEET,«ç»òÅý38Äæ´£¿ô¹Lªº¸ê®Æ"²¾°Ê"¨ì§OÄæ©O? ¤£µM·|­«½Æ´£¿ô¤w¸g¹L¥hªº¸ê®Æ¡I¡I
¥Ø«eµ{¦¡½X¬O¥u´£¿ô·í¤Ñªº,¦ý¦³®É¥i¯à¥ð°²¬O¹j¤Ñ¶}±Ò³o­ÓÀÉ®×,´N»Ý­n±NÄæ¦ì²¾°Ê¨ì§OÄæ,¦]¬O¨Ï¥Î¶W³sµ²ªºµLªk½Æ»sÁpµ²·|¶]±¼

Sub ·í¤é¨ì´Á´£¿ô()
For i = 4 To Cells(3, 2).End(xlDown).Row 'Sheets("«È¤á©ú²Ó").UsedRange.Rows.Count
If (Sheets("«È¤á©ú²Ó").Cells(i, 38).Value = Date) Then
MsgBox (Sheets("«È¤á©ú²Ó").Cells(i, 4).Value & "¸ÓÀ\³æ¤w¨ì´Á¡A½Ð©â³æ")
Sheets("«È¤á©ú²Ó").Cells(i, 45).Value = "¤w¤îÀ\"
If (Day(Data) = Day(Sheets("«È¤á©ú²Ó").Cells(i, 38).Value)) Then
MsgBox (Sheets("«È¤á©ú²Ó").Cells(i, 38).Value & "¸ÓÀ\³æ¤w¨ì´Á¡A½Ð©â³æ")
End If
Else
Sheets("«È¤á©ú²Ó").Cells(i, 45).Value = "¥ÎÀ\¤¤"
End If
Next i

End Sub

½Ð°Ýcells(Äæ,¦C) ¥¿½T¶Ü?

¦]¸ê®Æ³£¦b¦P1SHEET,«ç»òÅý38Äæ´£¿ô¹Lªº¸ê®Æ"²¾°Ê"¨ì§OÄæ©O? ¤£µM·|­«½Æ´£¿ô¤w ...
starry1314 µoªí©ó 2015-7-11 19:48

¤w¸Ñ¨M~·Q½Ð°Ý¬õ¦r³¡¤À¸Ó¦p¦óÁYµu«ü¥O©O?

Sub ¨ì´Á´£¿ô()
Dim i As Long
With Sheets("«È¤á©ú²Ó")
For i = 4 To Cells(3, 2).End(xlDown).Row 'Sheets("«È¤á©ú²Ó").UsedRange.Rows.Count
If (.Cells(i, 38).Value = Date) Then
MsgBox (.Cells(i, 4).Value & "¸ÓÀ\³æ¤w¨ì´Á¡A½Ð©â³æ")

      
      .Cells(i, 38).Select     
    Selection.Cut Destination:=Range("AT" & i)


If (Day(Data) = Day(Cells(i, 38).Value)) Then
.Cells(i, 38).Value = "¤w¤îÀ\"
End If
Else
End If

Next i
End With
End Sub

TOP

¦^´_ 2# starry1314
  1. Option Explicit
  2. Sub ex()
  3.     Dim i As Integer
  4.     'Cells(¦C, Äæ) ¤~¥¿½T
  5.     i = 38
  6.     i = Range("AT1").Column
  7.     Cells(5, i) = "¥¿½T"
  8.     Cells(5, "AT") = "¥¿½T"
  9.    
  10.     Cells(i, 38).Cut Destination:=Range("AT" & i)

  11. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¥»©«³Ì«á¥Ñ starry1314 ©ó 2015-7-12 13:15 ½s¿è

¦^´_ 3# GBKEE


    ·PÁ¶Wª©ªºÀ°¦£~³Ìªñ¦n¹³µ{¦¡½X³£¥[¤WµùÄÀ Åܱo©öÀ´³\¦h¤F

TOP

        ÀR«ä¦Û¦b : ¥@¤W¦³¨â¥ó¨Æ¤£¯àµ¥¡G¤@¡B§µ¶¶ ¤G¡B¦æµ½¡C
ªð¦^¦Cªí ¤W¤@¥DÃD