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

[µo°Ý] Excel¦p¦ó¥H¿é¤J¤é¤l«K±o¥X¬ÛÃö¸ê®Æ¨ì·s¤u§@ªí¡H

[µo°Ý] Excel¦p¦ó¥H¿é¤J¤é¤l«K±o¥X¬ÛÃö¸ê®Æ¨ì·s¤u§@ªí¡H

¥»¤H¦b¤½¥q¦³¤@database, ¦C¥X­û¤uªº°V½m¤Î®É¶¡

¤u§@ªí1
¡@¡@A¡@¡@             ¢Ð¡@¡@    C          D¡@¡@ E          F
1¡@¤é´Á¡@              ­û¤u¡@    ½s¸¹    ½Òµ{1  ½Òµ{2   ½Òµ{3
2¡@01/01/2015¡@³¯¤j¤å¡@1058   »y¨¥¡@²âÅ¥      «ÈªA
3¡@01/02/2015¡@³¯¤p¤å¡@0990   »y¨¥¡@­^¤å      «ÈªA
4¡@11/03/2015¡@³¯¤å¡@    1572   »y¨¥¡@·|¸Ü      «ÈªA
5¡@15/01/2015¡@³¯¤å¤j¡@1275   »y¨¥¡@²âÅ¥      ¼Æ¾Ç

¥»¤H·Q¦b¤u§@ªí2¤¤
¿é¤J¤ë¤Î¦~«K¥i¦C¥X¸Ó¦~¤ë©Ò¥X§¹¦¨½Òµ{ªº­û¤u¦W¦r¤Î½s¸¹

¨Ò:
¤u§@ªí2

¡@¡@A¡@¡@             ¢Ð¡@¡@    C          D¡@¡@ E          F
½Ð¿é¤J¤w§¹¦¨½Òµ{ªº¤ë¤Î¦~¥÷: 01/2015
¡@¤é´Á¡@              ­û¤u¡@    ½s¸¹
¡@01/01/2015¡@³¯¤j¤å¡@1058   
¡@15/01/2015¡@³¯¤å¤j¡@1275

·PÁ¦U¦ìªºÀ°¦£~ÁÂÁÂ~~~

=VLOOKUP
¥i¥H¸Ñ¨M§Aªº°ÝÃD
¥hEXCEL®×F1»¡©ú¸Ì­±Á¿¸Ñ«Ü²M·¡

TOP

¤u§@ªí·Qµ¹USER¿é¤J¦~¤Î¤ë
¦]¬°USER¥¼¥²À´±o¨Ï¥ÎVLOOKUP©Î¨ä¥LFunction

TOP

DEAR SIR
  1.Sheet2.RANGE("B2") ¿é¤J¤ë
       Sheet2.RANGE("D2") ¿é¤J¦~
    2.³]«ö¶s°õ¦æ¦p¤U§Y¥i.

Sub AAAAAA()
Sheet2.Visible = True
Sheet2.[A3:F65536].ClearContents
X = Sheet1.[A65536].End(xlUp).Row
Y = Sheet2.[A65536].End(xlUp).Row + 1
For M = 2 To X
If Month(Sheet1.Cells(M, 1)) - Sheet2.Cells(1, 2) = 0 And Year(Sheet1.Cells(M, 1)) - Sheet2.Cells(1, 4) = 0 Then
Sheet2.Cells(Y, 1) = Sheet1.Cells(M, 1)
Sheet2.Cells(Y, 2) = Sheet1.Cells(M, 2)
Sheet2.Cells(Y, 3) = Sheet1.Cells(M, 3)
Sheet2.Cells(Y, 4) = Sheet1.Cells(M, 4)
Sheet2.Cells(Y, 5) = Sheet1.Cells(M, 5)
Sheet2.Cells(Y, 6) = Sheet1.Cells(M, 6)
Y = Y + 1
End If
Next
Sheet2.Select
Range("A1").Select
End Sub
ù

TOP

¦^´_ 4# rouber590324


    ÁÂÁ§Aªº¦^´_, ¦ý§Ú¹ïmacro¤£¤Ó»{ÃÑ, ¥i¥H¦C¥X¸Ô²Ó½s½X¶Ü? ¤£¦n·N«ä...

TOP

SORRY §ÚµLªk¤W¶ÇÀÉ®×.
1.¤u§@ªí1 ¦P§A  ´£¨Ñ¤§ A-FÄ椺®e.
2.¤u§@ªí2
    B2 ªÅ¥Õ¨Ñ ¿é¤J¤ë
       D2 ªÅ¥Õ¨Ñ ¿é¤J¦~
3.³]«ö¶s°õ¦æ¥¨¶°§Y¥i.
ù

TOP

        ÀR«ä¦Û¦b : ­n¤ñ½Ö§ó¨ü½Ö¡D¤£­n¤ñ½Ö§ó©È½Ö¡C
ªð¦^¦Cªí ¤W¤@¥DÃD