Office中国论坛/Access中国论坛

标题: 帮我完善一下本人的处女作 [打印本页]

作者: yanyi66 时间: 2009-9-5 23:17
标题: 帮我完善一下本人的处女作
本人VBA刚入门，因工作急需，在网上七拼八凑代码，做了一个车价计算工具，
可有许多不完善的地方，还请各路高人指教！！
大恩不言谢！！
问题如图：

作者: liwen 时间: 2009-9-6 16:18
使用全局变量或表数据等方式传递值.

作者: yanyi66 时间: 2009-9-6 17:01

使用全局变量或表数据等方式传递值.
liwen 发表于 2009-9-6 16:18

感谢楼上的！！！
还有个问题，就是弹出的窗体中，选中价格，点确定后
再次打开时，之前选中的记录不能保存，新弹出的窗体复选框一个也没选中
还请版主完善一下。
再次感谢

作者: liwen 时间: 2009-9-6 17:09
你准备保存到哪里去，下次就再从哪里打开就成，你不保存他，如何知道以前的值？

作者: yanyi66 时间: 2009-9-6 18:02

你准备保存到哪里去，下次就再从哪里打开就成，你不保存他，如何知道以前的值？
liwen 发表于 2009-9-6 17:09

鼠标点击的单元格能保存复选框选中的数字总和！
但我想在弹出的窗体中的textbox中也保存复选框选中的数字总和，
可这点还不能实现。
另外问一下，我向把工作簿的 A列和C列或A列和D列，也就是说不连续的两列导入 Listbox中，“RowSource =……”的语句该怎么写
实际上我的车型那行远不止两列，如下图：

作者: liwen 时间: 2009-9-7 14:14
本帖最后由 liwen 于 2009-9-8 22:59 编辑

我提到过数据保存到哪里,你就去哪里提取,我上例就实现了AC列的显示，更多列的显示也可参考其代码,所以附件要多多收费了.

作者: yanyi66 时间: 2009-9-7 23:46
可惜我没那么多钱了
版主大人可怜可怜
少收点吧

作者: liwen 时间: 2009-9-8 13:01
本来准备收你￥30的,看你只有￥14才只收你这么多的

你己付费了,应该可以直接下载的了

作者: yanyi66 时间: 2009-9-8 14:17
8# liwen

我只有12￥，还差2￥，下不了啊
版主大人施舍一下吧！
再次感谢！！！

作者: liwen 时间: 2009-9-8 23:03

作者: yanyi66 时间: 2009-9-11 01:23

liwen 发表于 2009-9-8 23:03

版主大人，你是不是通过下面这些语句实现列表框中，选中的记录能自动保存，且求和值显示在文本框中也能保存的功能?（即下次显示窗体时仍能看到上次选中的记录和求和值）
如果是的话，还有劳请版主大人分析给我听听，尤其是结尾那段！
大恩不言谢！！！

Private Sub CommandButton1_Click()
For i = 0 To Me.ListBox1.ListCount - 1
If Me.ListBox1.Selected(i) Then
A = A & "," & i
End If
Next
'Worksheets("1").Range(rc) = Mid(A, 2)
Sheets(1).Cells(2, ra) = Mid(A, 2)
Range(rb) = Me.TextBox1
Unload Me
End Sub
--------------------------------------------
Dim B As Variant
B = Split(Sheets(1).Cells(2, ra), ",")
----------------------------------------------
Private Sub UserForm_Initialize()
   Dim B As Variant
B = Split(Sheets(1).Cells(2, ra), ",")

   Me.TextBox1 = 0
   For i = 0 To UBound(B)
   Me.ListBox1.ListIndex = B(i)
   Me.ListBox1.Selected(B(i)) = True
   Next

End Sub

作者: liwen 时间: 2009-9-11 10:29
A:用于存储listbox1中选中的项的序号,以","分隔(也可以使用其他符号分隔)
ra为全局变量,存储的是对应品种所在的列,Sheets(1).Cells(2, ra)就是选项保存的地方
B为一个数组,用于还原存储的选择的序号为单个数字,用来设置相应的列表选项是否选中

作者: 刘青梅 时间: 2016-12-5 16:34
感谢！！！

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)