v03586

回復 30# GBKEE


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

   

下載 (118.06 KB)

2016-8-12 12:47

GBKEE

回復 31# v03586


Ex.zip (538.28 KB)

下載次數: 9

2016-8-12 17:54

附檔已補上 人力資料庫班別組別人數資料的程式碼
附檔的 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

複製代碼

GBKEE

回復 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 了。

c_c_lai

回復 33# GBKEE
在 Excel 2010 環境下測試:

下載 (10.87 KB)

2016-8-12 18:38

GBKEE

回復 34# c_c_lai
感謝幫忙修正.

v03586

回復 33# GBKEE


    出現如下錯誤畫面

下載 (15.79 KB)

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

複製代碼

紅框中還是沒有出現

下載 (26.33 KB)

2016-8-14 18:46

c_c_lai

回復 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 屬性>

v03586

回復 37# c_c_lai


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

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

下載 (27.79 KB)

2016-8-15 01:45

GBKEE

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

複製代碼

c_c_lai

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

下載 (13.38 KB)

2016-8-15 07:40