(2.29 KB, 下载次数: 60)
10:37 上传
下载次数: 60
如何用VBA语句实现表格中的复制？
猜你喜欢看
在线时间0 小时经验14074 威望19 性别女最后登录注册时间阅读权限50UID65202积分14624帖子精华3分享0
积分排行28帖子精华3微积分0
姓名年龄住址复诊以上数据每日或每个患者都用这个格式吗？
在线时间0 小时经验118 威望0 性别男最后登录注册时间阅读权限20UID51050积分118帖子精华0分享0
EH初级, 积分 118, 距离下一级还需 232 积分
积分排行3000+帖子精华0微积分0
不是，窗口被冻结的部分不需要，只是下面的要。格式都使用一样的。谢谢！
在线时间0 小时经验118 威望0 性别男最后登录注册时间阅读权限20UID51050积分118帖子精华0分享0
EH初级, 积分 118, 距离下一级还需 232 积分
积分排行3000+帖子精华0微积分0
plxmm还在吗，帮帮忙！！
在线时间698 小时经验13126 威望4 性别男最后登录注册时间阅读权限95UID40771积分13726帖子精华2分享0
积分排行36帖子精华2微积分0
录制一个宏，试试选择性粘帖的公式和格式啦
在线时间0 小时经验118 威望0 性别男最后登录注册时间阅读权限20UID51050积分118帖子精华0分享0
EH初级, 积分 118, 距离下一级还需 232 积分
积分排行3000+帖子精华0微积分0
录了，但是我要求是自动向下复制到整个表格中，不知如何实现。以一是我做的代码，可是不能实现向下复制的功能。Sub 矩形2_单击()
aa = Sheet1.Range("a65536").End(xlUp).Row
Range("A15:O18").Select
Selection.Copy
For i = 19 To aa
Range(i).Select
Selection.PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
在线时间698 小时经验13126 威望4 性别男最后登录注册时间阅读权限95UID40771积分13726帖子精华2分享0
积分排行36帖子精华2微积分0
aa = Sheet1.Range("a65536").End(xlUp).Row
Range("A15:O18").Select
Selection.Copy
For i = 19 To aa step 3
Range(i).Select
Selection.PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
End Sub这样试试
来生再续缘，和你共缠绵！
screen.width*0.7) {this.resized= this.width=screen.width*0.7; this.alt='Click here to open new window\nCTRL+Mouse wheel to zoom in/out';}" onmouseover="if(this.width>screen.width*0.7) {this.resized= this.width=screen.width*0.7; this.style.cursor='hand'; this.alt='Click here to open new window\nCTRL+Mouse wheel to zoom in/out';}" onclick="if(!this.resized) {} else {window.open('http://club.excelhome.net/showimg.asp?BoardID=101&filename=25.gif');}" onmousewheel="return imgzoom(this);" alt="" />
在线时间0 小时经验118 威望0 性别男最后登录注册时间阅读权限20UID51050积分118帖子精华0分享0
EH初级, 积分 118, 距离下一级还需 232 积分
积分排行3000+帖子精华0微积分0
帮帮忙!在线等待.
楼上的代码试过了，只能A15:O18区域被选，无法实现向下复制。请打开附件实践一下。多谢答复。
[此贴子已经被作者于 20:42:16编辑过]
在线时间698 小时经验13126 威望4 性别男最后登录注册时间阅读权限95UID40771积分13726帖子精华2分享0
积分排行36帖子精华2微积分0
试过可以的嘛Sub 椭圆2_单击()
aa = Sheet1.Range("a65536").End(xlUp).Row
Range("A15:O18").Select
Selection.Copy
For i = 19 To 100 Step 3
Range("A" & i).Select
Selection.PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
来生再续缘，和你共缠绵！
screen.width*0.7) {this.resized= this.width=screen.width*0.7; this.alt='Click here to open new window\nCTRL+Mouse wheel to zoom in/out';}" onmouseover="if(this.width>screen.width*0.7) {this.resized= this.width=screen.width*0.7; this.style.cursor='hand'; this.alt='Click here to open new window\nCTRL+Mouse wheel to zoom in/out';}" onclick="if(!this.resized) {} else {window.open('http://club.excelhome.net/showimg.asp?BoardID=101&filename=25.gif');}" onmousewheel="return imgzoom(this);" alt="" />
在线时间0 小时经验118 威望0 性别男最后登录注册时间阅读权限20UID51050积分118帖子精华0分享0
EH初级, 积分 118, 距离下一级还需 232 积分
积分排行3000+帖子精华0微积分0
这样可以了，谢谢。
积分≥4700即可申请
优秀会员奖章No.1
优秀会员奖章No.2
- 注意：自起，未完成邮箱认证的会员将无法发帖！如何完成邮箱认证？请点击下方“查看”。
关注我们，与您相约微信公众平台！
Copyright 1999 - 2017 Excel Home. All Rights Reserved.本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！
Powered by
本站特聘法律顾问：徐怀玉律师 李志群律师 &&Private Sub CommandButton6_Click()
Dim y1 As Integer, x1 As Integer
For x1 = 7 To 22 Step 1
If Range(&I& & x1) && && Then
&&Sheets(&发货单&).Select
& & For y1 = 9 To 43 Step 1
& && &If Range(&I& & y1 & &:& & &K& & y1) = && Then
& && &Range(&A& & y1 & &:& & &C& & y1).Select
& && &ActiveCell.FormulaR1C1 = &==订单!A& & x1
& && &GoTo fisht
& && &ElseIf Range(&I& & y1 & &:& & &K& & y1) && && Then
& && &End If
& & Next y1
在线时间3886 小时经验7168 威望0 最后登录注册时间阅读权限95UID354161积分7168帖子精华0分享0
积分排行111帖子精华0微积分0
发个附件上来
在线时间3886 小时经验7168 威望0 最后登录注册时间阅读权限95UID354161积分7168帖子精华0分享0
积分排行111帖子精华0微积分0
这句Range(&I& & y1 & &:& & &K& & y1) = &&
是不是有点问题？
在学习中感到自己的愚昧无知！
VBA交流,QQ:
在线时间4708 小时经验6284 威望5 最后登录注册时间阅读权限100UID377204积分7234帖子精华1分享18
管理以下版块
积分排行110帖子精华1微积分0
Private Sub CommandButton6_Click()
Dim y1 As Integer, x1 As Integer
For x1 = 7 To 22 Step 1
If Range(&I& & x1) && && Then
Sheets(&发货单&).Select
For y1 = 9 To 43 Step 1
If Range(&I& & y1 & &:& & &K& & y1) = && Then
Range(&A& & y1 & &:& & &C& & y1).Select
ActiveCell.FormulaR1C1 = &==订单!A& & x1
GoTo fisht
ElseIf Range(&I& & y1 & &:& & &K& & y1) && && Then
fisht:
End If
Next x1
End Sub复制代码
end if 和next x1换下位即可。因为这个错误我犯过，所以我知道。有时候有错误还是要自己慢慢琢磨，这样才深刻！
[ 本帖最后由 ctp_119 于
16:45 编辑 ]
本人提供vba有偿服务，有意愿可以Q我！
在线时间7 小时经验5 威望0 性别保密最后登录注册时间阅读权限10UID1441902积分9帖子精华0分享0
EH新人, 积分 9, 距离下一级还需 11 积分
积分排行3000+帖子精华0微积分0
但是出现类型不匹配 这个是什么原因呢？？
14:08 上传
下载次数: 16
136.29 KB, 下载次数: 16
积分≥4700即可申请
金牌优秀会员
金牌优秀会员奖章No.1
优秀会员奖章No.1
- 注意：自起，未完成邮箱认证的会员将无法发帖！如何完成邮箱认证？请点击下方“查看”。
关注我们，与您相约微信公众平台！
Copyright 1999 - 2017 Excel Home. All Rights Reserved.本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！
Powered by
本站特聘法律顾问：徐怀玉律师 李志群律师 &&问题见附件，谢谢高手赐教，不用函数。
[ 本帖最后由 vicky358 于
20:57 编辑 ]
20:53 上传
下载次数: 54
6.56 KB, 下载次数: 54
在线时间457 小时经验1761 威望1 性别保密最后登录注册时间阅读权限50UID1377005积分1811帖子精华0分享0
EH高级, 积分 1811, 距离下一级还需 189 积分
积分排行573帖子精华0微积分0
Public Sub ttt()
For i = 2 To 99
Select Case Cells(i, 1)
Case 0 To 300: Cells(i, 2) = 1
Case 3001 To 600: Cells(i, 2) = 2
Case 600 To 1000: Cells(i, 2) = 3
Case Is & 1000: Cells(i, 2) = 4
End Select
Next
End Sub复制代码
右边→评分→鲜花
在线时间62 小时经验76 威望0 性别保密最后登录注册时间阅读权限20UID1341676积分76帖子精华0分享0
EH初级, 积分 76, 距离下一级还需 274 积分
积分排行3000+帖子精华0微积分0
回复 2楼 白云2011 的帖子
谢谢，如果想把 For i=2 To 99 中的起点和终点用语句来写，比如：A列有很多行，不是99行，该怎么写呢？谢谢！
在线时间457 小时经验1761 威望1 性别保密最后登录注册时间阅读权限50UID1377005积分1811帖子精华0分享0
EH高级, 积分 1811, 距离下一级还需 189 积分
积分排行573帖子精华0微积分0
循环到列最后一个
Public Sub ttt()
For i = 2 To [a65536].End(3).Row
Select Case Cells(i, 1)
Case 0 To 300: Cells(i, 2) = 1
Case 3001 To 600: Cells(i, 2) = 2
Case 600 To 1000: Cells(i, 2) = 3
Case Is & 1000: Cells(i, 2) = 4
End Select
Next
End Sub复制代码
右边→评分→鲜花
在线时间126 小时经验95 威望0 性别保密最后登录注册时间阅读权限20UID1561405积分95帖子精华0分享0
EH初级, 积分 95, 距离下一级还需 255 积分
积分排行3000+帖子精华0微积分0
能看懂，但还得学习在循环语句里面在循环。
优秀会员奖章No.1
- 注意：自起，未完成邮箱认证的会员将无法发帖！如何完成邮箱认证？请点击下方“查看”。
关注我们，与您相约微信公众平台！
Copyright 1999 - 2017 Excel Home. All Rights Reserved.本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！
Powered by
本站特聘法律顾问：徐怀玉律师 李志群律师 &&查看: 1531|回复: 6
阅读权限7UID574390函数0 关最后登录经验1238 点在线时间349 小时VBA0 关分享记录好友技巧0 关相册主题段位0 段金币911 个积分1238精华0帖子日志注册时间
小学4年级, 积分 1238, 距离下一级还需 262 积分
金币911 个积分1238帖子
office的编程目前用VBA，未来会不会改用其它语言？
先不说会不会改用C++或java之类，先说会不会改用VB.net。
阅读权限20UID469663函数0 关最后登录经验9134 点在线时间825 小时VBA0 关分享记录好友技巧0 关相册主题段位0 段金币3063 个积分9139精华0帖子日志注册时间
硕士研究生, 积分 9139, 距离下一级还需 2861 积分
金币3063 个积分9139帖子
本帖最后由 long826121 于
14:51 编辑
我觉得会改用VB.net语言。
VBA已到达尽头。尽管它配备在Office中并为高级用户广泛使用，但它的发展已停滞不前。有朝一日会取代VBA，然而，目前它仍未受到足够的重视。甚至在MSDN上的专题空间已经关闭，仅保留相应博文。
这使得远离了那些基于Office的产品上进行.NET开发的编程人员。除了可嵌入到文档中去，VSTO项目还可以独立于Office。这使得他们可以编译成标准的DLL，通过OneClick或者标准的MSI包进行部署，并可以在多个文件之间进行共享。
多数高级用户并不想学习复杂的VB.NET或C#开发。类似的是，开发人员也不会重写他们公司所有的VBA资源，尤其是当前高级用户所维护的那部分。这意味着VSTO和VBA之间的互操作性在未来的几年变得至关重要。
正如Beth Massi解释的那样，整合VBA和VSTO有两种方式。最简单的就是使用应用程序在VSTO中调用VBA宏。因为该宏由函数名所限定，只有到运行时你才会知道，该宏是否丢失或者被误拼。
Beth Massi描述的第二种方法就是从VBA宏调用VSTO代码。在这之前，必须设置EnableVbaCallers属性，使得VSTO代码注册COM interopt。接着，你才可以使用GetManagedClass函数来访问VSTO方法和属性。
阅读权限7UID574390函数0 关最后登录经验1238 点在线时间349 小时VBA0 关分享记录好友技巧0 关相册主题段位0 段金币911 个积分1238精华0帖子日志注册时间
小学4年级, 积分 1238, 距离下一级还需 262 积分
金币911 个积分1238帖子
long826121 发表于
我觉得会改用VB.net语言。
VBA已到达尽头。尽管它配备在Office中并为高级用户广泛使用，但它的发展已停滞不 ...
从VB6.0 到VBnet，转变难吗？思路 语句 拼写……
阅读权限20UID469663函数0 关最后登录经验9134 点在线时间825 小时VBA0 关分享记录好友技巧0 关相册主题段位0 段金币3063 个积分9139精华0帖子日志注册时间
硕士研究生, 积分 9139, 距离下一级还需 2861 积分
金币3063 个积分9139帖子
本帖最后由 long826121 于
15:11 编辑
silenthunter 发表于
从VB6.0 到VBnet，转变难吗？思路 语句 拼写……
不是难不难的问题，而是VB6.0 到VBnet过渡、实用、且是否被更多人认同、接受、利用的问题。
这些语句不会自动升级，因此将标记有“(statement)isnotsupported”[（语句）不被支持]的升级错误。例如，以下代码：
　　a=VarPtr(b)
　　升级后将变为：
　　'UPGRADE_ISSUE:FunctionVarPtr()isnotsupported
　　a=VarPtr(b)
　　这也会导致编译错误。
　　文件I/O
　　Visual
　　Basic6.0语言中包括文件I/O语句。
　　VisualBasic.NET
　　通过类库使用文件I/O操作。从语言中删除文件I/O语句以便在VisualBasic.NET中使用不同的I/O库。假如语言中存在文件I/O语句，将会使代码更加累赘，标识符Open、Close、Print和Write将成为保留字。
阅读权限20UID94932函数0 关最后登录经验1605 点在线时间413 小时VBA0 关分享记录好友技巧0 关相册主题段位0 段金币2280 个积分1605精华1帖子日志注册时间
金币2280 个积分1605帖子
我觉得VBA会一直保存下去，同时会增强网络功能，2013增加了jsp的接口：
1、office是基于com的，而VB6是使用com最简易安全又不涉及底层的方. 其他语言几乎都会涉及到与com数据类型的对应关系，而VBA是完全兼容的。
2、新版OFFICE中的VBA支持64位指针类型
3、win8 新的运行时是基于com的，独立于.NET。
个人觉得学VBA最接近于office对象模型，是学office编程最好的方式。如果想学VSTO，建议先学好vba，熟悉office对象模型，这是最基本的。
至于VB.NET只是语法像VB6而已，数据类型完全是.NET的，个人觉得还不如去学C#，好书多，资料多
阅读权限3UID219829函数2 关最后登录经验267 点在线时间62 小时VBA0 关分享记录好友技巧0 关相册主题段位0 段金币99 个积分267精华0帖子日志注册时间
幼儿园大班, 积分 267, 距离下一级还需 33 积分
金币99 个积分267帖子
变化是必然的，但是不必要担心现在学的VBA没有用处，而去等待。。。BASIC语言从面向过程到面向对象，也是这样走过来的。
阅读权限4UID550041函数0 关最后登录经验368 点在线时间50 小时VBA0 关分享记录好友技巧0 关相册主题段位0 段金币379 个积分368精华0帖子日志注册时间
小学1年级, 积分 368, 距离下一级还需 232 积分
金币379 个积分368帖子
都是高手呀,很高深的说
站长推荐 /2
兰色幻想+小妖联合录制
excel函数初中高56集+VBA宏80集
excel数据透视表全套
excel终极技巧80集全套
excel十大旧习惯全套
高清视频教程
让你从excel菜鸟走向excel高手!
由兰色幻想+小妖录制，全套290集excel高清视频，包括108集技巧，98个常用函数、80集VBA宏编程等内容，你想学的这里都有。双12，全部视频限时5折优惠！
Powered by请教各位：&我在excel的A1单元格写进了当前系统时间，用range("A1")=time获得的系统时间，请问如何将这个获得的时间转换成文本型或者字符串型呢？先谢谢大家了
猜你喜欢看
在线时间1624 小时经验12800 威望22 性别男最后登录注册时间阅读权限50UID127116积分15950帖子精华1分享0
积分排行21帖子精华1微积分0
以下是引用xu-weige在 21:28:09的发言：请教各位：&我在excel的A1单元格写进了当前系统时间，用range("A1")=time获得的系统时间，请问如何将这个获得的时间转换成文本型或者字符串型呢？先谢谢大家了[a1] = Format(Time, "h时n分s秒")
在线时间0 小时经验101 威望0 性别女最后登录注册时间阅读权限20UID344891积分151帖子精华0分享0
EH初级, 积分 151, 距离下一级还需 199 积分
积分排行3000+帖子精华0微积分0
thank you！！
积分≥4700即可申请
优秀会员奖章No.1
优秀会员奖章No.2
- 注意：自起，未完成邮箱认证的会员将无法发帖！如何完成邮箱认证？请点击下方“查看”。
关注我们，与您相约微信公众平台！
Copyright 1999 - 2017 Excel Home. All Rights Reserved.本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！
Powered by
本站特聘法律顾问：徐怀玉律师 李志群律师 &&}