owen06

¦^´_ 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

owen06

¦^´_ 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. 
   
9. For i = 4 To 200
   
10. If Sheet1.Cells(i, 11).Value = "" Then
    
11. Sheet1.Cells(i, 11).Value = TextBox5.Value
    
12. End If
    
13. Next
    
14. 
    
15. End Sub

½Æ»s¥N½X

owen06

¦^´_ 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

owen06

¦^´_ 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