EXCEL格式工资管理系统升级到3.50版（完全免费，开放源代码）

tesslan · 发表于 2011-7-1 20:52

谢谢分享!!

liumen265 · 发表于 2011-7-2 13:13

多谢楼主了

蓝天云朵 · 发表于 2011-7-2 21:46

多谢楼主分享！

梦幻狮子 · 发表于 2011-7-5 17:44

非常感谢楼主分享，HOME真是棒，给我太多帮助了~~~

ugyun · 发表于 2011-8-1 12:18

在蓝桥老师的帮助下，实现了排序功能：

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) '双击A6单元格对序号列进行排序
  If Target.Count > 1 Then Exit Sub
  If Target.Address <> "$A$6" Then Exit Sub
  Dim Myr&
  Myr = [B65536].End(xlUp).Row
  Application.DisplayAlerts = False
  ActiveSheet.Unprotect "gzglxt"
  Range("A6:AG" & Myr).Sort Key1:=Range("A6"), Order1:=xlAscending, Header:=xlNo
  [A6].Select
  'ActiveSheet.Protect "gzglxt"
  Application.DisplayAlerts = True
End Sub

变形金刚2002 · 发表于 2011-8-17 16:10

谢谢楼主分享

lidz1977 · 发表于 2011-8-18 14:53

谢谢分享，真的很不错的工资系统。

12345meimei · 发表于 2011-8-19 22:19

下载学习学习，谢谢楼主！{:soso_e160:}

drgaon · 发表于 2011-8-20 09:51

很不错的东西，谢谢了。

广东码头 · 发表于 2011-8-25 11:36

我也下载了，谢谢。

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

[推荐] EXCEL格式工资管理系统升级到3.50版（完全免费，开放源代码）

回复 32楼 ahzll 的帖子