有一个工资表，想做个查询表。当有重名的时候怎么解决。

jasonbao · 发表于 2012-7-13 16:22

有一个工资表，想做个查询表。当有员工重名的时候怎么解决。
请看附件。

工资表.rar (4.89 KB, 下载次数: 149)

skyzxh · 发表于 2012-7-13 16:43

给员工编个工号

chen7806 · 发表于 2012-7-13 16:46

你说怎么办？一般性是按工号查询的，不会有重复的，你们公司没设工号，为了减少重复机会，分车间和姓名查询，但根本上没有解决重复的问题。

jasonbao · 发表于 2012-7-13 17:05

是的，要有员工编号才比较方便。
但关键的是现在没有员工编号。
分车间也是麻烦。
那现在的问题是，到底有没有办法把所有的都显示出来呢？

xbl7966 · 发表于 2012-7-13 17:33

只须在"工资查询"表中输入员工姓名就行了，不需设置任何公式。

jasonbao · 发表于 2012-7-13 20:12

本帖最后由 jasonbao 于 2012-7-13 20:18 编辑

xbl7966 发表于 2012-7-13 17:33
只须在"工资查询"表中输入员工姓名就行了，不需设置任何公式。

你太神奇了，请教你是如何做到的？我怎么看不到任何公式？
好像是用宏的，请分享一下。

xbl7966 · 发表于 2012-7-13 20:33

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("A6:H8").ClearContents
With Sheets("7月份工资明细表")
K = 5
For I = 2 To 50
If .Cells(I, 2) = Range("C3") Then
K = K + 1
Cells(K, 1) = .Cells(I, 1)
Cells(K, 2) = .Cells(I, 2)
Cells(K, 3) = .Cells(I, 3)
Cells(K, 4) = .Cells(I, 4)
Cells(K, 5) = .Cells(I, 5)
Cells(K, 6) = .Cells(I, 6)
Cells(K, 7) = .Cells(I, 7)
Cells(K, 8) = .Cells(I, 8)
End If
Next
End With
End Sub

jasonbao · 发表于 2012-7-13 22:00

本帖最后由 jasonbao 于 2012-7-13 22:06 编辑

xbl7966 发表于 2012-7-13 20:33
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("A6:H8").ClearContents
With She ...

嗯，你这个代码我刚才在VBA里看到了，但不知道每一句分别是什么意思？
而且我如果有好多个月份的怎么办呢？比如像附件。

工资表.rar (10.41 KB, 下载次数: 36)

xbl7966 · 发表于 2012-7-14 00:59

替你做了一定修改，看看是否适合你需要？

梁静-猫猫-lily · 发表于 2012-7-27 18:48

xbl7966 发表于 2012-7-13 20:33
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("A6:H8").ClearContents
With She ...

虽然不是看得很懂,但可以知道是高手啊,可不可以帮我解决一下问题.

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