Vlookup改為 vba 下拉式連動

owen9399

中學生 Rank: 2

帖子: 94
主題: 16
精華: 0
積分: 128
點名: 0
作業系統: XP
軟體版本: OFFICE 2003
閱讀權限: 20
性別: 男
註冊時間: 2012-1-30
最後登錄: 2015-11-17

19^# 跳轉到 »

發表於 2014-3-6 16:33 | 只看該作者

回復 18# owen06

大大你好:
我將 SHEET1 用總清單方式修改只出現前 4項複製過去 ,其它無法做出

另外,年度報表如何用 VBA 求出 ,不要在儲存格用函數顯示出

謝謝指導

103下拉式方式輸入0306(測試).rar (20.91 KB)

owen

TOP

owen06

　暱稱: 阿軒

中學生 Rank: 2

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

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

18^#

發表於 2014-3-6 12:30 | 只看該作者

本帖最後由 owen06 於 2014-3-6 12:32 編輯

關於之前問的，在資料key完按下『輸入』後，如何讓游標跳回『序號』那欄，
終於找到答案了，只要在最後輸入：combobox1.SetFocus
游標就會跳回『序號』囉~

TOP

owen06

　暱稱: 阿軒

中學生 Rank: 2

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

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

17^#

發表於 2014-3-5 23:48 | 只看該作者

本帖最後由 owen06 於 2014-3-5 23:49 編輯

回復 16# owen9399

如何修改定義名稱的範圍：http://office.microsoft.com/zh-tw/excel-help/HP005199063.aspx
當初data的定義範圍是L:N，你改成P:R，但是沒去修改data的內容，所以抓不到資料。

另外你在userform設計模式裡，去點各個輸入格的時候，看他的屬性裡，『性質分類』有一個『tabindex』，
他的數字代表按enter後，會跳的順序，你新增了三個輸入格，我幫你把他的順序改好了，
只要輸入完內容後，按enter就接著跳下一格直到『輸入』為止。
有其他問題再提出來一起討論吧。

103下拉式方式輸入0305(測試)2.rar (20.21 KB)

TOP

owen9399

中學生 Rank: 2

帖子: 94
主題: 16
精華: 0
積分: 128
點名: 0
作業系統: XP
軟體版本: OFFICE 2003
閱讀權限: 20
性別: 男
註冊時間: 2012-1-30
最後登錄: 2015-11-17

16^#

發表於 2014-3-5 23:20 | 只看該作者

本帖最後由 owen9399 於 2014-3-5 23:24 編輯

回復 13# owen06

DEAR 大大 :

昨天的範例不用改了

我做新的 , 方法和之前相似
增加日期與股數等項目輸入 , 另外
序號公司名稱紀念品  移到
   p             Q             R
下拉式無法連動,增加到序號  1000筆
總清單與年度報表
   如範本所示

程式未完成
謝謝

未何下拉式的 DATA 改位置就無法連動

103下拉式方式輸入0305(測試)2.rar (17.78 KB)

owen

TOP

owen9399

中學生 Rank: 2

帖子: 94
主題: 16
精華: 0
積分: 128
點名: 0
作業系統: XP
軟體版本: OFFICE 2003
閱讀權限: 20
性別: 男
註冊時間: 2012-1-30
最後登錄: 2015-11-17

15^#

發表於 2014-3-5 07:53 | 只看該作者

回復 13# owen06

大大你好:
當我在 Sheet1 中輸入
   103013  聯電  玩偶
   可以  自動補到       L  　          M                N　
　                                  序號       公司名稱       紀念品
                                 103001       ***             *****
                                       ..
                                       ..
                                 103013       聯電             玩偶    ( 紅色位置)

   原本的方式是       L  　          M                N　          都是先輸入好的清單
　                                  序號       公司名稱       紀念品

   如果直接  輸入  新的 ,自動補到清單中

   另外,    差額 : 是指    曉陽交單減  曉陽進貨 (如何用 VBA 表式計算)

   統計表  的想法是
   有輸入的    序號       公司名稱       紀念品    .......等才顯示出來
   綠色的不要顯示

謝謝

103下拉式方式輸入0305(測試).rar (208.55 KB)

owen

TOP

yen956

高中生 Rank: 3 Rank: 3

