tft每日頭條

 > 教育

 > excel怎麼自己制作學生證及打印

excel怎麼自己制作學生證及打印

教育 更新时间:2024-08-04 23:56:29

先看看打印效果,高大上吧,若喜歡往下看……

excel怎麼自己制作學生證及打印(EXCEL制作的小升初畢業生登記表)1

把縣局下發的畢業生登記表.xlsx存到硬盤的某個文件中,例如我保存在初招文件夾中,在這個文件夾内再新建一個文件夾,重命名為“照片”。照片文件夾内放畢業生照片,照片以學生名字命名,例如:張三.jpg,必須是JPG格式。

打開畢業生登記表.xlsx,再建一個工作表,重命名為“畢業生信息”,如下圖:

excel怎麼自己制作學生證及打印(EXCEL制作的小升初畢業生登記表)2

這個工作表需要收集畢業生的各種信息,從A列到U列包括:編号、畢業學校、姓名、性别、出生年月、民族、住址、考點、考場、座号、學籍号、第一家庭成員姓名、與本人關系、工作單位、聯系電話、第二家庭成員姓名、與本人關系、工作單位、聯系電話、班主任簽名、校長簽名。此表設置好後,可以下發到各學校收集數據。

準備工作完畢,先學習一個用到的查找引用函數:VLOOKUP

VLOOKUP函數是excel中非常重要的查找引用函數之一,在平時的數據處理工作中可以說是沒它不可。掌握了它的使用方法可以減少很多工作量,大大的提高工作效率。下面就為大家介紹VLOOKUP函數單條件查找的基本使用方法。

1、vlookup函數語法解析

vlookup(lookup_value,table_array,col_index_num,[range_lookup])

lookup_value表示要查找的對象;

table_array表示查找的數據區域;

col_index_num表示要查找的數據在table_array區域中處于第幾列的列号;

range_lookup表示查找類型,其中1表示近似匹配,0表示精确匹配,一般我們都用精确匹配。

在I1單元格輸入”編号“,J1單元格輸入學生的編号,開始把“畢業生信息”導入到“畢業生登記表”中,這裡用到一個查找引用函數VLOOKUP,在“畢業生登記表“中的A2單元格内輸入=VLOOKUP(J1,畢業生信息!A:U,2),獲取“畢業生信息”工作表中的畢業學校信息。

其他“姓名、性别、出生年月、民族、住址、考點、考場、座号、學籍号、第一家庭成員姓名、與本人關系、工作單位、聯系電話、第二家庭成員姓名、與本人關系、工作單位、聯系電話、班主任簽名、校長簽名”對應填入相應函數即可。例如:在B3單元格輸入=VLOOKUP(J1,畢業生信息!A:U,3),獲取畢業生的姓名。在D3單元格輸入=VLOOKUP(J1,畢業生信息!A:U,4),獲取畢業生的性别。其他需要獲取的數據,請參照該數據在“畢業生信息”工作表中的列數,進行修改該函數獲取即可。

下面是把照片自動插入畢業生登記表中,打開開發工具,在畢業生登記表工作表中插入兩個表單按鈕控件,如圖:

excel怎麼自己制作學生證及打印(EXCEL制作的小升初畢業生登記表)3

一個用來讓照片自動插入登記表,一個用來打印登記表。

給"生成照片"按鈕控件指定宏,宏代碼如下:

Sub 生成照片()

Application.ScreenUpdating = False '防止屏幕抖動,屏幕刷新禁止

Dim fs1$

Dim d As Object

If [j1] > Sheets("畢業生信息").Cells(Rows.Count, 1).End(xlUp).Row Then

MsgBox "後面沒有了!": Exit Sub

End If

Set d = CreateObject("scripting.dictionary")

For Each a In Sheets("畢業生登記表").Pictures

a.Delete

Next

On Error Resume Next '忽略錯誤繼續執行VBA代碼,避免出現錯誤消息

fs1 = ThisWorkbook.Path & "\照片\" & CStr(Sheets("畢業生登記表").[b3]) & ".jpg"

If d.ExistsFile(fs1) = True Then

Range("G3:H6").Select

ActiveSheet.Pictures.Insert(fs1).Select

With Selection.ShapeRange

Selection.ShapeRange.LockAspectRatio = msoFalse

.Top = Range("G3:H6").Top 1

.Left = Range("G3:H6").Left 1

.Width = Range("G3:H6").Width

.Height = Range("G3:H6").Height

End With

End If

[j1].Select

Application.ScreenUpdating = True

End Sub

給“打印登記表”按鈕控件指定宏,宏代碼如下:

Sub 打印登記表()

 Sheets("畢業生登記表").PrintOut From:=1, To:=1, Copies:=1

 [j1] = [j1] 1

End Sub

最後,還要注意設置打印區域,并把文件另存為啟用宏的工作簿,就大功告成了!

最後的最後,使用過程一定要啟用EXCEL的宏功能,并且你隻需要第一步點生成照片,第二步點打印登記表。就可以打印出高大上的畢業生登記表了。

,

更多精彩资讯请关注tft每日頭條,我们将持续为您更新最新资讯!

查看全部

相关教育资讯推荐

热门教育资讯推荐

网友关注

Copyright 2023-2024 - www.tftnews.com All Rights Reserved