Giúp code VBA Chạy vòng lặp theo chu kỳ

Văn Toàn 1996 · 6/7/24

Xin chào toàn thể quý cô chú anh chị trên toàn quốc. Em cần 1 đoạn vba chạy theo vòng lặp từ 1 đến 100 chỉ lặp lại 3 đoạn code 1,2,3. Xin chân thành cảm ơn

Sub code1()
MsgBox ("abc")
End Sub

Sub code2()
MsgBox ("dasers")
End Sub

Sub code3()
MsgBox ("daserdadsgs")
End Sub

SA_DQ · 6/7/24

PHP:

Sub VongLap3_100()
 Dim J As Integer
 For J = 1 To 100
    If J Mod 3 <> 0 Then
        GPE J Mod 3
    Else
        GPE 3
    End If
 Next J
End Sub

Mã:

Sub GPE(W As Integer)
 MsgBox Str(W)
End Sub

Phuocam · 6/7/24

Hoặc thử code này:

Mã:

For i = 1 To 100
Select Case i Mod 3
   Case 1
   Call code1
   Case 2
   Call code2
   Case 0
   Call code3
End Select

CHAOQUAY · 6/7/24

Mã:

Option Explicit

Sub code1()
MsgBox "call code1"
End Sub

Sub code2()
MsgBox "call code2"
End Sub

Sub code3()
MsgBox "call code3"
End Sub


Sub A_A()
Dim i, j, k
On Error Resume Next
For i = 1 To 3 '10000000000
    j = i Mod 3 + 1
    k = "code" & j
    Run k
Next i
End Sub

- - - - - - - - - -

SA_DQ · 6/7/24

PHP:

Dim J As Integer
Sub Choose_3()
 For J = 1 To 10
    GPE Choose((J Mod 3) + 1, "Daserdadsgs", "ABC", "Dasers")
 Next J
End Sub

Mã:

Sub GPE(Tmp As String)
 MsgBox Tmp,,J
End Sub

VetMini · 6/7/24

Quý vị có thấy 3 lần gọi cuối cùng nó chả theo mót miếc gì hết hôn?

For i2 = 1 to 33
Code1
Code2
Code3
If i2 = 32 Then Code1 ' coi như i = 97
' đợt tới i coi như 98-99-100
Next i

Chú: biết là thớt cẩu thả nhưng mình cứ tưởng tượng gặp hợp khùng khịu thế này thì giải ra sao?

SA_DQ · 6/7/24

VetMini đã viết:
Quý vị có thấy 3 lần gọi cuối cùng nó chả theo mót miếc gì hết hôn?
. . . .
Chú: biết là thớt cẩu thả nhưng mình cứ tưởng tượng gặp hợp khùng khịu thế này thì giải ra sao?

Thì coi 3 số cuối này là trường hợp riêng so với mấy thằng 'không khùng' bên trên;

PHP:

Dim J As Integer
Sub Choose_3()
 Dim Tmp As String
 
 J = 0
 Do
    J = J + 1:              If J > 100 Then Exit Do
    If J = 10 Then J = 97
    If J > 97 Then
        Tmp = Switch(J = 98, "ABC", J = 99, "Dasers", J = 100, "Daserdadsgs", J = 101, "Quá Ngu")
        GPE Tmp
    Else
        GPE Choose((J Mod 3) + 1, "Daserdadsgs", "ABC", "Dasers")
    End If
 Loop
End Sub

Mã:

Sub GPE(Tmp As String)
 MsgBox Tmp, , J
End Sub

HeSanbi · 6/7/24

@Văn Toàn 1996
Bạn có thể sử dụng toán tử Mod, do khi chia dư số bị chia bằng số được chia sẽ là 0 nên cần giảm đi 1 giá trị, và thêm 1 giá trị sau khi chia.

JavaScript:

Sub testCallByStep()
  Dim i%, iStep%
  iStep = 3
  While i < 100
    i = i + 1
    ' cach goi 1
    Application.OnTime Now,"'" & ThisWorkbook.Name & "'!code" & CStr((i - 1) Mod iStep + 1)
    ' cach goi 2
    Application.Run "'" & ThisWorkbook.Name & "'!code" & CStr((i - 1) Mod iStep + 1)
  Wend
End Sub

Trần Văn Bình · 6/7/24

HeSanbi đã viết:
@Văn Toàn 1996
Bạn có thể sử dụng toán tử Mod, do khi chia dư số bị chia bằng số được chia sẽ là 0 nên cần giảm đi 1 giá trị, và thêm 1 giá trị sau khi chia.

JavaScript:

Sub testCallByStep() Dim i%, iStep% iStep = 3 While i < 100 i = i + 1 ' cach goi 1 Application.OnTime Now,"'" & ThisWorkbook.Name & "'!code" & CStr((i - 1) Mod iStep + 1) ' cach goi 2 Application.Run "'" & ThisWorkbook.Name & "'!code" & CStr((i - 1) Mod iStep + 1) Wend End Sub

mình chạy thử bị lỗi dòng này: Application.Run "'" & ThisWorkbook.Name & "'!code" & CStr((i - 1) Mod iStep + 1)

HeSanbi · 6/7/24

Nếu có trường hợp i = 98 Code1 ... Thì bạn thêm CStr((i - 1 + (i>=98) * 97 ) Mod iStep + 1)

@Trần Văn Bình bạn chép 3 thủ tục bài chính

CHAOQUAY · 7/7/24

VetMini đã viết:
Quý vị có thấy 3 lần gọi cuối cùng nó chả theo mót miếc gì hết hôn?

