Board logo

標題: [發問] 請問如何寫出篩選指定條件後，分配指定數量的儲存格? [打印本頁]
作者: likevision    時間: 2014-11-12 09:07     標題: 請問如何寫出篩選指定條件後，分配指定數量的儲存格?

本帖最後由 likevision 於 2014-11-12 09:09 編輯

請問如果我要寫出一個功能，就是按下CommandButton後，他會從第4列第11欄開始搜尋
如果有空白的地方且12欄=TEXTBOX2輸入的東西(例如:1031112)，他會把TEXTBOX3輸入的東西自動在4列11欄處填上
但我想再加一個功能就是可以在TEXTBOX4輸入數量(例如:18)
那程式就會幫我把4列11欄上有空白的儲存格填上18個數量的TEXTBOX3內容
[attach]19522[/attach]
以下是我寫到卡關的東西
  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
複製代碼
作者: owen06    時間: 2014-11-12 10:22

本帖最後由 owen06 於 2014-11-12 10:32 編輯

回復 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的內容填上了，怎麼還會有空白格？
作者: likevision    時間: 2014-11-12 11:27

不好意思，其實頭緒有點亂，我附上檔案圖例好了
目前也還在爬文和研究中，下面是輸入前後的希望結果圖：
[attach]19527[/attach]
[attach]19528[/attach]
[attach]19529[/attach]附上檔案
作者: owen06    時間: 2014-11-12 12:22

本帖最後由 owen06 於 2014-11-12 12:34 編輯

回復 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

  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

  15. End Sub
複製代碼
作者: likevision    時間: 2014-11-12 12:40

謝謝，現在可以將表單的值輸入到儲存格了，不過還有問題是
輸入完TEXTBOX3(車牌號碼)和TEXTBOX5(商品分配數量)後，雖然空白部分(第11欄)會對應日期(第12欄)而產生TEXTBOX3(車牌號碼)輸入的值，但是沒有日期的空白格(第12欄)，會出現約1xx筆的TEXTBOX5(商品分配數量)輸入的值(如下圖)。
我想要的是在TEXTBOX5輸入"5"後，然後11欄的格子只會出現5筆TEXTBOX3(車牌號碼)所輸入的值。
感恩:'(
[attach]19530[/attach]
作者: owen06    時間: 2014-11-12 13:14

本帖最後由 owen06 於 2014-11-12 13:16 編輯

回復 5# likevision


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

恩，要的是在商品分配數量那輸入5，K欄就只會前5筆符合條件的有出現車牌號碼
sorry，表達得不好。
作者: likevision    時間: 2014-11-12 13:33

成功了!!謝謝你
作者: owen06    時間: 2014-11-12 13:43

回復 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
複製代碼
作者: likevision    時間: 2014-11-12 14:23

正要上來提問說，可以用!
謝謝。



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)