Kiến nghị về việc Viết code nên thêm phần chú giải---> Xử lý vào hậu viện!!! (1 người xem)

[hoaquynh407]

Theo tinh thần cuộc họp bất kỳ thường niên trong hạ tuần tháng 3/2011 vừa qua, một số thành viên chập chững đang tìm hiểu về VBA có ý kiến cho rằng:

Các trợ giúp code "Chân quê" hoặc "Code Pro" của các bậc tiền bối, trưởng lão, sư nương cần chú giải bên cạnh cho mỗi câu lệnh. Nhiều đề xuất cho rằng, các câu lệnh "Chân quê" hoặc "Code Pro" không chú giải sẽ đưa vào hậu viện (1 topic riêng) để tuyên dương vào ngày sinh nhật lần thứ 5 của diễn đàn giải pháp excel.

Giờ các bậc tiền bối, trưởng lão, sư nương sức khỏe còn tốt nên làm như thế để lưu truyền cho hậu sinh khả ái những kiến thức này.

Theo bạn

Nếu không sử dụng phương pháp chú giải bên cạnh cho mỗi câu code thì 60 năm sau sẽ không theo kịp với các hậu sinh

Phản biện của vị tiền bối lão làng "Hỏng yêu em nào 17"

Sợ không có diễm phúc đồng hành cùng với các bạn hậu sinh, nhỡ 1 lúc nào đi nghỉ hưu ở căn nhà 6 tấm.

Thông cảm cho Hoa Quỳnh Tiểu Thư, xin bộc bạch ý kiến chân tinh gởi đến các các bậc tiền bối, trưởng lão, sư nương xem xét hỗ trợ đến nơi đến chốn.

 

[Người Đưa Tin]

Tui thấy ý kiến này được đấy. Viết code cũng nên chú giải thêm sau câu lệnh để khi đọc lại còn nhớ lúc trước tại sao phải xử lý tình huống này.

Sub copydata()
rcount = Sheet1.[A60000].End(xlUp).Row - 8
With Sheet2
.Range("a10:z10000").ClearContents
.Range("ac10:al10000").ClearContents
.Range("B10:B" & rcount + 9).Value = Sheet1.Range("C9:C" & rcount + 8).Value
.Range("C10:C" & rcount + 9).Value = Sheet1.Range("B9:B" & rcount + 8).Value
.Range("g10:g" & rcount + 9).Value = Sheet1.Range("d9:d" & rcount + 8).Value
.Range("i10:j" & rcount + 9).Value = Sheet1.Range("e9:f" & rcount + 8).Value
.Range("a10:a" & rcount + 9).Value = "=IF(RC2<>R[-1]C2,MAX(R7C:R[-1]C)+1,"""")"
.Range("a10:a" & rcount + 9).Value = .Range("a10:a" & rcount + 9).Value
.Range("r10:r" & rcount + 9) = "=value(substitute(data1!r[-1]c7," & """ """ & "," & """""" & "))"
.Range("r10:r" & rcount + 9) = .Range("r10:r" & rcount + 9).Value
.Range("i10:i" & rcount + 9).Name = "TKNO"
.Range("j10:j" & rcount + 9).Name = "TKCO"
.Range("r10:r" & rcount + 9).Name = "SOTIEN"
.Range("ac10:ac" & rcount + 9).Value = Evaluate("=row(R:R)")
.Range("al10:al" & rcount + 9).Value = Evaluate("=row(R:R)")
Union(.Range("ad10:ad" & rcount + 9), .Range("af10:af" & rcount + 9), .Range("ah10:ah" & rcount + 9), .Range("aj10:aj" & rcount + 9)) = _
"=IF(R8C[1]=TKNO,SOTIEN,"""")"
Union(.Range("ae10:ae" & rcount + 9), .Range("ag10:ag" & rcount + 9), .Range("ai10:ai" & rcount + 9), .Range("ak10:ak" & rcount + 9)) = _
"=IF(R8C=TKCO,SOTIEN,"""")"
.Range("ac10:al" & rcount + 9).Value = .Range("ac10:al" & rcount + 9).Value
End With
End Sub

Giống như code trên nè, đọc hoài cũng không hiểu là sao nữa. Khà khà khà

 

[ptm0412]

Code viết vầy đâu cần chú giải đâu:

Function WinLottery(Nick As Member) As Boolean
Dim FirstConditions As Boolean
Dim ConditionsList(1 to 9) As Condition

    FirstConditions = True
    ConditionsList(1) = "Té cầu thang"
    ConditionsList(2) = "Gãy chân"
    ConditionsList(3) = "Bó bột"
    ConditionsList(4) = "Có tiên tắm cho"
    ConditionsList(5) = "Có hơn 100 con gái nuôi"
    ConditionsList(6) = "Có lão chết tiệt khuyến khích"
    ConditionsList(7) = "Có ít nhất 3 ngàn đồng"
    ConditionsList(8) = "Tự cưa chân thành công"
    ConditionsList(9) = "Có tiên kẹp giò phụ cưa"

    For i = 1 to 9
        FirstConditions = FirstConditions And (Nick. Condition = ConditionsList(i))
    Next

    WinLottery =  FirstConditions

End Function