Giúp code lặp lại theo chu kỳ (1 người xem)

[congnguyen88]

Sub phongtothunho()
If Range("V8") = 1 Then
Application.DisplayFullScreen = True
Range("V8") = 0
Else
Application.DisplayFullScreen = False
Range("V8") = 1
End If
End Sub

Đoạn code trên có chức năng như sau: khi Click vào nút bấm thì màn hình phóng to, Click vào nút bấm lần nữa thì màn hình nhỏ lại, và chu kỳ lặp lại. tại mình còn yếu VBA lắm nên mình lấy Range("V8") làm điều kiện, vậy có cách nào khắc phục không . mong mọi người giúp đở, xin cảm ơn

 

[vietapp]

Application.DisplayFullScreen = Not Application.DisplayFullScreen

 

[congnguyen88]

Application.DisplayFullScreen = Not Application.DisplayFullScreen

Ok xin cảm ơn bạn. Vậy mình muốn Click lần 1 là làm cái gì đó, lần 2 làm cái gì đó, lần 3 làm cái gì đó....lần 10 quay lại như lần 1 thì làm sao

 

[Hau151978]

Ok xin cảm ơn bạn. Vậy mình muốn Click lần 1 là làm cái gì đó, lần 2 làm cái gì đó, lần 3 làm cái gì đó....lần 10 quay lại như lần 1 thì làm sao

Sub a()
Static solan
solan = solan + 1
If solan=10 then solan=1
Select Case solan
Case 1
'...
Case 2
'...
Case 9
'...
End Select
End Sub

 

[MuaBuiRoi]

Ok xin cảm ơn bạn. Vậy mình muốn Click lần 1 là làm cái gì đó, lần 2 làm cái gì đó, lần 3 làm cái gì đó....lần 10 quay lại như lần 1 thì làm sao

Thì dùng select case nhé

Select Case commandbutton1.caption
          Case "lan 1"
                '' do smt lan 1
                commandbutton1.caption="lan 2"
          Case "lan 2"
                '' do smt lan 2
                commandbutton1.caption="lan 3"

                ...................
                ...................

          Case "lan 10"
                '' do smt lan 10
                commandbutton1.caption="lan 1"

End Select

Viết đại code bỏ túi thế, bạn biết VBA rui nên không khó , cứ thế mà làm

bạn hỏi kiểu làm cái gì đó: nên sẽ nhận được câu trả lời.. viết cái gì đó , kiểu như thế như thế

 

[sealand]

Chả phải select chi hết chỉ cần 2 vòng lặp chồng nhau là sử lý đúng ý đồ

 

[Hau151978]

Chả phải select chi hết chỉ cần 2 vòng lặp chồng nhau là sử lý đúng ý đồ

Hai vòng lặp thì làm thế nào hả bác?

 

[VetMini]

Chả phải select chi hết chỉ cần 2 vòng lặp chồng nhau là sử lý đúng ý đồ

Việc vòng lặp hay select, if else này nọ không thể xác định được. Nó tuỳ theo những "cái gì đó" của chủ thớt muốn làm chúng có gần giống nhau hay không.

Nếu chúng không giống nhau lắm thì code Select Case là code tối ưu để chọn lựa. Nếu chúng gần giống nhau thì Select Case sẽ bị lặp lại code nhiều lần.