带你入门VBA（2004第一期）

xccom · 发表于 2006-4-5 21:08

很认真地看完这第一讲(仅仅才第一讲) 我对EXCEL的使用感觉全新改变了,我是一公司的文员,常年来全用EXCEL做各种预算/自动化报表等, 平常太多能想却做不到的功能,以为EXCEL就到这地步了.来自Excelhome真正地发现什么叫低手什么是高手,谢谢借此上传一个以往梦中都想完成的功能,略框其中的一小步,敬请各老师修改实现谢谢

y0KKQRAw.rar (9.98 KB, 下载次数: 13)

兰色幻想 · 发表于 2006-4-5 21:30

你的问题应该不难实现。另：自动参加运算是指什么运算？

Cyy38BY8.rar (9.41 KB, 下载次数: 35)

[此贴子已经被作者于2006-4-5 21:56:12编辑过]

lilin2000 · 发表于 2006-4-5 22:22

看了看这个贴子的历史从2004年到今一直都没有沉对一个没有置顶的贴了来说真是一个奇迹了

jerryblue520 · 发表于 2006-4-5 23:05

好好学习下

xccom · 发表于 2006-4-6 00:36

TO：兰老师 1：希望数据输送好后，再次实现对那些本次录入的数据清除 Sub 矩形3_单击() Dim i As Integer For i = 2 To [b65536].End(xlUp).Row RQ = Cells(i, 2) JE = Cells(i, 5) Y = Sheets(Cells(i, 3).Value).[a65536].End(xlUp).Row + 1 Sheets(Cells(i, 3).Value).Cells(Y, 1) = RQ Sheets(Cells(i, 3).Value).Cells(Y, 2) = JE Next MsgBox "添加完毕" '在这个地方我想添上清除输入数据的代码， '其中，A2为左上单元格地址， '那右下角最后输入的单元格地址应该是(i,5) '那清除的这一句应如何写呢（clearcontents)? End Sub 2：输送的表格被限制了范围后，产生输送的误区？

GZIetcoC.rar (10.07 KB, 下载次数: 9)

兰色幻想 · 发表于 2006-4-6 08:35

to xccom: Dim i As Integer For i = 2 To [b65536].End(xlUp).Row ’在当前表的所有行记录进行循环。 RQ = Cells(i, 2) ‘设置变量RQ等于当前日期 JE = Cells(i, 5) ‘设置变量JE等于当前金额 y = Sheets(Cells(i, 3).Value).Range("A2").End(xlDown).Row + 1 ’ Range("A2").End(xlDown).Row 可以找到a2下面最后一个非空单元格。 Sheets(Cells(i, 3).Value).Rows(y).Insert 指定表复制数据前插入一行，以避免覆盖下面的合计行。 Sheets(Cells(i, 3).Value).Cells(y, 1) = RQ 复制日期 Sheets(Cells(i, 3).Value).Cells(y, 2) = JE 复制金额 Next MsgBox "添加完毕" 显示添加完毕 Range("b2:e" & i).ClearContents 清除数据ClearContents是清除单元格内容。

ZyggOIMA.rar (10.88 KB, 下载次数: 35)

xccom · 发表于 2006-4-6 09:52

谢谢兰老师,
真得非常清楚,而且这些所用的命令在第二讲出现了,真得如获至宝
谢谢您的耐心指导,无以回报...

whc780 · 发表于 2006-4-6 15:13

我来了

514646855 · 发表于 2006-4-7 01:25

表中的粘贴、替换和查找方法的代码好象蛮复杂的，能不能详细讲解一下，如

selection.find(what:="yy",after:=activecell,lookin:=xlformulas,lookat:=xlport,searcherder:=xlbyrows.....

..... 里面的 what,after,lookin等的作用，能不能讲解一下用法。

兰色幻想 · 发表于 2006-4-7 10:19

以下是引用[I]514646855[/I]在2006-4-7 1:25:00的发言：[BR]
表中的粘贴、替换和查找方法的代码好象蛮复杂的，能不能详细讲解一下，如
selection.find(what:="yy",after:=activecell,lookin:=xlformulas,lookat:=xlport,searcherder:=xlbyrows.....
..... 里面的 what,after,lookin等的作用，能不能讲解一下用法。

http://club.excelhome.net/dispbbs.asp?boardID=1&ID=153206&page=1&px=0

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

[分享] 带你入门VBA（2004第一期）