Giải thích COD

[Chian91]

Em có COD sau, nhưng em không được hiểu, mong cả nhà giải thích giúp em với ạ.
Sub In()
Dim str As String
Dim Arr As Variant
With Sheets("Sheet1")
If Cells(11, 6) Then str = str & vbBack & "A"
If Cells(12, 6) Then str = str & vbBack & "B"
If Cells(13, 6) Then str = str & vbBack & "C"
Arr = Split(Mid(str, 2), vbBack)
Sheets(Arr).Select
ActiveWindow.SelectedSheets.PrintPreview
'Sheets("A").PrintOut
'Sheets("B").PrintOut
'Sheets("C").PrintOut
End With
End Sub

 

[hoanganhvo2612]

Em có COD sau, nhưng em không được hiểu, mong cả nhà giải thích giúp em với ạ.
Sub In()
Dim str As String
Dim Arr As Variant
With Sheets("Sheet1")
If Cells(11, 6) Then str = str & vbBack & "A"
If Cells(12, 6) Then str = str & vbBack & "B"
If Cells(13, 6) Then str = str & vbBack & "C"
Arr = Split(Mid(str, 2), vbBack)
Sheets(Arr).Select
ActiveWindow.SelectedSheets.PrintPreview
'Sheets("A").PrintOut
'Sheets("B").PrintOut
'Sheets("C").PrintOut
End With
End Sub

Code này bạn lấy ở đâu vậy, tác dụng của code là in các sheet dựa vào giá trị cột 6 (cột F) và các hàng 11, 12, 13
Code này sẽ có lúc chạy sai nếu activesheet không là sheet1

 

[Chian91]

Code này bạn lấy ở đâu vậy, tác dụng của code là in các sheet dựa vào giá trị cột 6 (cột F) và các hàng 11, 12, 13
Code này sẽ có lúc chạy sai nếu activesheet không là sheet1

COD này e lấy trong 1 bài viết ở diễn đàn thôi ạ. có file đính kèm nhưng e không hiểu nội dung trong cod, mong a giải thích giúp em với ạ. em cảm ơn nhiều ạ.

 

[hoanganhvo2612]

COD này e lấy trong 1 bài viết ở diễn đàn thôi ạ. có file đính kèm nhưng e không hiểu nội dung trong cod, mong a giải thích giúp em với ạ. em cảm ơn nhiều ạ.

thì code này như mình bảo là code in các sheet theo điều kiện, điều kiện ở đây là các ô F11, F12, F13. Cái nào là true thì in sheet tường ứng.
Code chưa chuẩn chỗ này thôi: Cells(11, 6), chính xác phải là .Cells(11, 6) (thêm "." vào trước)

 

[Chian91]

thì code này như mình bảo là code in các sheet theo điều kiện, điều kiện ở đây là các ô F11, F12, F13. Cái nào là true thì in sheet tường ứng.
Code chưa chuẩn chỗ này thôi: Cells(11, 6), chính xác phải là .Cells(11, 6) (thêm "." vào trước)

Em không hiểu đoạn này, bác giải thích rõ giúp em được không ạ

Then str = str & vbBack & "C"
Arr = Split(Mid(str, 2), vbBack)

 

[hoanganhvo2612]

Em không hiểu đoạn này, bác giải thích rõ giúp em được không ạ

Then str = str & vbBack & "C"
Đây là câu lệnh nối chuỗi thôi, ví dụ chuỗi str ban đầu là "B" thì câu này sẽ là "B" & vbback & "C" kết quả là B C (mình ko rõ vbback là ký tự gì, hình như ký tự trắng, bạn có thể thay vbBack bằng cái khác như dấu , @......)

Arr = Split(Mid(str, 2), vbBack)
Bạn tìm hiểu thêm hàm Spit - hàm tách chuỗi theo ký tự

 

[befaint]

https://www.giaiphapexcel.com/diendan/help/terms/

 

[VetMini]

Giải thích COD:
Tiếng Anh, COD có hai nghĩa.
Theo nghĩa giao dịch thường ngày thì nó là viết tắt của từ Cash on Delivery - tiền trao cháo múc.
Theo nghĩa vạn vật học thì cod là con cá bống mú.
Nghĩa khác, thường nghe thấy trong các phim phá án Mẽo: nó là từ viết tắt của Cause of Death - nguyên nhân gây tử.