作者da126061 (噜啦啦~)
看板Visual_Basic
标题[VBA ] 滑鼠移至下一行
时间Mon Nov 24 00:39:48 2008
各位大大好~
想请Excel的一个问题^^"
sheet1：
A
1 哈罗
2 大大们好
3 请教几个问题
4 希望可以找到解决方法^^
经过巨集设定後自动复制後，
sheet2：
A B C D
1 哈噜 大大们好 请教几个问题 希望可以找到解决方法 ←反白中
2 _ ←我想让栏位选取的位置
↑↑↑↑↑↑
以上，也是上网爬文之後所拼凑出来的~
那问题来了~
因为使用巨集自动复制完後，
sheet2 刚贴上的第一行会成反白的状态~
那我想把游标自动摆在 ＂Ａ２＂ 上，
而往後~sheet1所打完的资料，
一样用巨集复制到sheet2
(资料要累积，所以栏位不能一直设定在 ＂Range("A2").Select＂)
网路爬文找不到...
用我这颗头脑想了些＂A*＂、＂A++＂、＂A+＂...
都还是无法顺利的自动移栏...
拜请大大教导了m(_ _)m
==============================资料补充线==================================
Sub 建档()
Sheets("资料输入").Select
Range("L1:L22").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("累计资料").Select
ActiveCell.Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
#############################################################
Application.Wait (Now + TimeValue("0:00:02"))
Sheets("资料输入").Select
Range("C1:F1").Select
Application.CutCopyMode = False
End Sub
以上~
是我目前的程式码~
＃号代表的是要完成我文章目的的占位行^^"
再次谢谢m(_ _)m
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 61.217.154.34
1F：推 ClubT:Cells("i,j").Select i是列 j是行 试试看吧 11/24 11:58
2F：→ ClubT:更正 Cells(i,j).Select 11/24 11:59
3F：→ da126061:大大谢谢你的回应~不过这方法没有用耶>.<我贴上我目前的 11/24 17:30
4F：→ da126061:程式码给您看看好了^^" 11/24 17:30
※ 编辑: da126061 来自: 61.217.161.188 (11/24 17:34)