Question

在vb中怎么实现点击一个按钮就能让excel表中中的某一单元格里面的数字+1

我大概懂你的意思了,只是我对vb连接excel的基础知识比较薄弱,我定义了两个按钮
第一个按钮的作用是打开c:\库存表.xls .
第二个按钮的作用是修改库存表中的某一单元格中原有的数字+1，我写的代码如下:但是点击按钮二的时候运行不了,求大家指教一下是哪里出错了,或者少了什么没定义呢?
(请指教)
Dim xlApp As Excel.Application '定义EXCEL类
Dim xlBook As Excel.Workbook '定义工件簿类
Dim xlsheet As Excel.Worksheet '定义工作表类
Private Sub Command1_Click()
Set xlApp = CreateObject("Excel.Application") '创建EXCEL应用类
xlApp.Visible = True '设置EXCEL可见
Set xlBook = xlApp.Workbooks.Open("c:\库存表.xls") '打开EXCEL工作簿
Set xlsheet = xlBook.Worksheets(1) '打开EXCEL工作表
xlsheet.Activate '激活工作表
End Sub
Private Sub Command2_Click()
sheet1.Cells(1, 1).Value = sheet1.Cells(1, 1).Value + 1
End Sub

Answer 1

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

Answer 2

具体代码有点多
我这里说说主要步骤：
1.添加引用
2.定义变量，分别是excel对象，工作簿，工作表
3.引用单元格的格式sheet1.cells(Row,Column).value这个属性是可以读写的
4.最后记得释放对象。
主要步骤就是上面了，你再结合网上搜索一下吧。
--------------------------------------------------------------------
sheet1.cells(1,1).value=sheet1.cells(1,1).value=+1

追问

我大概懂你的意思了,只是我对vb连接excel的基础知识比较薄弱,我定义了两个按钮
第一个按钮的作用是打开c:\库存表.xls .
第二个按钮的作用是修改库存表中的某一单元格中原有的数字+1，我写的代码如下:但是点击按钮二的时候运行不了,求大家指教一下是哪里出错了,或者少了什么没定义呢?代码我已经写在问题补充里面了,麻烦您指教哦

追答

不知道你说的运行不了，是什么错误信息？
sheet1.cells(1,1).value=sheet1.cells(1,1).value=+1
sheet1改成你代码中的xlsheet
应该就可以了。
看来你基础还是比较好的，
但是注意在程序退出的时候要释放对象。否则excel会一直运行。

追问

Set xlApp = Nothing '释放EXCEL对象
这个是释放excel的操作,请问一下要在什么时候使用呢,是不是保存完数据之后,在退出软件站之前释放excel,就是再新建一个按钮,专门释放excel的可以吗
如:Private Sub Command3_Click()
Set xlApp = Nothing
End Sub
还要加上什么吗?是不是只要释放xlapp就行了?

追答

恩 差不多吧。
如果不小心的话，很可能导致excel无法直接用鼠标打开，造成麻烦。如果你没有遇到就没事哈！

Answer 3

可以实现。关键是看你是只针对一个单元格，还是多个。

追问

是针对特定的一个单元格