EXCEL 表單問題

HCH

HCH
個人積分：17分
文章編號：85590683

17分

樓主

2022-08-15 15:57

小弟是新手完全由網路學習而來
EXCEL 表單問題

此表單可由上方的年月來改變日及星期包含出勤及休假

現在的問題是要在下方的方塊打勾要取消上方當天的出勤

另外一個問題是按鈕在巨集內的VBA有輸入 Worksheets("Sheet1").PrintPreview
無法儲存但是可以使用
可是EXCEL重新開啟按鈕就無效了

EXCEL2007版

2022-08-15 15:57 發佈

文章關鍵字 excel 表單問題

stran0628

stran0628
個人積分：23分
文章編號：85592859

23分

2樓

2022-08-15 21:06

一個打勾 3個都不出勤嗎?
如果是的話
可以用IF 判斷是否有勾選

=IF(AND(E13<>"V",WEEKDAY(E4,2)<6),"出勤","")

點我看大圖

HCH 樓主

這個方式會進入循環謝謝你的幫助

2022-08-16 15:23

小小尉

小小尉
個人積分：241分
文章編號：85593692

241分

3樓

2022-08-15 23:16

HCH wrote:
小弟是新手完全由網...(恕刪)

兄弟，上網學習都做到可以由上方的年月來改變日及星期包含出勤及休假，應該有能力做出你要的功能才對點點點

HCH wrote: 要在下方的方塊打勾要取消上方當天的出勤

第一個問題，下方的方塊我猜應該是CheckBox，總共有31個分別代表1號~31號，可以用下面這個程式去修改達到你要的功能，我只寫2個出來，後面的在自己加。

Private Sub CheckBox1_Change()
    If Range("C4") = "週六" Or Range("C4") = "週日" Then
        If CheckBox1.Value = True Then
            Range("C5:C7") = "出勤"
        Else
            Range("C5:C7") = ""
        End If
    Else
        If CheckBox1.Value = True Then
            Range("C5:C7") = ""
        Else
            Range("C5:C7") = "出勤"
        End If
    End If
End Sub
Private Sub CheckBox2_Change()
    If Range("D4") = "週六" Or Range("D4") = "週日" Then
        If CheckBox1.Value = True Then
            Range("D5:D7") = "出勤"
        Else
            Range("D5:D7") = ""
        End If
    Else
        If CheckBox1.Value = True Then
            Range("D5:D7") = ""
        Else
            Range("D5:D7") = "出勤"
        End If
    End If
End Sub

HCH wrote: 按鈕在巨集內的VBA有輸入 Worksheets("Sheet1").PrintPreview
無法儲存但是可以使用可是EXCEL重新開啟按鈕就無效了

第二個問題，會不會是開啟Excel跳出啟用巨集的時候你沒啟用?

HCH 樓主

在五樓

2022-08-16 15:47

錦子

錦子
個人積分：2064分
文章編號：85593694

2064分

4樓

2022-08-15 23:16

我個人做法是
AJ欄是國定假日。
AK欄是補班日。
C5:AG7用公式算出那些日子要上班，那些日子不上班。

點我看大圖

再用條件式格式設定標註不上班日期的紅底。

點我看大圖

調好列印範圍及縮放比例就可以了。

點我看大圖

點「檔案>列印」就可預覽。

點我看大圖

錦色如月，子耀光芒。

HCH 樓主

太複雜了而且我要5年的的資料每一筆假日都要輸入太麻煩了公司沒有在打卡這個資料是要給最上面的人來檢查用的總之謝謝你的幫助

2022-08-16 15:30

HCH

HCH
個人積分：17分
文章編號：85598868

17分

樓主

2022-08-16 15:46

TO 小小尉
我將我製作的出勤表上傳在這免空內
https://www.sendspace.com/file/07x0l6
小弟我依照你的VB碼輸入 (直接貼)
有一問題我改變月份在週六或日
會變成出勤 BOX要多按幾次才會正常回來

原本巨集全開都還是不行結果信任位置設定好就可以使用了

謝謝你的幫助

小小尉

小小尉
個人積分：241分
文章編號：85601512

241分

6樓

2022-08-16 22:32

HCH wrote:
TO 小小尉我將我製(恕刪)

因為你的表是用公式，用我的VBA碼會把你的公式改掉...如果是用公式的話有兩個建議：
1.用3樓大大方式處理。
2.如果你還是想用方塊打勾的方式，可以將CheckBox改為核取方塊再用公式去判斷(還是類似3樓大大的方式)。

我這邊有一個第二種處理的方式改出來的版本：
https://mega.nz/file/oSMCmShS#wOzJRyY72MOLjKRH7BedHfjH2fprG6SVXG19aeLoPFw

試試看吧

HCH 樓主

VB碼只要一條厲害非常的佩服感謝小小尉的幫助謝謝

2022-08-17 10:09