Chuyển Công Thức Excel Thành Code VBA

• Trang chủ Có gì mới Hoạt động gần nhất Tác giả
• Diễn đàn Tìm bài viết mới Tìm theo chuyên mục
• Video Video về Excel Video về tin học khác Tin tức về tin học chung
• Thông tin mới Tìm bài mới Tài Nguyên Mới Hoạt động gần nhất
• Tài nguyên Đánh giá mới nhất Tìm tài nguyên
• Facebook
• Đóng góp

Đăng nhập Đăng Ký Có gì mới? Tìm kiếm

Tìm kiếm

Mọi nơi Đề tài Diễn đàn này Đề tài này Chỉ tìm trong tiêu đề Bởi: Tìm kiếm Tìm nâng cao…

• Tìm bài viết mới
• Tìm theo chuyên mục

Menu Đăng nhập Đăng Ký Install the app Install How to install the app on iOS

Follow along with the video below to see how to install our site as a web app on your home screen.

Note: This feature may not be available in some browsers.

• Khách ơi! GPE thông tin đến bạn ấn phẩm "lập trình VBA trong Excel": - Phần cơ bản - Phần Nâng Cao - VBA trong Excel - Cải thiện và tăng tốc

• Trang chủ
• Diễn đàn
• Lập Trình với Excel
• Lập Trình với Excel

You are using an out of date browser. It may not display this or other websites correctly.You should upgrade or use an alternative browser. Chuyển công thức excel thành code VBA

• Thread starter phankhang
• Ngày gửi 3/12/07

P

phankhang

Thành viên mới

Tham gia 31/7/07 Bài viết 18 Được thích 1 Chào các anh em trong GPE . Tôi là người mới tầm sư học đạo excel và chưa biết gì về VBA . Diễn đàn này đã giúp tôi rất nhiều trong quá trình tiếp cận . Hiện nay tôi có 1 vấn đề nan giải , rất mong các anh chị giúp cho. Hiện nay tôi đang lập bảng lương bằng excel cho công nhân nhưng tương đối phức tạp . Dòng công thức như sau =IF(OR(CCONG!F6="O",CCONG!F6="CO",CCONG!F6="P",CCONG!F6="ts",CCONG!F6="NO",CCONG!F6="U"),0, IF(OR(LEFT($B6,2)="pl",LEFT($B6,2)="gv",LEFT($B6,2)="NL"),VLOOKUP("K1",XNL,DAY(F$5)+2,0)*VLOOKUP($B6,DGIA,3,0)*CCONG!F6/VLOOKUP($B6,TG_GL,DAY($F$5)+2,0), IF(OR(LEFT($B6,2)="CB",LEFT($B6,2)="GT",LEFT($B6,2)="lv"),VLOOKUP($B6,SO_KG,DAY($F$5)+2,0)*VLOOKUP($B6,DGIA,3,0)*CCONG!F6/VLOOKUP($B6,TG_GL,DAY($F$5)+2,0),VLOOKUP("KDH",NTP,DAY(F$5)+2,0)*VLOOKUP($B6,DGIA,3,0)*CCONG!F6/VLOOKUP($B6,TG_GL,DAY($F$5)+2,0))))*IF($B6<>"BBDH",1,VLOOKUP($C6,GT_BB,4,0)) Với công thức này khi copy ra hàng ngàn cell thì file excel rất nặng và khi click vào cell thì thanh formula kéo dài xuống tận 1/2 màn hình . Có cách nào chuyển công thức trên thành VBA được không Tôi rất lơ mơ nên nếu có gì không đúng , mong các bạn chỉ giáo

• 1
• 2
• 3

Tiếp 1 of 3

Go to page

Tiếp tục Tiếp Last Sắp xếp theo thời gian sắp xếp theo bầu chọn A

anhthuan

Thành viên hoạt động

Tham gia 10/12/06 Bài viết 106 Được thích 264 Đọc công thức của bạn mình hoa hết cả mắt, chẳng hiểu gì Nếu bạn muốn chuyển đổi sang VBA thì phải nêu rõ điều kiện và yêu cầu của mình ra. Công thức của bạn tính toán cái gì, thông tin cần lấy là gì? Để chuyển công thức từ Excel sang VBA có hai cách: - activesheet.range("a1").formular1c1="=sum(.....)": đặt công thức sum tại ô A1 - application.worksheetfuntion.sum(.....): tạo hàm tính tổng trong VBA Upvote 0 P

