1 ...234567891011
返回列表 上一主題 發帖

[發問] 請問出勤系統設計

v03586

帖子
193 
主題
29 
精華
0 
積分
222 
點名
0  
作業系統
Windows7 
軟體版本
OFFICE2013 
閱讀權限
20 
註冊時間
2015-9-18 
最後登錄
2023-4-29 
31# 跳轉到 »
發表於 2016-8-12 12:48 | 只看該作者
本帖最後由 v03586 於 2016-8-12 12:49 編輯

回復 30# GBKEE


    一樣呢!! 補上後按下去一樣不見  『星期』幾的部分, 按下去就變成#29樓照片的樣子
     星期幾那欄都消失 , 請問我是否有操作錯誤呢??

   

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
32#
發表於 2016-8-12 17:55 | 只看該作者
回復 31# v03586


Ex.zip (538.28 KB)

附檔已補上 人力資料庫班別組別人數資料的程式碼
附檔的 Main_回報清除() 與29#附檔的的程式碼一樣
請再詳細看看 星期是否還是沒有嗎?
  1. Private Sub Main_回報清除()
  2.     Dim i As Date
  3.     With Sheets("人員回報")
  4.         .[A2] = Format(xDay, "yyyy/mm")                                                             '** 月份 **
  5.         .Range(.[h1], .[h1].End(xlToRight)).EntireColumn = ""
  6.         .Range(.[A63], .[G63].End(xlDown)) = ""
  7.         For i = DateSerial(Year(xDay), Month(xDay), 1) To DateSerial(Year(xDay), Month(xDay) + 1, 0)
  8.                 With .[h1]                                                        '**重寫 當月份日期
  9.                
  10.                     .Offset(0, Day(i) - 1) = Day(i)
  11.                     .Offset(1, Day(i) - 1) = Mid(Format(i, "aaa"), 3)
  12.                     
  13.                     .Offset(16, Day(i) - 1) = Day(i)
  14.                     .Offset(17, Day(i) - 1) = Mid(Format(i, "aaa"), 3)
  15.                     
  16.                     .Offset(32, Day(i) - 1) = Day(i)
  17.                     .Offset(33, Day(i) - 1) = Mid(Format(i, "aaa"), 3)
  18.                     
  19.                     .Offset(60, Day(i) - 1) = Day(i)
  20.                     .Offset(61, Day(i) - 1) = Mid(Format(i, "aaa"), 3)
  21.                     
  22.                     Stop   '請回到 [整合頁面]看一下星期有輸入嗎?
  23.                 End With
  24.         Next
  25.     End With
  26. End Sub
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
33#
發表於 2016-8-12 18:03 | 只看該作者
本帖最後由 GBKEE 於 2016-8-12 18:06 編輯

回復 32# GBKEE
2003  ->  Mid(Format(i, "aaa"), 3) 即可出現星期
感謝c_c_la i今天 17:25 提供  
高於2003版版本修改如下
Main_回報清除().Offset(1, Day(i) - 1) = Mid(Format(i, "aaa"), 3)修改成.Offset(1, Day(i) - 1) = Mid(Format(i, "aaaa"), 3)便 OK 了。
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
34#
發表於 2016-8-12 18:40 | 只看該作者
回復 33# GBKEE
在 Excel 2010 環境下測試:

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
35#
發表於 2016-8-12 19:34 | 只看該作者
回復 34# c_c_lai
感謝幫忙修正.
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

v03586

帖子
193 
主題
29 
精華
0 
積分
222 
點名
0  
作業系統
Windows7 
軟體版本
OFFICE2013 
閱讀權限
20 
註冊時間
2015-9-18 
最後登錄
2023-4-29 
36#
發表於 2016-8-14 18:47 | 只看該作者
回復 33# GBKEE


    出現如下錯誤畫面
Q1.png

Rng.Offset(2, -4).Resize(3).Select
  1. Private Sub Main_出勤率(Rng As Range, St As String)
  2.     Dim Ar
  3.     Rng.Offset(2, -4).Resize(3).Select    '← 這一行出錯
  4.     Rng.Offset(2, -4).Resize(3).Value = Application.Transpose(DA組別(St))
  5.    
  6.     Rng.Offset(2, -3) = Application.Sum(DA專長(St))                             '**班別總人數
  7.     Rng.Offset(6, -5).Resize(8).Value = Application.Transpose(DA專長(St))      '**班別各專長人數
  8.    
  9.     Ar = DA專長(St)
  10.     With Rng.Resize(, 日總數)
  11.         .Cells = "=((r[1]c+r[2]c+r[3]c)+(r[4]c+r[5]c/2))/r[2]c5"
  12.         .Value = .Value
  13.         .Replace "0%", "", xlWhole  '去除0
  14.        ' For Each e In .Cells     '用迴圈
  15.        '     If e = 0 Then e = ""  '去除0
  16.        ' Next
  17.     End With
  18. End Sub
複製代碼
紅框中還是沒有出現

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
37#
發表於 2016-8-14 22:18 | 只看該作者
本帖最後由 c_c_lai 於 2016-8-14 22:21 編輯

回復 36# v03586
你把
    Rng.Offset(2, -4).Resize(3).Select
改成備註型態； 即
    '  Rng.Offset(2, -4).Resize(3).Select
然後儲存後，再試試看！

P.S.：
Rng.Offset(2, -4).Resize(3).Select 傳回
<無法取得類別 Range 的 Select 屬性>

TOP

v03586

帖子
193 
主題
29 
精華
0 
積分
222 
點名
0  
作業系統
Windows7 
軟體版本
OFFICE2013 
閱讀權限
20 
註冊時間
2015-9-18 
最後登錄
2023-4-29 
38#
發表於 2016-8-15 01:45 | 只看該作者
回復 37# c_c_lai


    感謝大大的Support !! 終於解決了!!

    想問一下如下圖, 雖然最上面的日期不會不見了 , 紅框部分二三班的還是會消失, 請問如何修改呢

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
39#
發表於 2016-8-15 05:40 | 只看該作者
回復 38# v03586
請問其餘的Mid(Format(i, "aaa"), 3) 有改成Mid(Format(i, "aaaa"), 3)嗎?
  1.    .Offset(17, Day(i) - 1) = Mid(Format(i, "aaa"), 3)
  2.                     
  3.                     .Offset(32, Day(i) - 1) = Day(i)
  4.                     .Offset(33, Day(i) - 1) = Mid(Format(i, "aaa"), 3)
  5.                     
  6.                     .Offset(60, Day(i) - 1) = Day(i)
  7.                     .Offset(61, Day(i) - 1) = Mid(Format(i, "aaa"), 3)
  8.                     
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
40#
發表於 2016-8-15 07:40 | 只看該作者
本帖最後由 c_c_lai 於 2016-8-15 07:41 編輯

回復 38# v03586
GBKEE 版大  指的是：

TOP

        靜思自在 : 人的心地是一畦田，土地沒有播下好種子，也長不出好的果實。 -
1 ...234567891011
返回列表 上一主題