返回列表下一主題上一主題發帖

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

likevision

小學生 Rank: 1

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

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 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內容

以下是我寫到卡關的東西

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

複製代碼

樓主熱帖

likevision

小學生 Rank: 1

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

2^#

發表於 2014-11-12 11:27 | 顯示全部帖子

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

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

TOP

likevision

小學生 Rank: 1

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

3^#

發表於 2014-11-12 12:40 | 顯示全部帖子

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