phankhang

Thành viên mới

Tham gia 31/7/07 Bài viết 18 Được thích 1 Rất cám ơn bạn đã trả lời . Mình giải thích thêm như sau : Mục đích của công thức trên là tính lương cho từng người theo từng ngày ( theo từng bộ phận khác nhau ), mỗi bộ phận có định mức lương khác nhau . Giải thích công thức trên như sau : 1. Nếu bảng chấm công là O , co , ... thì lương ngày đó là 0 đồng 2.Nếu bộ phận làm việc là "pl", "gv",... thì tính lương theo nguyên liệu xuất vào sản xuất , tra theo bảng nguyên liệu xuất * tra theo đơn giá nguyên liệu * số giờ làm việc của cá nhân / tổng số giờ làm việc của cả bộ phận 3. Nếu bộ phận làm việc là "CB", "BB",... thì tính lương theo thành phẩm sản xuất ra , tra theo bảng thành phẩm nhập kho* tra theo đơn giá thành phẩm* số giờ làm việc của cá nhân / tổng số giờ làm việc của cả bộ phận 4. Nếu bộ phận làm việc là "BBDH" thì nhân với hệ số ( tra ở bảng riêng ) còn nếu ở bộ phận khác thì hệ số 1 Thật ra đây chỉ là 1 thông số thôi chứ thực tế còn nhiều bảng khác nữa do mỗi ngày làm nhiều loại nguyên liệu khác nhau với đơn giá khác nhau , nhiều loại thành phẩm khác nhau với đơn giá khác nhau . Công nhân có thể trong 1 ngày làm ở 2,3 bộ phận khác nhau với những đơn giá hoàn toàn khác nhau ( do sản xuất rau quả nên không chủ động được nguyên liệu . Khi nguyên liệu này hết thì phải chuyển sang làm nguyên liệu khác mà mỗi loại nguyên liệu thì số người ở mỗi tổ thay đổi do khối lượng công việc khác nhau ) Không biết giải thích như vậy đã rõ chưa . Cám ơn bạn nhiều Mình gửi kèm file rút gọn lên . Rất mong chỉ giáo

File đính kèm

• LuongCN.zip 225.7 KB · Đọc: 644

Chỉnh sửa lần cuối bởi điều hành viên: 8/5/13 Upvote 0

tigertiger

Coming back ...

Tham gia 25/1/07 Bài viết 1,931 Được thích 1,899 Đúng là hoa cả mắt,

anhthuan đã viết: Để chuyển công thức từ Excel sang VBA có hai cách: - activesheet.range("a1").formular1c1="=sum(.....)": đặt công thức sum tại ô A1 - application.worksheetfuntion.sum(.....): tạo hàm tính tổng trong VBA Nhấp chuột vào đây để mở rộng...

- cách này thì đặt nguyên c/thức giống như đặt tay ->cũng hay - nhưng cách hay là lập hàm VBA (UDF)để thay công thức lun - vấn đề? bạn nên upload file lên có vd và giải thích công thức thì mọi ng mới giúp được Upvote 0

tigertiger

Coming back ...

Tham gia 25/1/07 Bài viết 1,931 Được thích 1,899 vì vội, tigertiger mới chỉ Dùng cách đặt tên động cho bạn -> c thức ngắn hơn và dễ kiểm soát hơn, và phát hiện thành phần này -> bạn nên đặt thừa số chung ra ngoài

[FONT=&quot]*VLOOKUP($B6,DGIA,3,0)*CCONG!F6/VLOOKUP($B6,TG_GL,DAY($F$5)+2,0)[/FONT] Nhấp chuột vào đây để mở rộng...

nhưng chắc còn nh tồn tại tigertiger quay lại chủ đề sớm

File đính kèm

• LuongCN_tigertiger.zip 197.4 KB · Đọc: 543

Lần chỉnh sửa cuối: 3/12/07 Upvote 0

SA_DQ

