怎麼抓取A資料表假日上班的日期與時間到B資料表的儲存格中 - Excel程式區

prince0413

　暱稱: 香澄

中學生 Rank: 2

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

21^# 跳轉到 »

發表於 2013-11-21 21:08 | 顯示全部帖子

回復 33# GBKEE

大大您好:

這是ROUND再2013的說明

我沒有您這麼專業，看不出哪裡不同之處呢

請大大指教

不會EXCALL的笨蛋

TOP

prince0413

　暱稱: 香澄

中學生 Rank: 2

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

22^#

發表於 2013-11-22 19:43 | 顯示全部帖子

回復 35# GBKEE

大大您好
我昨日有自己嘗試再後面的值改成 0 或 -1，結果都是一樣會有錯誤呢(如上圖)

Then 出勤單.Parent.PrintOut 1, Round(Print_x / 2 , 0)
Then 出勤單.Parent.PrintOut 1, Round(Print_x / 2 , -1)

不懂為甚麼會這樣呢，因為我看說明應該是會把算出來的0.5這值四捨五入變成1就可以符合列印標準才對
怎麼會有錯誤呢
請大大指教 ~"~

不會EXCALL的笨蛋

TOP

prince0413

　暱稱: 香澄

中學生 Rank: 2

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

23^#

發表於 2013-11-22 20:01 | 顯示全部帖子

If 出勤 <> "" Then '預防沒有 [全日,早,晚]的班別
Print_x = IIf(Print_x = 4, 1, Print_x + 1)
With 出勤單.Offset((Print_x - 1) * 14) '第 Print_x 的位置
.Range("A1") = Rng(2).Offset(, 1) '社員中文
.Range("C1") = Rng(2).Offset(, 2) '社員編號
.Cells(3, 0) = DateSerial(2013, 11, 日期) '日期
.Range("A3") = 出勤 '時間
.Range("C3") = IIf(日期.Offset(1) = "六", "(星期六)", "(星期日)") & "沙龍營業"
End With
End If
End If
i = i + 1
Loop
End If
Rng(1).Offset(, 1) = IIf(Rng(3) Is Nothing, "請檢查 : 假日出勤單 , 對照表找不到 ", "")
End With
Set Rng(1) = Rng(1).Offset(1) '下一位姓名
Loop
End Sub

複製代碼

回復 36# prince0413

大大您好:
謝謝您不厭其煩的幫我抓錯誤
我決定把後半段程式碼直接印出的方式改成用手動列印(如上方程式碼，只有把printout的指令拿掉)
執行巨集後在左方出勤單顯示出值，然後自行手動印出
請大大幫我看看是否有哪裡還沒有改到的
目前我執行值都有對應到

因為ROUND函數我怎麼努力看就是看不懂他錯誤是什麼意思~"~

請大大指教

不會EXCALL的笨蛋

TOP

prince0413

　暱稱: 香澄

中學生 Rank: 2

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

24^#

發表於 2013-11-22 20:19 | 顯示全部帖子

回復 37# GBKEE

大大您好:
照您的設定也是跟剛剛一樣的錯誤呢 ...

想不透明明已經將Print_x宣告改成Long ，下方Print_x / 2 , 0 也取整數了，怎麼還會出現錯誤呢~"~

不會EXCALL的笨蛋

TOP

prince0413

　暱稱: 香澄

中學生 Rank: 2

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

25^#

發表於 2013-11-22 21:21 | 顯示全部帖子

回復 40# GBKEE

大大您好

一點都不會浪費我的時間，您客氣了，我還要感謝您讓我了解這麼多呢!
不然沒有概念的我一定不知道怎麼看錯誤..
太棒了 ~ 程式已經OK了!! ^^
真的非常謝謝您
----------------------------------------------------------------------------------------------

Ex2.zip.zip (52.89 KB)
下次我也想用這個觀念做一份平日休假的表單(如附件)
但判斷的方法實在太複雜了，不知道能不能夠弄得出來

能否請大大指點一下(如果真的很複雜的話就不用麻煩大大了沒關係^^")

不會EXCALL的笨蛋

TOP

prince0413

　暱稱: 香澄

中學生 Rank: 2

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

26^#

發表於 2013-11-25 01:26 | 顯示全部帖子

回復 42# GBKEE

大大您好:
基本上只要把"11月"資料表中有休假的該儲存格對照到平日休假單裡即可，時間"上、下午"打算自行印出再用筆圈選，

注: 只要假日有上班，就有假可以排平日休，所以平日休假單是要表示該人用哪天的假日上班來休假的意思

1019出1026出 = 代表使用10/19半天+10/26半天加起來休一天
1019代休 = 代表使用10/19整天來休假
1012出.下半晚 = 簡單來說就是請半天假的意思。代表使用10/12半天來休假，下午則是繼續上晚班。(只要SHOW出10/12請假日期即可)
年 = 代表該人使用年假休假
下半年.上半早(晚) = 代表該人休半天假，下午用年假半天休假，有半天時段照常上班(早or晚)
上半年.下半早(晚) = 代表該人休半天假，上午用年假半天休假，有半天時段照常上班(早or晚)

早班時間:9:30~6:30
晚班時間:2:30~10:30

我明日會用圖解把各種狀況對應休假單表示出來給大大您了解

基本上單純只用一天假日上班換一天平日休假比較好理解(相當於直接對照儲存格過來而已)，但只要牽扯到上半天班的或有使用半天的假就比較難理解~"~

不會EXCALL的笨蛋

TOP

prince0413

　暱稱: 香澄

中學生 Rank: 2

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

27^#

發表於 2013-11-25 04:24 | 顯示全部帖子

Ex2.rar (50.88 KB) 回復 42# GBKEE

大大您好:
我把各種狀況用圖檔呈現給您了解
光解釋我就覺得很複雜了
不知道大大能不能理解

這次只需要能夠對照SHOW在資料表即可，不需要自動printout，改成自行手動列印。
附件裡我重新設計了10份請假單，因為可能該人一個月可能會休好幾天。
手動列印只要有幾份就選擇範圍列印幾頁。

姓名、社員編號、請假日期、天數、備考 → 只有這些格子需要用程式對照運算，"請假別"此欄位不須理會。

如果條件太複雜無法做也沒關係

不會EXCALL的笨蛋

TOP

prince0413

　暱稱: 香澄

中學生 Rank: 2

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

28^#

發表於 2013-11-29 20:44 | 顯示全部帖子

回復 42# GBKEE

大大您好:

真的非常不好意思又來麻煩您，因為目前出現小小的問題

關於假日出勤單的部分

12月份的班表發現假日出勤時間每個日期早晚班及全日出勤時間都不同(如圖一)，因此我不知道該怎麼修改程式上方的時間(如圖二)，想請問大大該怎麼修改呢?

如果都照樣KEYIN進去的話，發現"全日"和"全日(早)"都會重複名稱有錯誤~"~

請大大幫我看看

感恩麻煩您了~

假日出勤.jpg (15.32 KB)

假日出勤.jpg

出勤時間.jpg (52.76 KB)

假日出勤.jpg (15.32 KB)

假日出勤.jpg

出勤時間.jpg (52.76 KB)

不會EXCALL的笨蛋

TOP

prince0413

　暱稱: 香澄

中學生 Rank: 2

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

29^#

發表於 2013-12-1 13:10 | 顯示全部帖子

回復 46# GBKEE

休日出勤單12.zip (54.09 KB)

大大您好:

我有照您的程式碼貼上，但執行巨集後卻都沒有反應呢~(如附件)

請問我是哪裡設定錯誤嗎?

-------------------------------------------------------------------------

這次似乎程式碼變化許多，是抓資料的方式改變了嗎??

那麼之後每月更新時我需要變更哪裡呢? 這次的比較難看不太懂請大大指導~"~

不會EXCALL的笨蛋

TOP

prince0413

　暱稱: 香澄

中學生 Rank: 2

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

30^#

發表於 2013-12-1 13:58 | 顯示全部帖子

回復 46# GBKEE

大大您好 :

剛查詢程式，Option Explicit 的意思是在此程式裡所有定義都要明確宣告

可是下方出勤班別感覺不像有宣告的方式，是這個問題導致程式沒有反應嗎?

還是其實可以用這樣的寫法表達

不好意思我不太了解想說幫大大看一下

不會EXCALL的笨蛋

TOP

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

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

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