GBKEE

回復 10# JEAN
沒錯 程式碼 置[領用單]模組
資料沒完整

     

下載 (36.61 KB)

2012-10-22 12:22

PS 回文時  請按 [回覆] 按鈕  答覆你的人才會得到通知, 這是基本的禮貌

sheau-lan

就是再設同一個檔案裡設一個工作表..查詢的功能
例如附件

JEAN

回復 11# GBKEE

裡面的人員資料,只要看C欄和E欄位，前面的部門和員工編號不要管他。我不敢刪除怕會去動到其他的表格
你說資料不完整,.是因為不用能實名 所以我用其他的名字替代。

JEAN

回復 12# sheau-lan


   不懂你的意恩

GBKEE

回復 13# JEAN
6# 的程式碼 概念  B4的驗證清單 : 僅是B3選擇部門的人員,並非是全部的人員清單

當進入[領用單]時, 設立(部門) B3的驗證清單,為 Sheets("人員資料").[E2]....[E?] 的範圍

[領用單] B3 有改變-> 重新設立(人員)  B4的驗證清單
為 Sheets("人員資料").[A:A] =B3(部門)範圍,Sheets("人員資料").[C:C] 的名單

JEAN

回復 15# GBKEE

文具.rar (265.85 KB)

圖片
下載次數: 6

2012-10-23 15:32

    這個是我用出來的圖片,請你幫我看一下,我用的對不對

GBKEE

回復 16# JEAN
人員名單須是連續不可中斷的

JEAN

回復 17# GBKEE


    文具記錄-改過的.rar (94.67 KB)

下載次數: 21

2012-10-23 16:18

第一．請問可不可以用申請人名字,來選擇部門。
第二．他不會自己變

GBKEE

回復 18# JEAN
修改定義名稱公式 :中文姓名
=OFFSET(人員資料!$B$3,0,0,COUNTA(人員資料!$B$3:$B$65535),1)
[領用單] 模組就一程式即可如下

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     Dim xf As Range
   
3.     Application.EnableEvents = False
   
4.     If Target(1).Address(0, 0) = "B4" Then
   
5.         If Target(1) = "" Then
   
6.             Range("B3") = ""
   
7.         Else
   
8.             Set xf = [中文姓名].Find(Target(1), lookat:=xlWhole)
   
9.             Range("B3") = xf.Offset(, -1)            
   
10.         End If
    
11.     End If
    
12.     Application.EnableEvents = True
    
13. End Sub

複製代碼

JEAN

回復 19# GBKEE


可以了,謝謝您