/(hông là gì!

Thành viên danh dự Tham gia 8/6/06 Bài viết 14,562 Được thích 22,868 Nghề nghiệp U80 Bạn tham khảo thêm hàm tự tạo sau: Mã:Sao chép. Option Explicit [B]Function TienCong(CgOm As Range, MaTo As Range, Ngay As Range)[/B] '[COLOR="Blue"]=IF(OR(CCONG!F6="O";CCONG!F6="CO";CCONG!F6="P";CCONG!F6="ts";CCONG!F6="NO";CCONG!F6="U");0; _ IF(OR(LEFT($B6;2)="pl";LEFT($B6;2)="gv";LEFT($B6;2)="NL");VLOOKUP("K1";XNL;DAY(F$5)+2;0) _ *VLOOKUP($B6;DGIA;3;0)*CCONG!F6/VLOOKUP($B6;TG_GL;DAY($F$5)+2;0); _ IF(OR(LEFT($B6;2)="CB";LEFT($B6;2)="GT";LEFT($B6;2)="lv");VLOOKUP($B6;SO_KG;DAY($F$5)+2;0) _ *VLOOKUP($B6;DGIA;3;0)*CCONG!F6/VLOOKUP($B6;TG_GL;DAY($F$5)+2;0); _ VLOOKUP("KDH";NTP;DAY(F$5)+2;0)*VLOOKUP($B6;DGIA;3;0)*CCONG!F6/VLOOKUP($B6;TG_GL;DAY($F$5)+2;0)))) _ *IF($B6<>"BBDH";1; VLOOKUP($C6;GT_BB;4;0)) [/COLOR] Dim lMTo As String Dim DonGia As Double, TGGL As Double, Dat As Long CgOm = UCase$(CgOm): lMTo = UCase$(Left(MaTo, 2)) Dat = Day(Ngay) + 2 DonGia = Application.VLookup(MaTo, DGIA, 3, 0) TGGL = Application.VLookup(MaTo, TG_GL, Dat, 0) If CgOm = "O" Or CgOm = "CO" Or CgOm = "P" Or CgOm = "TS" Or CgOm = "NO" Or CgOm = "U" Then TienCong = 0: Exit Function ElseIf lMTo = "PL" Or lMTo = "GV" Or lMTo = "NL" Then TienCong = Application.VLookup("K1", XNL, Dat, 0) * DonGia * CgOm / TGGL [COLOR="red"]' <= K1?[/COLOR] ElseIf lMTo = "CB" Or lMTo = "GT" Or lMTo = "LV" Then TienCong = Application.VLookup(MaTo, SO_KG, Dat, 0) * DonGia * CgOm / TGGL Else TienCong = Application.VLookup("KDH", NTP, Dat, 0) * DonGia * CgOm / TGGL End If If MaTo = "BBDH" Then TienCong = TienCong * Application.VLookup(C6, GT_BB, 4, 0) [COLOR="Red"]'<= C6?![/COLOR] [B]End Function [/B] Hàm này chưa hoàn toàn kết thúc; chỉ để tham khảo thôi! Upvote 0

yeudoi

Thành viên gắn bó

Thành viên BQT Moderator Tham gia 12/6/06 Bài viết 3,182 Được thích 7,632 Có có cách khác là dùng VBA. Khi chèn công thức xong là chuyển qua giá trị luôn việc này mình nghĩ cũng đơn giản bởi lương thì không có nhiều dòng. Upvote 0 R

rockfusion

Thành viên mới

Tham gia 3/12/07 Bài viết 2 Được thích 3 Tôi xin có một chút ý kiến như vâỳ để nắm bát nhanh cho những ngươì mơí tập viết VB trong excell, nêú có vấn đè gì chưa hiêủ bạn cứ record những thao tác cuả bạn trên bảng tính kể cả lập công thức, sau đó stop record rôì vaò code để xem và rút kinh nghiệm, hôì đó lúc chưa rành VB tôi cũng hay làm cách naỳ, khá hữu hiêụ đâý các bạn ạ. Upvote 0

Thien

Thành viên thường trực

Tham gia 23/6/06 Bài viết 352 Được thích 113

rockfusion đã viết: Tôi xin có một chút ý kiến như vâỳ để nắm bát nhanh cho những ngươì mơí tập viết VB trong excell, nêú có vấn đè gì chưa hiêủ bạn cứ record những thao tác cuả bạn trên bảng tính kể cả lập công thức, sau đó stop record rôì vaò code để xem và rút kinh nghiệm, hôì đó lúc chưa rành VB tôi cũng hay làm cách naỳ, khá hữu hiêụ đâý các bạn ạ. Nhấp chuột vào đây để mở rộng...

Cách này chỉ ứng dụng trong những việc nhỏ thui. còn những việc lớn như trích xuất dữ liệu, lấy dữ liệu từ nhiều sheet thành 1 sheet ... thì không biết VBA cũng thua thui. Mặc khác những đoạn code do ghi lại từ record sẽ không chạy trơn tru & nhanh bằng thêm mắm muối gạo tiền vào, đặc biệt các đoạn bẫy lỗi trong code..... Vài dòng gửi bạn. Thân chào. Upvote 0 T

ThuNghi

Hãy cho rồi sẽ nhận!

Thành viên đã mất Tham gia 16/8/06 Bài viết 3,808 Được thích 4,449

phankhang đã viết: Chào các anh em trong GPE . Tôi là người mới tầm sư học đạo excel và chưa biết gì về VBA . Diễn đàn này đã giúp tôi rất nhiều trong quá trình tiếp cận . Hiện nay tôi có 1 vấn đề nan giải , rất mong các anh chị giúp cho. Hiện nay tôi đang lập bảng lương bằng excel cho công nhân nhưng tương đối phức tạp . Dòng công thức như sau =IF(OR(CCONG!F6="O",CCONG!F6="CO",CCONG!F6="P",CCONG!F6="ts",CCONG!F6="NO",CCONG!F6="U"),0, IF(OR(LEFT($B6,2)="pl",LEFT($B6,2)="gv",LEFT($B6,2)="NL"),VLOOKUP("K1",XNL,DAY(F$5)+2,0)*VLOOKUP($B6,DGIA,3,0)*CCONG!F6/VLOOKUP($B6,TG_GL,DAY($F$5)+2,0), IF(OR(LEFT($B6,2)="CB",LEFT($B6,2)="GT",LEFT($B6,2)="lv"),VLOOKUP($B6,SO_KG,DAY($F$5)+2,0)*VLOOKUP($B6,DGIA,3,0)*CCONG!F6/VLOOKUP($B6,TG_GL,DAY($F$5)+2,0),VLOOKUP("KDH",NTP,DAY(F$5)+2,0)*VLOOKUP($B6,DGIA,3,0)*CCONG!F6/VLOOKUP($B6,TG_GL,DAY($F$5)+2,0))))*IF($B6<>"BBDH",1,VLOOKUP($C6,GT_BB,4,0)) Nhấp chuột vào đây để mở rộng...

Tôi vận dụng code của Bác SA hoàn chỉnh thêm cho bạn nhưng hưa test và không bẫy lỗi. Bạn cứ dùng sai đến đâu sửa đến đó. Mã:Sao chép. Option Explicit Dim lMTo As String Dim DonGia As Double, TGGL As Double, iDate As Long Dim DGIA As Range, TG_GL As Range, XNL As Range, SO_KG As Range, NTP As Range, GT_BB As Range Public Function TienCong(MaNV As Range, MaTo As Range, Ngay As Date, CgOm As Range) Set DGIA = Range("DGIA") Set TG_GL = Range("TG_GL") Set XNL = Range("XNL") Set SO_KG = Range("SO_KG") Set NTP = Range("NTP") Set GT_BB = Range("GT_BB") ' CgOm = UCase$(CgOm) lMTo = UCase$(Left(MaTo, 2)) iDate = Day(Ngay) + 2 DonGia = Application.VLookup(MaTo, DGIA, 3, 0) TGGL = Application.VLookup(MaTo, TG_GL, iDate, 0) If Not IsNumeric(CgOm) Then TienCong = 0: Exit Function ElseIf lMTo = "PL" Or lMTo = "GV" Or lMTo = "NL" Then TienCong = Application.VLookup("K1", XNL, iDate, 0) * DonGia * CgOm / TGGL ' <= K1? ElseIf lMTo = "CB" Or lMTo = "GT" Or lMTo = "LV" Then TienCong = Application.VLookup(MaTo, SO_KG, iDate, 0) * DonGia * CgOm / TGGL Else TienCong = Application.VLookup("KDH", NTP, iDate, 0) * DonGia * CgOm / TGGL End If If MaTo = "BBDH" Then TienCong = TienCong * Application.VLookup(MaNV, GT_BB, 4, 0) '<= C6?! Set DGIA = Nothing Set TG_GL = Nothing Set XNL = Nothing Set SO_KG = Nothing Set NTP = Nothing Set GT_BB = Nothing End Function Tại sh DHBC, từ F6 bạn nhập ct: Tiencong(MaNV,MaTo,Ngay,CgOm) cụ thể là

F6=tiencong($C6,$B6,F$5,CCONG!F6) Nhấp chuột vào đây để mở rộng...

Bạn tổ chức nhiều bảng quá, lương gì phức tạp thế.

File đính kèm

• LuongCN.zip 248.7 KB · Đọc: 415

Chỉnh sửa lần cuối bởi điều hành viên: 17/12/07 Upvote 0 P

phankhang

Thành viên mới

Tham gia 31/7/07 Bài viết 18 Được thích 1 Xin cám ơn tất cả các bạn . Số là tôi không phải là dân chuyên về tin học mà rặt ròng là dân hóa thực phẩm . Tuy nhiên do hệ thống bảng lương công nhân của mình quá phức tạp . Đại loại như sau : - Mỗi ngày sản xuất nhiều sản phẩm khác nhau với đơn giá khác nhau - Mỗi loại nguyên liệu cũng có đơn giá khác nhau - Mỗi công nhân một ngày có thể tham gia nhiều loại sản phẩm , nhiều loại nguyên liệu - Đơn giá từng công đoạn cũng khác nhau , có công đoạn ăn lương riêng từng nhóm người , có công đoạn ăn lương cá nhân , có loại lương theo thời gian . Mỗi người 1 ngày có khả năng làm 1 vài giờ ở chế độ lương này và 1 vài giờ khác ở chế độ lương khác - Nhóm ăn lương tập thể cũng không có số người cố định mà có thể thay đổi tùy theo mặt hàng nào , nguyên liệu nào ,... - Và còn một số rắc rối khác nữa Tôi thường để ý thấy bộ phận làm lương công nhân thường làm bằng excel và gần như không ứng dụng được gì các công thức cả mà mỗi ô lương phải cộng bằng tay ( đại loại sử dụng excel giống như thay máy caculator). Tôi có nhã ý muốn giúp các em làm lương đỡ vất vả hơn và quan trọng là không được làm sai , số liệu phải báo cáo hàng ngày để lãnh đạo có thể ra quyết định điều chỉnh kịp thời . Nhưng rõ ràng là khi bắt tay vô mới thấy cái khó vì với số vốn ít ỏi tự học của mình việc hoàn thành đồ án này còn quá xa vời . Thú thật tôi cũng đã nhờ một vài công ty phần mềm đến khảo sát nhưng hình như họ cũng "ngán " hay sao đó mà lặn mất tiêu . Thôi thì đành vừa làm vừa học vậy . Biết đến đâu làm đến đó . Các y kiến của các bạn đều giúp tôi rất nhiều trong việc dần dần tiếp cận Nhân đây nếu các bạn nào thấy có thể chấp nhận thử thách với những yêu cầu trên , mình sẵn sàng hợp tác kể cả với tư cách cá nhân ( không phải pháp nhân cũng được) để hoàn thành đồ án trên . Chi phí thì thỏa thuận . Vui lòng liên hệ theo private messages . Cám ơn tất cả các bạn Upvote 0

SA_DQ

/(hông là gì!

Thành viên danh dự Tham gia 8/6/06 Bài viết 14,562 Được thích 22,868 Nghề nghiệp U80

Nhân đây nếu các bạn nào thấy có thể chấp nhận thử thách với những yêu cầu trên , mình sẵn sàng hợp tác kể cả với tư cách cá nhân ( không phải pháp nhân cũng được) để hoàn thành đồ án trên . Chi phí thì thỏa thuận . Vui lòng liên hệ theo private messages . Cám ơn tất cả các bạn Nhấp chuột vào đây để mở rộng...

LVDuyệt (Và Bình) xem xét & đứng ra nhận lời cũng như tổ chức thực hiện cho GPE; Chắc sẽ có những người góp phần . . . cho GPE! Mình tin như vậy! Upvote 0 P

phankhang

Thành viên mới

Tham gia 31/7/07 Bài viết 18 Được thích 1 Nếu các bạn nhận làm mình sẽ gửi yêu cầu chi tiết Upvote 0 P

phankhang

Thành viên mới

Tham gia 31/7/07 Bài viết 18 Được thích 1 To Thunghi : Cám ơn thunghi , cho mình hỏi thêm : Mình thấy bạn sử dụng công thức tại ô F6 có đoạn =CCONG!F6>100 để thay thế cho cái đoạn =OR(CCONG!F6="O",CCONG!F6="CO",CCONG!F6="P",CCONG!F6="ts",CCONG!F6="NO",CCONG!F6="U") của mình kết quả rất đúng mà hay . Bạn có thể vui lòng giải thích hộ xem tại sao bạn lại sử dụng như vậy không . Mình chưa hiểu lắm , đúng là các bạn đã dạy cho mình rất nhiều Upvote 0 T

ThuNghi

Hãy cho rồi sẽ nhận!

Thành viên đã mất Tham gia 16/8/06 Bài viết 3,808 Được thích 4,449

phankhang đã viết: To Thunghi : Cám ơn thunghi , cho mình hỏi thêm : Mình thấy bạn sử dụng công thức tại ô F6 có đoạn =CCONG!F6>100 để thay thế cho cái đoạn =OR(CCONG!F6="O",CCONG!F6="CO",CCONG!F6="P",CCONG!F6="ts",CCONG!F6="NO",CCONG!F6="U") Nhấp chuột vào đây để mở rộng...

Nếu F6 là text, chữ luôn luôn lớn hơn số, có thể thay =CCONG!F6>1000000000 Bạn thử cho đại F6="c", dùng thử =F6>1000000000 nó sẽ báo là true. ie nếu F6 là "O", "CO"... thì luôn > số nào đó. Nôm na dễ hiểu. Upvote 0 K

kelvin

Thành viên thường trực

Tham gia 24/6/06 Bài viết 202 Được thích 184 Nghề nghiệp Tư vấn xây dựng, kinh doanh in ấn

SA_DQ đã viết: LVDuyệt (Và Bình) xem xét & đứng ra nhận lời cũng như tổ chức thực hiện cho GPE; Chắc sẽ có những người góp phần . . . cho GPE! Mình tin như vậy! Nhấp chuột vào đây để mở rộng...

Mong Duyệt và Bình chủ trì nhận thực hiện, mình tin sẽ có nhiều anh em khác tham gia, như hôm trước có trao đổi với Bình đó Upvote 0

levanduyet

Hãy để gió cuốn đi.

Thành viên danh dự Tham gia 30/5/06 Bài viết 1,798 Được thích 4,706 Giới tính Nam Em xin cám ơn anh SA_DQ và anh Kenvil. To: Phankhang, Bạn có thể liên hệ với tôi theo e-mail: levanduyet@yahoo.com Nhưng cho tôi hỏi, nếu trong trường hợp các ý tưởng chúng tôi thực hiện cho bạn nếu đưa lên GPE, thì bạn có đồng ý không? Lê Văn Duyệt Upvote 0 L

le tin

Học mãi

Tham gia 22/10/07 Bài viết 722 Được thích 560 Đường dẫn trong VBA Chào các bạn Nhờ các bạn giúp mình đường dẫn ... để ghi code trong trường hợp này Application.WorksheetFunction.VLookup([c1], … , 2, 0) CÔNG THỨC: =VLOOKUP(C1;'D:\ChuongTrinh\[DL2009.xls]Mua'!$A$1:$B$8;2;0) Cảm ơn nhiều Upvote 0 T

ThuNghi

Hãy cho rồi sẽ nhận!

Thành viên đã mất Tham gia 16/8/06 Bài viết 3,808 Được thích 4,449

le tin đã viết: Chào các bạn Nhờ các bạn giúp mình đường dẫn ... để ghi code trong trường hợp này Application.WorksheetFunction.VLookup([c1], … , 2, 0) CÔNG THỨC: =VLOOKUP(C1;'D:\ChuongTrinh\[DL2009.xls]Mua'!$A$1:$B$8;2;0) Cảm ơn nhiều Nhấp chuột vào đây để mở rộng...

Anh dùng thử code sau: PHP:Sao chép. Sub DoTim() Dim WF As WorksheetFunction Set WF = WorksheetFunction Dim myRng As Range Set myRng = Sheet1.Range(Cells(1, 1), Cells(4, 2)) If WF.CountIf(myRng.Resize(, 1), Cells(1, 4)) > 0 Then Cells(1, 5) = WF.VLookup(Cells(1, 4), myRng, 2, 0) MsgBox Cells(1, 5) Else MsgBox "Khong tim thay" End If End Sub Trong đó MyRng là 'D:\ChuongTrinh\[DL2009.xls]Mua'!$A$1:$B$8 Có 2 cách, dùng .Formular cũng được. Upvote 0 L

le tin

Học mãi

Tham gia 22/10/07 Bài viết 722 Được thích 560 Cảm ơn ThuNghi , ý trên là trong công thức vùng chọn là 'D:\ChuongTrinh\[DL2009.xls]Mua'!$A$1:$B$8 thì trong VBA phải ghi vào chỗ dấu (... ) như thế nào . Trong đó MyRng là 'D:\ChuongTrinh\[DL2009.xls]Mua'!$A$1:$B$8 cụ thể ghi thế nào vậy bạn Upvote 0

• 1
• 2
• 3

Tiếp 1 of 3

Go to page

Tiếp tục Tiếp Last Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.

Bài viết mới nhất

Nhờ ae hỗ trợ bỏ cảnh báo hết hạn phần mềm Êxel.

• Tran hieu 92
• Hôm qua, lúc 10:23
• Hàm và công thức Excel

Trả lời 12 Đọc 183 3 phút trước huhumalu H P Xin hỏi cách chuyển bảng Hàng + Cột về bảng Hàng + Hàng

• pqdowntailieu3
• 5/9/24
• Google Spreadsheets

Trả lời 1 Đọc 146 Hôm nay lúc 10:55 yeudoi

• Question

Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba

• • 
  • 
  • 

• ongke0711
• 6/10/24
• Lập Trình với Excel

13 14 15 Trả lời 288 Đọc 19K Hôm nay lúc 10:21 trannguyen197 T B

• Question

Cho em xin code in hàng loạt

• bipbo2008
• Hôm qua, lúc 10:57
• Lập Trình với Excel

Trả lời 5 Đọc 117 Hôm nay lúc 10:06 zzzsxxx01 Z T Lấy dữ liệu từ bảng chi tiết (nhiều cột khác nhau) vào bảng tổng hợp theo 1 điều kiện

• thuong-minh
• Thứ sáu lúc 14:16
• Hàm và công thức Excel

Trả lời 7 Đọc 206 Hôm nay lúc 09:26 Son_hl1973 S Phiên bản mới Add-in A-Tools v10 (2024)

• • 

• Nguyễn Duy Tuân
• 13/9/24
• BLUESOFTS: A-Excel, A-Tools

2 Trả lời 39 Đọc 3K Hôm nay lúc 09:11 Nguyễn Duy Tuân L Xin được giúp đỡ DÒ TÌM lấy danh sách tổng giá các đơn hàng

• • 

• LINHCM
• Hôm qua, lúc 05:56
• Tìm kiếm, dò tìm và tham chiếu

Trả lời 7 Đọc 140 Hôm nay lúc 09:11 yeudoi A Cách lọc gmail theo tên và sắp xếp theo thứ tự thời gian từ lớn đến nhỏ

• AnhThu-1976
• Thứ bảy lúc 13:48
• Excel và các ngôn ngữ lập trình khác

Trả lời 3 Đọc 105 Hôm nay lúc 09:05 hvnhpro H A Nhờ xử lý tính toán Số nằm trong chuỗi kí tự

• acrox84
• Hôm qua, lúc 10:48
• Xử lý chuỗi ký tự

Trả lời 3 Đọc 95 Hôm nay lúc 08:20 acrox84 A B Xin hàm đếm số lượng khách hàng theo 1 điều kiện và bỏ dữ liệu trùng.

• bipbo2008
• Hôm qua, lúc 11:32
• Hàm và công thức Excel

Trả lời 5 Đọc 88 Hôm qua, lúc 21:18 Duy Tùng 9x Giúp đỡ e công thức xác định tình trạng suy dinh dưỡng của trẻ em

• Linh trịnh 211
• Hôm qua, lúc 14:17
• Tìm kiếm, dò tìm và tham chiếu

Trả lời 2 Đọc 60 Hôm qua, lúc 18:47 SteveNguyen1991 S H Hướng dẫn in hàng loạt trong excel

• hieuchi89
• 28/8/24
• Hàm và công thức Excel

Trả lời 15 Đọc 966 Hôm qua, lúc 18:46 hieuchi89 H

• Question

Tạo báo cáo thống kê 2 chiều. Nhờ mọi người giúp mình ạ!!!

• • 

• Manhhung90
• Hôm qua, lúc 12:30
• Lập Trình với Excel

Trả lời 0 Đọc 55 Hôm qua, lúc 12:30 Manhhung90 [GPE] TALK SHOW EXCEL KẾT HỢP VỚI GOOGLE SHEETS ỨNG DỤNG THỰC TẾ

• • 

• GPE-Trợ Lý
• Thứ năm lúc 07:30
• Học tập Online

Trả lời 3 Đọc 1K Hôm qua, lúc 11:31 PhanTuHuong V Mail merge bị lỗi in đậm. Các bác giúp em

• vba_excel
• 31/3/16
• MS Word và Các phần mềm soạn thảo văn bản

Trả lời 9 Đọc 7K Hôm qua, lúc 10:13 tigertiger Bàn về môn thể thao bóng bàn nào!

• • 
  • 
  • 

• PhanTuHuong
• 16/10/19
• Thư giãn

2 3 Trả lời 46 Đọc 3K Hôm qua, lúc 04:38 SA_DQ L Tính ngày nâng lương kế tiếp

• • 

• luutrutamthoi
• Thứ bảy lúc 22:52
• Hàm và công thức Excel

Trả lời 2 Đọc 83 Hôm qua, lúc 04:25 SA_DQ K

• Question

Xin giúp viết thêm code VBA cho file bảng kê!!

• khongnho1993
• 5/12/24
• Lập Trình với Excel

Trả lời 9 Đọc 489 Thứ bảy lúc 15:51 qtm1987 Q X Cách khắc phục lỗi Font chữ tự động in đậm và cỡ chữ 14 mỗi khi Mail merge

• xuongrongden1379
• Thứ bảy lúc 14:48
• MS Word và Các phần mềm soạn thảo văn bản

Trả lời 0 Đọc 28 Thứ bảy lúc 14:48 xuongrongden1379 X T

• Question

Ghép vùng dữ liệu

• tuan16
• Thứ bảy lúc 14:03
• Lập Trình với Excel

Trả lời 0 Đọc 87 Thứ bảy lúc 14:03 tuan16 T Xem thêm… Chia sẻ: Facebook X (Twitter) Reddit Pinterest Tumblr WhatsApp Email Chia sẻ Link

Đếm ngược thời gian

000 Ngày 00 Giờ 00 phút 00 giây [GPE] TALK SHOW EXCEL KẾT HỢP VỚI GOOGLE SHEETS: ỨNG DỤNG THỰC TẾ [GPE] TALK SHOW EXCEL KẾT HỢP VỚI GOOGLE SHEETS: ỨNG DỤNG THỰC TẾ

Thành viên có số lượng bài viết cao nhất tháng

• Hoàng Tuấn 868 29
• HeSanbi 20
• hoangtuaotrang_hp_vn 18
• LINHCM 18
• qtm1987 17
• huuthang_bd 15
• ongke0711 15
• SA_DQ 13
• HUONGHCKT 12
• ptm0412 12
• DeTong 11
• Duy Tùng 9x 10
• hvnhpro 9
• GPE-Trợ Lý 8
• Nguyễn Duy Tuân 8
• hoangminhtien 7
• thuong-minh 7
• ngọcanh@123 6
• van khang 96 6
• hoanang_bn84 6

Thành viên có điểm tương tác cao nhất tháng

• huuthang_bd 33
• Hoàng Tuấn 868 31
• hoangtuaotrang_hp_vn 27
• SA_DQ 21
• HUONGHCKT 19
• HieuCD 18
• HeSanbi 18
• hoangminhtien 17
• ptm0412 17
• GPE-Trợ Lý 17
• ongke0711 13
• befaint 11
• Hai Lúa Miền Tây 11
• DeTong 11
• qtm1987 9
• Nguyễn Duy Tuân 9
• NT Ngoc Yen 8
• Phuocam 8
• Duy Tùng 9x 7
• zinhzinh 6

• Trang chủ
• Diễn đàn
• Lập Trình với Excel
• Lập Trình với Excel

• Website này sử dụng cookies. Tiếp tục sử dụng trang này, đồng nghĩa với việc bạn chấp nhận website sử dụng cookies. Chấp nhận Tìm hiểu thêm.…

Back Top Bottom