Skip to content

Instantly share code, notes, and snippets.

@DuongAQ

DuongAQ/Loop_Test03.bas

Created January 22, 2018 09:21
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save DuongAQ/a0b00394b89cf9549830b78159b4180a to your computer and use it in GitHub Desktop.
Save DuongAQ/a0b00394b89cf9549830b78159b4180a to your computer and use it in GitHub Desktop.
Download ZIP
Raw
Loop_Test03.bas
Option Explicit
Sub Loop_Test03() 'Vòng lặp 3 vòng lồng nhau
Dim i As Integer
Dim j As Integer
Dim n as Integer
For i = 1 To 2 'Biến số cột
For j = 2 To 6 'Biến số dòng
For n = 1 to 3 'Biến số Sheet
If sheets(n).Cells(j, i) = "Book" Then sheets(n).Cells(j, 3) = "Yes"
Next n
Next j
Next i
End Sub
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment