đã thêm 1 đoạn code để active nhưng CF vẫn không chạy nền mà phải ấn F9

[haikimcuong]

Xin các thầy giải thích tại sao khi em đã thêm đoạn code
Private Sub Worksheet_Change(ByVal target As Range)
ActiveSheet.Calculate
End Sub
Tuy nhiên vẫn phải ấn F9 là sao ạ

 

[hungpecc1]

Xin các thầy giải thích tại sao khi em đã thêm đoạn code
Private Sub Worksheet_Change(ByVal target As Range)
ActiveSheet.Calculate
End Sub
Tuy nhiên vẫn phải ấn F9 là sao ạ

cho hỏi : Mục đích của bạn là gì vậy
Nếu như bạn để Option -->Fomulas --> Caculate Option = automatic , thì không cần F9, tức là Ẽxcel sẽ tự động tính toán khi có bất kỳ thay đổi nào trên bảng tính
Còn nếu bạn để là manual --> tức là khi bạn thay đổi dữ liệu trên bảng tính, cần ấn F9 để dữ liệu cập nhật

Trong VBA câu lệnh như sau :
[GPECODE=vb]Application.Calculation = xlManual[/GPECODE]

Còn trường hợp do dữ liệu lớn, bạn muốn để manual để giảm thời gian chạy tính toán;
--> sau khi hoàn tất công việc thì thêm câu lệnh : Calculate tương đương với việc ấn phím F9
ví dụ :[GPECODE=vb]
Sub Tinh()
'Calculate
'Worksheets("Sheet1").UsedRange.Columns("A:C").Calculate
End Sub
[/GPECODE]
còn nếu viết trên work sheets thì có thể là :
[GPECODE=vb]
Private Sub Worksheet_Calculate()
Columns("A:F").AutoFit
End Sub
[/GPECODE]

 

[hoangdanh282vn]

Bạn thử dùng câu lệnh sau xem sao :
Application.Calculation = xlManual 'Khóa chức năng tự động tính toán
Application.Calculation = xlAutomatic 'Mở chức năng tự động tính toán

 

[hoamattroicoi]

Xin các thầy giải thích tại sao khi em đã thêm đoạn code
Private Sub Worksheet_Change(ByVal target As Range)
ActiveSheet.Calculate
End Sub
Tuy nhiên vẫn phải ấn F9 là sao ạ

haikimcuong Vẫn loay hoay với cái file cũ à, thử cách này cũng được mà :

 

[haikimcuong]

cho hỏi : Mục đích của bạn là gì vậy
Nếu như bạn để Option -->Fomulas --> Caculate Option = automatic , thì không cần F9, tức là Ẽxcel sẽ tự động tính toán khi có bất kỳ thay đổi nào trên bảng tính
Còn nếu bạn để là manual --> tức là khi bạn thay đổi dữ liệu trên bảng tính, cần ấn F9 để dữ liệu cập nhật

Trong VBA câu lệnh như sau :
[GPECODE=vb]Application.Calculation = xlManual[/GPECODE]

Còn trường hợp do dữ liệu lớn, bạn muốn để manual để giảm thời gian chạy tính toán;
--> sau khi hoàn tất công việc thì thêm câu lệnh : Calculate tương đương với việc ấn phím F9
ví dụ :[GPECODE=vb]
Sub Tinh()
Calculate
End Sub
[/GPECODE]
còn nếu viết trên work sheets thì có thể là :
[GPECODE=vb]
Private Sub Worksheet_Calculate()
Columns("A:F").AutoFit
End Sub
[/GPECODE]

Em làm được rồi còn mục đích thì vì công việc anh ạ, 1 ngày nhập gần 500 dòng cho lệnh xuất hàng và điều xe(em làm bên XNK) nên đôi khi bảng tính quá dài làm lắm lúc loạn dòng nên muốn có 1 hightlight để nhận biết rõ hơn đỡ nhầm lẫn. Tuy nhiên xin hỏi các anh chị tại sao không copy và paste được ạ. Xin anh chị giải thích và chỉ cho em phương pháp bỏ lỗi này?

 

[haikimcuong]

haikimcuong Vẫn loay hoay với cái file cũ à, thử cách này cũng được mà :

Mình làm được rồi nhưng không copy - paste được bạn ạ Mình dùng toàn off 2003 nền k đọc được off 2007-> hihi

 

[hungpecc1]

Mình làm được rồi nhưng không copy - paste được bạn ạ Mình dùng toàn off 2003 nền k đọc được off 2007-> hihi

Mình không theo dõi từ đầu, nên hổng biết bạn muốn copy dòng trên xuống dòng dưới hay thế nào !
Mục đích điều kiện CF của bạn là gì? có phải là nhập đến dòng nào , dòng đấy sẽ hight light không ?

 

[haikimcuong]

Mình không theo dõi từ đầu, nên hổng biết bạn muốn copy dòng trên xuống dòng dưới hay thế nào !
Mục đích điều kiện CF của bạn là gì? có phải là nhập đến dòng nào , dòng đấy sẽ hight light không ?

Mình gửi file cho bạn xem file này mình chỉ làm ví dụ thôi k phải file chuẩn vì nó có những 20 cột và gần 10k dòng nên mình k gửi được. xin bạn xem và giúp đỡ

 

[hungpecc1]

Mình gửi file cho bạn xem file này mình chỉ làm ví dụ thôi k phải file chuẩn vì nó có những 20 cột và gần 10k dòng nên mình k gửi được. xin bạn xem và giúp đỡ

bạn thức khuya nhỉ, đg định tắt máy thấy bạn vẫn online :

Thử sửa câu lệnh thành như sau xem ntn :
[GPECODE=vb]Sh.UsedRange.Calculate[/GPECODE]

ps: theo mình đã mất công viết code, thì bạn thử ngâm cứu cách làm hight light bằng VBA luôn,

 

[sealand]

Việc này nếu để học tập thì OK chứ nếu để làm việc bạn nên tải tiện ích Hightlight của anh Nguyễn Duy Tuân về sử dụng có lễ ổn hơn nhiều.

 

[haikimcuong]

Có cách nào để vừa tang kich thước dòng ví dụ từ 1,5 lên 2 hoặc hơn không nhỉ thầy? và cả tang size chữ nữa ạ chỉ giúp em với ạ?

 

[hungpecc1]

Có cách nào để vừa tang kich thước dòng ví dụ từ 1,5 lên 2 hoặc hơn không nhỉ thầy? và cả tang size chữ nữa ạ chỉ giúp em với ạ?

Bạn thao tác = tay + record macro là sẽ có code ngay

 

[haikimcuong]

Bạn thao tác = tay + record macro là sẽ có code ngay

E đã thử bằng tay nhưng kết quả ra k ổn có lẽ do chưa tìm được phương pháp tối ưu anh ạ, vậy anh giúp đỡ em.

 

[quocbinh77dilang]

Run a certain macro everytime when calculate sheet/workbook

I am creating a vba event to run a certain macro everytime when sheet/workbook is calculated (F9/Shift+F9). I have code below for workbook, macro 'Fillalldata' is working if I manually run this ma...

stackoverflow.com