用VB怎么写程序,在excel中的一个单元格内,点击按钮显示当前电脑时间。请教VB高手!谢谢
一种可以考虑公式vlookup过去,
另外使用vba写代码,建议考虑使用字典取更新
不明白你要什么效果
能直接说出你的要求吗?
我大概理解一下
第一个
是如果
bc列隐藏就显示,如果显示就隐藏
大概是这个意思吧
columns("b:c").entirecolumn.hidden
=
not
(columns("b:c").entirecolumn.hidden)
那就这样
意思是
bc列的状态=当前的反状态(即隐藏就显示
显示就隐藏)
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时间函数就可以了,内置,直接可以用,
VB怎么写如下程序代码
加一个T时间控件,Timer1一个文件框Text1一个按键command1 Private Sub Command1_Click()If Command1.Caption = "开始" Then Text1.ForeColor = vbBlack Command1.Caption = "停止"Timer1.Enabled = True Else Command1.Caption = "开始"End If End Sub Private Sub Form_Load()Timer1.Enabled ...
2、用vb6.0设计一个程序,在窗体上的标签(label)中显示一行文字,文字...
首先:选中标签,在它的属性里面找到Font (后面一半默认是宋体),点一下Font,“宋体”后面出现省略号,点省略号,在弹出的对话框里改。然后:再双击窗体,输入 Private Sub Form_Load()Label1.BackColor = vbRed End Sub 然后点运行,就可以了 ...
VB中在特定时间执行命令程序怎么写啊?
Private Sub Form_Load()Timer1.Interval = 1000 End Sub Private Sub Timer1_Timer()If Time = "00:00:00" Then MsgBox ("0点到")End If End Sub
用vb创建一个应用程序,要求使用print方法在窗体中央显示一行文字_百度...
Private Sub Form_Click()Dim l As Integer Dim h As Integer Dim i As Integer Dim s As String s = "你好"Me.ScaleMode = 4 l = Me.ScaleWidth h = Me.ScaleHeight h = h \/ 2 l = l \/ 2 For i = 1 To h + 1 Print Next i For i = 1 To l Print " ";Next i Pri...
VB如何编译
VB编译方法:编码完成后,点击文件——生成工程,即可。VB是解释性的编程语言,安装的VB在写好代码了,以后 按F5也会自动处理的。Visual Basic是一种由 Microsoft 公司开发的结构化的、模块化的、面向对象的、包含协助开发环境的事件驱动为机制的可视化程序设计语言。从任何标准来说,VB都是世界上使用人数...
用vb从1加到100的程序怎么写
我做的代码和运行图示如下图,看一看是不是你想要的结果。
vb怎么制作多语言(英文,中文)程序
⑴启动 VB6.0,在“外接程序→外接程序管理器”中加载“Visual Basic 6 资源编辑器”⑵在 VB 资源编辑器窗口中,点击“编辑字符串表格> 标识号 中文(中国)101 例子 102 中文 103 英文 201 Ensample 202 Chinese 203 English ⑶保存资源文件,写如下代码:(自定义装载字符的函数 LoadString)Sub...
用VB创建一个应用程序,要求使用Print方法在窗体中央显示一行文字_百度...
Private Sub Form_Click()Dim l As Integer Dim h As Integer Dim i As Integer Dim s As String s = "你好"Me.ScaleMode = 4 l = Me.ScaleWidth h = Me.ScaleHeight h = h \/ 2 l = l \/ 2 For i = 1 To h + 1 Print Next i For i = 1 To l Print " ";Next i Pri...
用VB写打开网页的程序咋写?
把以下内容用记事本保存成Form1.frm 要开机自动启动,直接在 开始菜单->程序->启动为编译的程序创建一个快捷方式 === VERSION 5.00 Begin VB.Form Form1 BorderStyle = 0 'None Caption = "Form1"ClientHeight = 3090 ClientLeft = 0 ClientTop = 0 ClientWidt...
用VB编写下图的程序,急!!!后天就要交了!!程序能运行正确者追加50分...
Dim SZ1 As Integer, YSF(1 To 3) As String, SZ2 As Integer, YSFX As String, DAAN As Integer Private Sub Command1_Click()End End Sub Private Sub Command2_Click()Dim K As String, YSS DAAN = Val(Text3.Text)Text2(0).Text = Val(Text2(0).Text) + 1 If YSFX = "+...
归利色甘: 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 ...