一共5個表
1,報名登記
我一共設計了15項,自己可以更改
2、報名存檔
注意:第一行要與登記表第一列一致(順序 ) 可以用複製--選擇性粘貼-轉置 完成
【開發模式-visual basic--輸入以下代碼--保存)
Sub 保存數據()
Dim r, Arr
With Sheets("報名登記")
Arr = Array(.[B2], [B3], [B4], [B5], [B6], [B7], [B8], [B9], [B10], [B11], [B12], [B13], [B14], [B15])
r = Sheets("報名存檔").[A65536].End(xlUp).Row + 1
Sheets("報名存檔").Cells(r, 1).Resize(, 14) = Arr
'.Range("B2, B3, B4, B5, B6, B7, B8, B9, B10, B11, B12, B13, B14, B15").ClearContents
End With
End Sub
說明:
其中:Arr = Array(.[B2], [B3], [B4], [B5], [B6], [B7], [B8], [B9], [B10], [B11], [B12], [B13], [B14], [B15])是報名登記表首列單元格
Sheets("報名存檔").Cells(r, 1).Resize(, 14) = Arr 一共我設計了14項內容
'.Range("B2, B3, B4, B5, B6, B7, B8, B9, B10, B11, B12, B13, B14, B15").ClearContents 把報名表按B2-b15順序複製到報名存檔中的第一列至第十四列中去
【開發模式--插入-圖標--指定宏--保存數據--確定】
測試下,如何:
3、報名查詢
第一、六行與報名存檔第一行一致
開發模式-visual basic--輸入以下代碼--保存)
Sub 高級篩選()
Sheets("報名存檔").Range("A1:N65536").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("A1:N2"), CopyToRange:=Range("A6:N6"), Unique:=False
End Sub
說明: 報名存檔指的是調用報名存檔表格名稱
Range("A1:N65536") 調用範圍
=Range("A1:N2"), 指的是報名查詢的前2行 到n列
CopyToRange:=Range("A6:N6"), 根據查詢內容,肥皂劇哦複製內容到第六行之後
【開發模式--插入-圖標--指定宏--高級篩選-確定】
4、報名單
A3 =報名查詢!M2
C3 =報名查詢!B7 姓名
d3 =VLOOKUP($C3,報名查詢!$B$7:$N$43,2,0) 查詢姓名單元格內容 範圍:報名查詢!$B$7:$N$43, 第二列
後面單元格和d3 一致
再設計一個簡單的打印宏,設置好打印範圍等
Sub 打印入學信息表()
ActiveSheet.PrintOut
End Sub
方法同上,不詳細解釋
5、報名信息打印
c3 =VLOOKUP($K$1,報名存檔!$A$2:$N$20,MATCH($B3,報名存檔!$A$1:$N$1,0))
以k2內容為標準 查詢範圍 通過match B3單元格 和存檔首列 獲取
c4: 同c3類似,
G3=B3 右邊的直接飲用左邊的數據
閱讀更多 淡墨留餘香 的文章