Excel VBA@簽名檔小工具

 專案緣由

工程的進行中有各式各樣的報表，大多數皆需要人工進行簽名，不能用蓋章的方式替代，若工程查核時，日積月累的報表通通列出來，一次簽整本的就會簽到懷疑人生，竣工時還要好幾份副本，由此可見每天做報表還是很重要的，但工地大家都忙，沒有查核是不會乖乖做的。

因此，如果可以讓報表列印前，隨機從簽名檔資料夾中挑選一張，並在報表的指定位置隨機移動及調整大小貼上簽名檔，讓報表的呈現能有人工簽名的感覺，應該可以節省很多時間。

搭配報表的批次列印，更可以看出效果如何。

前期準備動作

要完成這項專案前，必須要先有簽名檔的PNG或JPG們。

可以先準備一張A4紙，開始用【黑筆】瘋狂簽名，每個簽名大小都要差不多，將成果掃描至電腦上，並用剪取工具或其他美工軟體進行簽名的截取及去背，我是用powerpoint自帶的去背效果處理。

處理完成的PNG圖檔要放進簽名檔VBA中的【Sig】資料夾，名稱不一定要有意義，程式會自己隨機找一個。

註解:PNG通常是指沒有背景的照片格式，如為JPG有可能會在貼上時把後面的格線遮住。

圖一、簽名檔PNG們

實作邏輯

在列印報表的事件前先讀取該活頁簿中的Sig.txt檔案，依據當中的資訊去抓取簽名檔並貼上到報表的指定位置附近，隨機調整位置及大小。

Sig.txt:

(作用工作表)            假設工程施工查驗表
(Left)                            86.25
(Top)                            734.896911621094
(Width)                        109.5
(Height)                       46.0261421203613
(簽名檔資料夾)        G:\我的雲端硬碟\ExcelVBA\簽名檔VBA\Sig

操作步驟(影片+步驟拆解)




1.打開要放簽名檔的活頁簿
2.將Sig資料夾中的簽名檔放置於報表中的位置並調整好大小
3.打開簽名檔設定工具.xls
4.回到設定工具
5.點選"1.列出工作表"
6.選擇需要簽名的工作表，在C欄填上"Y"
7.點選按鈕"3.擷取簽名資訊"

此時Sig.txt已經被製作完畢並放置於要作用的活頁簿同層目錄

8.移動至要作用的活頁簿
9.進入EXCEL VBA編輯器 (快捷鍵為Alt+F11)
10.找到Microsoft Excel物件下的ThisWorkbook點選兩下
11.貼上以下程式碼

'程式作者:HankLin
'發表日期:20231009
'EMAIL:apple84026113@gmail.com
'著作權所有，請勿刪除姓名標示

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Call ReadTextFileToArray
End Sub

