日韩性视频-久久久蜜桃-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制作的小升初毕业生登记表,全自动填充,包括照片的全部內容,希望文章能夠幫你解決所遇到的問題。

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

主站蜘蛛池模板: 国产性色视频 | 无码精品人妻一区二区三区影院 | 午夜国产 | 久久精品久久久久久 | 波多野结衣在线观看一区二区三区 | 伊人夜色| 日韩免费一级 | 成人久久精品 | 老司机在线永久免费观看 | 国产黄色在线网站 | 激情视频亚洲 | 在线观看视频二区 | 久久精品成人 | 日本中文在线观看 | 日本一区二区三区欧美 | 国产婷婷精品 | 欧美大色网 | 双性娇喘浑圆奶水h男男漫画 | 中文字幕日韩精品亚洲一区小树林 | 欧洲成人综合网 | 五月天激情国产综合婷婷婷 | www.狠狠撸.com| 成人在线观看网站 | 妖精视频在线观看 | 久久激情婷婷 | 少妇太紧太爽又黄又硬又爽 | 亚洲xx网 | 亚洲资源av| 囯产精品久久久久久 | 欧美日韩国产一区在线 | 主人性调教le百合sm | 野花国产精品入口 | 波多野结衣伦理 | 一区二区三区四区在线免费观看 | 成人av在线一区二区 | 成人夜夜| 97干在线| 亚洲视屏| 亚洲免费视频大全 | 高清视频在线播放 | 亚洲男人天堂2018 | 午夜亚洲精品 | 噼里啪啦免费看 | 欧美一区二区日韩一区二区 | 麻豆精品一区二区 | 婷婷九月丁香 | 日本黄色不卡视频 | 尤物91| 久久久无码18禁高潮喷水 | 久久资源在线 | 国产成人精品免高潮在线观看 | 欧美成人精品欧美一 | 国产亚韩 | 欧美成人黄 | 羞羞草影院 | 国产精品成人久久电影 | 韩国主播青草55部完整 | 成人久久网| 五月婷婷七月丁香 | 黄色大片免费观看 | 锦绣未央在线观看 | 日韩一区欧美二区 | 亚洲精品短视频 | 国产亚洲成av人片在线观看桃 | 国产色网站 | 亚洲国产精品久久久久 | 我们的2018中文免费看 | 艳妇乳肉豪妇荡乳av无码福利 | 日韩精品极品视频 | 久久久久久9 | 国产精品一区三区 | 欧美性xxxxx极品少妇 | 欧美级毛片 | 一区二区三区在线观看av | 日日躁夜夜躁白天躁晚上躁91 | 性久久久久久久久久久 | 中国性老太hd大全69 | 美女国产毛片a区内射 | 亚洲天天看 | 66av欧美| 精品视频久久久久久 | 91影音| 国产情侣酒店自拍 | 欧美成人精精品一区二区频 | 久久久亚洲av波多野结衣 | 亚洲成人999 | 91久久精品视频 | 91精品国产99久久久久久 | 国产精选久久 | 欧美久久久久久久久 | 中国黄色免费网站 | 精品视频在线一区二区 | 一区二区三区精品在线观看 | 国产福利精品视频 | 黑人操日本女优 | 东方av在线免费观看 | 美女午夜影院 | 欧美日韩国产高清 | 粗大的内捧猛烈进出 |