用inputbox实现对角线输入数据请用窗体实现：工作表B6单元格上写的是婚姻状况：请让用户在三个选项按钮已婚、未婚、不便透露中选择写入C6单元格；

以下是用VBA实现的代码：

Private Sub Worksheet_Activate() Dim answer As String answer = InputBox("请输入对角线上的数据：") Range("B6").Value = "婚姻状况：" If answer = "已婚" Then Range("C6").Value = "已婚" ElseIf answer = "未婚" Then Range("C6").Value = "未婚" ElseIf answer = "不便透露" Then Range("C6").Value = "不便透露" Else MsgBox "输入错误，请重新输入！" Call Worksheet_Activate End If End Sub

在窗体中，我们可以添加三个选项按钮，分别命名为“已婚”，“未婚”和“不便透露”，并将它们的值设置为相应的文字。然后在工作表B6单元格上写入“婚姻状况：”，在C6单元格中根据用户选择的选项按钮来写入相应的值。如果用户输入了错误的选项，那么会弹出一个消息框提示用户重新输入