THU GỌN CODE VBA

[quoctuan23rd]

Chào mọi người! Em có 1 đoạn code như bên dưới, em muốn thu gọn hàm này, không muốn nhập các giá trị vào ô "S2", "T2" mà gán trực tiếp giá trị cho biến Machung được không ạ? Em đã thử rất nhiều cách nhưng đều không thể. Rất mong nhận được sự góp ý của mọi người ạ! Em cảm ơn!

    With Application.ThisWorkbook.Sheets("Diem chi tiet")
        .Range("S2").Value = FileName
        .Range("T2").Value = "=VLOOKUP(R2C19,'Mon hoc'!R5C3:R401C4,2,0)"
        Machung = .Range("T2").Value
        i = .Range([A5], [SY5]).Find(Machung).Column
    End With

 

[huuthang_bd]

Chào mọi người! Em có 1 đoạn code như bên dưới, em muốn thu gọn hàm này, không muốn nhập các giá trị vào ô "S2", "T2" mà gán trực tiếp giá trị cho biến Machung được không ạ? Em đã thử rất nhiều cách nhưng đều không thể. Rất mong nhận được sự góp ý của mọi người ạ! Em cảm ơn!

    With Application.ThisWorkbook.Sheets("Diem chi tiet")
        .Range("S2").Value = FileName
        .Range("T2").Value = "=VLOOKUP(R2C19,'Mon hoc'!R5C3:R401C4,2,0)"
        Machung = .Range("T2").Value
        i = .Range([A5], [SY5]).Find(Machung).Column
    End With

Bạn có thể viết vầy:

Machung = Application.WorksheetFunction.VLookup(FileName, Sheets("Mon hoc").Range("C5:D401"), 2, 0)

 

[quoctuan23rd]

Bạn có thể viết vầy:

Machung = Application.WorksheetFunction.VLookup(FileName, Sheets("Mon hoc").Range("C5:D401"), 2, 0)

Cảm ơn anh rất nhiều! Em đã làm được ạ!