Banotnt
Thành viên mới
- Tham gia
- 9/6/22
- Bài viết
- 16
- Được thích
- 0
Sub TimTriDongCuoiCotF()
Dim Rws As Long, TriCD As Long, VTr As Integer, TriCuoi
Rws = [F65500].End(xlUp).Row
TriCuoi = Cells(Rws, "F").Value
VTr = InStr(TriCuoi, "-")
If VTr Then
TriCuoi = Mid(TriCuoi, VTr + 1, Len(TriCuoi))
End If
MsgBox "Don Vi Bao Quan Này Gôm Có : " & TriCuoi & " Tò"
End Sub
Thu vẩy tay, tình còn ở lại
...Mùa thu mới đến, hứng thú lại vừa đi.
Sáng mới ngồi ôn mớ chuyện vuiThu vẩy tay, tình còn ở lại
Xa rồi con phố nhỏ đầu đông
Gió bất, má ai ửng hồng
Tiếp nhau ý tưởng mồi nồng nụ tươi
Bên hồ rộng mây nghiêng trầm lắng
Cuối thu trời rộng & mây cao
Xa lắm bước ai sải mau
Dừng như làm vậy, nó nhàu lá cây!