=========================================================================
楼主,详细的教程如下:(点击可放大图片)
图片中所用到的两段代码
'Sheet1:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
UserForm1.Show
End Sub
'userform1:
Private Sub CommandButton1_Click()
TextBox4.Text = TextBox1.Text * TextBox2.Text * TextBox3.Text
End Sub