用VB怎么写程序,在excel中的一个单元格内，点击按钮显示当前电脑时间。请教VB高手！谢谢

我想用VB语言在excel中编写一个VB程序，设置一个按钮，~

一种可以考虑公式vlookup过去，
另外使用vba写代码，建议考虑使用字典取更新

不明白你要什么效果
能直接说出你的要求吗？
我大概理解一下
第一个
是如果
bc列隐藏就显示，如果显示就隐藏
大概是这个意思吧
columns("b:c").entirecolumn.hidden
=
not
(columns("b:c").entirecolumn.hidden)
那就这样
意思是
bc列的状态＝当前的反状态（即隐藏就显示
显示就隐藏）

VB访问EXCEL，先在工程中引用Microsoft Excel类型库： 从"工程"菜单中选择"引用"栏；选择Microsoft Excel 11.0 Object Library（EXCEL2003），然后选择"确定"。表示在工程中要引用EXCEL类型库。
Private Sub Command1_Click()
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Dim FileName, SheetName As String
FileName = "e:\data.xls" 'excel工作簿路径及名称
SheetName = "sheet1" '工作表名称
Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象
Set xlBook = xlApp.Workbooks.Open(FileName) '打开已经存在的EXCEL工件簿文件
xlApp.Visible = True '设置EXCEL对象可见（或不可见）
Set xlSheet = xlBook.Worksheets(SheetName) '设置活动工作表

xlSheet.Cells(1, 1) = Time() 'time()时间，Now()包括日期和时间 '给单元格A1赋值

xlBook.Close (True) '关闭工作簿
xlApp.Quit '结束EXCEL对象
Set xlApp = Nothing '释放xlApp对象
End Sub

进入Visual Basic编辑器，新建一个模块。
Sub ClickMe()
'Range("A1")为单元格地址，可修改为需要的单元格
Range("A1")=now()
End sub
然后右键点击按钮，指定宏，指定ClickMe.

是黑色实心的
你也可以粘下面的第一段代码，然后右击任意单元格，应当可以出现你的需求，然后弹出右击选项，如果没有右击选项，说明你右击的方法不对，如果弹出了还没有效果。你试着自己录制一段宏，执行以下，我怀疑你的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 If
End 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 = True
End If
End Sub

你查一下，VB时间函数就可以了，内置，直接可以用，

---

拉孜县13418417959： 如何用VB在EXCEL里面处理数据 - ？
归利色甘： Private Sub Command1_Click() '工程->引用->Microsoft ActiveX Data Objects 2.X Library Dim xlConn As New ADODB.Connection Dim xlRs As New ADODB.Recordset Dim strConn As String Dim xlCnt As Integer StrConn = ＂Provider=...

拉孜县13418417959： 如何用VB向EXCEL里写数据? - ？
归利色甘： VB可将使用Object 数据类型对EXCEL对象进行引用.Object 数据类型,Object 变量存储为 32 位(4 个字节)的地址形式,其为对象的引用.利用 Set 语句,声明为 Object 的变量可以赋值为任何对象的引用.注意 虽然以 Object 类型声明的变...

拉孜县13418417959： 如何运用EXCEL中的VB编写程序?我现在要在excel中计算相 ？
归利色甘： 按Atl+F11,可以打开编程窗口. 除了自动触发的程序外,都可以按Atl+F8调用.

拉孜县13418417959： 用VB怎么写程序,在excel中的一个单元格内,点击按钮显示当前电脑时间.请教VB高手!谢谢 - ？
归利色甘： VB访问EXCEL,先在工程中引用Microsoft Excel类型库: 从＂工程＂菜单中选择＂引用＂栏;选择Microsoft Excel 11.0 Object Library(EXCEL2003),然后选择＂确定＂.表示在工程中要引用EXCEL类型库.Private Sub Command1_Click() ...

拉孜县13418417959： 如何运用EXCEL中的VB编写程序 - ？
归利色甘： 打开开发工具窗口,然后新建一个模块就可以写vb代码了 或者按住alt+F11就打开vba编辑窗口了.

拉孜县13418417959： 怎样在Excel中应用Vb来编辑程序运算并保存呢? - ？
归利色甘： 直接进入工具菜单里的vb编辑器就可以,但运行的时候要把宏安全级别设置为中级.

拉孜县13418417959： 请问 我要用vb编一个程序,数据源是个二维数组,如何写入一个默认excel里面呢.非常感谢 - ？
归利色甘： 用VB访问Office,首先要添加Office库文件的引用.工程----引用----Microsoft Excel 12.0 Object Library (这是Excel 2007的库文件) 工程----引用----Microsoft Excel 11.0 Object Library (这是Excel 2003的库文件) Office库文件实际就是他的执行文...

拉孜县13418417959： VB写EXCEL公式 - ？
归利色甘： VB设置公式可以 Range(＂A1＂).Value = ＂=B1+B2+B3＂ 依此类推:For i = 1 To 30 Range(＂A＂ & i).Value = ＂=B＂ & 3 * i - 2 & ＂+B＂ & 3 * i - 1 & ＂+B＂ & 3 * i Next i

拉孜县13418417959： 请问excel中如何用VB?？
归利色甘： EXCEL表打开,按“ALT”+“F11”进入VBA编辑状态,点击“工程资源管理器”图标,在“工程资源管理器”窗体内-->鼠标右键-->“插入”->“模块”;出现“模块1”,点击“属性窗口”图标对“模块1”进行命名;双击命名后的模块名称,在右边的“窗体”内就可以编辑VBA代码了.

拉孜县13418417959： vb编写excel程序 - ？
归利色甘： Dim XlApp as New Excel.Application '生成新的Excel实例.这是关键的步聚. 新的Excel实例可以不受系统中其他Excel进程的影响. 还有、退出时释放Excel的Application哦.就是QUIT方法执行后加上设置为Nothing. 修改如下: Private Sub ...