返回列表 上一主題 發帖

工作天及日曆天的累計

pai1

帖子
20 
主題
7 
精華
0 
積分
84 
點名
0  
作業系統
VISTA 
軟體版本
WINDOW2003 
閱讀權限
20 
性別
男 
來自
埔里 
註冊時間
2011-1-12 
最後登錄
2016-4-9 

論壇贊助勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2011-2-8 23:52 | 只看該作者

工作天及日曆天的累計

workday.rar (22.09 KB)
收藏 分享

hugh0620
　暱稱: VBA向前衝

高中生Rank: 3Rank: 3

帖子
559 
主題
58 
精華
0 
積分
626 
點名
0  
作業系統
win8 
軟體版本
office2013 
閱讀權限
50 
性別
男 
來自
TW 
註冊時間
2010-11-22 
最後登錄
2024-6-14 
2#
發表於 2011-2-9 09:31 | 只看該作者
本帖最後由 hugh0620 於 2011-2-9 10:05 編輯

回復 1# pai1

    樓主~ 附件中的問題回覆
    Q1. 紅色設定如何簡化，嘗試用"定義"失敗
    A1. =if(or(ETx=1,iserror(vlookup(儲存格,資料範圍,欄數,false))),Ex+1,Ex)    (Ex:表示E欄位的第幾列,ETx:表示ET欄位的第幾列)
            我使用的方式很簡單,只要你的EY欄位沒有資料或ET欄位=1, 就+1,若有撈到資料或ET欄位<>1,表示放假
    Q2.及每次開檔出現另有資料連結?
      A2. 使用[編輯]->[連結] 可以看出來你連結的資料
    O3.另外VBA程式如何再加入EY欄的判別(EY欄列數不固定)，使其為0
      A3.這個部份,是否有需要使用到VBA嘛?? EY欄看起來是使用手動填入某日是因節日或某因素造成無法上工的日期
        屬隨機且人為手動填入資料,不知樓主要再入EY欄位判別的用意為何??
學習才能提升自己

TOP

pai1

帖子
20 
主題
7 
精華
0 
積分
84 
點名
0  
作業系統
VISTA 
軟體版本
WINDOW2003 
閱讀權限
20 
性別
男 
來自
埔里 
註冊時間
2011-1-12 
最後登錄
2016-4-9 

論壇贊助勳章
3#
發表於 2011-2-9 11:54 | 只看該作者
回復 2# hugh0620


    感謝hugh0620兄的指導,已將公 式修改,但不知何處環節出錯,煩請hugh0620兄再一次指導,如上傳檔案
另外VBA程式小弟希望多加瞭解,該VBA程式是爬文抓到的,增加一句語法先為1,但如何再增加EY欄的語法,小弟可是黔驢技窮!
[attach]4667[/attach]

TOP

pai1

帖子
20 
主題
7 
精華
0 
積分
84 
點名
0  
作業系統
VISTA 
軟體版本
WINDOW2003 
閱讀權限
20 
性別
男 
來自
埔里 
註冊時間
2011-1-12 
最後登錄
2016-4-9 

論壇贊助勳章
4#
發表於 2011-2-9 11:56 | 只看該作者

RE: 工作天及日曆天的累計

workday-1.rar (22.34 KB)

workday-1.rar (22.34 KB)

TOP

hugh0620
　暱稱: VBA向前衝

高中生Rank: 3Rank: 3

帖子
559 
主題
58 
精華
0 
積分
626 
點名
0  
作業系統
win8 
軟體版本
office2013 
閱讀權限
50 
性別
男 
來自
TW 
註冊時間
2010-11-22 
最後登錄
2024-6-14 
5#
發表於 2011-2-9 12:28 | 只看該作者
本帖最後由 hugh0620 於 2011-2-9 12:32 編輯

回復 4# pai1


    很抱歉~ 沒有用好 請在E6 欄位貼上下述公式
   =IF(ET6=1,IF(ISERROR(VLOOKUP(A6,$EY$6:$EY$28,1,FALSE)),E5+1,E5),E5)
    若有特殊情況下未上工,應將日期填在EY欄,這樣就可以了

  很多版主大大都很強調可以用excel如果可以用其函數或是基本功能能處理的就不用寫VBA  
   像樓主你的這個工作,用函數來處理會比較方便
  若是要學VBA可以參考其他發文的問題試著自己練習~ 這樣會提升自己唷~ ^^
學習才能提升自己

TOP

pai1

帖子
20 
主題
7 
精華
0 
積分
84 
點名
0  
作業系統
VISTA 
軟體版本
WINDOW2003 
閱讀權限
20 
性別
男 
來自
埔里 
註冊時間
2011-1-12 
最後登錄
2016-4-9 

論壇贊助勳章
6#
發表於 2011-2-9 13:48 | 只看該作者
本帖最後由 ANGELA 於 2011-3-15 14:13 編輯

感謝hugh0620兄的指導,已將公 式修改且已上手,今小弟嘗試將公式合併E6=IF(IF(E$2=1,IF(WEEKDAY(A6,2)>5,0,1),1),IF(ISERROR(VLOOKUP(A6,$EY$5:$EY$28,1,FALSE)),E5+1,E5),E5),卻亦可使用.
再一次說謝謝!

TOP

        靜思自在 : 改變自己是自救，影響別人是救人。
返回列表 上一主題