For i2 = 1 to 33
Code1
Code2
Code3
If i2 = 32 Then Code1 ' coi như i = 97
' đợt tới i coi như 98-99-100
Next i

Chú: biết là thớt cẩu thả nhưng mình cứ tưởng tượng gặp hợp khùng khịu thế này thì giải ra sao?

Chắc có lẽ chủ thớt tính nhẩm 100 - 1 = 99 chia hết cho 3

VetMini · 7/7/24

CHAOQUAY đã viết:
Chắc có lẽ chủ thớt tính nhẩm 100 - 1 = 99 chia hết cho 3

Ai mà biết được lô gic của mấy bộ óc đi trước thời đại 10 năm.

Văn Toàn 1996 · 7/7/24

CHAOQUAY đã viết:

Mã:

Option Explicit

Sub code1()
MsgBox "call code1"
End Sub

Sub code2()
MsgBox "call code2"
End Sub

Sub code3()
MsgBox "call code3"
End Sub


Sub A_A()
Dim i, j, k
On Error Resume Next
For i = 1 To 3 '10000000000
    j = i Mod 3 + 1
    k = "code" & j
    Run k
Next i
End Sub

- - - - - - - - - -

Code bạn Test kỷ là Sai Nhé. nó chạy Code 2 -> Code 3 -> Code 1. Sai ở lần đầu tiên
Mình Chỉnh lại chính xác tuyệt đối nhé

Mã:

Sub Main()
    Dim i As Long
    For i = 1 To 9
        Select Case i Mod 3
            Case 1
                code1
            Case 2
                 code2
            Case 0
                 code3
        End Select
    Next i
End Sub

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

VetMini đã viết:
Quý vị có thấy 3 lần gọi cuối cùng nó chả theo mót miếc gì hết hôn?

For i2 = 1 to 33
Code1
Code2
Code3
If i2 = 32 Then Code1 ' coi như i = 97
' đợt tới i coi như 98-99-100
Next i

Chú: biết là thớt cẩu thả nhưng mình cứ tưởng tượng gặp hợp khùng khịu thế này thì giải ra sao?

Chổ tới 98,99,100 là người ta Minh Họa đến 1 số nào đó chỉ là 1 con số ví dụ. Còn muốn đúng chu kỳ ví dụ 3 chu kỳ mà muốn lặp lại 30 lần thì Next i đến 99.

CHAOQUAY · 7/7/24

Văn Toàn 1996 đã viết:
Code bạn Test kỷ là Sai Nhé. nó chạy Code 2 -> Code 3 -> Code 1. Sai ở lần đầu tiên
Mình Chỉnh lại chính xác tuyệt đối nhé

Mã:

Sub Main() Dim i As Long For i = 1 To 9 Select Case i Mod 3 Case 1 code1 Case 2 code2 Case 0 code3 End Select Next i End Sub

Có lẽ không cần thiết phải mất công code lại đâu bạn.
Cái vòng lặp trong sub A_A chỉ cần cho bắt đầu từ 0 là đâu vào đấy ngay thôi

Văn Toàn 1996 · 7/7/24

SA_DQ đã viết:
PHP:

Sub VongLap3_100() Dim J As Integer For J = 1 To 100 If J Mod 3 <> 0 Then GPE J Mod 3 Else GPE 3 End If Next J End Sub

Mã:

Sub GPE(W As Integer) MsgBox Str(W) End Sub

Anh nói người ta Điên Khùng Nhưng code của anh Trật Lất. code chạy sai thứ tự từ 1 đến 3 và lặp lại
Sai: code 2 -> code 1 -> Code 3
Đúng: Code 1-> code 2-> code 3

Mã:

Dim J As Integer
Sub Choose_3()
 For J = 1 To 9
    GPE Choose((J Mod 3) + 1, "Code 3", "code 2", "Code 1")
 Next J
End Sub

Sub GPE(Tmp As String)
 MsgBox Tmp, , J
End Sub

Bớt khinh thường lại đi. Già rồi

VetMini · 7/7/24

Văn Toàn 1996 đã viết:
...
Chổ tới 98,99,100 là người ta Minh Họa đến 1 số nào đó chỉ là 1 con số ví dụ. Còn muốn đúng chu kỳ ví dụ 3 chu kỳ mà muốn lặp lại 30 lần thì Next i đến 99.

Ví dụ sai thì ví dụ làm chi.
3 x 30 = 90
Lại lô gic đi trước thiên hạ 10 năm.

Chú thích về gọi hàm kết nối trễ:
Tại sao lại phải dùng Run để chạy 3 hàm đã xác định? (ở đây chỉ có 3 hàm chứ có phải cả chục đâu)
Tốn 99 lần nối chuỗi, thêm 99 lần kết nối trễ.

Giúp code VBA Chạy vòng lặp theo chu kỳ

Văn Toàn 1996

Thành viên bị đình chỉ hoạt động

SA_DQ

/(hông là gì!

Phuocam

Thành viên mới

CHAOQUAY

Thành viên gắn bó

SA_DQ

/(hông là gì!

VetMini

Ăn cùng góc phố

SA_DQ

/(hông là gì!

HeSanbi

Nam Nhân✨Hiếu Lễ Nghĩa Trí Tín✨

Trần Văn Bình

GTVT

HeSanbi

Nam Nhân✨Hiếu Lễ Nghĩa Trí Tín✨

CHAOQUAY

Thành viên gắn bó

VetMini

Ăn cùng góc phố

Văn Toàn 1996

Thành viên bị đình chỉ hoạt động

CHAOQUAY

Thành viên gắn bó

Văn Toàn 1996

Thành viên bị đình chỉ hoạt động

VetMini

Ăn cùng góc phố

Bài viết mới nhất

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng