[發問] 請問如何寫出篩選指定條件後，分配指定數量的儲存格?

　暱稱: 阿軒

帖子: 396
主題: 12
精華: 0
積分: 425
點名: 0
作業系統: XP
軟體版本: OFFICE 2003
閱讀權限: 20
性別: 男
來自: 台中
註冊時間: 2013-7-2
最後登錄: 2022-7-26

2015羊年全勤獎章 2014馬年全勤獎章熱烈參與勳章

2^#

發表於 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的內容填上了，怎麼還會有空白格？

帖子: 8
主題: 3
精華: 0
積分: 11
點名: 0
作業系統: WINDOWS 7 PRO
軟體版本: Office 2010
閱讀權限: 10
註冊時間: 2014-11-12
最後登錄: 2020-7-8

3^#

發表於 2014-11-12 11:27 | 只看該作者

不好意思，其實頭緒有點亂，我附上檔案圖例好了
目前也還在爬文和研究中，下面是輸入前後的希望結果圖：

活頁簿1.rar (37.6 KB) 附上檔案

　暱稱: 阿軒

帖子: 396
主題: 12
精華: 0
積分: 425
點名: 0
作業系統: XP
軟體版本: OFFICE 2003
閱讀權限: 20
性別: 男
來自: 台中
註冊時間: 2013-7-2
最後登錄: 2022-7-26

2015羊年全勤獎章 2014馬年全勤獎章熱烈參與勳章

4^#

發表於 2014-11-12 12:22 | 只看該作者

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

回復 3# likevision

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

Private Sub CommandButton3_Click()
Dim i As Integer
For i = 4 To 200
If Sheet1.Cells(i, 11).Value = "" And Sheet1.Cells(i, 12).Value = TextBox2.Value * 1 Then
Sheet1.Cells(i, 11).Value = TextBox3
End If
Next
For i = 4 To 200
If Sheet1.Cells(i, 11).Value = "" Then
Sheet1.Cells(i, 11).Value = TextBox5.Value
End If
Next
End Sub

複製代碼

帖子: 8
主題: 3
精華: 0
積分: 11
點名: 0
作業系統: WINDOWS 7 PRO
軟體版本: Office 2010
閱讀權限: 10
註冊時間: 2014-11-12
最後登錄: 2020-7-8

5^#

發表於 2014-11-12 12:40 | 只看該作者

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

　暱稱: 阿軒

帖子: 396
主題: 12
精華: 0
積分: 425
點名: 0
作業系統: XP
軟體版本: OFFICE 2003
閱讀權限: 20
性別: 男
來自: 台中
註冊時間: 2013-7-2
最後登錄: 2022-7-26

2015羊年全勤獎章 2014馬年全勤獎章熱烈參與勳章

6^#

發表於 2014-11-12 13:14 | 只看該作者

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

回復 5# likevision

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

帖子: 8
主題: 3
精華: 0
積分: 11
點名: 0
作業系統: WINDOWS 7 PRO
軟體版本: Office 2010
閱讀權限: 10
註冊時間: 2014-11-12
最後登錄: 2020-7-8

7^#

發表於 2014-11-12 13:20 | 只看該作者

恩，要的是在商品分配數量那輸入5，K欄就只會前5筆符合條件的有出現車牌號碼
sorry，表達得不好。

帖子: 8
主題: 3
精華: 0
積分: 11
點名: 0
作業系統: WINDOWS 7 PRO
軟體版本: Office 2010
閱讀權限: 10
註冊時間: 2014-11-12
最後登錄: 2020-7-8

8^#

發表於 2014-11-12 13:33 | 只看該作者

成功了!!謝謝你

　暱稱: 阿軒

帖子: 396
主題: 12
精華: 0
積分: 425
點名: 0
作業系統: XP
軟體版本: OFFICE 2003
閱讀權限: 20
性別: 男
來自: 台中
註冊時間: 2013-7-2
最後登錄: 2022-7-26

2015羊年全勤獎章 2014馬年全勤獎章熱烈參與勳章

9^#

發表於 2014-11-12 13:43 | 只看該作者

回復 7# likevision

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

Private Sub CommandButton3_Click()
Dim i As Integer
FIRST = Sheet1.[K10000].End(3).Offset(1, 0).Row
LAST = Sheet1.[L10000].End(3).Offset(1, 0).Row
T = TextBox5.Value
For i = FIRST To LAST
If i = T + FIRST Then Exit Sub
If Sheet1.Cells(i, 11).Value = "" And Sheet1.Cells(i, 12).Value = TextBox2.Value * 1 Then
Sheet1.Cells(i, 11).Value = TextBox3
End If
Next
End Sub

複製代碼

帖子: 8
主題: 3
精華: 0
積分: 11
點名: 0
作業系統: WINDOWS 7 PRO
軟體版本: Office 2010
閱讀權限: 10
註冊時間: 2014-11-12
最後登錄: 2020-7-8

10^#

發表於 2014-11-12 14:23 | 只看該作者

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