註冊
登錄
首頁
論壇版規
禁止列表
說明
地圖
數位書香
私人消息 (0)
公共消息 (0)
論壇任務 (0)
系統消息 (0)
好友消息 (0)
帖子消息 (0)
麻辣家族討論版版
»
Excel程式區
» 選擇ListBox內資料如何放到其他UserForm的TextBox
返回列表
下一主題
上一主題
發帖
[發問]
選擇ListBox內資料如何放到其他UserForm的TextBox
kkooo15
發短消息
加為好友
kkooo15
(新手)
當前離線
UID
7049
帖子
123
主題
37
精華
0
積分
177
金錢
177
點名
0
作業系統
WIN10
軟體版本
Office 2010
閱讀權限
20
性別
男
來自
台北
在線時間
167 小時
註冊時間
2011-11-9
最後登錄
2025-6-9
暱稱:
新手
中學生
帖子
123
主題
37
精華
0
積分
177
點名
0
作業系統
WIN10
軟體版本
Office 2010
閱讀權限
20
性別
男
來自
台北
註冊時間
2011-11-9
最後登錄
2025-6-9
1
#
跳轉到
»
正序看帖
打印
字體大小:
t
T
發表於 2019-7-27 12:23
|
只看該作者
[發問]
選擇ListBox內資料如何放到其他UserForm的TextBox
下載
(67.49 KB)
2019-7-27 12:21
問題
一
請問要
如何
可以點選ListBox的其中的資料後
按確定可以將點選的"編號"放到
User
For
m2的
TextBox
1
問題二
如果我有二個UserForm
我選UserForm2使用查詢時,"編號"就會存在UserForm2的TextBox1
我選UserForm3使用查詢時,"編號"就會存在UserForm3的TextBox1
Option Explicit
Dim xSh As Worksheet, xRng(1 To 3) As Range, Msg單號 As Boolean, d As
Object
, d2 As Object, d3 As Object
Private Sub CommandButton6_Click()
If TextBox1.Text <> "" Then
'將 UserForm2查出來的編號 資料放入 UserForm1的TextBox1
UserForm1.TextBox1.Text = UserForm2.TextBox1.Text
'將 TextBox1 資料放入 TBox1
Unload UserForm2
'關閉
表單
Else
End If
End Sub
Private Sub UserForm_Initialize()
Set xSh = Sheets("清單")
'宣告 xSH = Sheets("清單")
MultiPage1.Value = 0
Show_List
Dim i As Single, Rng As Range
Set d = CreateObject("scripting.dictionary")
'宣告 d = 建立並傳回 ActiveX
物件
建立一個
Dictionary
物件
Set Rng = xSh.Cells(5, "D")
'xSH = Sheets("基本資料") Rng =
儲存格
Cells(第5欄,C列)
Do While Rng <> ""
'Rng = 儲存格 Cells(第5欄,C列) 不等於 空白
If d.exists(Rng.Value) = False Then
'
Set d(Rng.Value) = Rng
Else
Set d(Rng.Value) = Union(Rng, d(Rng.Value))
End If
Set Rng = Rng.Offset(1)
Loop
ComboBox1.List = d.KEYS
'ComboBox1 等於 d KEYS
End Sub
Private Sub SpinButton1_Change()
單號.Caption = SpinButton1
Msg單號 = True
Show_List
Msg單號 = False
End Sub
Private Sub Show_List()
Dim i As Integer, E As Variant
Set xRng(1) = xSh.Range("c4").CurrentRegion
With xSh
i = .Columns.Count
Set xRng(1) = .Range("c4").CurrentRegion
Set xRng(2) = .Cells(1, i).CurrentRegion
xRng(2).Clear
If Msg單號 Then
.Cells(1, i) = "單號"
.Cells(2, i) = SpinButton1
Else
End If
Set xRng(2) = .Cells(1, i).CurrentRegion
End With
Set xRng(3) = xRng(2).Cells(1).Offset(, -20).Resize(, xRng(1).Columns.Count)
xRng(3).CurrentRegion.Clear
xRng(1).AdvancedFilter xlFilterCopy, xRng(2), xRng(3)
Set xRng(3) = xRng(3).CurrentRegion
If xRng(3).Rows.Count > 2 Then
Set xRng(3) = xRng(3).Rows("2:" & xRng(3).Rows.Count)
Else
Set xRng(3) = xRng(3).Rows(2)
End If
With ListBox1
.ColumnHeads = True
.ColumnCount = -1
.RowSource = xRng(3).Address(, , , 1, 1)
End With
xRng(2).Clear
End Sub
複製
代碼
ZA0004001.rar
(33.14 KB)
下載次數: 3
2019-7-27 12:23
樓主熱帖
稅內、稅外怎麼算
現在看七龍珠的人,都沒有看過這台車?
單格有文字中的數字加總
如何在核取方塊 複選後在同一欄得到複選的值
編號方式-英文+年月+流水編號2碼.出來沒按順
請問格式化條件+函數
想減短公式
另存新檔 怎麼把欄寛跟列高也複製到新
如何統計人數年齡?
大樓共公基金試算
收藏
分享
excel學習中!築出夢想
https://www.youtube.com/channel/UCPAiRNsHX3k_omp0YDgfDiA
kkooo15
發短消息
加為好友
kkooo15
(新手)
當前離線
UID
7049
帖子
123
主題
37
精華
0
積分
177
金錢
177
點名
0
作業系統
WIN10
軟體版本
Office 2010
閱讀權限
20
性別
男
來自
台北
在線時間
167 小時
註冊時間
2011-11-9
最後登錄
2025-6-9
暱稱:
新手
中學生
帖子
123
主題
37
精華
0
積分
177
點名
0
作業系統
WIN10
軟體版本
Office 2010
閱讀權限
20
性別
男
來自
台北
註冊時間
2011-11-9
最後登錄
2025-6-9
4
#
發表於 2019-8-5 13:51
|
只看該作者
回復
3#
ciboybj
太感謝了
我又可以在往前一步了
ZA0004001-2.rar
(34.69 KB)
下載次數:10
2019-8-5 13:49
excel學習中!築出夢想
https://www.youtube.com/channel/UCPAiRNsHX3k_omp0YDgfDiA
TOP
ciboybj
發短消息
加為好友
ciboybj
當前離線
UID
17946
帖子
47
主題
19
精華
0
積分
82
金錢
82
點名
0
作業系統
win
軟體版本
xp
閱讀權限
20
在線時間
31 小時
註冊時間
2014-7-4
最後登錄
2021-9-4
中學生
帖子
47
主題
19
精華
0
積分
82
點名
0
作業系統
win
軟體版本
xp
閱讀權限
20
註冊時間
2014-7-4
最後登錄
2021-9-4
3
#
發表於 2019-8-3 10:40
|
只看該作者
回復
1#
kkooo15
我有一個類似的程式片段
使用者雙擊ListBox1中的資料後 (當然你也可以選擇用單擊)
用for迴圈查出哪一筆資料被點擊 然後ListBox1.List(i) 應該就可以拿到資料
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) = True Then
TextBox1.Text = ListBox1.List(i)
ListBox1.Visible = False
End If
Next i
End Sub
複製代碼
TOP
kkooo15
發短消息
加為好友
kkooo15
(新手)
當前離線
UID
7049
帖子
123
主題
37
精華
0
積分
177
金錢
177
點名
0
作業系統
WIN10
軟體版本
Office 2010
閱讀權限
20
性別
男
來自
台北
在線時間
167 小時
註冊時間
2011-11-9
最後登錄
2025-6-9
暱稱:
新手
中學生
帖子
123
主題
37
精華
0
積分
177
點名
0
作業系統
WIN10
軟體版本
Office 2010
閱讀權限
20
性別
男
來自
台北
註冊時間
2011-11-9
最後登錄
2025-6-9
2
#
發表於 2019-7-29 23:22
|
只看該作者
本帖最後由 kkooo15 於 2019-7-29 23:25 編輯
回復
1#
kkooo15
問題二
如果我有二個UserForm
我選UserForm2使用查詢時,"編號"就會存在UserForm2的TextBox1
我選UserForm3使用查詢時,"編號"就會存在UserForm3的TextBox1
我想到辦法解決了。
就是在開表單的時候把資料清空。
Sub show1()
UserForm1.show
End Sub
Sub show2()
'開啟表單時清空TEXTBOX1內的資料
UserForm2.TextBox1.Text = ""
UserForm2.show
End Sub
Sub show3()
'開啟表單時清空TEXTBOX1內的資料
UserForm3.TextBox1.Text = ""
UserForm3.show
End Sub
複製代碼
然後得到資料後按確定時
UserForm2跟UserForm3都放資料
Private Sub CommandButton6_Click()
If TextBox1.Text <> "" Then
'將 UserForm2查出來的編號 資料放入 UserForm1的TextBox1
UserForm2.TextBox1.Text = UserForm1.TextBox1.Text
UserForm3.TextBox1.Text = UserForm1.TextBox1.Text
'將 TextBox1 資料放入 TBox1
Unload Me
'關閉表單
Else
End If
End Sub
複製代碼
現在差..我要怎麼進去點ListBox內資料後,會放到上個的TextBox
ZA0004001-1.rar
(33.63 KB)
下載次數: 7
2019-7-29 23:25
excel學習中!築出夢想
https://www.youtube.com/channel/UCPAiRNsHX3k_omp0YDgfDiA
TOP
靜思自在 :
我們要做好社會的環保,也要做好內心的環保。
返回列表
下一主題
上一主題
Excelㄧ般區
EXCEL專屬討論區
Excelㄧ般區
Excel程式區
進階應用專區
OFFICE 系列
Word
PowerPoint
Access
Office不分區
程式語言
VB 與 VB.Net
C 與 C#
Java 與 J#
程式設計不分區
資料庫
ORACLE
My SQL
MS SQL
網頁設計
ASP 與 ASP.NET
PHP
PHP+MySQL 入門實作
JavaScript
FLASH / ActionScript
HTM/ HTML/ CSS
網頁設計不分區
電腦與作業系統
電腦各種硬體討論
一般電腦軟體討論
論壇事務
管理公告
投訴反映
新手測試
愛 ‧ 生活
公益佈告欄
生活與感動
[收藏此主題]
[關注此主題的新回復]
[通過 QQ、MSN 分享給朋友]
申請友情鏈接
Facebook粉絲