帖子: 522
主題: 36
精華: 1
積分: 603
點名: 0
作業系統: win xp sp3
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2012-12-13
最後登錄: 2021-7-11

14^#

發表於 2014-3-5 04:35 | 只看該作者

回復 12# owen06
感謝大大非常詳細的說明, 試過, 也了解, 謝謝!!

TOP

owen06

　暱稱: 阿軒

中學生 Rank: 2

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

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

13^#

發表於 2014-3-4 23:52 | 只看該作者

回復 11# owen9399

因為我的公式裡
TextBox1 = Application.VLookup([iv65536], Range("data"), 2, False)
TextBox2 = Application.VLookup([iv65536], Range("data"), 3, False)

這二行都是要用vlookup去尋找「data」這個"定義名稱"的範圍內容，而我之前只將他定義為L2:N7，
所以你之後再增加內容，但是DATA這個定義的範圍並沒有去修改，所以他就抓不到東西囉，我已經幫你改為L2:N500了
若你之後愈加愈多，你再自己去定義名稱裡面修改範圍吧。
另外我幫你修改了一下

Private Sub UserForm_Initialize()
ComboBox1.RowSource = Range("L2", Range("L65536").End(xlUp)).Address '下拉式
End Sub

複製代碼

這樣子你的下拉式選單會自動選定合適的範圍，才不會預設500格，然後下面空那麼多格，麻煩。

103下拉式方式輸入0304(測試).rar (206.95 KB)

TOP

owen06

　暱稱: 阿軒

中學生 Rank: 2

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

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

12^#

發表於 2014-3-4 23:14 | 只看該作者

回復 10# yen956
其實很簡單呀，你在工作表裡，按ctrl+上、下、左、右鍵去動看看，就很清楚明暸了
end(xldown)=ctrl+下
end(xlup))=ctrl+上
end(xltoright))=ctrl+右
end(xltoleft))=ctrl+左
然後你vba模式裡按f8，去一步一步執行，就能明白那些程式語言的代表意義是什麼了。

另外如果是要在現有資料最後一列的下一列空白格新增資料，比較會建議用[a65536].end(xlup).offset(1,0).select
因為你如果是用[a1].end(xldown).select，怕中間如果資料若是不連續的有空白格，他就不會跳到最後一筆資料，
而是跳到中間空白格的上一列，就會產生判斷錯誤的情形，
用[a65536].end(xlup).offset(1,0).select,就一定會跳到該欄資料的最後一筆的下一空白格。
你先用ctrl+方向鍵去試看看吧。

TOP

owen9399

中學生 Rank: 2

帖子: 94
主題: 16
精華: 0
積分: 128
點名: 0
作業系統: XP
軟體版本: OFFICE 2003
閱讀權限: 20
性別: 男
註冊時間: 2012-1-30
最後登錄: 2015-11-17

11^#

發表於 2014-3-4 23:03 | 只看該作者

回復 8# owen06

大大:

有達到我要的功能

   但是,新增序號 103007 開發金  禮盒 .....表單卻無法顯示出來,  下拉式範圍 L2:L500
   另外,統計表中序號自動排列可以用 SHEET3儲存
   成為
      序號       公司名稱    紀念品  ........    進貨    ..  的總清單
   103001    ****          ****
   103002    ****          *****

   謝謝

103下拉式方式輸入0304(測試).rar (17.43 KB)

owen

TOP

yen956

高中生 Rank: 3 Rank: 3

帖子: 522
主題: 36
精華: 1
積分: 603
點名: 0
作業系統: win xp sp3
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2012-12-13
最後登錄: 2021-7-11

10^#

發表於 2014-3-4 15:52 | 只看該作者

回復 9# owen06
大大你好:
剛學 [A1].end(xldown), ..., 有點困惑, 還請大大解惑, 謝謝!!
我知道, 如果 A1:A10 存有資料, A11空白,
則 [A1].end(xldown).row 會=10,

但『Range("A65536").End(xlUp).Offset(1, 0) 』
會停留在 A11 是不是?
也就是: 如果 Range("A65536") 是空白, 則
Range("A65536").End(xlUp)
會一直找到非空白(A10), 是不是?

TOP

[收藏此主題] [關注此主題的新回復]

[通過 QQ、MSN 分享給朋友]