各位邦友大家好,小弟最近在學習用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行程式碼,如果要使用迴圈執行應該如何寫???
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