Lỗi chạy hàm trong VBB của excel 2007 (1 người xem)

[kute2007]

Chào anh/chị diễn đàn,

em là thành viên của topic: http://www.giaiphapexcel.com/forum/...anh-chị-diễn-dàn-lập-giúp-em-công-thức-tính!!

Nhưng không hiểu vì lý do gì mà bị đóng topic, e đang sửa thì nó xuất hiện cái lỗi thế này, không biết là bị thế nào? mong các anh/chị chỉ giúp e cái..

 

[kute2007]

E đã làm như bác hau151978 hướng dẫn mà khi chạy vào file dữ liệu thì lại k có hiện thị được, mong bác chỉ giúp e cái

 

[gtri]

E đã làm như bác hau151978 hướng dẫn mà khi chạy vào file dữ liệu thì lại k có hiện thị được, mong bác chỉ giúp e cái

Nếu bạn bố trí lại cấu trúc sheet dulieu thì việc hiển thị màu theo yêu cầu sẽ đơn giản hơn.
Nội dung yêu cầu so sánh của bạn cũng chưa cụ thể. VD Số liệu ngày 17/4/2014 ở sheet caudulieu phải so sánh với ngày nào của sheet dulieu?

 

[kute2007]

NGhĩa là ở dòng số 3 là dòng dữ liệu cố định, dòng số 4 sẽ so sánh dữ liệu ở dòng số 3 với dữ liệu bên sheet1, nếu ở dòng số 3 mà trùng vs dữ liệu bên sheet1 1 lần thì hiện thị chữ màu đỏ+gạch chân, còn nếu nhiều hơn 1 lần thì sẽ + dấu sao (*) nữa bạn à, còn nếu không trùng thì giữ nguyên.... ,tương tự, dòng thứ n sẽ lấy dòng thứ (n-1) so sánh vs sheet1... nếu ở dòng (n-1) mà trùng vs dữ liệu bên sheet1 1 lần thì hiện thị chữ màu đỏ+ gạch chân, còn nhiều hơn 1 lần thì sẽ thêm dấu sao ( *) , Mong bạn chỉ giáo giúp để hoàn thiện...Cảm ơn bạn

 

[Hau151978]

Mình chưa hiểu bạn chạy file mình up hay bạn copy code của mình vào file bạn? File mình up vẫn chạy trên máy mình. Nếu chạy trên file của bạn có thể do bạn chưa đặt Name data. Hoặc có thể do bạn chưa select hàng 4. Bạn đưa thông báo lỗi lên xem.

 

[kute2007]

Mình chưa hiểu bạn chạy file mình up hay bạn copy code của mình vào file bạn? File mình up vẫn chạy trên máy mình. Nếu chạy trên file của bạn có thể do bạn chưa đặt Name data. Hoặc có thể do bạn chưa select hàng 4. Bạn đưa thông báo lỗi lên xem.

Chào anh, e copy code của anh đưa sang file dữ liệu, e làm như hướng dẫn mà nó cứ ì ra anh à....

 

[kute2007]

Mình chưa hiểu bạn chạy file mình up hay bạn copy code của mình vào file bạn? File mình up vẫn chạy trên máy mình. Nếu chạy trên file của bạn có thể do bạn chưa đặt Name data. Hoặc có thể do bạn chưa select hàng 4. Bạn đưa thông báo lỗi lên xem.

Anh oi,e làm thế này , a xem cso được k nhé
BƯớc 1: e copy code của a đưa vào VBB editor, sau đó e vào lại ễcl
Bước 2: Ctr+F3 , e chọn vùng dữ liệu
BƯớc 3: Ctr+Shifft+A,( e chọn khu dữ liệu là dòng 4) , mà nó k có chạy anh à,
Mong a chỉ giáo giúp em

 

[kute2007]

anh chị coi giùm e, e chụp ảnh lên

 

[Hau151978]

Bạn chọn vùng E7:H10 ở sheet1, bấm Ctrl-F3 nếu chưa có name data thì bấm Add để tạo, nếu có name data rồi thì ghi đè lên.
Nếu bạn làm đúng thì name data =sheet1!$E$7:$H$10.

 

[Hau151978]

File của bạn là .xlsx thì chạy sao được, bạn save dạng xlsm đi.

 

[kute2007]

File của bạn là .xlsx thì chạy sao được, bạn save dạng xlsm đi.

A ơi, cho e hỏi, save file nào dưói dạng đuôii xlsm ạ
e mới làm nên hỏi cũng hơi gà chút, hi

 

[kute2007]

Anh xem giùm e, thế này đa đúng phần ctr+F3 chưa ạ, name data

 

[Hau151978]

A ơi, cho e hỏi, save file nào dưói dạng đuôii xlsm ạ
e mới làm nên hỏi cũng hơi gà chút, hi

Bạn save as file excel dưới dạng xlsm, dạng này mới cho phép chạy macro. Name như vậy chắc là đúng rồi nhưng trong code mình đặt name là data, bạn đặt tên là bangkq thì phải sửa lại lệnh countif trong code.

 

[kute2007]

vâng, thế a sửa giùm e nhé, rồi up lên giúp e nhé, cảm ơn a hỗ trợ e rất nhiều ạ

 

[kute2007]

Bạn save as file excel dưới dạng xlsm, dạng này mới cho phép chạy macro. Name như vậy chắc là đúng rồi nhưng trong code mình đặt name là data, bạn đặt tên là bangkq thì phải sửa lại lệnh countif trong code.

