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

[µo°Ý] ³]©w¦Û°Ê·í¤é¸ê®Æ¶K¨ì·í¤ë¸ê®Æ

¦^´_ 1# 52ee24
¸Õ¸Õ¬Ý
  1. c = Worksheets("Brick¸ê®Æ®w_1¦¸IR-MTD").Range("a1").CurrentRegion.Rows.Count
  2. Worksheets("Brick¸ê®Æ®w_1¦¸IR").Select
  3. '¬Ý¸ê®Æ¦³µL­«½Æ¶K
  4.    If Worksheets("Brick¸ê®Æ®w_1¦¸IR-MTD").Range("a"&C) = Date Then
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 3# 52ee24

·Q·j´MaÄæ¦³¨S¦³¬Û¦P¤é´Áªº
¸Õ¸Õ¬Ý
  1. Dim Rng As Range
  2.     '¬Ý¸ê®Æ¦³µL­«½Æ¶K
  3.     Set Rng = Worksheets("Brick¸ê®Æ®w_1¦¸IR-MTD").Range("a:a").Find(Date, LookIn:=xlFormulas)
  4.     If Not Rng Is Nothing Then '¦bAÄæ ´M§ä ·í¤éªº¤é´Á ¦³§ä¨ì
  5.       MsgBox ("§ó·s¹L¤F")
  6.     Else: Range(Cells(2, 1), Cells(A, b)).Copy Worksheets("Brick¸ê®Æ®w_1¦¸IR-MTD").Range("a" & c + 1)
  7.         '¶K¤Wµ{¦¡½X
  8.     End If
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 5# 52ee24


   

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

TOP

        ÀR«ä¦Û¦b : ¶¢¤HµL¼Ö½ì¡A¦£¤HµL¬O«D¡C
ªð¦^¦Cªí ¤W¤@¥DÃD