在一个用户窗体里，我想让文本框textbox17来判断复合框combobox1里有没有内容，如果没有内容，则textbox17为空，如果有内容，且内容为“一”，则textbox17调用textbox16的内容（textbox16内容为一个整数），若combobox1里的内容为“二”，则textbox17调用textbox16的内容后，将该内容乘以0.6并舍去千位数以下的数字。
这个用VBA应该怎么写？是不是写进textbox17的代码里就行了？

写到combobox1的onchange事件里面

我试了N种方法，还是搞不定，看看有没有老师可以帮我一下

Private Sub ComboBox1_Change()
With ComboBox1
Select Case .Value
Case ""
TextBox1.Value = ""
Case "一"
TextBox1.Value = TextBox2.Value
Case "二"
TextBox2.Value = Val(TextBox1.Value) * 0.6
End Select
End With
End Sub
Private Sub ComboBox1_LostFocus()
ComboBox1.ListIndex = -1
End Sub
Private Sub Worksheet_Activate()
TextBox1.Value = "我是1"
TextBox2.Value = "100"
End Sub

好的，谢谢这位老师了，我试试看