Nhờ các Thầy, các bạn giải thích và rút gọn đoạn code sau

[nqt61]

Range("D6").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
"Kho du lieu/De thi V6 HKII 2011-2012.doc", ScreenTip:= _
"QLVB_Nguyen Quoc Toan", TextToDisplay:= _
"Kho du lieu\De thi V6 HKII 2011-2012.doc"
Range("D7").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
"Kho du lieu/ND12CP.DOC", ScreenTip:="QLVB_Nguyen Quoc Toan", _
TextToDisplay:="Kho du lieu\ND12CP.DOC"
Range("D8").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
"Kho du lieu/ND83CP.DOC", ScreenTip:="QLVB_Nguyen Quoc Toan", _
TextToDisplay:="Kho du lieu\ND83CP.DOC"
Range("D9").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
"Kho du lieu/ND85CP09.doc", ScreenTip:="QLVB_Nguyen Quoc Toan", _
TextToDisplay:="Kho du lieu\ND85CP09.doc"

 

[ndu96081631]

Range("D6").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
"Kho du lieu/De thi V6 HKII 2011-2012.doc", ScreenTip:= _
"QLVB_Nguyen Quoc Toan", TextToDisplay:= _
"Kho du lieu\De thi V6 HKII 2011-2012.doc"
Range("D7").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
"Kho du lieu/ND12CP.DOC", ScreenTip:="QLVB_Nguyen Quoc Toan", _
TextToDisplay:="Kho du lieu\ND12CP.DOC"
Range("D8").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
"Kho du lieu/ND83CP.DOC", ScreenTip:="QLVB_Nguyen Quoc Toan", _
TextToDisplay:="Kho du lieu\ND83CP.DOC"
Range("D9").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
"Kho du lieu/ND85CP09.doc", ScreenTip:="QLVB_Nguyen Quoc Toan", _
TextToDisplay:="Kho du lieu\ND85CP09.doc"

Quăng bài tùm lum sẽ bị cảnh cáo nha bạn