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

[µo°Ý] ½Ð°Ý¦p¦ó¼g¥X¿z¿ï«ü©w±ø¥ó«á¡A¤À°t«ü©w¼Æ¶qªºÀx¦s®æ?

[µo°Ý] ½Ð°Ý¦p¦ó¼g¥X¿z¿ï«ü©w±ø¥ó«á¡A¤À°t«ü©w¼Æ¶qªºÀx¦s®æ?

¥»©«³Ì«á¥Ñ likevision ©ó 2014-11-12 09:09 ½s¿è

½Ð°Ý¦pªG§Ú­n¼g¥X¤@­Ó¥\¯à¡A´N¬O«ö¤UCommandButton«á¡A¥L·|±q²Ä4¦C²Ä11Äæ¶}©l·j´M
¦pªG¦³ªÅ¥Õªº¦a¤è¥B12Äæ=TEXTBOX2¿é¤JªºªF¦è(¨Ò¦p:1031112)¡A¥L·|§âTEXTBOX3¿é¤JªºªF¦è¦Û°Ê¦b4¦C11Äæ³B¶ñ¤W
¦ý§Ú·Q¦A¥[¤@­Ó¥\¯à´N¬O¥i¥H¦bTEXTBOX4¿é¤J¼Æ¶q(¨Ò¦p:18)
¨ºµ{¦¡´N·|À°§Ú§â4¦C11Äæ¤W¦³ªÅ¥ÕªºÀx¦s®æ¶ñ¤W18­Ó¼Æ¶qªºTEXTBOX3¤º®e

¥H¤U¬O§Ú¼g¨ì¥dÃöªºªF¦è
  1. Private Sub CommandButton3_Click()
  2. Dim i As Integer
  3. For i = 4 To 200
  4. If Cells(i, 11).Value = "" And Cells(i, 12).Value = TextBox3.Value Then
  5. Cells(i, 11).Value = TextBox2
  6. End If
  7. Next
  8. End Sub
½Æ»s¥N½X

¥»©«³Ì«á¥Ñ owen06 ©ó 2014-11-12 10:32 ½s¿è

¦^´_ 1# likevision

    §Aªº³¯­z¸ò¼g¥X¨Óªºµ{¦¡¦ü¥G¤£²Å¡A½Ð°Ý­þ¤@­Ó¬O¥¿½Tªº¡H
   
    ¥B12Äæ=TEXTBOX2¿é¤JªºªF¦è
    and Cells(i, 12).Value = TextBox3.Value  =====>¬O­nµ¥©ótextbox2ÁÙ¬O3¤~¹ï¡H

    ·|§âTEXTBOX3¿é¤JªºªF¦è¦Û°Ê¦b4¦C11Äæ³B¶ñ¤W
    Then Cells(i, 11).Value = TextBox2===>textbox¡H¤~¹ï©O¡H

    ¦ý§Ú·Q¦A¥[¤@­Ó¥\¯à´N¬O¥i¥H¦bTEXTBOX4¿é¤J¼Æ¶q(¨Ò¦p:18)
    ¨ºµ{¦¡´N·|À°§Ú§â4¦C11Äæ¤W¦³ªÅ¥ÕªºÀx¦s®æ¶ñ¤W18­Ó¼Æ¶qªºTEXTBOX3¤º®e
    ==========>³o­Ó¬O­n¥t¥~³æ¿W¥X¨Óªº¥\¯à¶Ü¡H¤£µM·í«ö¤F¤W­±ªº¨º­ÓÁ䤧«á¡A
                             11Ä檺Àx¦s®æ³£¤w¸g³Qtextbox3ªº¤º®e¶ñ¤W¤F¡A«ç»òÁÙ·|¦³ªÅ¥Õ®æ¡H

TOP

¤£¦n·N«ä¡A¨ä¹êÀYºü¦³ÂI¶Ã¡A§Úªþ¤WÀɮ׹ϨҦn¤F
¥Ø«e¤]ÁÙ¦bª¦¤å©M¬ã¨s¤¤¡A¤U­±¬O¿é¤J«e«áªº§Æ±æµ²ªG¹Ï¡G


¬¡­¶Ã¯1.rar (37.6 KB) ªþ¤WÀÉ®×

TOP

¥»©«³Ì«á¥Ñ owen06 ©ó 2014-11-12 12:34 ½s¿è

¦^´_ 3# likevision


    ¤j·§¤F¸Ñ¤F¡A§A¸Õ¸Õ¬Ý§ï³o¼Ë¦æ¤£¦æ¡A¹ï¤F¡A§A¿é¤J¼Æ¶qªº¨º­Ó¡A¬OTEXTBOX5¡A¤£¬O4®@¡I
    ¥t¥~SHEET1½Ð¦Û¦æ§ï¦¨§Aªº¤u§@ªí¦W¡A¦]¬°2003½s¿è§AªºÀɮצ³ÂI°ÝÃD¡A©Ò¥H§Ú¬O¦Û¤v¥t¥~¥Î¤@­ÓÀɮרÓTRYªº
    ¤£¹L§ÚÁÙ¬O¬Ý¤£¤ÓÀ´³o¥y¡y¨ºµ{¦¡´N·|À°§Ú§â4¦C11Äæ¤W¦³ªÅ¥ÕªºÀx¦s®æ¶ñ¤W18­Ó¼Æ¶qªºTEXTBOX3¤º®e¡z¡A©Ò¥H¤£½T©w¨º¼Ë³]©w¹ï¤£¹ï¡C
  1. Private Sub CommandButton3_Click()
  2. Dim i As Integer
  3. For i = 4 To 200
  4. If Sheet1.Cells(i, 11).Value = "" And Sheet1.Cells(i, 12).Value = TextBox2.Value * 1 Then
  5. Sheet1.Cells(i, 11).Value = TextBox3
  6. End If
  7. Next

  8. For i = 4 To 200
  9. If Sheet1.Cells(i, 11).Value = "" Then
  10. Sheet1.Cells(i, 11).Value = TextBox5.Value
  11. End If
  12. Next

  13. End Sub
½Æ»s¥N½X

TOP

ÁÂÁ¡A²{¦b¥i¥H±Nªí³æªº­È¿é¤J¨ìÀx¦s®æ¤F¡A¤£¹LÁÙ¦³°ÝÃD¬O
¿é¤J§¹TEXTBOX3(¨®µP¸¹½X)©MTEXTBOX5(°Ó«~¤À°t¼Æ¶q)«á¡AÁöµMªÅ¥Õ³¡¤À(²Ä11Äæ)·|¹ïÀ³¤é´Á(²Ä12Äæ)¦Ó²£¥ÍTEXTBOX3(¨®µP¸¹½X)¿é¤Jªº­È¡A¦ý¬O¨S¦³¤é´ÁªºªÅ¥Õ®æ(²Ä12Äæ)¡A·|¥X²{¬ù1xxµ§ªºTEXTBOX5(°Ó«~¤À°t¼Æ¶q)¿é¤Jªº­È(¦p¤U¹Ï)¡C
§Ú·Q­nªº¬O¦bTEXTBOX5¿é¤J"5"«á¡AµM«á11Ä檺®æ¤l¥u·|¥X²{5µ§TEXTBOX3(¨®µP¸¹½X)©Ò¿é¤Jªº­È¡C
·P®¦:'(

TOP

¥»©«³Ì«á¥Ñ owen06 ©ó 2014-11-12 13:16 ½s¿è

¦^´_ 5# likevision


    ¥Ø«eLÄ榳18µ§¸ê®Æ¡A¦ý¬O¦pªG§A¦b°Ó«~¤À°t¼Æ¶q¨º¿é¤J5¡AKÄæ´N¥u·|«e5µ§²Å¦X±ø¥óªº¦³¥X²{¨®µP¸¹½X¡H
    ÁÙ¬O»¡KÄ榳²Å¦X±ø¥óªº¡A³£·|¥X²{¨®µP¸¹½X¡AµM«á¦A©¹¤U¼Æ5¦C¡A¤]­n¿é¤J¨®µP¸¹½X¡H

TOP

®¦¡A­nªº¬O¦b°Ó«~¤À°t¼Æ¶q¨º¿é¤J5¡AKÄæ´N¥u·|«e5µ§²Å¦X±ø¥óªº¦³¥X²{¨®µP¸¹½X
sorry¡Aªí¹F±o¤£¦n¡C

TOP

¦¨¥\¤F!!ÁÂÁ§A

TOP

¦^´_ 7# likevision

    ¤£­n¥Î³Q§Ú§R±¼ªº¨º­Ó¡A¨º­Ó¨S¦³¦Ò¼{©P¥þ¡A¿é¤J¤@¦¸¤§«á¡A«á­±ªº´N¤£·|°Ê¤F¡C
    §A¸Õ¸Õ¬Ý³o­Ó¡C
  1. Private Sub CommandButton3_Click()
  2. Dim i As Integer
  3. FIRST = Sheet1.[K10000].End(3).Offset(1, 0).Row
  4. LAST = Sheet1.[L10000].End(3).Offset(1, 0).Row
  5. T = TextBox5.Value
  6. For i = FIRST To LAST
  7. If i = T + FIRST Then Exit Sub
  8. If Sheet1.Cells(i, 11).Value = "" And Sheet1.Cells(i, 12).Value = TextBox2.Value * 1 Then
  9. Sheet1.Cells(i, 11).Value = TextBox3
  10. End If
  11. Next
  12. End Sub
½Æ»s¥N½X

TOP

¥¿­n¤W¨Ó´£°Ý»¡¡A¥i¥H¥Î!
ÁÂÁ¡C

TOP

        ÀR«ä¦Û¦b : ¤£­nÀH¤ß©Ò±ý¡A­nÀH¤ß±Ð¨|¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD