在excel2003中，单元格A1的内容为：“是”，如果用鼠标移到单元格A1上，就另外出现文本框显示：“请双击鼠标切换‘是，否’”，如果用鼠标双击单元格A1，A1内容就变为：“否”，再双击，就变为：“是”，再双击，就变为：“否”......请问高手,该如何写这个宏程序?

谢谢楼下的回答，但是我把你的代码复制到VB编辑器，再把鼠标移到单元格A1上，但是没有反应啊，再双击，也没变成“否”啊，是不是不行啊。 对不起，我是VB初学者，我按照你第二次说的要求，单元格A1中已经有“是”，在VB编辑器中，左上角找到工程-VBAProject  窗口，右击里面的 Sheet1（Sheet1），选择“查看代码”，在右侧窗口中粘贴了你的代码， 再双击Sheet1的A1单元格，不管击多少次，还是没有反应啊，请再指点一下，谢谢。

双击的时候，你的鼠标应该是一个白色空心的十字，不是黑色实心的你也可以粘下面的第一段代码，然后右击任意单元格，应当可以出现你的需求，然后弹出右击选项，如果没有右击选项，说明你右击的方法不对，如果弹出了还没有效果。你试着自己录制一段宏，执行以下，我怀疑你的VBA没装好。你可以给zht@xwedu.com发一个邮件，我把做好的回给你我周六晚上9-10点在线Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)    Range("A1").ClearComments    Range("A1").AddComment    Range("A1").Comment.Visible = False    Range("A1").Comment.Text Text:="请双击鼠标切换‘是，否’"    If Target = "是" Then        Target.Value = "否"    ElseIf Target = "否" Then        Target.Value = "是"    End IfEnd Sub不是 宏  是工作表事件在编辑器中，左上角找到工程-VBAProject  窗口右击里面的 Sheet1（Sheet1） 选择 查看代码在右侧粘贴 要双击Sheet1的  A1单元格，一次以后才会出现提示 A1中必须已经有 是 或者 否Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)If Target.Address = "$A$1" Then    Range("A1").ClearComments    Range("A1").AddComment    Range("A1").Comment.Visible = False    Range("A1").Comment.Text Text:="请双击鼠标切换‘是，否’"    If Target = "是" Then        Target.Value = "否"    ElseIf Target = "否" Then        Target.Value = "是"    End If    Cancel = TrueEnd IfEnd Sub

VB中表示“程序根目录里”的某个程序怎么写？ VB中表示“程序根目录里”的某个程序怎么写？ VB中绝对值怎么写？ Excel2003中怎么算乘法？ excel2003中如何写自定义函数啊？？ VB程序中怎么用加密狗 vb中，开方的程序怎么编写？ 怎么在VB中打开一个程序？ 在网页中怎么插入VB程序?? 在网页中怎么插入VB程序 在网页中怎么插入VB程序? vb写程序 vb写程序 vb写程序 vb写程序 VB程序写注册表 如何在自己写的VB程序中加入数字签名 EXCEL2003中公式列怎么复制数值?? EXCEL2003中减法函数怎么用啊? 请问WindowsXP操作系统是用什么编程语言编写的？你们在写程序的时候主要写些什么程序？在VB中怎么做？ vb 全排列的小程序怎么写 用VB编写关机程序怎么写呀? VB写的程序怎么实现自动打开文件 VB中，怎么是程序不显示在进程中？