excel表格vb程序开发

首先，工作表中的控件必须是ActiveX类型的复选框。

我已测试过可以运行。但是每次必须执行一次代码才生效，也就是不会随J16单元格的值变化而自动变化。

如果要随单元格值变化而变化，可以将代码销孝置于工作表代码模块中：

Private Sub Worksheet_Change(ByVal Target As Range)

If Application.Intersect(Target, Range("j16")) Is Nothing Then Exit Sub

    If Range("j16") = "O" Then

        Range("j16").Parent.OLEObjects("CheckBox1").Object.Value = 1

        Range("j16").Parent.OLEObjects("CheckBox2").Object.Value = 0

        Range("j16").Parent.OLEObjects("CheckBox3").Object.Value = 0

        End If

        If Range("j16") = "F" Then

        Range("j16").Parent.OLEObjects("CheckBox2").Object.Value = 1

        Range("j16").Parent.OLEObjects("CheckBox1").Object.Value = 0

        Range("j16").Parent.OLEObjects("CheckBox3").Object.Value = 0

        End If

       

        If Range("历斗渣j16") = "U" Then

        Range("j16").Parent.OLEObjects("CheckBox3").Object.Value = 1

        Range("j16").Parent.OLEObjects("CheckBox1"肢悄).Object.Value = 0

        Range("j16").Parent.OLEObjects("CheckBox2").Object.Value = 0

    End If

End Sub

给你个思路岩铅吧，利用这个语句筛选结果sqlstring = "纯饥select FChildQty from vICBOM where FNumber = '" &dqwldm &"'"将结果保存到一个变量里，然后给这个变量在乘数就可以了。粗裤好

---