返回列表 上一主題 發帖

[發問] 使用 VBA 比對兩個欄位的內容是否相同

[發問] 使用 VBA 比對兩個欄位的內容是否相同

各位大大,因我剛接觸 VBA 不久,但又急需寫個小程式來應付日常工作,故想請各位大大幫忙,不勝感激 :D ,底下是程式所需的內容描述,資料檔案如附件內容。

1、判斷【報價履歷】的活頁名稱是否存在,若不存在則建立一個,若存在則跳至該活頁。
2、複製【GFF-ITO】活頁內的 O3 ~ P5 的內容。
3、選擇【報價履歷】活頁,移動至 A 欄資料的最尾端,並再往下移動兩列。
4、將 O3 ~ P5 的內容貼上。
5、往下移動一列。
6、複製【GFF-ITO】活頁內的欄位名稱過來,A欄 ='GFF-ITO'!B9,B欄='GFF-ITO'!G9,C欄='GFF-ITO'!J9…..等,並在 I欄填入價差。
7、移動到 D10,判斷內容是否為 ###,若是則結束程式。
8、比對 【GFF-ITO】活頁 O10 跟 P10 兩個欄位的內容,若內容不相等,則將 B、G、J、K、L、V、O、P 欄的資料複製到【報價履歷】活頁內的相對位置,若相等則再往下判斷 D11 是否為 ###,若是則結束程式,若否則繼續執行第 8 個動作。

報價履歷測試檔-0923.zip (761.54 KB)

IPK187 大大,真是太感謝您了,剛才測試了一下執行上是沒有問題的,但有個地方想請你再幫忙修改一下,因為執行的活頁名稱不會都固定為【GFF-ITO】,可否修改成擷取按下巨集時的活頁簿名稱來使用,謝謝。

TOP

IPK187 大大,測試後,程式執行到第 27 行 (If Rn = "###" Then Exit Sub) 這個判斷式後就會直接跳到 End sub,不曉得是什麼問題,可以麻煩再看一下嗎?謝謝您

TOP

修改後程式 OK 了,謝謝 lpk187 大大的協助!

TOP

        靜思自在 : 謊言像一朵盛開的鮮花,外表美麗,生命短暫。
返回列表 上一主題