A ơi, e làm đc rồi, nhưng mà nó có 1 lỗi đó là những con số ví dụ như: 00 hoặc có sô 0 đứng trước thì đều bị mất 1 số, giờ a sửa giùm e để cho nó hiện thị cả số 0 ở trước nhé
e chụp hình lên cho a coi nhé

 

[kute2007]

Ví dụ như ở hình ,đáng lẽ phải là 09 mà nó chỉ có hiện 9. a xem nó bị lỗi gì giúp e nhé

 

[Hau151978]

Ví dụ như ở hình ,đáng lẽ phải là 09 mà nó chỉ có hiện 9. a xem nó bị lỗi gì giúp e nhé

Bạn chọn hàng đó, bấm Ctrl-1 để vào Format cell, chọn Text.

 

[kute2007]

Bạn chọn hàng đó, bấm Ctrl-1 để vào Format cell, chọn Text.

E làm được rồi , a ơi, còn một cái lỗi nhỏ nữa, giờ e làm tiếp xuống dòng tiếp theo và lặp lại cách làm như trên, nó lạ k chạy nữa a...

 

[kute2007]

Lúc này cái name data sẽ là cái bảng khác, và e cũng tạo namedata ( Ctr+F3) để sửa và sau đó nhấn Ctr+Shifft+A mà nó lại k chạy nữa :

 

[Hau151978]

Bạn phải chọn hàng dưới trước đã, nếu vẫn không chạy có thể không có dữ liệu phù hợp trong bảng kq.

 

[kute2007]

e làm đúng như a nói ạ, e chọn hàng dưới sau đó
Bước 1: Ctr+F3--> e tạo name data mới
BƯớc 2: Ctr+Shift+A mà nó vẫn ì ra, e chụp hình a coi nhé,

 

[Hau151978]

Bạn phải chọn hàng thứ 4 trên hình chụp, hàng thứ 3 để so sánh. Mà đây là bảng kết quả lô à?

 

[kute2007]

Bạn phải chọn hàng thứ 4 trên hình chụp, hàng thứ 3 để so sánh. Mà đây là bảng kết quả lô à?

Chết rồi anh ơi, k phải là so sánh vs dòng 3 cố định đâu ạ, vi dụ ở dòng thứ 6 thì sẽ so sánh vs dòng thứ 5...
TỔng quảt là: dòng thứ n thì lấy dòng thứ n-1 so sánh vs bảng kết quả bên sheet bangkq... huhuh

 

[kute2007]

Bạn phải chọn hàng thứ 4 trên hình chụp, hàng thứ 3 để so sánh. Mà đây là bảng kết quả lô à?

A xem có phải sửa lại k ạ, a sửa giúp e nhé,

 

[kute2007]

e giử lại hình chụp a xem nhé,
Ở hàng đầu tiên -->hàng số 3 thì e mặc định nên k có so sánh
bắt đầu từ hàng thứ 4.. e lấy hàng thứ 3 so sánh vs bảng kêt quả--> cái này e làm đc rồi
Bắt đầu tới hàng thứ 5,.. thì e lấy hàng thứ 4 so sánh vs bảng kết quả bên sheet bangkq... e làm như làm vs hàng thứ 4 mà nó k có chạy ..
A kiểm tra giúp e và sủa code giùm e nhé,

 

[Hau151978]

Bạn sửa lệnh countif trong module thành
n = Application.WorksheetFunction.CountIf(Range("data"), Left(r.Offset(-1, 0).Text, 2))
Mỗi lần chạy chọn dòng rồi bấm Ctrl-Shift-A. Sửa code chứ không phải sủa đâu nhé, hihi.

 

[kute2007]

Bạn sửa lệnh countif trong module thành
n = Application.WorksheetFunction.CountIf(Range("data"), Left(r.Offset(-1, 0).Text, 2))
Mỗi lần chạy chọn dòng rồi bấm Ctrl-Shift-A. Sửa code chứ không phải sủa đâu nhé, hihi.

a oi, nó vẫn k chạy, nó vẫn cứ ì ra như lúc đầu...

 

[Hau151978]

Trên máy mình chạy tốt, nếu không sợ "lộ hàng" , bạn có thể chạy Team viewer để mình xem trực tiếp máy bạn xem sao?

 

[kute2007]

Bạn sửa lệnh countif trong module thành
n = Application.WorksheetFunction.CountIf(Range("data"), Left(r.Offset(-1, 0).Text, 2))
Mỗi lần chạy chọn dòng rồi bấm Ctrl-Shift-A. Sửa code chứ không phải sủa đâu nhé, hihi.

anh ơi, e làm chạy đc rồi, nhuwg kết quả k đúng,
Ở dòng 5. bên bảng kq k có 73 mà nó vẫn thống báo là có 73 xuất hiện 3 lần, a kiểm tra lại giùm e nhen

 

[kute2007]

ở bảngkq có nhiều bảng nhỏ cho kết quả từng ngày mà khi nó chỉ có lấy 1 ngày thôi a à.

 

[kute2007]

Bạn sửa lệnh countif trong module thành
n = Application.WorksheetFunction.CountIf(Range("data"), Left(r.Offset(-1, 0).Text, 2))
Mỗi lần chạy chọn dòng rồi bấm Ctrl-Shift-A. Sửa code chứ không phải sủa đâu nhé, hihi.

A ơi, a cho e xin cáci yahoo để e add rồi e gửi teamviwe a check giùm e nhen, e k inbox vào nik của a đc ạ

 

[kute2007]

a oi, a cho e xin thêm câu lệnh để đổi chữ thành màu đỏ đậm nhen, như vậy là khá ổn rồi, tks a rất nhiều