iT邦幫忙

0

用EXCEL排班

各位邦友大家好,小弟最近在學習用EXCEL寫排班,由於上網或是翻書自學,但成效不彰,所以上網想請教各位,謝謝!

目前卡在無法亂數選取且不重複選取

由於是先試作,所以設定的人數不多,那如果是要使用,人數約為一百人左右(就是因部門人越來越多,用人工方式排班已超出極限,希望能進修學習有成)!

謝謝丹尼兄的回答,方便我寄我寫的excel給您看看嗎??抱歉我沒辦法用回答的方式

If Range("C4").Value = "晚" And Range("D4").Value = "早" Then
Range("D4").Value = ""
End If

If Range("D4").Value = "晚" And Range("E4").Value = "早" Then
Range("E4").Value = ""
End If

If Range("E4").Value = "晚" And Range("F4").Value = "早" Then
Range("F4").Value = ""
End If

If Range("F4").Value = "晚" And Range("G4").Value = "早" Then
Range("G4").Value = ""
End If

If Range("G4").Value = "晚" And Range("H4").Value = "早" Then
Range("H4").Value = ""
End If
請問上述這15行程式碼,如果要使用迴圈執行應該如何寫???

丹尼 iT邦研究生 4 級 ‧ 2018-02-01 08:10:47 檢舉
建議你先把公式寫出來 在轉換成程式語言 其實最主要是運算
今天我放假明天你放假後他他放假 由於部門人數多
建議你先在紙本上寫出公式。
丹尼 iT邦研究生 4 級 ‧ 2018-02-01 08:19:17 檢舉
http://sxt66329.pixnet.net/blog/post/448606457-%5Bexcel%5D-%E7%B0%A1%E6%98%93%E8%87%AA%E5%8B%95%E6%8E%92%E7%8F%AD%E8%A1%A8
kater iT邦新手 5 級 ‧ 2018-02-05 21:33:14 檢舉
謝謝丹尼兄,我再試試看這位作者的方法

1 個回答

1
海綿寶寶
iT邦超人 1 級 ‧ 2018-02-05 10:45:47
最佳解答
Sub Macro1()
    Range("C4").Select
    For nC = 0 To 26
        If ((ActiveCell.Offset(0, nC).Value = "晚") And (ActiveCell.Offset(0, nC + 1).Value = "早")) Then
            ActiveCell.Offset(0, nC + 1).Value = ""
        End If
    Next nC
End Sub
kater iT邦新手 5 級 ‧ 2018-02-05 21:32:22 檢舉

謝謝海綿寶寶,我馬上做看看

我要發表回答

立即登入回答