返回列表 上一主題 發帖

[發問] 如何輸入編號帶出相關資料N筆!?

013160

帖子
61 
主題
20 
精華
0 
積分
106 
點名
22  
作業系統
winds XP 
軟體版本
2007 
閱讀權限
20 
性別
女 
註冊時間
2014-1-21 
最後登錄
2024-10-8 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2014-7-30 11:20 | 只看該作者

[發問] 如何輸入編號帶出相關資料N筆!?


我是想在TextBox輸入產品編號 帶出全所產品名稱及數量(N筆)
壓縮檔中有一個測試檔是我自已試著去做但一直有問題跑不出我要的結果!?
1. 請教大家問題是出在哪裡!?
2. 有沒有更好的方法做出我想要的結果
密碼013160
輸入A帶出N筆資料.rar (312.97 KB)
收藏 分享

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
255  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-11-24 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
3#
發表於 2014-8-28 09:18 | 只看該作者
回復 1# 013160
  1. Private Sub TextBox1_Change()
  2. Dim Ar()
  3. With Sheets("NEW廠+庫存")
  4.   For Each a In .Range(.[C5], .[C5].End(xlDown))
  5.      If a = TextBox1 Then
  6.         ReDim Preserve Ar(s)
  7.         Ar(s) = Array(a.Offset(, 1).Value, a.Offset(, 2).Value)
  8.         s = s + 1
  9.      End If
  10.    Next
  11.    Range([B2], [C2].End(xlDown)).ClearContents
  12.    [B2].Resize(s, 2) = Application.Transpose(Application.Transpose(Ar))
  13. End With
  14. End Sub
複製代碼
學海無涯_不恥下問

TOP

ML089

帖子
2025 
主題
13 
精華
0 
積分
2053 
點名
0  
作業系統
WIN7 
軟體版本
Office2007 
閱讀權限
100 
性別
男 
來自
台北市 
註冊時間
2011-3-2 
最後登錄
2024-3-14 

論壇榮譽勳章論壇贊助勳章熱烈參與勳章2014馬年全勤獎章2015羊年全勤獎章2016猴年全勤獎章
2#
發表於 2014-8-25 09:46 | 只看該作者
B2 =INDEX('NEW廠+庫存'!D:D,MATCH($A$2,'NEW廠+庫存'!$C:$C,)+ROW(A1)-1)
右拉下拉
{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

        靜思自在 : 唯其尊重自己的人，才更勇於縮小自己。
返回列表 上一主題