VBA入门之二《一夜暴富》

cgq0000 · 发表于 2006-10-11 23:46

VBA入门之一《与代码亲密接触》这个连接好像连接不上，兄弟，能不能再给以连接阿？我是刚学这个，谢谢！[em06]

raalyf · 发表于 2006-10-12 06:27

能不能做成电子书这么好看一点喔！谢谢！

山菊花 · 发表于 2006-10-12 14:17

QUOTE:

以下是引用cgq0000在2006-10-11 23:46:47的发言：
VBA入门之一《与代码亲密接触》这个连接好像连接不上，兄弟，能不能再给以连接阿？我是刚学这个，谢谢！[em06]

http://club.excelhome.net/viewthread.php?tid=182057&replyID=&skin=0

dlsky18 · 发表于 2006-10-12 23:00

非常感谢楼主！！！

ladhome · 发表于 2006-11-3 13:48

谢谢老师！

[em23][em24][em25][em27]

Long_III · 发表于 2006-11-3 13:52

不错！[em27]

yzjyen · 发表于 2006-11-3 14:38

好,跟着学习受益非浅!

lsj89404 · 发表于 2006-11-4 15:57

继续学习!有收获!

cmb67 · 发表于 2006-11-4 22:20

QUOTE:

以下是引用山菊花在2006-8-12 20:18:50的发言：
广告：

VBA入门之三《夏夜，我们看萤火虫》

5H57fWt8.rar (1.82 KB, 下载次数: 36)
山老师帮我看看错在那里,我照你的方法录制了一段宏,为什么不能把本日库存复制到上日库存,然后删除收付数会出现错误提示请指教.我的本日库存是上日库存+收-付得到的.

山菊花 · 发表于 2006-11-4 23:40

没有发现你录制的宏。发错文件了？

过程：

1、光标定位G4

2、录制新宏—确定—设置为“相对引用”模式。

3、复制—选择性粘贴

4、清除

5、结束录制

6、添加按钮

录制的宏：

QUOTE:

Sub Macro1()
'
' Macro1 Macro
' 宏由山菊花录制，时间: 2006-11-4
'

'
    Selection.Copy
    ActiveCell.Offset(0, -3).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveCell.Offset(0, 1).Range("A1:B1").Select
    Application.CutCopyMode = False
    Selection.ClearContents
End Sub

[此贴子已经被作者于2006-11-5 0:04:53编辑过]

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

VBA入门之二《一夜暴富》

本日库存复制为上日库存