帮我完善一下本人的处女作

yanyi66

本人VBA刚入门，因工作急需，在网上七拼八凑代码，做了一个车价计算工具，
可有许多不完善的地方，还请各路高人指教！！
大恩不言谢！！
问题如图：

yanyi66

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

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

yanyi66

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

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

yanyi66

可惜我没那么多钱了
版主大人可怜可怜
少收点吧

yanyi66

8# liwen

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

yanyi66

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