Tự động chèn object?

Liên hệ QC
Thử file này cũng thú vị đây.
Vùng có tác dụng hiện tại từ C1:Z100

Thú vị thì có đây... nhưng có tình huống thế này:

[video=youtube;eFXj1XSRFbQ]https://www.youtube.com/watch?v=eFXj1XSRFbQ&feature=youtu.be[/video]

thì mình sẽ sửa code sao đây? --=0
 
Thú vị thì có đây... nhưng có tình huống thế này:

[video=youtube;eFXj1XSRFbQ]https://www.youtube.com/watch?v=eFXj1XSRFbQ&feature=youtu.be[/video]

thì mình sẽ sửa code sao đây? --=0
Vụ này mới vô lý thường kiệt nè. Ai kêu xóa của người ta chi rồi nói.
Nhưng đây cũng là cái bẫy cho tương lai đấy anh ơi. Sau này mà chủ thớt không quay vào GPE mới là lạ.
Mà muốn xử lý thì có gì phức tạp đâu. Anh thấy tại sao em để có 1 sheet thôi hay không?
 
Vụ này mới vô lý thường kiệt nè. Ai kêu xóa của người ta chi rồi nói.
Nhưng đây cũng là cái bẫy cho tương lai đấy anh ơi. Sau này mà chủ thớt không quay vào GPE mới là lạ.
Mà muốn xử lý thì có gì phức tạp đâu. Anh thấy tại sao em để có 1 sheet thôi hay không?
Cần j phải sau này ạ. Em đang ngồi test đây ạ. --=0
Em học hỏi là chính chứ ko phải kiểu giải quyết vấn đề xong là phắn luôn đâu ạ. --=0
 
Vụ này mới vô lý thường kiệt nè. Ai kêu xóa của người ta chi rồi nói.

Phải có tình huống vậy tôi mới nói chứ!
Cách đây hơn 1 năm, tôi cũng được đồng nghiệp trong cty nhờ làm file đánh giá năng lực. Lúc đầu tôi cũng dùng Shape (cho đơn giản). Sau đó đã bị tình huống này khiến phải sửa tới sửa lui hoài (dân không biết xài cứ chọc phá tùm lum) nên cuối cùng mới nghĩ ra cách dùng comment
Tôi đã từng hỏi chủ đề như vậy tại đây vào năm trước:
http://www.giaiphapexcel.com/forum/showthread.php?79452-Chuyển-hình-trên-bảng-tính-vào-Comment
 
Cần j phải sau này ạ. Em đang ngồi test đây ạ. --=0
Em học hỏi là chính chứ ko phải kiểu giải quyết vấn đề xong là phắn luôn đâu ạ. --=0
Thì giờ cứ mần cho kỹ cái code trong file đi. Bao nhiêu đó thôi cũng nhức đầu rồi. Nếu hiểu rồi thì tự nhiên sẽ biết cách làm sao cho không ai xóa được mấy cái shape gốc liền.
 
Phải có tình huống vậy tôi mới nói chứ!
Cách đây hơn 1 năm, tôi cũng được đồng nghiệp trong cty nhờ làm file đánh giá năng lực. Lúc đầu tôi cũng dùng Shape (cho đơn giản). Sau đó đã bị tình huống này khiến phải sửa tới sửa lui hoài (dân không biết xài cứ chọc phá tùm lum) nên cuối cùng mới nghĩ ra cách dùng comment
Tôi đã từng hỏi chủ đề như vậy tại đây vào năm trước:
http://www.giaiphapexcel.com/forum/showthread.php?79452-Chuyển-hình-trên-bảng-tính-vào-Comment
Đúng là cho vào comment thì cũng hay lắm, nhưng em lại không quen cách đó nên đành xài cái mà em thạo hơn.

Thực ra em đã có ý định cho shape đó vào 1 sheet và ẩn sheet đó, khi cần thì gọi ra. Nhưng thích để vậy cho vui, ai xóa rồi thì .. hic hic thôi.
 
Lần chỉnh sửa cuối:
Thì giờ cứ mần cho kỹ cái code trong file đi. Bao nhiêu đó thôi cũng nhức đầu rồi. Nếu hiểu rồi thì tự nhiên sẽ biết cách làm sao cho không ai xóa được mấy cái shape gốc liền.
Em chưa bít chữ nào về VBA cả ạ. Em đang tính mua cuốn "Lập trình VBA trong Excel cho người mới bắt đầu" của ThS. Phan Tự Hướng về đọc. Liệu bắt đầu học bằng cuốn đó đc ko ạ?
 
Còn 1 vấn đề nữa: Sau khi đánh giá xong thì người ta phải làm công việc TỔNG KẾT (cộng trừ nhân chia gì đó). Vậy nên buộc ta phải gõ số (hoặc ký hiệu quy định) vào cell rồi mới cho hiện hình ----> Cuối cùng thì ta sẽ vô tư mà cộng trừ nhân chia nhé, cái hình chỉ mang tính chất minh họa (nó tuyệt đối không phải là thành phần chính)
 
Còn 1 vấn đề nữa: Sau khi đánh giá xong thì người ta phải làm công việc TỔNG KẾT (cộng trừ nhân chia gì đó). Vậy nên buộc ta phải gõ số (hoặc ký hiệu quy định) vào cell rồi mới cho hiện hình ----> Cuối cùng thì ta sẽ vô tư mà cộng trừ nhân chia nhé, cái hình chỉ mang tính chất minh họa (nó tuyệt đối không phải là thành phần chính)
Cái này đúng là cũng cần thiết lắm đấy ạ. --=0
Vậy là nếu như add shape bằng cách dùng font như của anh DHN46 thì sẽ ko đếm đc đúng ko ạ?
 
