人老了，无聊得很，做了一个考勤表，新增插入员工批注图片

YZC51 · 发表于 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

w8899 · 发表于 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 ...

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

w8899 · 发表于 2018-12-11 11:54

更新了一下，加入了序号。输入说明，

kuangben8 · 发表于 2018-12-11 12:03

制作的不错！感谢分享。

w8899 · 发表于 2018-12-11 14:13

有更新，制作了一个考勤表带上下午的

AnjinYim · 发表于 2018-12-11 14:18

学习了，多谢分享。。

w8899 · 发表于 2018-12-12 09:04

输入月份自动更新当月天数及星期，打考勤不用手动输入，直接右键显示考勤符号。我默默的发帖，同志们悄悄的下载。
更新了一下，增加窗体输入符号，导出保存，打印功能，为了懒到底，又更新了一下，年月都不用输了，只接点击就行。新增插入员工批注图片

YZC51 · 发表于 2018-12-12 12:42

本帖最后由 YZC51 于 2018-12-12 12:51 编辑

学习下，更新了

考勤表.rar (55.39 KB, 下载次数: 17)

YZC51 · 发表于 2018-12-12 12:52

楼上附件已经更新，请重新下载！

YZC51 · 发表于 2018-12-12 21:40

更新增加自动填充功能

考勤表-1.rar (60.74 KB, 下载次数: 18)

		自动登录	找回密码
密码			免费注册

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

评分