12
返回列表 上一主題 發帖

文具系統

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
11# 跳轉到 »
發表於 2012-10-22 12:26 | 只看該作者
回復 10# JEAN
沒錯 程式碼 置[領用單]模組
資料沒完整

     


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

TOP

sheau-lan

帖子
96 
主題
24 
精華
0 
積分
149 
點名
0  
作業系統
WINDOWES 
軟體版本
OFFICE 
閱讀權限
20 
性別
女 
註冊時間
2011-10-11 
最後登錄
2018-9-25 
12#
發表於 2012-10-22 18:37 | 只看該作者
就是再設同一個檔案裡設一個工作表..查詢的功能
例如附件

庫存管理-求救.rar (87.46 KB)

TOP

JEAN

帖子
91 
主題
20 
精華
0 
積分
118 
點名
0  
作業系統
WINDOWS 
軟體版本
XP 
閱讀權限
20 
性別
女 
註冊時間
2011-11-30 
最後登錄
2016-1-14 
13#
發表於 2012-10-23 09:14 | 只看該作者
回復 11# GBKEE

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

TOP

JEAN

帖子
91 
主題
20 
精華
0 
積分
118 
點名
0  
作業系統
WINDOWS 
軟體版本
XP 
閱讀權限
20 
性別
女 
註冊時間
2011-11-30 
最後登錄
2016-1-14 
14#
發表於 2012-10-23 09:14 | 只看該作者
回復 12# sheau-lan


   不懂你的意恩

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
15#
發表於 2012-10-23 10:08 | 只看該作者
回復 13# JEAN
6# 的程式碼 概念  B4的驗證清單 : 僅是B3選擇部門的人員,並非是全部的人員清單

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

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

TOP

JEAN

帖子
91 
主題
20 
精華
0 
積分
118 
點名
0  
作業系統
WINDOWS 
軟體版本
XP 
閱讀權限
20 
性別
女 
註冊時間
2011-11-30 
最後登錄
2016-1-14 
16#
發表於 2012-10-23 15:35 | 只看該作者
回復 15# GBKEE

文具.rar (265.85 KB)
    這個是我用出來的圖片,請你幫我看一下,我用的對不對

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
17#
發表於 2012-10-23 15:54 | 只看該作者
回復 16# JEAN
人員名單須是連續不可中斷的

TOP

JEAN

帖子
91 
主題
20 
精華
0 
積分
118 
點名
0  
作業系統
WINDOWS 
軟體版本
XP 
閱讀權限
20 
性別
女 
註冊時間
2011-11-30 
最後登錄
2016-1-14 
18#
發表於 2012-10-23 16:20 | 只看該作者
回復 17# GBKEE


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

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

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
19#
發表於 2012-10-23 21:03 | 只看該作者
回復 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
複製代碼

TOP

JEAN

帖子
91 
主題
20 
精華
0 
積分
118 
點名
0  
作業系統
WINDOWS 
軟體版本
XP 
閱讀權限
20 
性別
女 
註冊時間
2011-11-30 
最後登錄
2016-1-14 
20#
發表於 2012-10-24 10:31 | 只看該作者
回復 19# GBKEE


可以了,謝謝您

TOP

        靜思自在 : 做該做的事是智慧，做不該做的事是愚癡。
12
返回列表 上一主題