用EXCEL排班

excel vba

kater 2018-02-01 02:27:10 ‧ 8906 瀏覽

各位邦友大家好，小弟最近在學習用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 檢舉

謝謝丹尼兄，我再試試看這位作者的方法

登入發表討論

直播研討會

{{ item.channelVendor }} {{ item.webinarstarted }} |

直播中

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