文章插圖
某學員要制作一份全自動的排版表，本來勸他半手工處理，因為這種需要用VBA 。不過，他覺得自己努力學也可以學會，那就來吧 。
排班表
模板，將模板的內容批量生成一周的表格，比如星期三，表頭就引用排班表第一行的所有數(shù)據(jù) 。
來看看VBA運行后效果 。
原來排班表的內容分散到好多列，不方便引用，H列采用一個輔助列將內容合并起來 。日期在合并的時候會變成數(shù)字，嵌套TEXT轉換成日期格式 。每天有好幾個記錄人，用TEXTJOIN合并起來并用、隔開 。
=TEXT(A2,”e年m月d日 “)&B2&” 班級紀律檢查情況記錄 記錄人：”&TEXTJOIN(“、”,1,C2:G2)
開發(fā)工具，VB，插入模板，輸入代碼 。
Sub 排班()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
‘將多余的工作表刪除
For X = Sheets.Count To 3 Step -1
Sheets(X).Delete
Next
With Sheets(“排班表”)
For X = 2 To .Cells(Rows.Count, 1).End(3).Row
‘相當于移動或復制模板這個工作表到最后，并建立副本
Sheets(“模板”).Copy After:=Sheets(Sheets.Count)
‘激活的工作表名稱根據(jù)排班表的B列命名
ActiveSheet.Name = .Cells(X, 2)
‘激活的工作表A1根據(jù)排班表的H列引用數(shù)據(jù)
[A1] = .Cells(X, 8)
Next
.Select
End With
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
最后，使用VBA的，都需要啟用所有宏 。
VBA除了難，沒啥缺點 。

以上關于本文的內容，僅作參考！溫馨提示：如遇健康、疾病相關的問題，請您及時就醫(yī)或請專業(yè)人士給予相關指導!

「愛刨根生活網」www.malaban59.cn小編還為您精選了以下內容，希望對您有所幫助：

• 手機dwf看圖軟件 dwf用什么軟件打開
• 手機lxe文件用什么軟件打開 lxe文件怎么打開
• 發(fā)展黨員工作自查報告學校
• 了解什么是HIPS軟件 hips是什么意思
• FCPX的批量共享輸出 fcpx是什么軟件
• 學校送給教工生日的祝福語
• 山科大軟件工程考研
• 電子黑板報用什么軟件
• 阿里性侵案兩位男方妻子共稱：已控告女員工周某！
• 把照片變成卡通的軟件app 美圖秀秀怎么把照片變成漫畫