[發問] vba 如何製作繳費紀錄單

bear0925900003

請問各位前輩，小弟想製作一份繳費紀錄如附件，簡述需求功能如下：
1.當工作表1的A2填入學號，B2填入月份後，工作表2就會根據月份及學號的相對位置填入"已繳"字樣。
2.假設工作表1的A2填入001(學號)，B2填入6,7(月份)時，工作表2就會根據月份及學號的相對位置填入"已繳"字樣，但再次於工作表1的A2填入002(學號)，B2填入12(月份)時，除保留前次001的"已繳"字樣外，新增002的"已繳"字樣於相對位置 繳費紀錄.rar (8.02 KB)

繳費紀錄
下載次數: 19

2015-11-28 20:36

准提部林

Sub 已繳()
Dim xF As Range,  M
If [A2] = "" Then MsgBox "學號未輸入 ": Exit Sub
If [B2] = "" Then MsgBox "繳費月份未輸入 ": Exit Sub
Set xF = [工作表2!A:A].Find([A2], Lookat:=xlWhole)
If xF Is Nothing Then MsgBox "學號不存在 ": Exit Sub
For Each M In Split([B2], ",")
　　If Val(M) < 1 Or Val(M) > 12 Then MsgBox "繳費月份錯誤 ": Exit Sub
Next
For Each M In Split([B2], ",")
　　If IsNumeric(M) Then xF(1, M + 2) = "已繳"
Next
MsgBox "～～已處理～～"
End Sub

bear0925900003

回復 2# 准提部林
太感謝您了~