日韩性视频-久久久蜜桃-www中文字幕-在线中文字幕av-亚洲欧美一区二区三区四区-撸久久-香蕉视频一区-久久无码精品丰满人妻-国产高潮av-激情福利社-日韩av网址大全-国产精品久久999-日本五十路在线-性欧美在线-久久99精品波多结衣一区-男女午夜免费视频-黑人极品ⅴideos精品欧美棵-人人妻人人澡人人爽精品欧美一区-日韩一区在线看-欧美a级在线免费观看

歡迎訪問 生活随笔!

生活随笔

當前位置: 首頁 > 编程资源 > 编程问答 >内容正文

编程问答

excel怎么启用宏_EXCEL制作的小升初毕业生登记表,全自动填充,包括照片

發布時間:2023/12/15 编程问答 38 豆豆
生活随笔 收集整理的這篇文章主要介紹了 excel怎么启用宏_EXCEL制作的小升初毕业生登记表,全自动填充,包括照片 小編覺得挺不錯的,現在分享給大家,幫大家做個參考.

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

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

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

這個工作表需要收集畢業生的各種信息,從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),獲取畢業生的性別。其他需要獲取的數據,請參照該數據在“畢業生信息”工作表中的列數,進行修改該函數獲取即可。

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

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

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

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的宏功能,并且你只需要第一步點生成照片,第二步點打印登記表。就可以打印出高大上的畢業生登記表了。

總結

以上是生活随笔為你收集整理的excel怎么启用宏_EXCEL制作的小升初毕业生登记表,全自动填充,包括照片的全部內容,希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯,歡迎將生活随笔推薦給好友。