Cái này đúng là cũng cần thiết lắm đấy ạ. --=0
Vậy là nếu như add shape bằng cách dùng font như của anh DHN46 thì sẽ ko đếm đc đúng ko ạ?
Bạn đã bao giờ đếm với các số 1,2,3,4,5....chưa? Nếu bạn đếm được thì dùng Font đếm được. Nên thử đi bạn.

Như tôi đã nói trong topic này: việc dùng font để tạo file đánh giá kỹ năng tôi đã làm (áp dụng với công ty khoảng trên 6000 công nhân viên).
 
Bạn đã bao giờ đếm với các số 1,2,3,4,5....chưa? Nếu bạn đếm được thì dùng Font đếm được. Nên thử đi bạn.

Như tôi đã nói trong topic này: việc dùng font để tạo file đánh giá kỹ năng tôi đã làm (áp dụng với công ty khoảng trên 6000 công nhân viên).
Em nhầm. Vẫn đếm ngon. &&&%$R
Cách dùng font có vẻ vẫn hiệu quả nhất. --=0
Nhưng em muốn hỏi thêm các cách khác để có thể thêm nhiều lựa chọn, áp dụng cho nhiều tình huống khác nhau. --=0
 
Em nhầm. Vẫn đếm ngon. &&&%$R
Cách dùng font có vẻ vẫn hiệu quả nhất. --=0
Nhưng em muốn hỏi thêm các cách khác để có thể thêm nhiều lựa chọn, áp dụng cho nhiều tình huống khác nhau. --=0
Bạn hãy tìm các chương trình tạo Font về tự làm sẽ chủ động cho bạn. Tôi làm trên Font Creator. Bạn dựa vào các từ khóa mà tìm kiếm.

Cái hay của việc dùng Font trong trường hợp này là:

1/ Tùy biến được rất nhiều dạng Icon mà bạn muốn sử dụng.
2/ Thao tác định dạng nhanh như font thường và áp dụng được công thức Excel cho tính toán
3/ Không cần phải lập trình
4/ Dung lượng file rất nhỏ, khi dùng Shape mà đánh giá tới hàng trăm nhân viên thì dung lượng sẽ phình ra nhiều.

Nhược điểm
1/ Máy sử dụng phải được cài đặt font, nếu không sẽ không hiển thị Icon.
 
Code lại theo yêu cầu của khán giả. Tại sheet2 từ vùng A1 đến J100, nhập thử các số từ 1 đến 5

Bỏ Application.CutCopyMode = False đi vì "không phải lúc này.", không có "đường đứt đoạn" nào cả.

Đây mới là cách chuẩn. Chỉ copy/paste thôi chứ Comment chả để làm gì cả. Tạo comment cũng đồng nghĩa với tạo 2 object: comment (non graphic object) và shape (graphic object). Ai không tin thì cứ tự Insert Comment bằng tay, tức không có Fill.UserPicture gì cả, rồi dùng code đếm xem có bao nhiêu object Comment và bao nhiêu object Shape. Hình hài cái graphic object Shape nó thế nào thì cứ dí chuột vào ô có comment thì sẽ được chiêm ngưỡng.

Nếu bạn dùng
Mã:
ActiveSheet.Paste Target
thì bỏ được
Mã:
.Top = Target.Top
.Left = Target.Left

Bạn hãy thêm Name cho shape để xóa cũ trước khi tạo mới, vd. là địa chỉ của Target. Vì nếu người ta gõ lại vài lần thì sẽ có shape "rác" Gợi ý ... À mà chưa gợi ý vội.
 
Em chưa bít chữ nào về VBA cả ạ. Em đang tính mua cuốn "Lập trình VBA trong Excel cho người mới bắt đầu" của ThS. Phan Tự Hướng về đọc. Liệu bắt đầu học bằng cuốn đó đc ko ạ?
"Càng học càng thấy mình dốt. Không học khỏi dốt." "Bể dốt mênh mông, quay đầu là bờ."
 
Bạn hãy tìm các chương trình tạo Font về tự làm sẽ chủ động cho bạn. Tôi làm trên Font Creator. Bạn dựa vào các từ khóa mà tìm kiếm.

Font thì thiếu gì! Nội cái đống ký tự đặt biệt trong Excel đã có cả rừng rồi, vài chục ngàn ký tự, tha hồ lựa vài cái như ý mà không cần phải cài thêm font nào cả
 
Font thì thiếu gì! Nội cái đống ký tự đặt biệt trong Excel đã có cả rừng rồi, vài chục ngàn ký tự, tha hồ lựa vài cái như ý mà không cần phải cài thêm font nào cả
Nhưng mà không có cái cần tìm thầy ơi. Ví dụ như nếu đánh giá theo kiểu 100%,75%,50%,25%,0% tương ứng với cái vòng tròn nó khuyết đi phần tương ứng.
 
Nhưng mà không có cái cần tìm thầy ơi. Ví dụ như nếu đánh giá theo kiểu 100%,75%,50%,25%,0% tương ứng với cái vòng tròn nó khuyết đi phần tương ứng.

5 ký tự này tượng trưng cho 5 giá trị 0%, 25%, 50%, 75% và 100% chắc là được chứ:


◔ ◑ ◕
-----------
Ngoài ra cũng có thể dùng Conditional Formating (Icon sets) để có 5 ký tự trên
 
Lần chỉnh sửa cuối:
Web KT

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

Back
Top Bottom