返回列表 上一主題 發帖

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

bear0925900003

帖子
55 
主題
17 
精華
0 
積分
79 
點名
0  
作業系統
XP 
軟體版本
office2007 
閱讀權限
20 
性別
男 
註冊時間
2013-7-17 
最後登錄
2020-12-31 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 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的"已繳"字樣於相對位置 繳費紀錄.rar (8.02 KB)
收藏 分享
你猜!!

准提部林

帖子
2833 
主題
10 
精華
0 
積分
2889 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2024-11-12 
2#
發表於 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

TOP

bear0925900003

帖子
55 
主題
17 
精華
0 
積分
79 
點名
0  
作業系統
XP 
軟體版本
office2007 
閱讀權限
20 
性別
男 
註冊時間
2013-7-17 
最後登錄
2020-12-31 
3#
發表於 2015-11-28 23:30 | 只看該作者
回復 2# 准提部林
太感謝您了~
你猜!!

TOP

        靜思自在 : 做該做的事是智慧，做不該做的事是愚癡。
返回列表 上一主題