Cách xác định số chẵn số lẻ (1 người xem)

[tnfsmith]

Hi all,
Mình có vấn đề này nhờ mọi người tư vấn. Mình muốn xác định số chẵn số lẻ tại một cell cụ thể (cells g5 ở sheet2 chẳng hạn) để thực hiện một số tác vụ khác sau khi đã định được nó là odd or even.

Nếu even (số chẵn) in một vùng chỉ định số chẳn

Nếu odd (số lẻ) có 2 trường hợp:
1.nếu lẻ bằng 1 thì in một vùng lẻ chỉ định khác vùng chẳn
2. và lẻ lớn hơn 1 (3 chẳng hạn) thì in vùng even và phần lẻ còn lại thì in vùng odd.
VD:
tại ổ G5 ở sheet2 =2 ==> even ==>In vùng chẳn
tại ổ G5 ở sheet2 =1 ==>odd ==> In vùng lẻ
tại ổ G5 ở sheet2 =3 ==>odd (có 2 trường hợp) ==> In vùng chẳn even (3-1=2) và in tiếp vùng lẻ odd (1) còn lại
......

Mình chỉ cần giải thuật cho vấn đề này còn phần định dạng vùng in odd hoặc even thì mình đã có sẳng.
Xin cảm ơn!

 

[dhn46]

Để xác định chẵn hay lẻ của một số bạn có thể dựa vào phép chia cho 2.

 

[VetMini]

If (Sheet2.Range("G5") > 3) Then
Bố_ai_biết_phải_làm_cái_quái_gì
Else
If (Sheet2.Range("G5") And 2) Then In_vùng_2
If (Sheet2.Range("G5") And 1) Then In_vùng_1
End If

Hết

 

[tnfsmith]

If (Sheet2.Range("G5") > 3) Then
Bố_ai_biết_phải_làm_cái_quái_gì
Else
If (Sheet2.Range("G5") And 2) Then In_vùng_2
If (Sheet2.Range("G5") And 1) Then In_vùng_1
End If

Hết

Thanks, nhưng vẫn chưa chuẩn bạn ơi

 

[hungpecc1]

Hi all,
Mình có vấn đề này nhờ mọi người tư vấn. Mình muốn xác định số chẵn số lẻ tại một cell cụ thể (cells g5 ở sheet2 chẳng hạn) để thực hiện một số tác vụ khác sau khi đã định được nó là odd or even.

Nếu even (số chẵn) in một vùng chỉ định số chẳn

Nếu odd (số lẻ) có 2 trường hợp:
1.nếu lẻ bằng 1 thì in một vùng lẻ chỉ định khác vùng chẳn
2. và lẻ lớn hơn 1 (3 chẳng hạn) thì in vùng even và phần lẻ còn lại thì in vùng odd.
VD:
tại ổ G5 ở sheet2 =2 ==> even ==>In vùng chẳn
tại ổ G5 ở sheet2 =1 ==>odd ==> In vùng lẻ
tại ổ G5 ở sheet2 =3 ==>odd (có 2 trường hợp) ==> In vùng chẳn even (3-1=2) và in tiếp vùng lẻ odd (1) còn lại
......

Mình chỉ cần giải thuật cho vấn đề này còn phần định dạng vùng in odd hoặc even thì mình đã có sẳng.
Xin cảm ơn!

Sub XXX()
    tmp = sheet2.Range("G5") Mod 2
    If tmp Then
        If sheet2.Range("G5") > 3 Then
           ' In vung chan + in vung le
        Else
            'In vung le
        End If
    Else
        'In vung chan
    End If
            
End Sub

 

[Quang_Hải]

Hi all,
Mình có vấn đề này nhờ mọi người tư vấn. Mình muốn xác định số chẵn số lẻ tại một cell cụ thể (cells g5 ở sheet2 chẳng hạn) để thực hiện một số tác vụ khác sau khi đã định được nó là odd or even.

Nếu even (số chẵn) in một vùng chỉ định số chẳn

Nếu odd (số lẻ) có 2 trường hợp:
1.nếu lẻ bằng 1 thì in một vùng lẻ chỉ định khác vùng chẳn
2. và lẻ lớn hơn 1 (3 chẳng hạn) thì in vùng even và phần lẻ còn lại thì in vùng odd.
VD:
tại ổ G5 ở sheet2 =2 ==> even ==>In vùng chẳn
tại ổ G5 ở sheet2 =1 ==>odd ==> In vùng lẻ
tại ổ G5 ở sheet2 =3 ==>odd (có 2 trường hợp) ==> In vùng chẳn even (3-1=2) và in tiếp vùng lẻ odd (1) còn lại
......

