带你入门VBA（2004第一期）

netcrystal

在a列中输入原始数据, 我在d1中建一个按钮, 实现在a列中最后一行自动求和, 并且同时在d2单元格中显示a列自动求和的值, 也就是要自动引用a列自动求和的值, 我的代码如下:

Sub 按钮1_单击() Dim yyy As Integer yyy = Application.WorksheetFunction.CountA(Columns("a:a")) Cells(yyy + 1, 1) = Application.WorksheetFunction.Sum(Range(Cells(1, 1), Cells(yyy, 1)))

Range("d2").Value = Cells(yyy + 1).Copy

End Sub

但是代码最后一行想实现的功能并没有实现,请问最后一行该如何表示?

谢谢!

兰色幻想

以下是引用netcrystal在2004-10-28 17:01:00的发言：

在a列中输入原始数据, 我在d1中建一个按钮, 实现在a列中最后一行自动求和, 并且同时在d2单元格中显示a列自动求和的值, 也就是要自动引用a列自动求和的值, 我的代码如下:

Sub 按钮1_单击() Dim yyy As Integer yyy = Application.WorksheetFunction.CountA(Columns("a:a")) Cells(yyy + 1, 1) = Application.WorksheetFunction.Sum(Range(Cells(1, 1), Cells(yyy, 1)))

Range("d2").Value = Cells(yyy + 1).Copy

End Sub

但是代码最后一行想实现的功能并没有实现,请问最后一行该如何表示?

谢谢!

Range("d2").Value = Cells(yyy + 1).Copy应是：

Range("d2").Value = Cells(yyy + 1,1）

mxhwlm7092

我一直想学，现在终于有机会了，谢谢

netcrystal

Range("d2").Value = Cells(yyy + 1).Copy应是：

Range("d2").Value = Cells(yyy + 1,1）

谢谢兰大侠!

netcrystal

以下是引用hanetyb在2004-10-18 13:17:00的发言： 真的十分好，终于都学习玩了，谢谢！ 但是，我也想知道，如果真的出现了空格怎么办怎么写这个程序呢？ 如果那样，就用RANGE(A65536).END(XLUP).ROW 来判断最后一行的行号

按照以上, 见我以下代码:

Sub 按钮1_单击() Dim yyy As Integer yyy = Range(a65536).End(xlUp).Row -----程序运行到这里出现问题?

'判断最后一行的行号（这样中间有空格也没有关系）

Cells(yyy + 1, 1) = Application.WorksheetFunction.Sum(Range(Cells(1, 1), Cells(yyy, 1)))

Range("d2").Value = Cells(yyy + 1, 1)

End Sub

请问是什么原因?

多谢!

612321

以下是引用netcrystal在2004-10-29 11:01:00的发言：

>

按照以上, 见我以下代码:

Sub 按钮1_单击() Dim yyy As Integer yyy = Range(a65536).End(xlUp).Row -改下RANGE(“A65536”).END(XLUP).ROW

'判断最后一行的行号（这样中间有空格也没有关系）

Cells(yyy + 1, 1) = Application.WorksheetFunction.Sum(Range(Cells(1, 1), Cells(yyy, 1)))

Range("d2").Value = Cells(yyy + 1, 1)

End Sub

请问是什么原因?

多谢!

[此贴子已经被作者于2004-10-29 11:32:55编辑过]

兰色幻想

以下是引用netcrystal在2004-10-29 11:01:00的发言：

>

按照以上, 见我以下代码:

Sub 按钮1_单击() Dim yyy As Integer yyy = Range(a65536).End(xlUp).Row -----程序运行到这里出现问题?

'判断最后一行的行号（这样中间有空格也没有关系）

Cells(yyy + 1, 1) = Application.WorksheetFunction.Sum(Range(Cells(1, 1), Cells(yyy, 1)))

Range("d2").Value = Cells(yyy + 1, 1)

End Sub

请问是什么原因?

多谢!

yyy = Range(a65536).End(xlUp).Row 应该是：

yyy = Range("a65536").End(xlUp).Row

[此贴子已经被作者于2004-10-29 11:36:28编辑过]

netcrystal

yyy = Range(a65536).End(xlUp).Row 应该是：

yyy = Range("a65536").End(xlUp).Row

谢谢! 引号看来很重要!

rongjun

以下是引用兰色幻想在2004-10-26 21:51:00的发言：

兰兄，怎样才能方便的输入日期？比如在录入框的A里输入“7-9”，点录入后，怎么样在A4里直接显示为“2004-07-09”？

jmtang

我来也