人大经济论坛 › 论坛 › 数据科学与人工智能 › 数据分析与数据科学 › Excel › 用一张总表加N张分表，在A栏输入款号，后面的等能实现自 ...

CDA数据分析研究院

商业数据分析与大数据领航教育品牌



经管云课堂

经管/金融/财会/社科/名师公开课



学术培训

Stata 空间计量 SSCI Python

贵宾：通行论坛特权+数据库权限
+案例库+下载特权 VIP：论坛特权+更多下载次数
+ccerdata数据库+更高阅读权限+……

12 下一页

发帖

楼主: x12689

3652 12

[问答] 用一张总表加N张分表，在A栏输入款号，后面的等能实现自动填写 [推广有奖]

0关注
0粉丝

小学生

92%

还不是VIP/贵宾

威望: 0 级
论坛币: 0 个
通用积分: 0
学术水平: 0 点
热心指数: 0 点
信用等级: 0 点
经验: 159 点
帖子: 14
精华: 0
在线时间: 6 小时
注册时间: 2010-8-9
最后登录: 2016-5-31

楼主

x12689 发表于 2014-11-13 00:59:17 |只看作者 |坛友微信交流群|倒序 |AI写论文

相似文件

换一批

是否 +2 论坛币

k人参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

   在同一个文档里面用一张总表加N张分表（总表+151170），在A栏输入款号，后面的款式/件数/加工厂等能实现自动填写，但是才做了5张表，保存的时候会等待很长时间，这样如果搞几十个表，那不是很麻烦？超链接总表与分表也都能返回。

   所以麻烦各位大侠：在同一个文件夹里面用一张总表加N张分表（总表+1511302+1510204），只要在A栏输入款号，后面就能实现自动填写，帮帮忙！！谢谢！！路径就用下面的。超链接总表与分表也都不能返回（用=HYPERLINK('C:\Documents and Settings\Administrator\桌面\求教\[1510204.xlsx]1510204'!$G$1,"分表"这个也不行)。

   另外还有一个自动插入图片的想法不知道是否可行？具体想法请看1511302/1510204这两个分表。就是以分表里G1的款号名为依据，在一个固定单元格自动插入图片文件夹里面同名的图片

扫码加我拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：documents HYPERLINK Settings Document setting Documents 超链接文件夹加工厂

相关帖子

求教.rar

62.49 KB

使用道具举报

沙发

x12689 发表于 2014-11-13 15:10:14 |只看作者 |坛友微信交流群

高手呢？？

使用道具举报

藤椅

芐雨 发表于 2014-11-14 07:18:52 |只看作者 |坛友微信交流群

问题1：如上图，写下代码就行了。

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range, myPath$
Set rng = Target(1)
myPath = ThisWorkbook.Path & "\"
On Error GoTo ABC
If rng.Column = 1 And rng <> "" Then
If Dir(myPath & rng & ".xlsx") <> "" Then
ActiveSheet.Hyperlinks.Add Anchor:=rng.Offset(0, 1), Address:=rng & ".xlsx", _
TextToDisplay:="分表"
s = "='" & myPath & "[" & rng & ".xlsx]" & rng & "'!"
rng.Offset(0, 2).Formula = s & "G2"
rng.Offset(0, 3).Formula = s & "I3"
rng.Offset(0, 4).Formula = s & "C3"
End If
End If
ABC:
End Sub

复制代码

问题2：这个是添加图片

Sub Pc()
ActiveSheet.Shapes.AddPicture ThisWorkbook.Path & "\图片\" & Range("G1") & ".jpg", True, True, 30, 10, 300, 225
End Sub

复制代码

使用道具举报

板凳

芐雨 发表于 2014-11-14 07:20:54 |只看作者 |坛友微信交流群

求教.zip (77.11 KB) 本附件包括：
1510204.xlsx
1511302.xlsx
1511701.xlsx
总表.xlsm

使用道具举报

报纸

x12689 发表于 2014-11-14 08:33:57 |只看作者 |坛友微信交流群

谢谢！！学习中！！

使用道具举报

地板

x12689 发表于 2014-11-15 08:00:11 |只看作者 |坛友微信交流群

芐雨发表于 2014-11-14 07:20

谢谢！已经试过了，我想请问一下，可不可以把这个设置成在款号一栏没有信息的时候，其它栏相应也没有信息？

使用道具举报

7楼

x12689 发表于 2014-11-17 08:13:03 |只看作者 |坛友微信交流群

芐雨发表于 2014-11-14 07:20

Option Explicit
Sub 宏2()
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="1511302.xlsx", _
TextToDisplay:="分表"
End Sub
这个是针对找一个款的？我下拉后都是返回同一个的，是否要每一个都重新修改一次，还是改一下上面Address:="1511302.xlsx", _

？？

使用道具举报