JEAN

帖子: 91
主題: 20
精華: 0
積分: 118
點名: 0
作業系統: WINDOWS
軟體版本: XP
閱讀權限: 20
性別: 女
註冊時間: 2011-11-30
最後登錄: 2016-1-14

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2012-10-19 10:41 | 只看該作者

文具系統

文具記錄2.rar (95.6 KB)
我改成用選擇的,不想用拉下式選擇。

樓主熱帖

JEAN

中學生 Rank: 2

帖子: 91
主題: 20
精華: 0
積分: 118
點名: 0
作業系統: WINDOWS
軟體版本: XP
閱讀權限: 20
性別: 女
註冊時間: 2011-11-30
最後登錄: 2016-1-14

20^#

發表於 2012-10-24 10:31 | 只看該作者

回復 19# GBKEE

可以了,謝謝您

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 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)
[領用單] 模組就一程式即可如下

Private Sub Worksheet_Change(ByVal Target As Range)
Dim xf As Range
Application.EnableEvents = False
If Target(1).Address(0, 0) = "B4" Then
If Target(1) = "" Then
Range("B3") = ""
Else
Set xf = [中文姓名].Find(Target(1), lookat:=xlWhole)
Range("B3") = xf.Offset(, -1)
End If
End If
Application.EnableEvents = True
End Sub

複製代碼

TOP

JEAN

中學生 Rank: 2

帖子: 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

超級版主 Rank: 8 Rank: 8

帖子: 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

中學生 Rank: 2

帖子: 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

超級版主 Rank: 8 Rank: 8

帖子: 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