帖子: 835
主題: 6
精華: 0
積分: 915
點名: 16
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2024-11-14

11^# 跳轉到 »

發表於 2013-11-15 22:50 | 只看該作者

本帖最後由 luhpro 於 2013-11-15 22:51 編輯

回復 luhpro
這是我有針對"11月"資料表稍為修改後的檔案(新增假日有分早晚班及全日班)
但是貼您的程式執行後出來的日期並不是該人假日上班的日期呢
請問我是哪裡有設定錯誤嗎?!prince0413 發表於 2013-11-15 14:51

請參閱上方 4# 內有說明 :
抓的是如該篇文內下方圖中 Mark 起來的6個儲存格中的資料(即本月假日出勤時段那個表格, 因為只有那個表有時間資料),
並沒有參考上方的表中的資料.

若你想要套用至多人,
建議你把本月假日出勤時段那個表格放到最上面,(若你不希望變更位置, 那我將會改採最後一列資料的相對位置來抓取此表格<會較容易出錯>)
然後 Princey 資料那一列的下方再新增至少一個人的資料,
這樣做出來的程式才容易符合你的需求,
請先依上述調整一下該 Sheet 內容後再上傳檔案,
不然之後程式做好了照樣還是要再改一次.

開題時若提出的範例能儘量符合實際需求,
這樣幫忙的人會比較快做出你要的東西,
如本串的例子,
只抓上表或只抓下表, 亦或是兩表都抓,
做出來的程式是可能會有很大的不同的喔.

TOP

prince0413

　暱稱: 香澄

中學生 Rank: 2

帖子: 108
主題: 23
精華: 0
積分: 140
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2003
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2013-11-2
最後登錄: 2019-12-31

12^#

發表於 2013-11-16 19:24 | 只看該作者

回復 11# luhpro

了解~我會將完整檔修正後po上來
再完整重新敘述需求的~

因為一開始我只show出我自己的班表想藉由大大的教學程式碼理解
然後在把所有人的班表也加進來該月份裡    將所學的程式碼當範本套用在很多人身上
但這樣好像造成反效果    反而自己看不懂也麻煩到大大您一直修改來修改去了

我這幾天會把所有人的班表key in整理好    再傳上來~
到時候麻煩您教學了

真不好意思    一直麻煩您

不會EXCALL的笨蛋

TOP

prince0413

　暱稱: 香澄

中學生 Rank: 2

帖子: 108
主題: 23
精華: 0
積分: 140
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2003
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2013-11-2
最後登錄: 2019-12-31

13^#

發表於 2013-11-19 14:14 | 只看該作者

請假&出勤申請單(上傳用).zip.zip (48.27 KB) 回復 11# luhpro

大大您好:
這是我整理出完整的班表

目的:
在"假日出勤單"內 J2 儲存格下方輸入人名後，旁邊休日出勤單會自動抓取該人"11月"資料表全部的假日上班日期與時間
紅字部分內是要抓取的資料

請問這樣我該怎麼寫程式呢

請大大指導

不會EXCALL的笨蛋

TOP

prince0413

　暱稱: 香澄

中學生 Rank: 2

帖子: 108
主題: 23
精華: 0
積分: 140
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2003
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2013-11-2
最後登錄: 2019-12-31

14^# 倒序看帖

打印

字體大小: tT

發表於 2013-11-19 14:19 | 只看該作者

[發問] 怎麼抓取A資料表假日上班的日期與時間到B資料表的儲存格中

請假&出勤申請單(上傳用).zip.zip (48.27 KB)
大大們您好:

目的:
在"假日出勤單"內 J2 儲存格下方輸入人名後，旁邊休日出勤單會自動抓取該人"11月"資料表全部的假日上班日期與時間
紅字部分內是要抓取的資料

請問這樣我該怎麼寫程式呢

請大大們指導

感恩

(如檔案格式怪怪的請再副檔名後加入.ZIP)

不會EXCALL的笨蛋

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^#

發表於 2013-11-19 15:57 | 只看該作者

回復 14# prince0413
試試看

Const 早 = "10:00~18:00"
Const 全日 = "10:30~18:30"
Const 晚 = "11:00~19:00"
Sub Ex()
Dim Rng(1 To 2) As Range, i As Integer, 出勤 As String
Sheets("假日出勤單").PageSetup.PrintArea = "A1:H13" '一頁就夠了
Set Rng(1) = Sheets("假日出勤單").Range("J2") '設定姓名
Do While Rng(1) <> "" '執行迴圈的條件:姓名<>""
With Sheets("11月")
Set Rng(2) = .Range("B:B").Find(Rng(1), LOOKAT:=xlWhole)
If Not Rng(2) Is Nothing Then
i = 3 '第3欄 :C
Do While IsNumeric(.Cells(4, i)) '執行迴圈的條件:第4列是數字
If .Cells(5, i) = "六" Or .Cells(5, i) = "日" Then
出勤 = "" '歸零
If .Cells(Rng(2).Row, i) Like "*早*" Then
出勤 = 早
ElseIf .Cells(Rng(2).Row, i) Like "*晚*" Then
出勤 = 晚
ElseIf .Cells(Rng(2).Row, i) Like "*全日*" Then
出勤 = 全日
End If
If 出勤 <> "" Then
Sheets("假日出勤單").Range("B3") = Rng(1) '姓名
Sheets("假日出勤單").Range("D3") = Rng(2).Offset(, -1) '社員編號
Sheets("假日出勤單").Range("A5") = DateSerial(2013, 11, .Cells(4, i)) '日期
Sheets("假日出勤單").Range("B5") = 出勤 '時間
Sheets("假日出勤單").Range("D5") = IIf(.Cells(4, i) = "六", "(星期六)", "(星期日)") & "沙龍營業"
Sheets("假日出勤單").PrintOut '印列出勤單
End If
End If
i = i + 1
Loop
End If
End With
Set Rng(1) = Rng(1).Offset(1) '下一位姓名
Loop
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

