owen06

回復 1# likevision

    你的陳述跟寫出來的程式似乎不符，請問哪一個是正確的？
   
    且12欄=TEXTBOX2輸入的東西
    and Cells(i, 12).Value = TextBox3.Value  =====>是要等於textbox2還是3才對？

    會把TEXTBOX3輸入的東西自動在4列11欄處填上
    Then Cells(i, 11).Value = TextBox2===>textbox？才對呢？

    但我想再加一個功能就是可以在TEXTBOX4輸入數量(例如:18)
    那程式就會幫我把4列11欄上有空白的儲存格填上18個數量的TEXTBOX3內容
    ==========>這個是要另外單獨出來的功能嗎？不然當按了上面的那個鍵之後，
                             11欄的儲存格都已經被textbox3的內容填上了，怎麼還會有空白格？

owen06

回復 3# likevision


    大概了解了，你試試看改這樣行不行，對了，你輸入數量的那個，是TEXTBOX5，不是4哦！
    另外SHEET1請自行改成你的工作表名，因為2003編輯你的檔案有點問題，所以我是自己另外用一個檔案來TRY的
    不過我還是看不太懂這句『那程式就會幫我把4列11欄上有空白的儲存格填上18個數量的TEXTBOX3內容』，所以不確定那樣設定對不對。

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

複製代碼

owen06

回復 5# likevision


    目前L欄有18筆資料，但是如果你在商品分配數量那輸入5，K欄就只會前5筆符合條件的有出現車牌號碼？
    還是說K欄有符合條件的，都會出現車牌號碼，然後再往下數5列，也要輸入車牌號碼？

owen06

回復 7# likevision

    不要用被我刪掉的那個，那個沒有考慮周全，輸入一次之後，後面的就不會動了。
    你試試看這個。

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

複製代碼