返回列表 上一主題 發帖

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

本帖最後由 v03586 於 2016-8-12 12:49 編輯

回復 30# GBKEE


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

   
Q1.png
2016-8-12 12:47

TOP

回復 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 於 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

回復 33# GBKEE
在 Excel 2010 環境下測試:
A0B.png
2016-8-12 18:38

TOP

回復 34# c_c_lai
感謝幫忙修正.
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

回復 33# GBKEE


    出現如下錯誤畫面
Q1.png
2016-8-14 18:46


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
複製代碼
紅框中還是沒有出現
Q2.png
2016-8-14 18:46

TOP

本帖最後由 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

回復 37# c_c_lai


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

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


Q1.png
2016-8-15 01:45

TOP

回復 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 於 2016-8-15 07:41 編輯

回復 38# v03586
GBKEE 版大  指的是:
A0B.png
2016-8-15 07:40

TOP

        靜思自在 : 要比誰更受誰.不要比誰更怕誰。
返回列表 上一主題