Sub ReadTextFileToArray()
Dim FilePath As String
Dim FileContent() As String
Dim FileLine As String
Dim FileNumber As Integer
Dim LineCount As Integer
' Get the path of the current workbook and construct the file path
FilePath = ThisWorkbook.Path & "\" & "Sig.txt"
' Check if the file exists
If Dir(FilePath) <> "" Then
' Open the file and read content into an array
FileNumber = FreeFile
Open FilePath For Input As FileNumber
' Initialize the array
ReDim FileContent(1 To 1) As String
LineCount = 1
Do While Not EOF(FileNumber)
Line Input #FileNumber, FileLine
FileContent(LineCount) = FileLine
ReDim Preserve FileContent(1 To UBound(FileContent) + 1) As String
LineCount = LineCount + 1
Loop
Close FileNumber
' Remove the last empty element
ReDim Preserve FileContent(1 To UBound(FileContent) - 1) As String
' Display the file content in the worksheet
Dim i As Integer
For i = 1 To UBound(FileContent)
If FileContent(i) <> "" Then
Debug.Print FileContent(i)
cnt = cnt + 1
Select Case cnt
Case 1: shtName = FileContent(i)
Case 2: sigleft = FileContent(i)
Case 3: sigtop = FileContent(i)
Case 4: sigwidth = FileContent(i)
Case 5: sigheight = FileContent(i)
Case 6
sig_fd = FileContent(i)
photo_name = ListImageFileNamesToCollection(sig_fd)
If ActiveSheet.Name = shtName Then
Set pics = Sheets(shtName).Pictures
pics.Delete
Set pic = pics.Insert(sig_fd & "\" & photo_name)
pic.Left = sigleft + Rnd() * 20
pic.Top = sigtop + Rnd()
pic.Width = sigwidth - Rnd() * 2
pic.Height = sigheight - Rnd() * 2
End
End If
End Select
End If
Next i
Else
End If
End Sub

Function ListImageFileNamesToCollection(ByVal FolderPath As String)
Dim FileName As String
Dim FileType As String
Dim FileCollection As New Collection
' Get all files in the folder
FileName = Dir(FolderPath & "\*.*", vbNormal)
' Iterate through the files in the folder
Do While FileName <> ""
FileType = LCase(Right(FileName, Len(FileName) - InStrRev(FileName, ".")))
' Check if the file type is an image type (you can add other image types as needed)
If FileType = "jpg" Or FileType = "jpeg" Or FileType = "png" Or FileType = "gif" Then
FileCollection.Add FileName ' Add the file name to the collection
End If
FileName = Dir
Loop
Randomize
myIndex = Int(Rnd() * FileCollection.Count) + 1
ListImageFileNamesToCollection = FileCollection.Item(myIndex)
End Function

檔案連結


*研討會分享*

如果對VBA在設計/監造的應用上有興趣
可以訂閱我的LINE通知或加入LINE社群
11月3日下午預計在高雄辦理一場研討會(實體、線上併行)
題目為【VBA在設計/監造階段的應用範例】
屆時將同步發送線上會議連結給有訂閱LINE通知的朋友

更多資訊連結

LINE社群  (工程人的設計監造VBA工具交流區)

LINE通知  (Hank'sVBA_公告服務)

LINE官方  (Hank'sVBA)
ID搜尋:@903qzhwa











留言

  1. Jakub2023年12月5日 上午11:26

    Thank you for the authenticity and sincerity that shine through in your writing.

    回覆刪除

張貼留言

Popular Posts

Excel VBA @ 監造日報表、查驗表 -2

圖片
***如需施工日誌請參考 這裡 *** 新版本20111214 已經更新!! 前言： 在經歷多次改版，發現使用的步驟還是有點多餘而且不夠自動化，此次將用物件類別模組的方式來修改Ver1.0留下尚可使用的程式碼，打造嶄新的監造日報表Ver2.0，輸出模式改為PDF，請搭配 PDFBinder 進行使用會比較方便。 準備文件： 以PCCES所編制並匯出成Excel之預算書報表 工程預算書中的數量計算表、土方計算表 監造日報表VBA使用手冊( 下載點我 ) 請開啟巨集並於login頁註冊後登入即可使用 圖一、Login頁面中點選註冊後跳至Google表單，填寫後即可以登入使用 參考文章： 專文1-PCCES處理到預算書 專文2-基本資料填寫 專文3-整個報表的靈魂 專文4-預定進度湊不到100%的解法  (20221204更新) 使用過程簡介： 1.  於工作表("Main")中填寫有關 工程名稱、 試體名稱(P.S.1) 、施工渠道名稱、進度資料等。 2.  於工作表("Budget")中點選"取得預算書"，修正為圖二所展示的內容。 圖二、取得預算書結果，如果需要整理準則，請參考設定準則的註解進行設定，並點選"重整準則" 3.  整理完成後並且更改為契約單價後，點選"匯出至報表"，資料會傳送至工作表("Main")，如下圖三所展示。 圖三、工作表("Main")中的報表資料，A~E欄為放置Step1 中的基本資料。 4.  於工作表("Records")中點選"填寫表單"，如圖四，即可進行一系列的資料紀錄，      為供應Diary及Check的基底資料。 圖四、施作項目來源是Main中的試體名稱與報表資料，如填寫資料有需要進行查驗，可以直接勾選(可複選) 5. 填寫完之後點選"傳送至Check"，再至工作表("Check")中點選"列印查驗"，     成果將輸出到該目錄下的查驗表Output中，名稱為查驗表代碼-頁碼.PDF
Read more »

ExcelVBA@施工照片整理的應用範例

圖片
前言： 施工照片或者查驗照片對於許多工程人員來說，是個繁瑣的麻煩事。畢竟照片只是一張圖片，需要用人眼去判讀才有辦法了解內容是什麼，因為通常會有一張白板與工地現場進行合照，然而當撰寫白板的人寫字醜到不行時，會使人瘋狂。因此在施工照片的整理上，只要能解決 照片的資訊標示 與 報表位置自動貼附並調整大小 ，想必會讓各位有此類需求的工程人員節省許多時間。 相片的收集來源有以下方式 從相機的SD卡或手機連接USB直接進行下載，其檔案名稱通常為IMG_XXXX 或 DCIM_XXXX 。 透過LINE社群中建立相簿，並將同類屬性的照片丟進同一個相簿中，爾後再透過LINE電腦版將整本相簿進行下載，其檔案名稱通常為 LINE_ALBUM_相簿名稱_XXXX 。 上述兩種方式為筆者曾經使用過的方法，於資料夾檢視情況下僅有縮圖及沒有資訊標示的檔案名稱，需要雙擊展開大圖後才有辦法判讀該相片的用途，雖然上面有一張小白板的合照，但還是需要點開之後才有辦法了解內容是什麼，而【點開】並做【資訊標示】， 本身就是一件很麻煩的事 。 解決方案： 筆者的作法是將照片先整理至一個資料夾的底下，並透過LINE相簿在進行批次下載時指定其子資料夾名稱。之後便透過我所撰寫的【施工照片瀏覽及更名】的VBA小程式進行照片的資訊標示與報表輸出，詳細操作流程如下 點擊【取得資料夾】按鈕，選取已整理好的根資料夾位置。 點擊【貼上結果】按鈕，選取是否要在工作表上顯示縮圖及大小。 移動至工作表(Result)，若於工作表(Main)中有設定顯示大圖，則進入工作表(Result)中便會根據滑鼠選取的欄位顯示相對應的大圖資訊，並留有資訊標示欄位供使用者輸入做修改。 圖一、施工照片大圖資訊 有關施工照片資訊標示均輸入完畢之後，移動至工作表(Main)點擊【更換檔名】按鈕，以VBA可判讀的資訊標示的格式進行檔案名稱儲存，未來若有相對應的格式，系統會自動判讀並做預先設定，不用再輸入一次。 點擊【列印報表】按鈕，將會依照排序方法(時間或者項目)，依序將照片自動貼上於報表中並轉換成XLS或PDF， 製作成PDF才有辦法將檔案發布給其他人使用 ，如為XLS則會在自身電腦中並帶有照片原始檔的狀況下才能看到圖片。 圖三、施工照片報表輸出PDF模式。 圖三、施工照片報表輸出XLS。 若有需要以上檔案的網友們 請於LINE上搜尋ID【 @903qz
Read more »

Excel VBA@ 監造日報表、查驗表

圖片
新版本請參考:  監造日報表Ver2.0 前言： 工程線流程：測量→設計→發包→監造→驗收→移交。 其中，監造有相當多的文件及注意事項，比如施作數量、成本監控、品質管制(查驗表)、重大期程(工程督導、說明會、變更(修正)設計、展延工期...等等)，在文件上的處理可說是相當的繁瑣。 光是品質管制的查驗表就分為： 開挖(放樣)工程查驗表 土方工程施工查驗表 鋼筋施工組立查驗表 模版施工組立查驗表 混凝土施工作業查驗表 模版及混凝土施工完成作業查驗表 職業安全衛生暨環境保護措施查驗表 在查驗表的表頭須註明工程名稱、工程位置、施作內容、施作日期...等， 已經在監造日報表中出現過 的部分，配合監造日報表的數量、單價、預定進度可以輕易的找到累積數量、累積成本、累積進度，去判斷是否有落後。 主要構想： 以往都是以複製的方式去拉出一連串的日報，只要連結錯誤，就是整批的更改連結，相當麻煩。因此寫了一個Side Project 用ExcelVBA去執行監造日報表的填寫過程，將工作表分為： 監造日報表     (輸出的樣版長相) 日報基本資料 (單價、數量、是否變更、基本工程綱要、試體、渠道數等重要資料) 數量及計算     (進度、天氣狀況、施作單價、施作數量) 施工日誌         (工程位置、施作內容、查驗項目、重大期程) 查驗總表         (與查驗有關的項目及查驗後內容都在此) 經基本資料填寫後，取得預算書(將PCCES的資料丟入，會依照主體工程、雜項工程、職業安全衛生、環境保護措施...等主要項目匯入到日報基本資料的工作表中，日後 僅需要進行填寫數量 ，就會將所有相關資料導入至數量及計算、施工日誌、查驗總表...等工作表，減少重複的資料一直出現，再透過主介面的"監造日報表"、"查驗表"，選擇列印模式即可批次列印。 圖一、程式主要介面 圖二、填寫數量介面 圖三、監造日報表樣版產出 圖四、某一查驗表產出
Read more »