[發問] 請教有關範圍的問題

帖子: 14
主題: 5
精華: 0
積分: 51
點名: 0
作業系統: XP
軟體版本: 2007
閱讀權限: 20
註冊時間: 2010-5-3
最後登錄: 2013-9-14

論壇贊助勳章

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2011-4-6 15:08 | 只看該作者

[發問] 請教有關範圍的問題

有建立表單
當COMBOBOX1設定為會員編號A1000000001時
TEXTBOX1帶入正確
TEXTBOX2帶入正確
但TEXTBOX3因TEXTBOX2變動而搜尋帶入欄位B
結果會出現"A"
但是我要的結果是"B"
請問是哪裡設定錯誤了呢?
煩請各位大大解惑謝謝

TEST.rar (14.45 KB)

TEST.rar (14.58 KB)

樓主熱帖

帖子: 14
主題: 5
精華: 0
積分: 51
點名: 0
作業系統: XP
軟體版本: 2007
閱讀權限: 20
註冊時間: 2010-5-3
最後登錄: 2013-9-14

論壇贊助勳章

7^#

發表於 2011-4-6 17:40 | 只看該作者

嗯嗯~
就依大大的解說是能夠了解的
但是....寫不出來!!哈!!
希望版主大大能出手相助了!!
但還是要再次謝謝你!!

hugh0620

　暱稱: VBA向前衝

高中生 Rank: 3 Rank: 3

帖子: 559
主題: 58
精華: 0
積分: 626
點名: 0
作業系統: win8
軟體版本: office2013
閱讀權限: 50
性別: 男
來自: TW
註冊時間: 2010-11-22
最後登錄: 2024-6-14

6^#

發表於 2011-4-6 17:28 | 只看該作者

回復 5# roeylin

這個我就不太行了~ 因為我也是一個新手~ (說不一定~ 你寫的比我好唷~)
只是之前有在設計一些粗略的程式介面跟同學互相研究的心得~
要我寫~ 就有點難了~ 但版主大大們應該是ok滴啦
浮動的意思~
就是依妳的資料量增加textbox
假設你第二層有三筆資料就show 3個textbox
第二層有十筆資料就show 10個textbox

學習才能提升自己

帖子: 14
主題: 5
精華: 0
積分: 51
點名: 0
作業系統: XP
軟體版本: 2007
閱讀權限: 20
註冊時間: 2010-5-3
最後登錄: 2013-9-14

論壇贊助勳章

5^#

發表於 2011-4-6 17:19 | 只看該作者

回復 4# hugh0620

謝謝!!
再請教!!就如大大鎖說的浮動TEXTBOX
要如何修改?
我已將需帶入的值修改測試好了!!
但是大大說的"浮動"
應如何設定還請大大幫個忙
讓我可以學更多!!謝謝

TEST1.rar (14.45 KB)

hugh0620

　暱稱: VBA向前衝

高中生 Rank: 3 Rank: 3

帖子: 559
主題: 58
精華: 0
積分: 626
點名: 0
作業系統: win8
軟體版本: office2013
閱讀權限: 50
性別: 男
來自: TW
註冊時間: 2010-11-22
最後登錄: 2024-6-14

4^#

發表於 2011-4-6 16:36 | 只看該作者

回復 3# roeylin

樓主你的UserForm的設計....
小弟提供小小建議,看您的資料與UserForm是有蠻大的落差
若可以~ 請版主大大教你用浮動的textbox~ 這樣的話~ 就能包含所有的資料
這當中也要考量整個UserForm的版面設計~ 才不會跑出來的東西擠在一起~

僅供參考

學習才能提升自己

帖子: 14
主題: 5
精華: 0
積分: 51
點名: 0
作業系統: XP
軟體版本: 2007
閱讀權限: 20
註冊時間: 2010-5-3
最後登錄: 2013-9-14

論壇贊助勳章

3^#

發表於 2011-4-6 16:16 | 只看該作者

回復 2# hugh0620

Set A = .Columns("A:A").Find(TextBox2.Text, LookAt:=xlWhole)
   '改這裡 Set K = .Columns("A:AL").Find(TextBox34, LookAt:=xlWhole)變更範圍
      If Not A Is Nothing Then
         TextBox3.Text = .Cells(A.Row, 2)
      End If
      End With
End Sub

修改後確實已解決問題
VBA我是新手~~只能慢慢的架構出想要的東西
也沒有程式設計的基礎
謝謝大大解決目前問題

hugh0620

　暱稱: VBA向前衝

高中生 Rank: 3 Rank: 3

帖子: 559
主題: 58
精華: 0
積分: 626
點名: 0
作業系統: win8
軟體版本: office2013
閱讀權限: 50
性別: 男
來自: TW
註冊時間: 2010-11-22
最後登錄: 2024-6-14

2^#

發表於 2011-4-6 15:52 | 只看該作者

回復 1# roeylin

雖然我不知道樓主的用意~ 但還是找到問題
  點選入TextBox3的程式碼中,如下所示

  Private Sub TextBox2_Change()
With Sheets("基本資料")
將AH改成A就可以了~
問題的原因:在於你用FIND的範圍,你的基本資料"E2"是A100000002~ 所以會帶B2的資料出來
  若把AH改為FIND為A:A範圍~ 就沒有問題
  建議樓主:想好資料要怎麼建成資料庫~ 這樣比較好撰寫程式碼

Set A = .Columns("A:AH").Find(TextBox2.Text, LookAt:=xlWhole)
   '改這裡 Set K = .Columns("A:AL").Find(TextBox34, LookAt:=xlWhole)變更範圍
      If Not A Is Nothing Then
         TextBox3.Text = .Cells(A.Row, 2)
      End If
      End With
End Sub

學習才能提升自己