悬赏50分求教,vb高手请进.告诉我一段小代码!!!

来源:百度知道 编辑:UC知道 时间:2024/06/15 01:15:14
在excel里边,我想用VB来控制来实现,
当我点击命令按钮时,某个单元格的数字会发生变化。
请各位路过DX相助,小弟不胜感激
当我点击commandBut1时,E20单元格的字符变为1
而当我点击commandBut2时,E21单元格的字符变为1-9的任意数字,但是必须每点一次变一次,
同时E20单元格字符为空
同时把commandbut1名称改为“查看答案”,commandBut2的按钮名改为“重玩一次”

Hi 我吧

Sheets(1).Range("A" & N).FormulaR1C1 = "ABC"
A列,N格=ABC

用VBA就可以了。

点击后发生什么呢?说的不够清楚吖

给你一个VB与EXCEL的文章,挺详细的,可以参考:

一、 VB读写EXCEL表:

VB本身提自动化功能可以读写EXCEL表,其方法如下:

1、在工程中引用Microsoft Excel类型库:

从"工程"菜单中选择"引用"栏;选择Microsoft Excel 9.0 Object Library(EXCEL2000),然后选择"确定"。表示在工程中要引用EXCEL类型库。

2、在通用对象的声明过程中定义EXCEL对象:

Dim xlApp As Excel.Application
Dim xlBook As Excel.WorkBook
Dim xlSheet As Excel.Worksheet

3、在程序中操作EXCEL表常用命令:

Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象
Set xlBook = xlApp.Workbooks.Open("文件名") '打开已经存在的EXCEL工件簿文件
xlApp.Visible = True '设置EXCEL对象可见(或不可见)
Set xlSheet = xlBook.Worksheets("表名") '设置活动工作表
xlSheet.Cells(row, col) =值 '给单元格(row,col)赋值
xlSheet.PrintOut '打印工作表
xlBook.Close (True) '关闭工作簿