Command : Clear, Đổi màu nền = VBA, Incre...

[MEGAheartno1]

Em có một bài như sau cần mọi người giúp :
- Có một Cell tính tuổi : yêu cầu như sau : nếu tuổi <18 thì hiển thị nền ô là màu vàng, 18-30 màu xanh, >30 màu tím
- Tạo một command button : Clear để mỗi khi click làm cho ô đó bị xóa trắng đi, nhận focus và nhập liệu lại
- Làm 2 check box : Tăng và giảm 10$---> phải viết = VBA thế nào?

Mọi người giúp em + cho em những link đã có liên quan đến vấn đề này với, nhiều bài quá T___________T

 

[Mr Okebab]

Em có một bài như sau cần mọi người giúp :
- Có một Cell tính tuổi : yêu cầu như sau : nếu tuổi <18 thì hiển thị nền ô là màu vàng, 18-30 màu xanh, >30 màu tím
- Tạo một command button : Clear để mỗi khi click làm cho ô đó bị xóa trắng đi, nhận focus và nhập liệu lại
- Làm 2 check box : Tăng và giảm 10$---> phải viết = VBA thế nào?

Mọi người giúp em + cho em những link đã có liên quan đến vấn đề này với, nhiều bài quá T___________T

Bạn post File lên để mọi người giúp bạn dễ hơn.
bài này không có gì khó đâu bạn ạ.
Thân!

 

[MEGAheartno1]

Cũng dễ hiểu thôi mà. Em không thể post file lên được
1- Bài toán bắt tình AGE dựa vào Date of Birth. Rồi fill colour --> Yellow nếu Age <18
2-Clear: Khi click, dữ liệu người dùng nhập vào sẽ bị xóa.
3-2 Checkbox : + Increases : + 10$
+ Decreases : -10$ --> Như thể là bị trừ tiền phạt vậy, mỗi lần click zô check box thì PRICE của sản phẩm tương ứng trừ đi hoặc tăng lên 10$
4. Cho em hỏi thêm, cách gọi các cell ở trong VBA thế nào. Ví dụ muốn gọi Ô 12 ở SHEET 2 thì làm thế nào ạ.Trả lời giúp em hoặc tìm giúp em link với.
Thanks bro

 

[Mr Okebab]

Cũng dễ hiểu thôi mà. Em không thể post file lên được
1- Bài toán bắt tình AGE dựa vào Date of Birth. Rồi fill colour --> Yellow nếu Age <18
2-Clear: Khi click, dữ liệu người dùng nhập vào sẽ bị xóa.
3-2 Checkbox : + Increases : + 10$
+ Decreases : -10$ --> Như thể là bị trừ tiền phạt vậy, mỗi lần click zô check box thì PRICE của sản phẩm tương ứng trừ đi hoặc tăng lên 10$
4. Cho em hỏi thêm, cách gọi các cell ở trong VBA thế nào. Ví dụ muốn gọi Ô 12 ở SHEET 2 thì làm thế nào ạ.Trả lời giúp em hoặc tìm giúp em link với.
Thanks bro

Mình nói đơn giản nhé :

1. Việc tô màu, nếu chỉ có 3 ĐK như thế thì bạn có thể dùng Condition Formating : http://tinyurl.com/2ks44n
2. Việc xóa này thì cũng đơn giản thôi, chỉ có điều phải xem mẫu dữ liệu của bạn thì mới xóa được
3. Việc trừ hay cộng thêm cũng vậy, phải xem mẫu của bạn để áp dụng cho những ô nào chứ.
4. Có nhiều cách :

• Sheets("Sheet12").Range("A12")
• Sheets("Sheet12").Range(Cells(12,1))
• Sheet12.Range("A12")
• Sheet12.Range(Cells(12,1))

Thân!

 

[Pansy_flower]

Chời... Em không được phép gửi kèm file... Anh có online hem Giúp em giải với nick em là megaheartno1_2407@yahoo.com

Bạn gửi file cho SG theo đ/c: secret_grasses@yahoo.com. SG sẽ up file lên giùm bạn.

Thân,
SG

 

[Mr Okebab]

Chời... Em không được phép gửi kèm file... Anh có online hem Giúp em giải với nick em là megaheartno1_2407@yahoo.com

Mình không quen chát và không thích chát.

Xin thông cảm.

Thân!

 

[MEGAheartno1]

Sorry.... Vừa rùi Copy Paste không được ... Em sẽ post lại sau

 

[daqauto2]

cho em hỏi với. Em muốn lập trình trong VBA, khi ấn vào 1 button thì màu chữ của 1 cell sẽ đổi màu thì code thế nào nhỉ.
Chắc cái này quá đơn giản với các anh, em mới làm quen với VBA nên nếu có sample mẫu thì sẽ tiếp cận nhanh hơn. Em xin cảm ơn trước

 

[SoiBien]

cho em hỏi với. Em muốn lập trình trong VBA, khi ấn vào 1 button thì màu chữ của 1 cell sẽ đổi màu thì code thế nào nhỉ.
Chắc cái này quá đơn giản với các anh, em mới làm quen với VBA nên nếu có sample mẫu thì sẽ tiếp cận nhanh hơn. Em xin cảm ơn trước

bạn phải tạo một nút lệnh commandbutton (trong thanh Control Toolbox).
Right click vào nút lệnh mới tạo, chọn view code (hoặc Double click)

màn hình soạn thảo VBA sẽ hiện ra và bạn đang ở trong thủ tục xử lý sự kiện Click của button đó

Bạn dùng code sau để thay đổi màu chữ của font

ActiveCell.Font.ColorIndex = 3 ' 3 là số index của color (thay đổi từ 1 - 56, 0 thì là màu Automatic

Thân.

 

[daqauto2]

Em cám ơn anh SoiBien. Đoạn code của anh ở trên nếu muốn đổi màu thì mình phải di chuyển đến cell đó. Nhưng ý em là đổi màu 1 cell bất kì theo câu lệnh (ví dụ của em là ấn nút thì đổi màu cell A23 chẳng hạn-mà em không cần di chuyển để active cell đó).

Với lại tiện thể anh cho em code để đổi cả font chữ và định dạng nữa nhé (bold, italic, underline)

 

[SoiBien]

Em cám ơn anh SoiBien. Đoạn code của anh ở trên nếu muốn đổi màu thì mình phải di chuyển đến cell đó. Nhưng ý em là đổi màu 1 cell bất kì theo câu lệnh (ví dụ của em là ấn nút thì đổi màu cell A23 chẳng hạn-mà em không cần di chuyển để active cell đó).

Với lại tiện thể anh cho em code để đổi cả font chữ và định dạng nữa nhé (bold, italic, underline)

Nếu muốn đổi màu 1 range nào đó cố định thì bạn làm như sau
range("a23").font.colorIndex = 3

Đổi định dạng thì bạn dùng

range("a23").font.Bold = (true/false)
range("a23").font.Italic = (true/false)
range("a23").font.Underline = (true/false)

Đổi font khác thì dùng
range("a23").font.Name = (true/false)

Thân.

 

[daqauto2]

em cám ơn các anh nhiều. hy vọng diễn đàn sẽ ngày càng phát triển