ComboBox1菜单連結ListView1

cmo9020 · 发表于 2022-12-20 20:32

本帖最后由 cmo9020 于 2022-12-21 12:12 编辑

ListView2.rar (30.75 KB, 下载次数: 16)

请问各位导师~
有查excelhome相关数据,不是链接失效就是需要对象
因此询问导师们一下，有一小个问题

点选后菜單ListView1会跑出菜单下的数据
目前代码还需要修改,请导师帮忙看一下怎么样修改?...
谢谢各位大神导师帮忙~~天冷多加些暖物

582766 · 发表于 2022-12-20 20:59

列表框 For i = 1 To 3 ComboBox1.AddItem Sheet2.Cells(1, i) Next

cmo9020 · 发表于 2022-12-20 21:15

本帖最后由 cmo9020 于 2022-12-20 21:16 编辑

582766 发表于 2022-12-20 20:59
列表框 For i = 1 To 3 ComboBox1.AddItem Sheet2.Cells(1, i) Next

谢谢导师~天冷多加暖物
请教一下点选后菜单ListView1会跑出菜单下的数据目前代码还需要修改,
请导师帮忙看一下怎么样修改谢谢各位大神导师帮忙~~天冷多加些暖物

cmo9020 · 发表于 2022-12-21 06:47

本帖最后由 cmo9020 于 2022-12-21 07:56 编辑

有导师教一下吗？谢谢
Private Sub ListView1_Click()
Dim comboBoxValue As String
Dim worksheet As Worksheet
Dim cellValue As Variant

Set worksheet = ThisWorkbook.Worksheets("Sheet1")
cellValue = worksheet.Cells(1, 1).Value

comboBoxValue = ListView1.ListSubItems(ListView1.SelectedItem.Index).Text
ComboBox1.Value = cellValue
End Sub

我在chat.openai，它提供的代码是这样，不过弄不出来

ivccav · 发表于 2022-12-21 09:55

没看懂你描述的是什么意思。写了一个。也可以参考教程：

VBA窗体Listview控件完全教程

ListView2.zip (19.12 KB, 下载次数: 34)

cmo9020 · 发表于 2022-12-21 12:12

ivccav 发表于 2022-12-21 09:55
没看懂你描述的是什么意思。写了一个。也可以参考教程：

VBA窗体Listview控件完全教程

就是这个意思，我不会导入listview,谢谢导师

cmo9020 · 发表于 2022-12-21 15:09

ivccav 发表于 2022-12-21 09:55
没看懂你描述的是什么意思。写了一个。也可以参考教程：

VBA窗体Listview控件完全教程

请问导师，要怎么填入单元格，谢谢

ivccav · 发表于 2022-12-21 15:17

cmo9020 发表于 2022-12-21 15:09
请问导师，要怎么填入单元格，谢谢

不清楚你要输出到哪里，建议自己摸索。

我上面发给你的链接中，8楼就是现成的答案了。

https://club.excelhome.net/thread-1424969-1-1.html

cmo9020 · 发表于 2022-12-21 19:48

ivccav 发表于 2022-12-21 15:17
不清楚你要输出到哪里，建议自己摸索。

我上面发给你的链接中，8楼就是现成的答案了。

正在试试看,谢谢导师

cmo9020 · 发表于 2022-12-21 21:45

ivccav 发表于 2022-12-21 15:17
不清楚你要输出到哪里，建议自己摸索。

我上面发给你的链接中，8楼就是现成的答案了。

2小时搞不定....

		自动登录	找回密码
密码			免费注册

[已解决] ComboBox1菜单連結ListView1

评分

评分

评分