Có thể kết hợp IF bên trong SELECT - CASE không? (1 người xem)

[anhtb82]

mọi người cho mình hỏi trong mệnh đề SELECT - CASE thì trong từng CASE mình có thể dùng thêm hàm IF trong đó không?
- Nếu được thì phải làm ntn vì mình đã thử nhưng NG
- Nếu không được thì có giải pháp nào thay thế không khi trong mỗi case mình lại có nhiều điều kiện đồng thời khác nữa.
Cảm ơn mọi người trước!
Ví dụ: Mình đã thử như dưới đây nhưng không chạy đc

Select Case Cells(i, 8)

Case "Daily" 'Trường hợp Cells(i,8) là Daily

If Cells(i, 3) <= Sheet3.Range("F1").Value Then Cells(i, 9) = Range("C" & i).Value 'Nếu Cells(i, 3) nhỏ hơn hoặc bằng giá trị Range("F1") của sheet 3 thì gán Cells(i, 9) bằng giá trị của Range("C" & i)
Else: Cells(i, 9) = "xoa" 'nếu lớn hơn thì Cells(i, 9) sẽ được điền là "xóa"
End If

 

[VetMini]

mọi người cho mình hỏi trong mệnh đề SELECT - CASE thì trong từng CASE mình có thể dùng thêm hàm IF trong đó không?
- Nếu được thì phải làm ntn vì mình đã thử nhưng NG
- Nếu không được thì có giải pháp nào thay thế không khi trong mỗi case mình lại có nhiều điều kiện đồng thời khác nữa.
Cảm ơn mọi người trước!

Cái phần xanh thì dễ dàng những cái phần đỏ thì hiểu chết iền.
Đã hỏi bài mà cũng không chịu khó gõ cho đầy đủ từng ký tự.

 

[anhtb82]

được mà

Ví dụ nhé:

Case "Daily"

Cells(i, 9) = Range("C" & i).Value

Mình muốn thêm một số điều kiện so sánh(<=) sau đó mới gán giá như kia

Cái phần xanh thì dễ dàng những cái phần đỏ thì hiểu chết iền.
Đã hỏi bài mà cũng không chịu khó gõ cho đầy đủ từng ký tự.

Bạn không hiểu chỗ nào à, nếu k hiểu NG - Không được (Không tốt, lỗi,...) thì mình cũng k biết trả lời câu thắc mắc của bạn như thế nào??

 

[XuanTruong1958]

Ví dụ nhé:

Case "Daily"

Cells(i, 9) = Range("C" & i).Value

Mình muốn thêm một số điều kiện so sánh(<=) sau đó mới gán giá như kia


Bạn không hiểu chỗ nào à, nếu k hiểu NG - Không được (Không tốt, lỗi,...) thì mình cũng k biết trả lời câu thắc mắc của bạn như thế nào??

1/ NG là cái gì? Ý bạn VetMi nhắc bạn chỗ này. Khi đưa câu hỏi cần ghi rõ chính tả thì người khác mới hiểu và giúp mình được
2/ Case "Daily"
If Range("B" & i) >= 5 Then Cells(i,9) = Range("C" & i)

 

[VetMini]

Bạn không hiểu chỗ nào à, nếu k hiểu NG - Không được (Không tốt, lỗi,...) thì mình cũng k biết trả lời câu thắc mắc của bạn như thế nào??

Bạn là ngừoi cần hỏi thì bạn có bổn phận nói cho rõ ràng. Ngừoi trả lời đâu có ăn lương bạn mà có bổn phận phải đoán cái ngôn ngữ của bạn?
Bán hàng kiểu "cháo chửi" mà cháo thì chả có gì hấp dẫn.

 

[VetMini]

như kiểu dùng theo thói quen giống như dùng từ địa phương vậy, sao phải làm gắt quá nên như thế??

Thì cũng tại bạn quen dùng kiểu "địa phương" cho nên cú pháp code mới bị lỗi.
Tôi chỉ muốn hỏi "NG" nó báo cho bạn là lỗi gì? và nếu không báo lỗi thì kết quả sai ra sao? Thay vì giải thích cho rõ thì bạn lo cãi cọ chuyện không đâu.

 

[anhtb82]

Thì cũng tại bạn quen dùng kiểu "địa phương" cho nên cú pháp code mới bị lỗi.
Tôi chỉ muốn hỏi "NG" nó báo cho bạn là lỗi gì? và nếu không báo lỗi thì kết quả sai ra sao? Thay vì giải thích cho rõ thì bạn lo cãi cọ chuyện không đâu.

Nếu bạn hỏi luôn từ đầu là như vậy thì mình đã trả lời cho bạn như dưới đây chứ k phải cãi cọ chuyện linh tinh
Nếu mình sử dụng code của mình nó sẽ báo như ảnh

 

[VetMini]

K có BT đi s Then thì lh If CD
Lh Else bị MĐ
Nói chuyện kiểu "địa phương" vậy, hiểu nổi thì hiểu.

 

[SA_DQ]

Trước câu lệnh:

  Else:   Cells(i, 9).Value = "Xóa"

bạn thử thêm dòng lệnh trời ơi này vô:

 If "GPE.COM" = " " Then

Chờ thông tin kết quả từ bạn!

 

[XuanTruong1958]

Đâu cần xuống dòng mới đúng. Viết trên cùng dòng được mà
If a>=b Then c=d Else c=0
Giá như bạn đưa cái lỗi của mình lên thì mọi chuyện đã đơn giản hơn rất nhiều
Thân mến