標題: [發問] vba 如何製作繳費紀錄單 [打印本頁]

---

作者: bear0925900003    時間: 2015-11-28 20:35     標題: vba 如何製作繳費紀錄單

本帖最後由 GBKEE 於 2015-11-29 10:31 編輯

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

---

作者: 准提部林    時間: 2015-11-28 23:06

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    時間: 2015-11-28 23:30

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

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)