《VBA其实很简单》里面有一个函数运行不出来，Page 197

xiaoyuan1986

请教版主大人，为什么这个函数运行不过去？

Sub fenleiP197()
Dim i As Long, bj As String, rng As Range
i = 2
bj = Worksheets("成绩表").Cells(i, "C").Value
Do While bj <> ""
'直到成绩表中C列的单元格为空单元格时终止循环
Set rng = Worksheets(bj).Range("A1048576").End(xlUp).Offset(1, 0) '确定班级工作表A列中的第一个空单元格，作为写入成绩的目标区域
卡在这一句了，我检查了好几遍，跟书上的是一样的。
bj.Cells(1, "A").Resize(1, 7).copy rng  '另外我觉得这一句的BJ.也是有问题的。

i = i + 1
bj = Worksheets("成绩表").Cells(1, "c").Value
Loop
End Sub

wxjdonny

也是到这里不能运行，提示“无效限定符”。

ggsmart

bj.Cells(1, "A").Resize(1, 7).copy rng  '另外我觉得这一句的BJ.也是有问题的。

这一行代码应为：
worksheets("成绩表").Cells(1, "A").Resize(1, 7).copy rng

首印排版时排版弄弄了，可以下载示例文件来配作合学习，如果发现书中代码有问题的，可看示例文件中的代码。

498411217

ggsmart 发表于 2017-2-6 13:47
bj.Cells(1, "A").Resize(1, 7).copy rng  '另外我觉得这一句的BJ.也是有问题的。

这一行代码应为：

6.7.1 用窗体制作一个简易的登录窗体登录账号密码是啥啊

sherry725

请问这个有答案了吗？能给个正确的代码吗？谢谢！！！

皮克特

Set rng = Worksheets(bj).Range("A1048576").End(xlUp).Offset(1, 0)
会不会是这个有问题，你看看你 sheet最大行是多少

ggsmart

498411217 发表于 2017-6-22 10:07
6.7.1 用窗体制作一个简易的登录窗体登录账号密码是啥啊

书中相应的章节中是有用户名和密码的，翻书看一下

3742922

这个问题没人解决吗？

qytwo

Excel2003是【65534】，2007以后才是1048576