code nhập công thức theo điều kiện cho trước

[myly]

Chào mọi người, em mới học VBA, đang có một bài toán mà chưa biết cách giải. Nội dung chính của vấn đề là nhập những công thức khác nhau dựa trên một bảng tra cho trước. Em post lên đây mong các anh chị chỉ giúp. Xin cám ơn các anh chị.

 

[Phuocam]

Chào mọi người, em mới học VBA, đang có một bài toán mà chưa biết cách giải. Nội dung chính của vấn đề là nhập những công thức khác nhau dựa trên một bảng tra cho trước. Em post lên đây mong các anh chị chỉ giúp. Xin cám ơn các anh chị.

Bài toán này bạn tự ra hay thầy cô ra đề?

 

[myly]

Bài toán này bạn tự ra hay thầy cô ra đề?

code này do mình tự đề ra để lấy cách giải cho một bài toán khác trong công việc của mình.

 

[Phuocam]

code này do mình tự đề ra để lấy cách giải cho một bài toán khác trong công việc của mình.

Không hợp lý, càng đọc càng rối.

Có thể dùng IF & ELSEIF hoặc

Select Case Loai
...
End Select

 

[myly]

Không hợp lý, càng đọc càng rối.

Có thể dùng IF & ELSEIF hoặc

Select Case Loai
...
End Select

Như tiêu đề mình đã nói, mình muốn viết code để nhập nhiều công thức khác nhau vào cùng một cột theo những điều kiện cho trước. Vì vậy để minh họa cho câu hỏi đó, mình phải tự tạo một file để mong mọi người giúp mình hướng viết code để cho ra yêu cầu đó.

Bài đã được tự động gộp: 11/7/20

Không hợp lý, càng đọc càng rối.

Có thể dùng IF & ELSEIF hoặc

Select Case Loai
...
End Select

Với file mình up lên mong mọi người không chú ý đến việc công thức đó có hợp lý theo lẽ thường không nhưng quan trọng là cách để giải quyết cho bài toán nhập nhiều công thức khác nhau dựa trên điều kiện cho trước. Vậy đó bạn.

 

[Phuocam]

Với file mình up lên mong mọi người không chú ý đến việc công thức đó có hợp lý theo lẽ thường không nhưng quan trọng là cách để giải quyết cho bài toán nhập nhiều công thức khác nhau dựa trên điều kiện cho trước. Vậy đó bạn.

Đối với bạn không quan trọng, nhưng đối với người khác là một sự cẩu thả.

 

[myly]

Đối với bạn không quan trọng, nhưng đối với người khác là một sự cẩu thả.

Cám ơn bạn đã góp ý.

 

[Ba Tê]

code này do mình tự đề ra để lấy cách giải cho một bài toán khác trong công việc của mình.

Sao không tính ra kết quả luôn mà phải gán công thức?

 

[myly]

Chào mọi người, em mới học VBA, đang có một bài toán mà chưa biết cách giải. Nội dung chính của vấn đề là nhập những công thức khác nhau dựa trên một bảng tra cho trước. Em post lên đây mong các anh chị chỉ giúp. Xin cám ơn các anh chị.

Chào mọi người, em mới học VBA, đang có một bài toán mà chưa biết cách giải. Nội dung chính của vấn đề là nhập những công thức khác nhau dựa trên một bảng tra cho trước. Em post lên đây mong các anh chị chỉ giúp. Xin cám ơn các anh chị.

Hi vọng file này em up lên kh

Sao không tính ra kết quả luôn mà phải gán công thức?

Em đang suy nghĩ theo cách là làm một bảng gán công thức sẵn rồi viết code để nhập công thức đã làm sẵn đó dựa trên điều kiện đã cho trước. Nghĩ vậy nên e mới viết sẵn công thức trên vùng L3:M6

 

[Ba Tê]

Hi vọng file này em up lên kh

Em đang suy nghĩ theo cách là làm một bảng gán công thức sẵn rồi viết code để nhập công thức đã làm sẵn đó dựa trên điều kiện đã cho trước. Nghĩ vậy nên e mới viết sẵn công thức trên vùng L3:M6

Công thức sẵn như vùng L3:M6 không thể đưa vào VBA được.
Nếu chỉnh lại thế này thì thử xem.

 

[VetMini]

Công thức sẵn như vùng L3:M6 không thể đưa vào VBA được.
...

Có một vài người ở đây chuyên làm những cái lắc léo này.
Và có thể họ làm được.
(riêng với bản thân tôi thì những cái lắc léo này chỉ làm rối rắm công việc cho nên tôi không có hứng tìm hiểu thêm).

 

[myly]

Có một vài người ở đây chuyên làm những cái lắc léo này.
Và có thể họ làm được.
(riêng với bản thân tôi thì những cái lắc léo này chỉ làm rối rắm công việc cho nên tôi không có hứng tìm hiểu thêm).

Thiệt tình là em không có lắt léo nhưng vì em có "bệnh" hay phức tạp hóa những cái đơn giản nên mới thế đó ah. Chứ đang nhờ mọi người giúp đỡ thì lắt léo quá rồi chẳng ai thèm giúp mình.

Bài đã được tự động gộp: 11/7/20

em xin cám ơn ah

 

[VetMini]

Nó lắc léo ở chỗ chưa rành công thức đã bày trò VBA.
Chịu khó học tính bằng công thức trước thì code dễ dàng thôi.

Công thức:
E3=CHOOSE(MATCH(B3, { "DK M", "DK Y", "DK Q", "CK" }, 0), C3+D3, C3*D3, C3/D3, C3-D3)

Code:
[E3].FormulaR1C1 = "=CHOOSE(MATCH(RC[-3], { ""DK M"", ""DK Y"", ""DK Q"", ""CK"" }, 0), RC[-2]+RC[-1], RC[-2]*RC[-1], RC[-2]/RC[-1], RC[-2]-RC[-1])"
[E3:E16].FillDown

Chú thích: file mẫu dữ liệu không chuẩn. Đúng như lời ở bài #6: một sự cẩu thả.