帮忙看一下，这个运行不了

kchen1

本人想做一个这样的excel表格，第一个worksheet是一个summary,列出从第二worksheet开始其他各个worksheet里面的单元格里面的内容，
VBA一个小程序，
Sub POlist()
Dim i As Integer
i = 3
For Each Sheets.Add In Worksheets
Sheet(1).Cells(i, "A") = Sheet(i - 1).Cells(5, "A")
Sheet(1).Cells(i, "B") = Sheet(i - 1).Cells(5, "B")
Next i
End Sub


请问这个程序有错吗？是不是首先要count一下总共有多少个worksheet，然后在计算？问题出在哪里，请调试

840205910

Sub POlist()
Dim i As Integer

For Each Sh In Worksheets
If sh.Name <> "summary" then
i = Sheets("summary").[a65536].end(3).row+1
Sheets("summary").Cells(i, "A") = Sh.Cells(5, "A")
Sheets("summary").Cells(i, "B") = Sh.Cells(5, "B")
end if
Next Sh
End Sub

zez

二楼的代码正确！

kchen1

这个是什么意思啊?我把它放到excel里面去,不能运行,我吧想知道原因?

i = Sheets("summary").[a65536].end(3).row+1

kchen1

840205910 发表于 2012-12-14 08:06
Sub POlist()
Dim i As Integer

我将这个代码指定给了一个按钮,但是每次点击这个按钮的时候,它都会重新计算一遍.这样会重复,怎么解决这个重复的问题.看附件,谢谢!


PO.zip (11.6 KB, 下载次数: 4)

2012-12-14 12:24 上传

点击文件名下载附件
文件

840205910

kchen1 发表于 2012-12-14 12:26
我将这个代码指定给了一个按钮,但是每次点击这个按钮的时候,它都会重新计算一遍.这样会重复,怎么解决这个 ...

你要达到什么效果？每点击一次都要先清空summary的数据？

840205910

Private Sub CommandButton1_Click()
Dim i As Integer
Range("a3:h" & [a65536].End(3).Row).ClearContents
For Each sh In Worksheets
If sh.Name <> "summary" Then
i = Sheets("summary").[a65536].End(3).Row + 1
Sheets("summary").Cells(i, "A") = sh.Cells(17, "C")
Sheets("summary").Cells(i, "E") = sh.Cells(5, "F")
Sheets("summary").Cells(i, "F") = sh.Cells(6, "F")
Sheets("summary").Cells(i, "B") = sh.Cells(16, "C")
End If
Next sh
End Sub

kchen1

840205910 发表于 2012-12-14 12:49
Private Sub CommandButton1_Click()
Dim i As Integer
Range("a3:h" & [a65536].End(3).Row).ClearConte ...

太感谢了！搞定了，

我是刚学excel 编程，有很多不懂还请多多指教