ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
300集Office 2010微视频教程 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 1825|回复: 15

[求助] 如何根据分店名称插入相应职工信息制作工资表?

[复制链接]

TA的精华主题

TA的得分主题

发表于 2019-3-19 20:10 | 显示全部楼层 |阅读模式
是这样的,因为公司本身是开药店的,除了总公司记账外,各个分店也需要进行简单记账,由于每家店的员工人数不统一,所以每次要制作好几张工资表,有没有简单的方式制成一个工作簿,可以囊括所有的分店信息?方便整理。。
要求:
1.在“工资表”的文本框里搜分店关键词可以直接弹出相应的选项进行选择;
2.根据填入的分店名称,直接在第5行开始插入相应的员工姓名(主要难点:因为每家分店员工人数在1至3人区间,插入的行数不统一),并且在编号栏自动生成编号。
表格信息见附件:

分店工资表.zip

12.94 KB, 下载次数: 3

TA的精华主题

TA的得分主题

发表于 2019-3-19 21:12 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
工资表除了职工信息外,基本工资和扣款信息在哪里获取?计提工资表中是所有人还是单独的?如果是所有人的那么“单位”一项怎么办?

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-3-19 21:46 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
计提工资表先不用管它,我现在是要选定公司后,姓名那一列能够自动生成分店的员工信息...

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-3-19 21:57 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
如图所示,就是我想要达到的效果。。
11.jpg

分店工资表.zip

51.67 KB, 下载次数: 2

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-3-20 10:39 | 显示全部楼层
本帖最后由 D调歌~ 于 2019-3-20 10:43 编辑
D调歌~ 发表于 2019-3-19 21:57
如图所示,就是我想要达到的效果。。

还有没有大神在线支招?难道只能引用函数?不过这样的话就得提前插入三个序列号,感觉输入一个姓名下面就多了两行空白,看着很别扭。。
微信截图_20190320104319.jpg

TA的精华主题

TA的得分主题

发表于 2019-3-20 12:44 | 显示全部楼层
本帖最后由 扑腾 于 2019-3-20 12:48 编辑
  1. <div class="blockcode"><blockquote>Private Sub Worksheet_Change(ByVal Target As Range)
  2.     r = Target.Row: c = Target.Column: k = 5
  3.     If Target.Address = "$B$2" Then
  4.     Range("a5:l7").ClearContents
  5.         With Sheets("职工表")
  6.             m = .[a:a].Find(Range("b2"), , , 1).Row
  7.             For n = 2 To .Cells(m, 1).End(xlToRight).Column
  8.                 Cells(k, 1) = k - 4
  9.                 Cells(k, 2) = .Cells(m, n)
  10.                 k = k + 1
  11.             Next
  12.         End With
  13.     Else
  14.         Exit Sub
  15.     End If
  16. End Sub
复制代码



分店工资表.rar

17.4 KB, 下载次数: 5

评分

1

查看全部评分

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-3-20 13:46 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助

厉害!!!基本是我想要的效果,但是如果能增加多一条自动增加行数及删队空白行的代码就更完美了。这样的话,我就可以不用预先保留三行用来填充姓名。。
微信截图_20190320134623.png

TA的精华主题

TA的得分主题

发表于 2019-3-20 15:05 | 显示全部楼层
分店工资表A.rar (17.54 KB, 下载次数: 5)

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-3-20 15:25 | 显示全部楼层
本帖最后由 D调歌~ 于 2019-3-20 15:27 编辑

大神,那个文本框大小跟合并单元格一样,要怎么设置属性?还有怎样把它设置成自动隐藏??
微信截图_20190320152600.png

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-3-20 15:32 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册

刚刚逐个店名搜了下,发现搜“汕尾”分店的没法填充员工信息,这是什么情况??
微信截图_20190320153048.png
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-3-29 21:00 , Processed in 0.057538 second(s), 14 queries , Gzip On, Redis On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表