Mình chỉ cần giải thuật cho vấn đề này còn phần định dạng vùng in odd hoặc even thì mình đã có sẳng.
Xin cảm ơn!

Mình thì nghĩ đơn giản. Cứ từng câu mà xử tới.

If sheet2.[G5]= 1 then VungLe.PrintOut
If sheet2.[G5]= 2 then VungChan.PrintOut
If sheet2.[G5]= 3 then
   VungChan.PrintOut
   VungLe.PrintOut
End If

 

[hungpecc1]

Mình thì nghĩ đơn giản. Cứ từng câu mà xử tới.

If sheet2.[G5]= 1 then VungLe.PrintOut
If sheet2.[G5]= 2 then VungChan.PrintOut
If sheet2.[G5]= 3 then
   VungChan.PrintOut
   VungLe.PrintOut
End If

=4 thì in vùng nào anh ơi

Nếu even (số chẵn) in một vùng chỉ định số chẳn

Nếu odd (số lẻ) có 2 trường hợp:
1.nếu lẻ bằng 1 thì in một vùng lẻ chỉ định khác vùng chẳn
2. và lẻ lớn hơn 1 (3 chẳng hạn) thì in vùng even và phần lẻ còn lại thì in vùng odd.

 

[Quang_Hải]

=4 thì in vùng nào anh ơi

Ai biết đâu, mình chỉ cho in 3 số thì in 3 số thôi. Tác giả biết viết code thì cứ gom hết các bài trả lời sẽ in được thôi. Nếu chiu khó gởi file lên và rõ ràng chút thì code cái xẹt là xong. Còn mấy vụ chẳng hạn, giả sử, ví dụ gì đó thì mình cứ phang ào ào. Hên thì trúng, trật thì mau lên sao. ka ka ka

 

[tnfsmith]

Sub XXX()
    tmp = sheet2.Range("G5") Mod 2
    If tmp Then
        If sheet2.Range("G5") > 3 Then
           ' In vung chan + in vung le
        Else
            'In vung le
        End If
    Else
        'In vung chan
    End If
            
End Sub

Thanks bạn.
Trường hợp bằng chẳn thì in ok
Trường hợp lẻ lớn hơn hoặc bằng 3 nó in vẫn sai.

 

[tnfsmith]

Mình nói vầy cho mọi người dễ hình dung. Mình dựa trên vòng lặp for để truy vấn cùng lúc 2 dòng lên cùng lúc 2 form để in ra máy in kim. Vấn đề còn lại là vòng lặp này chạy một lúc ra 2 form nghĩa là luôn là ra chẳn nếu lẻ dòng (vd:3,5,7,9,... dòng) thì nó sẽ in ra dư 1 form vì vậy nếu có cách nào xác định được số dòng còn lại lớn hơn 1 thì sẽ in ra bình thường 2 form cùng lúc nếu bằng 1 thì in 1 form thôi.
Xin cám ơn

 

[VetMini]

...
Trường hợp lẻ lớn hơn hoặc bằng 3 nó in vẫn sai.

Mọi người đều đặt câu hỏi: "lớn hơn 3 thì làm gì?" mà bạn có giải thích đâu. Bây giờ lại nói "lớn hơn hoặc bằng 3 nó in vẫn sai"

Nếu chịu khó đừng dùng tiếng ngoại ngữ có lẽ hiểu rõ tiếng Việt hơn.
Nếu bạn không hiểu tiếng Việt lắm thì tôi giải thích bằng tiếng Anh vậy:
This is a complete breakdown in communication . The person is so preoccupied with getting an easy answer that he/she ignores all requests for further information.
The question is: what the hell you want the code to do when the number in question is larger than 3?
For example: what to do with 4 and 5

 

[tnfsmith]

Mọi người đều đặt câu hỏi: "lớn hơn 3 thì làm gì?" mà bạn có giải thích đâu. Bây giờ lại nói "lớn hơn hoặc bằng 3 nó in vẫn sai"

Nếu chịu khó đừng dùng tiếng ngoại ngữ có lẽ hiểu rõ tiếng Việt hơn.
Nếu bạn không hiểu tiếng Việt lắm thì tôi giải thích bằng tiếng Anh vậy:
This is a complete breakdown in communication . The person is so preoccupied with getting an easy answer that he/she ignores all requests for further information.
The question is: what the hell you want the code to do when the number in question is larger than 3?
For example: what to do with 4 and 5

Thanks bạn, nếu bạn chịu khó đọc lại bài post của tôi phía trước thì tôi có giải thích rõ ràng là từ 3 trở lên sẽ xử lý thế nào.

 

[VetMini]

Đầu hàng !