关于窗体向单元格赋值问题

aecn · 发表于 2019-3-15 02:40

本帖最后由 aecn 于 2019-3-15 15:15 编辑

这是在论坛里找的一段代码：双击D4单元格，弹出窗体，然后双击选项向目标单元格赋值失败，求各位老师帮看一下代码，谢谢！

liulang0808 · 发表于 2019-3-15 07:47

楼主提供的代码，。建议楼主结合当时获取情况了解下
代码不支持所谓的赋值到指定地方吧

朱荣兴 · 发表于 2019-3-15 08:22

提示: 作者被禁止或删除内容自动屏蔽

一指禅62 · 发表于 2019-3-15 08:30

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
If ListBox1.ListIndex <= 0 Then Exit Sub
' rtnRow = arrRow(ListBox1.ListIndex)
ActiveCell = ListBox1.List(ListBox1.ListIndex, 1)
Unload Me
End Sub

lsdongjh · 发表于 2019-3-15 08:44

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim rgSelect As Range
Dim intSelectID As Integer
If ListBox1.ListIndex <= 0 Then Exit Sub
Set rgSelect = Application.Selection
intSelectID = ListBox1.ListIndex
rgSelect.Value = ListBox1.List(intSelectID, 1) '客户名称
rgSelect.Offset(1, 0).Value = ListBox1.List(intSelectID, 2) '客户地址
rgSelect.Offset(1, 2).Value = ListBox1.List(intSelectID, 3) '电话
Unload Me
End Sub

复制代码

aecn · 发表于 2019-3-15 15:11

liulang0808 发表于 2019-3-15 07:47
楼主提供的代码，。建议楼主结合当时获取情况了解下
代码不支持所谓的赋值到指定地方吧

不好意思，是我没有表达清楚

aecn · 发表于 2019-3-15 15:12

朱荣兴发表于 2019-3-15 08:22
双击选项向目标单元格赋值
你所说的目标单元格是指什么？？一头雾水嘛况且，要把窗体列表框的内容赋值给单 ...

感谢回复，是时间太晚了，急着睡觉没有表达清楚，不好意思

aecn · 发表于 2019-3-15 15:14

一指禅62 发表于 2019-3-15 08:30
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
If ListBox1.ListIndex

感谢感谢，是这个意思，但还差点点，应该是我说的不清楚

aecn · 发表于 2019-3-15 15:14

lsdongjh 发表于 2019-3-15 08:44

感谢lsdongjh老师，就是这个意思~~ 太谢谢了

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

[已解决] 关于窗体向单元格赋值问题

评分

评分

最新热点 /1

朱荣兴朱荣兴当前离线性别保密 UID 1318548 阅读权限 0 注册时间 2011-2-2 在线时间小时最后登录 1970-1-1 积分 19282 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2019-3-15 08:22 \| 显示全部楼层 [广告] ★ExcelHome默写助手 - 不用妈妈陪的默写神器 · Word/WPS插件 · 自定义默写单 · 自定义描红字帖★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报