Giải thích giúp em đoạn code về đặt mật mã

[hoangspk]

Private Sub CommandButton1_Click()
If Cells(1, "a") <> "ok" Then
MatMa = InputBox("NHAP VAO TU KHOA DE CO THE SU DUNG DAY DU CAC CHUC NANG CUA BANG TINH!@!@ #################################", "LE PHUONG BINH", 9000, 1000)
End If
If MatMa = "190783" Then Cells(1, "a") = "ok"
If Cells(1, "a") = "ok" Then
Tiso = Val(Cells(10, "J")) / Val(Cells(9, "J"))
For i = 21 To 42
If Cells(i, "B") <> "" And Cells(i + 1, "B") = "" Then k = i
Next i
Cells(k + 1, "B") = Cells(9, "M")
Cells(k + 1, "C") = Cells(10, "M")
Cells(k + 1, "D") = Cells(16, "D")
Cells(k + 1, "E") = Cells(17, "D")
Cells(k + 1, "F") = Cells(11, "j")
Cells(k + 1, "G") = Cells(9, "j")
Cells(k + 1, "H") = Cells(10, "j")
Cells(k + 1, "O") = Tiso
End If
End Sub
View attachment THIET KE SAN_PBF.rar

anh chị giúp em giải thich đoạn code này với, em đọc mà không hiểu, em mới học excel

 

[ChanhTQ@]

Private Sub CommandButton1_Click()
1  If Cells(1, "a") <> "ok" Then
         MatMa = InputBox("NHAP VAO TU KHOA DE CO THE SU DUNG DAY DU CAC CHUC NANG CUA BANG TINH!@!@         #################################", "LE PHUONG BINH", 9000, 1000)
3  End If
          If MatMa = "190783" Then Cells(1, "a") = "ok"
5     If Cells(1, "a") = "ok" Then
                 Tiso = Val(Cells(10, "J")) / Val(Cells(9, "J"))
7                 For i = 21 To 42
                         If Cells(i, "B") <> "" And Cells(i + 1, "B") = "" Then k = i
9                 Next i

                 Cells(k + 1, "B") = Cells(9, "M")
11                 Cells(k + 1, "C") = Cells(10, "M")
                 Cells(k + 1, "D") = Cells(16, "D")
13                 Cells(k + 1, "E") = Cells(17, "D")
                 Cells(k + 1, "F") = Cells(11, "j")
15         Cells(k + 1, "G") = Cells(9, "j")
         Cells(k + 1, "H") = Cells(10, "j")
17         Cells(k + 1, "O") = Tiso
    End If
19
End Sub

View attachment 43900

(1): Nếu tại [A1] <> "ok" thì thực hiện dòng lệnh 2;
(2): Hãy nhập trị cho biến có tên là MatMa;
(3) Kết thúc điều kiện If của dòng (1) - (Ghi tắc: Kết thúc If (1))
(4) Nếu trị trong biến MatMa là 190783 thì [a1] chứa chuỗi "ok"
(5) Nếu trị trong [A1] là "ok" thì thực hiện các lệnh cho đến khi kết thúc kết thúc If (2)
(6) Lấy tỉ số giữa ô [J9] & [J10] gán vô biến TiSo
(7) Thiết lập vòng lặp For . . Next theo biến i từ 21 cho đến 42
(8) Nếu trị của các ô cột 'B' (dòng biến thiên theo i) khác rỗng thì biến K được gán trị bằng với i
(9) Kết thúc vòng lặp For
(10). .(17) Gán trị các ô tương tự như đã ghi

Dịch là dịch vậy thôi; Nhưng có bất ổn ở chổ xài biến K hiện đang có vấn đề này nọ.

 

[hoangspk]

vậy mình làm cách nào để hiện đầy đủ bảng tính vậy bạn, mình có thấy chổ nào để nhập mật mã đâu

 

[SA_DQ]

Thứ nhất, bạn mới biết về excel thì khoan vội ngâm cứu về VBA;

Thứ nhì: Nếu trước khi cho macro chạy, mà [A1] đã là "ok" sẵn rồi sẽ không hiện hộp thoại để bạn nhập trị cho biến MatMa đâu;
Muốn thấy hộp thoại thân thương của bạn thì: Trước khi chạy macro, bạn nhập "GPE" hay cái gì khác vô [A1]

Chúc nhiều thành công!

 

[hoangspk]

Thứ nhất, bạn mới biết về excel thì khoan vội ngâm cứu về VBA;

Thứ nhì: Nếu trước khi cho macro chạy, mà [A1] đã là "ok" sẵn rồi sẽ không hiện hộp thoại để bạn nhập trị cho biến MatMa đâu;
Muốn thấy hộp thoại thân thương của bạn thì: Trước khi chạy macro, bạn nhập "GPE" hay cái gì khác vô [A1]

Chúc nhiều thành công!

cảm ơn bạn nhiều, tôi đang học để làm 1 bảng tính của dân xây dựng, do đó không thể k học vba được, mong được mọi người giúp đỡ!