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

[µo°Ý] ½Ð±Ð«e½ú..¦p¦ó¥Î®É¶¡½d³ò¬d¸ß,±N¬d¸ßªº²M³æÅã¥Ü¥t¤@­Ó¤u§@ªí

[µo°Ý] ½Ð±Ð«e½ú..¦p¦ó¥Î®É¶¡½d³ò¬d¸ß,±N¬d¸ßªº²M³æÅã¥Ü¥t¤@­Ó¤u§@ªí

¦U¦ì«e½ú°ª¤â ¤j®a¦n

   ·Q§Q¥Î®É¶¡½d³òªº¬d¸ß ±NÄÝ©ó³o¬d¸ß½d³òªº¸ê®Æ ¥tÅã¥Ü¦b¤u§@ªí2,¨D¨ó§Ucode¸Ó¦p¦ó¼g©O~~·PÁÂ*20000 20180528.zip (24.52 KB)
yvonne

Sub robert2()
¤u§@ªí2.[A2:F65536].ClearContents
x = ¤u§@ªí1.[A65536].End(xlUp).Row
Y = ¤u§@ªí2.[A65536].End(xlUp).Row
For M = 2 To x
If ¤u§@ªí1.Cells(M, 1) >= "105/01/08" And ¤u§@ªí1.Cells(M, 1) <= "105/03/05" Then
¤u§@ªí2.Cells(Y + 1, 1).Resize(, 6).Value = ¤u§@ªí1.Cells(M, 1).Resize(, 6).Value
    Y = Y + 1
  End If
  Next
End Sub
ù

TOP

¦^´_ 2# rouber590324


    ·PÁÂr¤jªº´£¨Ñ»P¦^´_ ·PÁÂ*20000

³z¹Lr¤jªºcode¯uªº¯à±N¸ê®Æ¶K¨ì¤u§@ªí2,¥u¬O®É¶¡½d³ò¦n¹³µLªk§ì¨ú,,Ä´¦p§Ú­n§ì2015/03~2015/04 ,¤£ª¾¬O¤£¬Or¤jªºcode
" If ¤u§@ªí1.Cells(M, 1) >= "105/01/08" And ¤u§@ªí1.Cells(M, 1) <= "105/05/18" Then...."(¤é´Á¥u±µµù©úªºÃö¦è ©Ò¥H½d³òµLªk§ì¨ú,ÁÙ¦b¬ã¨s¤¤

·PÁÂr¤j,¦A½Ðr¤j¨ó§U  ÁÂÁÂ
yvonne

TOP

Sub robert2()

a = InputBox("½Ð¿é¤J±Ò©l¤é´Á: ")
B = InputBox("½Ð¿é¤Jµ²§ô¤é´Á: ")
¤u§@ªí2.[A2:F65536].ClearContents
x = ¤u§@ªí1.[A65536].End(xlUp).Row
Y = ¤u§@ªí2.[A65536].End(xlUp).Row
For M = 2 To x
If ¤u§@ªí1.Cells(M, 1) >= a And ¤u§@ªí1.Cells(M, 1) <= B Then
¤u§@ªí2.Cells(Y + 1, 1).Resize(, 6).Value = ¤u§@ªí1.Cells(M, 1).Resize(, 6).Value
    Y = Y + 1
  End If
  Next
End Sub
ù

TOP

¦^´_ 4# rouber590324

·PÁÂR¤j,¯uªº¤Ó¼F®`¤F  ·PÁÂ*20000
yvonne

TOP

¦^´_ 4# rouber590324


    R¤j §A¦n
       «Ü©êºp¤S­n¦A¸ò±z½Ð±Ð¤@¤U,inputbox¦pªG´M§ä§ï¦¨CÄdªº¦WºÙ¥h¶K¨ì¤u§@ªí2, Codeªº­×§ï¤è¦¡¤]¤@¼Ë¶Ü????¥Î¦WºÙ¥h¶K


a = InputBox("½Ð¿é¤J±Ò©l¤é´Á: ")
B = InputBox("½Ð¿é¤Jµ²§ô¤é´Á: ")
¤u§@ªí2.[A2:F65536].ClearContents
x = ¤u§@ªí1.[A65536].End(xlUp).Row
y = ¤u§@ªí2.[A65536].End(xlUp).Row
For M = 2 To x
If ¤u§@ªí1.Cells(M, 1) >= a And ¤u§@ªí1.Cells(M, 1) <= B Then
¤u§@ªí2.Cells(y + 1, 1).Resize(, 6).Value = ¤u§@ªí1.Cells(M, 1).Resize(, 6).Value
    y = y + 1
  End If
  Next

End Sub
yvonne

TOP

a.b ­Y§ï¬°Àx¦s®æ ¨Ò: ±Ò©l¤é´Á=¤u§@ªí2.RANGE("C1")
                                      µ²§ô¤é´Á=¤u§@ªí2.RANGE("C2")
«h­ì
If ¤u§@ªí1.Cells(M, 1) >= a And ¤u§@ªí1.Cells(M, 1) <= B Then
§ï
If ¤u§@ªí1.Cells(M, 1) >= ¤u§@ªí2.RANGE("C1") And ¤u§@ªí1.Cells(M, 1) <= ¤u§@ªí2.RANGE("C2") Then
ù

TOP

¦^´_ 7# rouber590324

·PÁ R¤j¦^ÂÐ,,«D±`·PÁ *20000,CODE¬O§ï¦¨¤U­±³o¼Ë°õ¦æ¶Ü??§Ú³oÃä¦n¹³¨B¦æ°õ¦æ,¦A½ÐR¤j«ü±Ð ·PÁÂR¤j*20000
    ¤u§@ªí2.Range("C1") = InputBox("¿é¤J­È")
   ¤u§@ªí2.Range("C2") = InputBox("¿é¤J­È")

¤u§@ªí2.[A2:F65536].ClearContents
x = ¤u§@ªí1.[A65536].End(xlUp).Row
y = ¤u§@ªí2.[A65536].End(xlUp).Row
For M = 2 To x
If ¤u§@ªí1.Cells(M, 1) >= ¤u§@ªí2.Range("C1") And ¤u§@ªí1.Cells(M, 1) <= ¤u§@ªí2.Range("C2") Then
¤u§@ªí2.Cells(y + 1, 1).Resize(, 6).Value = ¤u§@ªí1.Cells(M, 1).Resize(, 6).Value
    y = y + 1
  End If
  Next
yvonne

TOP

Sub robert2()
¤u§@ªí2.[A2:F65536].ClearContents
x = ¤u§@ªí1.[A65536].End(xlUp).Row
Y = ¤u§@ªí2.[A65536].End(xlUp).Row
For M = 2 To x
If ¤u§@ªí1.Cells(M, 1) >= ¤u§@ªí2.Cells(1, 3) And ¤u§@ªí1.Cells(M, 1) <= ¤u§@ªí2.Cells(2, 3) Then
¤u§@ªí2.Cells(Y + 1, 1).Resize(, 6).Value = ¤u§@ªí1.Cells(M, 1).Resize(, 6).Value
    Y = Y + 1
  End If
  Next
End Sub
ù

TOP

        ÀR«ä¦Û¦b : ¬°¦Û¤v§äÂǤfªº¤H¥Ã»·¤£·|¶i¨B¡C
ªð¦^¦Cªí ¤W¤@¥DÃD