作者airhong (艾尔洪斯)
看板Office
标题[算表] VBA插入新行输入内容
时间Sat May 19 16:37:19 2018
软体:Excel
版本:2013
各位前辈好
小弟目前整理资料已经用VBA超连结将分页汇入活页簿了
现在想再多做一个动作 新增一栏在资料最前面并填上资料名称
如下图所示
https://imgur.com/a/Z0f6ADv
Sub 测试()
'
' 测试 巨集
'
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
ActiveCell.Value, TextToDisplay:=ActiveCell.Value
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
Sheets("物料主档").Select
Sheets("物料主档").Copy Before:=Workbooks("物料主档.xlsm").Sheets(1)
'
End Sub
Sub 机种()
'
' 机种 巨集
'
'
Columns("A:A").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Range("A6").Select
ActiveCell.FormulaR1C1 = "机种"
Range("A7").SelectD
ActiveCell.FormulaR1C1 = "=Source!R[-6]C"
Range("A7").Select
Selection.Cut
Application.CutCopyMode = False
Selection.Copy
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
ActiveCell.Replace What:="Camerlation_Rule_", Replacement:="",
LookAt:=xlPart _
, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Cells.Find(What:="Camerlation_Rule_", After:=ActiveCell,
LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, MatchByte:=False, SearchFormat:=False).Activate
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("A7:A240")
Range("A7:A240").Select
End Sub
请问要怎麽做才能让他自动抓Source分页中的名称?
并且在做下一笔时可以自动抓下一笔?
目前想应该是上面标红色部分要做修改 但不知道怎麽改...
请各位前辈指点 谢谢
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 114.46.211.121
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Office/M.1526719043.A.DA3.html
※ 编辑: airhong (114.46.211.121), 05/19/2018 16:38:23
1F：→ soyoso: 档案的工作表内连结笔数固定吗？ 05/19 17:04
2F：→ soyoso: 如果是的回圈於工作表source，a栏有资料内，以完整路径[档 05/19 17:05
3F：→ soyoso: 名(a栏资料)]工作表名'!储存格的方式 05/19 17:06
4F：→ soyoso: 连结上以&，写法如"='d:\[" & range("a" & 变数名) & "]工 05/19 17:08
5F：→ soyoso: 作表名'!a1" 05/19 17:09
6F：→ soyoso: 再以该储存格range.autofill，destination方面可 05/19 17:10
7F：→ soyoso: range.offset和resize来调整 05/19 17:10
8F：→ soyoso: 笔数不固定的话，可以某一储存格以"=counta('d:\[" & 05/19 17:13
9F：→ soyoso: range("a" & 变数名) & "]工作表名'!a:a)" 来取得笔数 05/19 17:14
10F：→ soyoso: 再以该笔数用於range.autofill destination後的范围大小 05/19 17:15
※ 编辑: airhong (114.46.211.121), 05/19/2018 17:49:45
※ 编辑: airhong (114.46.211.121), 05/19/2018 17:51:49
※ 编辑: airhong (114.46.211.121), 05/19/2018 17:52:39
11F：→ airhong: 研究好久 终於可以 感谢soyo大大 05/19 21:55