prince0413

　暱稱: 香澄

中學生 Rank: 2

帖子: 108
主題: 23
精華: 0
積分: 140
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2003
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2013-11-2
最後登錄: 2019-12-31

16^#

發表於 2013-11-19 16:45 | 只看該作者

本帖最後由 GBKEE 於 2013-11-19 17:11 編輯

Ex.zip.zip (49.98 KB) 回復 15# GBKEE

大大您好

我剛貼您的程式進去"Ex"巨集裡
但在"假日出勤單"資料表J2儲存格輸入"英文姓名"後卻沒有反應呢

ps:我忽略姓名中英文對照了(假日出勤單是要轉換成中文姓名)，已在下方補上，請大大再幫我看看是否我忽略了甚麼~

Abby 丁X芸
Masumi 吳X錚
Jessica 林X燕
Hitomi 林X婷
Jason 許X豪
Red 陳X呈
Lynn 戴X伶
Prince 許X強
Edge 蘇X祐
Joyce 侯X雯
Jack 黃X傑

不會EXCALL的笨蛋

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^#

發表於 2013-11-19 17:10 | 只看該作者

回復 16# prince0413
中英文對照表,請放在工作表好對照(注意個人資料),弄好後上傳檔案,我再看看.

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

prince0413

　暱稱: 香澄

中學生 Rank: 2

帖子: 108
主題: 23
精華: 0
積分: 140
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2003
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2013-11-2
最後登錄: 2019-12-31

18^#

發表於 2013-11-19 18:36 | 只看該作者

Ex.zip.zip (48.05 KB) 回復 17# GBKEE

大大您好

附件為加入中英姓名對照資料表，以及在"Ex"巨集貼入您的程式後的結果

請您再指教一下

感恩

不會EXCALL的笨蛋

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^#

發表於 2013-11-19 19:45 | 只看該作者

回復 18# prince0413

Const 早 = "10:00~18:00"
Const 全日 = "10:30~18:30"
Const 晚 = "11:00~19:00"
Sub Ex()
Dim Rng(1 To 2) As Range, i As Integer, 出勤 As String, M As Variant
Sheets("假日出勤單").PageSetup.PrintArea = "A1:H13" '一頁就夠了
Set Rng(1) = Sheets("假日出勤單").Range("J2") '設定姓名
Do While Rng(1) <> "" '執行迴圈的條件:姓名<>""
With Sheets("11月")
Set Rng(2) = .Range("B:B").Find(Rng(1), LOOKAT:=xlWhole)
M = Application.Match(Rng(1), Sheets("中英文姓名對照表").Range("A:A"), 0) 'Match : 工作表函數
If IsError(M) Then MsgBox "中英文姓名對照表中沒有 : " & Rng(1): Exit Sub
If Not Rng(2) Is Nothing Then
i = 3 '第3欄 :C
Do While IsNumeric(.Cells(4, i)) '執行迴圈的條件:第4列是數字
If .Cells(5, i) = "六" Or .Cells(5, i) = "日" Then
出勤 = "" '歸零
If .Cells(Rng(2).Row, i) Like "*早*" Then
出勤 = 早
ElseIf .Cells(Rng(2).Row, i) Like "*晚*" Then
出勤 = 晚
ElseIf .Cells(Rng(2).Row, i) Like "*全日*" Then
出勤 = 全日
End If
If 出勤 <> "" Then
Sheets("假日出勤單").Range("B3") = Sheets("中英文姓名對照表").Cells(M, "B") '姓名: 對照出在B欄的 M列
Sheets("假日出勤單").Range("D3") = Rng(2).Offset(, -1) '社員編號
Sheets("假日出勤單").Range("A5") = DateSerial(2013, 11, .Cells(4, i)) '日期
Sheets("假日出勤單").Range("B5") = 出勤 '時間
Sheets("假日出勤單").Range("D5") = IIf(.Cells(4, i) = "六", "(星期六)", "(星期日)") & "沙龍營業"
Sheets("假日出勤單").PrintOut '印列出勤單
End If
End If
i = i + 1
Loop
End If
End With
Set Rng(1) = Rng(1).Offset(1) '下一位姓名
Loop
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

prince0413

　暱稱: 香澄

中學生 Rank: 2

帖子: 108
主題: 23
精華: 0
積分: 140
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2003
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2013-11-2
最後登錄: 2019-12-31

20^#

發表於 2013-11-19 20:13 | 只看該作者

回復 19# GBKEE

大大您好

我剛貼您的程式進去巨集後，再J2儲存格輸入英文姓名都沒有反應呢
怎麼會這樣呢?

-------------------------------------------------------------------------------
疑問1:
Sheets("假日出勤單").PageSetup.PrintArea = "A1:H13" '一頁就夠了

上面程式碼請問大大這甚麼意思呢，照道理說一個人一個月至少會有很多天假日出勤單，代表不只會有一份而以，但大大為什麼範圍只抓"A1:H13"一張而已呢?

不好意思，一直請教您問題~
麻煩了

不會EXCALL的笨蛋

TOP

[發問] 怎麼抓取A資料表假日上班的日期與時間到B資料表的儲存格中

[發問] 怎麼抓取A資料表假日上班的日期與時間到B資料表的儲存格中

[收藏此主題] [關注此主題的新回復]

[通過 QQ、MSN 分享給朋友]