【V入2期】实战练习四——录入资料

aa123456aa · 发表于 2008-6-22 16:57

<div class="msgheader">QUOTE:</div><div class="msgborder">以下是引用cjch1969在2008-6-22 16:51:00的发言： 楼上的，问题有2（1）Sheet1.[D4] = ""  疑为 Sheet1.[D3] = ""（2）如果不按照顺序录入内容，会出现问题，如先输入 “是否党员”和“特长”后，就会自动添加数据 </div>晕  没有检查就发了谢谢提醒 [em04] D3的没有清空！

aa123456aa · 发表于 2008-6-22 17:03

<div class="msgheader">QUOTE:</div><div class="msgborder">以下是引用cjch1969在2008-6-22 16:51:00的发言： 楼上的，问题有2（1）Sheet1.[D4] = ""  疑为 Sheet1.[D3] = ""（2）如果不按照顺序录入内容，会出现问题，如先输入 “是否党员”和“特长”后，就会自动添加数据 </div>（2）是不会发生的！就是第一点清空D3改下D4就行了！

cjch1969 · 发表于 2008-6-22 17:04

<div class="msgheader">QUOTE:</div><div class="msgborder">以下是引用aa123456aa在2008-6-22 17:03:00的发言： <div class="msgheader">QUOTE:</div><div class="msgborder">以下是引用cjch1969在2008-6-22 16:51:00的发言： 楼上的，问题有2（1）Sheet1.[D4] = ""  疑为 Sheet1.[D3] = ""（2）如果不按照顺序录入内容，会出现问题，如先输入 “是否党员”和“特长”后，就会自动添加数据 </div>（2）是不会发生的！就是第一点清空D3改下D4就行了！</div>你自己试一下

aa123456aa · 发表于 2008-6-22 17:23

<div class="msgheader">QUOTE:</div><div class="msgborder">以下是引用cjch1969在2008-6-22 17:04:00的发言： <div class="msgheader">QUOTE:</div><div class="msgborder">以下是引用aa123456aa在2008-6-22 17:03:00的发言： <div class="msgheader">QUOTE:</div><div class="msgborder">以下是引用cjch1969在2008-6-22 16:51:00的发言： 楼上的，问题有2（1）Sheet1.[D4] = ""  疑为 Sheet1.[D3] = ""（2）如果不按照顺序录入内容，会出现问题，如先输入 “是否党员”和“特长”后，就会自动添加数据 </div>（2）是不会发生的！就是第一点清空D3改下D4就行了！</div>你自己试一下</div>

rivate Sub Worksheet_Change(ByVal Target As Range) If Range(Target, "b2:D4").Address(0, 0) = "B2:D4" Then   If Sheet1.Cells(2, 2) <> "" And Sheet1.Cells(2, 4) <> "" _   And Sheet1.Cells(3, 2) <> "" And Sheet1.Cells(3, 4) <> "" And [B4] <> "" Then      Application.EnableEvents = False      Myrow = Sheet2.[a65536].End(xlUp).Row + 1      Sheet2.Cells(Myrow, 1) = Myrow - 2      Sheet2.Cells(Myrow, 2) = Sheet1.Range("b2")      Sheet2.Cells(Myrow, 3) = Sheet1.Range("d2")      Sheet2.Cells(Myrow, 4) = Sheet1.Range("D3")      Sheet2.Cells(Myrow, 5) = Sheet1.Range("b3")      Sheet2.Cells(Myrow, 6) = Sheet1.Range("B4")      Sheet1.[B2] = ""      Sheet1.[B3] = ""      Sheet1.[D2] = ""      Sheet1.[D3] = ""      Sheet1.[B4] = ""      Application.EnableEvents = True    End If  End If End Sub晕看来只有这样改了，不知道是为什么在上面的 FOR X=2 TO  3 在事件中没起作用什么回事喵喵老师说一下！谢谢 [em03]

aa123456aa · 发表于 2008-6-22 17:31

<div class="msgheader">QUOTE:</div><div class="msgborder">以下是引用aa123456aa在2008-6-22 16:48:00的发言： <div class="msgheader">QUOTE:</div><div class="msgborder">以下是引用aa123456aa在2008-6-22 16:46:00的发言：

rivate Sub Worksheet_Change(ByVal Target As Range) If Range(Target, "b2:D4").Address(0, 0) = "B2:D4" Then 燜or X = 2 To 3 ?If Sheet1.Cells(X, 2) <> "" And Sheet1.Cells(X, 3) <> "" And [B4] <> "" Then 牋牋 Application.EnableEvents = False 牋牋 Myrow = Sheet2.[a65536].End(xlUp).Row + 1 牋牋 Sheet2.Cells(Myrow, 1) = Myrow - 2 牋牋 Sheet2.Cells(Myrow, 2) = Sheet1.Range("b2") 牋牋 Sheet2.Cells(Myrow, 3) = Sheet1.Range("d2") 牋牋 Sheet2.Cells(Myrow, 4) = Sheet1.Range("D3") 牋牋 Sheet2.Cells(Myrow, 5) = Sheet1.Range("b3") 牋牋 Sheet2.Cells(Myrow, 6) = Sheet1.Range("B4") 牋牋 Sheet1.[B2] = "" 牋牋 Sheet1.[B3] = "" 牋牋 Sheet1.[D2] = "" 牋牋 Sheet1.[D4] = "" 牋牋 Sheet1.[B4] = "" 牋牋 Application.EnableEvents = True 牋 End If ?Next X 燛nd If End Sub</div>

rivate Sub Worksheet_Change(ByVal Target As Range) If Range(Target, "b2:D4").Address(0, 0) = "B2:D4" Then  For X = 2 To 3   If Sheet1.Cells(X, 2) <> "" And Sheet1.Cells(X, 3) <> "" And [B4] <> "" Then      Application.EnableEvents = False      Myrow = Sheet2.[a65536].End(xlUp).Row + 1      Sheet2.Cells(Myrow, 1) = Myrow - 2      Sheet2.Cells(Myrow, 2) = Sheet1.Range("b2")      Sheet2.Cells(Myrow, 3) = Sheet1.Range("d2")      Sheet2.Cells(Myrow, 4) = Sheet1.Range("D3")      Sheet2.Cells(Myrow, 5) = Sheet1.Range("b3")      Sheet2.Cells(Myrow, 6) = Sheet1.Range("B4")      Sheet1.[B2] = ""      Sheet1.[B3] = ""      Sheet1.[D2] = ""      Sheet1.[D4] = ""      Sheet1.[B4] = ""      Application.EnableEvents = True    End If   Next X  End If End Sub上面代码怎么变成那样？[em06]</div>[em04] 了解什么原因了！照成单面循环了！还没等 FOR 执行完只要满足IF中的条件就施行THEN 后面的语句了[em04]

uranus1997 · 发表于 2008-6-22 17:39

呵呵，很好啊，同学之间相互学习，再赞aa123456aa和cjch1969

canlly · 发表于 2008-6-22 17:53

游客，如果您要查看本帖隐藏内容请回复

看看我的吧,没教的东西暂时还不会!教过的就用上了!  =================================逆向删除的思路不错[em17]              ----------------uranus1997

[此贴子已经被uranus1997于2008-6-22 21:41:34编辑过]

zxw12092 · 发表于 2008-6-22 21:04

学习

夏日123 · 发表于 2008-7-17 13:18

学习一下

cycy800 · 发表于 2008-8-17 18:45

		自动登录	找回密码
密码			注册