ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

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

[原创] 人老了,无聊得很,做了一个考勤表,新增插入员工批注图片

[复制链接]

TA的精华主题

TA的得分主题

发表于 2018-12-10 20:07 | 显示全部楼层
或者
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Or Target.Row < 5 Then ListBox1.Visible = False: Exit Sub
If Intersect(Target, Range("c:ag")) Is Nothing Then ListBox1.Visible = False: Exit Sub
With ListBox1
'    .Clear
    .Top = Target.Top + Target.Height - Target.Height * Target.Row / 5
    .Left = Target.Left + Target.Width
    .BackColor = 15261110
    .Font.Size = 12
'    .TextAlign = fmTextAlignCenter
    .TextAlign = fmTextAlignLeft
    .Width = 75
    .Height = 98
    .List = Array("√ 出勤", "♀ 事假", "× 旷工", "♂ 病假", "◇ 休假", "¤ 迟到", "◎ 早退")
    .Visible = True
End With
End Sub

TA的精华主题

TA的得分主题

 楼主| 发表于 2018-12-10 20:56 | 显示全部楼层
YZC51 发表于 2018-12-10 20:04
修改下
Private Sub ListBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As S ...

这个更不对,那代码是输入完后自动激活到下一个单元格

TA的精华主题

TA的得分主题

 楼主| 发表于 2018-12-11 11:54 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2018-12-11 12:03 | 显示全部楼层

TA的精华主题

TA的得分主题

 楼主| 发表于 2018-12-11 14:13 | 显示全部楼层
有更新,制作了一个考勤表带上下午的

TA的精华主题

TA的得分主题

发表于 2018-12-11 14:18 | 显示全部楼层

TA的精华主题

TA的得分主题

 楼主| 发表于 2018-12-12 09:04 | 显示全部楼层
输入 月份自动 更新当月 天数及星期,打考勤不用手动输入,直接右键显示考勤符号。我默默的发帖,同志们悄悄的下载。
更新了一下,增加窗体输入符号,导出保存,打印功能,为了懒到底,又更新了一下,年月都 不用输了,只接点击就行。新增插入员工批注图片
捕获.PNG

考勤表.part1.rar

1.5 MB, 下载次数: 14

考勤表.part2.rar

935.29 KB, 下载次数: 12

TA的精华主题

TA的得分主题

发表于 2018-12-12 12:42 | 显示全部楼层
本帖最后由 YZC51 于 2018-12-12 12:51 编辑

学习下,更新了
考勤表.rar (55.39 KB, 下载次数: 15)

TA的精华主题

TA的得分主题

发表于 2018-12-12 12:52 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2018-12-12 21:40 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
更新增加自动填充功能
考勤表-1.rar (60.74 KB, 下载次数: 15)

评分

1

查看全部评分

您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

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

GMT+8, 2024-3-28 21:20 , Processed in 0.064539 second(s), 8 queries , Gzip On, Redis On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

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

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

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