Giúp đỡ Macro hoặc lập trình Excel về tìm kiếm và thay thế

Liên hệ QC

Sunstar

Thành viên mới
Tham gia
5/4/11
Bài viết
23
Được thích
3
Mình có file excel đính kèm. Các ô có giá trị sẽ có đường dẫn lấy dữ liệu ví dụ là:

='C:\Dropbox\THONG SO \TS-SL\2017\T04.2017\[B-01-04-2017.xls]5DN'!$B$12

Với giá trị tìm kiếm là những kí tự được bôi đỏ và sẽ được thay thế theo giá trị tùy biến.
Hiện tại mình làm thủ công bằng cách Ctrl + H tìm giá trị
T04.2017\[B-01-04-2017.xls thay thế bằng T5.2017\[B-01-05-2017.xls cho từng sheet . Sau đó lại tiếp tục tìm T04.2017\[B-02-04-2017.xls thay thế bằng T5.2017\[B-02-05-2017.xls ..v..v.. cứ như thế cho hết tháng.

Nhờ các bác giúp macro hoặc lập trình Excel để khi chạy e nhập 02 giá trị bắt đầu là Txx và B-dd-mm-yyyy để tự tìm kiếm và thay thế các giá trị cho tới ngày hiện tại -1 .

Cụ thể là tháng 06/2017:
Giá trị hiện tại của file là
T04.2017\[B-01-04-2017.xls khi chạy Macro thì sẽ bắt nhập Txx và B-dd-mm-yyyy , em sẽ nhập T06 và B-01-02-2017. kết quả sẽ tìm và thay thế cho đến ngày 14/06/2017 (vì ngày hiện tại là 15/06/2017)

Em cảm ơn các bác nhiều :D
 

File đính kèm

  • ABC.xlsx
    14.1 KB · Đọc: 9
Mình có file excel đính kèm. Các ô có giá trị sẽ có đường dẫn lấy dữ liệu ví dụ là:

='C:\Dropbox\THONG SO \TS-SL\2017\T04.2017\[B-01-04-2017.xls]5DN'!$B$12

Với giá trị tìm kiếm là những kí tự được bôi đỏ và sẽ được thay thế theo giá trị tùy biến.
Hiện tại mình làm thủ công bằng cách Ctrl + H tìm giá trị
T04.2017\[B-01-04-2017.xls thay thế bằng T5.2017\[B-01-05-2017.xls cho từng sheet . Sau đó lại tiếp tục tìm T04.2017\[B-02-04-2017.xls thay thế bằng T5.2017\[B-02-05-2017.xls ..v..v.. cứ như thế cho hết tháng.

Nhờ các bác giúp macro hoặc lập trình Excel để khi chạy e nhập 02 giá trị bắt đầu là Txx và B-dd-mm-yyyy để tự tìm kiếm và thay thế các giá trị cho tới ngày hiện tại -1 .

Cụ thể là tháng 06/2017:
Giá trị hiện tại của file là
T04.2017\[B-01-04-2017.xls khi chạy Macro thì sẽ bắt nhập Txx và B-dd-mm-yyyy , em sẽ nhập T06 và B-01-02-2017. kết quả sẽ tìm và thay thế cho đến ngày 14/06/2017 (vì ngày hiện tại là 15/06/2017)

Em cảm ơn các bác nhiều :D
Sao bạn không sử dụng Replace để thay chuỗi \T04. bởi chuỗi \T06. và chuỗi -04- bởi chuỗi -06- nhỉ? Trong hộp thoại Find and Replace có cho phép tìm và thay thế trên toàn workbook luôn mà. Làm thủ công còn nhanh hơn viết code nữa.
 
Đặt 1 cái name, ví dụ tên là ThoiDiem, cho nó giá trị date 01/04/2017

Sửa công thức là:

="C:\Dropbox\THONG SO \TS-SL\" & YEAR(ThoiDiem) & "\T" & TEXT(ThoiDiem, "mm.yyyy") & "\[B-" & TEXT(ThơiDiem, "dd-mm-yyyy") & ".xls]5DN'!$B$12"

Muón tháng 5 thì đổi thời điểm tháng 5, muón tháng 6 thì đổi tháng 6
 
Đặt 1 cái name, ví dụ tên là ThoiDiem, cho nó giá trị date 01/04/2017

Sửa công thức là:

="C:\Dropbox\THONG SO \TS-SL\" & YEAR(ThoiDiem) & "\T" & TEXT(ThoiDiem, "mm.yyyy") & "\[B-" & TEXT(ThơiDiem, "dd-mm-yyyy") & ".xls]5DN'!$B$12"

Muón tháng 5 thì đổi thời điểm tháng 5, muón tháng 6 thì đổi tháng 6
Ý tưởng của bạn rất hay nhưng cho mình hỏi là làm sao cái biến ngày nó thay đổi hả bạn? vì mỗi hàng là 1 ngày bạn à.
Cái [B-" & TEXT(ThơiDiem, "dd-mm-yyyy") thì thằng dd nó là biến phải tự thay đổi từ 01 đến 31 mà
 
Đặt 1 cái name, ví dụ tên là ThoiDiem, cho nó giá trị date 01/04/2017

Sửa công thức là:

="C:\Dropbox\THONG SO \TS-SL\" & YEAR(ThoiDiem) & "\T" & TEXT(ThoiDiem, "mm.yyyy") & "\[B-" & TEXT(ThơiDiem, "dd-mm-yyyy") & ".xls]5DN'!$B$12"

Muón tháng 5 thì đổi thời điểm tháng 5, muón tháng 6 thì đổi tháng 6

Bạn ơi, sau khi mình ghét công thức vào :

=’C:\Dropbox\THONG SO \TS-SL\" & YEAR(ThoiDiem) & "\T" & TEXT(ThoiDiem, "mm.yyyy") & "\[B-" & TEXT(ThoiDiem, "dd-mm-yyyy") & .xls]5DN'!$B$12

Rồi ấn Ctrl + Shift + Enter thì báo lỗi #REF :(
Bạn coi lại giúp cách đặt " và ' cho mình với. Thank bạn
 
Không ai giúp được em sao :(
 
Mình có file excel đính kèm. Các ô có giá trị sẽ có đường dẫn lấy dữ liệu ví dụ là:

='C:\Dropbox\THONG SO \TS-SL\2017\T04.2017\[B-01-04-2017.xls]5DN'!$B$12

Với giá trị tìm kiếm là những kí tự được bôi đỏ và sẽ được thay thế theo giá trị tùy biến.
Hiện tại mình làm thủ công bằng cách Ctrl + H tìm giá trị
T04.2017\[B-01-04-2017.xls thay thế bằng T5.2017\[B-01-05-2017.xls cho từng sheet . Sau đó lại tiếp tục tìm T04.2017\[B-02-04-2017.xls thay thế bằng T5.2017\[B-02-05-2017.xls ..v..v.. cứ như thế cho hết tháng.

Nhờ các bác giúp macro hoặc lập trình Excel để khi chạy e nhập 02 giá trị bắt đầu là Txx và B-dd-mm-yyyy để tự tìm kiếm và thay thế các giá trị cho tới ngày hiện tại -1 .

Cụ thể là tháng 06/2017:
Giá trị hiện tại của file là
T04.2017\[B-01-04-2017.xls khi chạy Macro thì sẽ bắt nhập Txx và B-dd-mm-yyyy , em sẽ nhập T06 và B-01-02-2017. kết quả sẽ tìm và thay thế cho đến ngày 14/06/2017 (vì ngày hiện tại là 15/06/2017)

Em cảm ơn các bác nhiều :D
mở file lên lỗi #REF chẳng biết đâu mà lần :D

viết code vba cho bài này cũng không khó !
 
mở file lên lỗi #REF chẳng biết đâu mà lần :D

viết code vba cho bài này cũng không khó !

Sorry bạn :( vì cái file của mình vướn ở chỗ đường dẫn đến file là các thư mục và tên file được đặt theo tháng và năm nên có thay đổi.
Bạn có thể cho mình xin email để mình gửi file hoàn chỉnh của mình cho bạn được ko? Hiện tại file của mình chỉ là làm thủ công. Cái hướng dẫn của bạn ở mục lập trình excel mình vẫn đang nghiên cứu mà chưa ra :D
Cảm ơn bạn nhé !
 
Web KT
Back
Top Bottom