Tiết kiệm tối đa với gói Hội viên Gitiho. Thỏa mãn việc nâng cao kiến thức của bạn với gói Hội viên Gitiho bạn sẽ không còn bị giới hạnbởi số lượng khóa học đã mua.
Gói hội viên Gitiho mang đến trải nghiệm học tập hoàn toàn mới, phù hợp với những học viên cần học nhiều nội dung trong trong một khoản thời gian sẽ giúp học viên tiết kiệm hơn rất nhiều so với mua lẻ hoặc combo.
Tối ưu và đơn giản hóa hoạt động đào tạo tại doanh nghiệp. Sẵn sàng nền tảng, nội dung đào tạo cho tất cả các vị trí, bộ phận. Ứng dụng MIỄN PHÍ ngay vào doanh nghiệp chỉ với MỘT click.
Em muốn điền thông tin cho dòng cuối xong kẻ khung cho dòng cuối mà em viết
Thầy ơi, cho em hỏi. Em muốn điền thông tin cho dòng cuối xong kẻ khung cho dòng cuối mà em viết range("B" & dongcuoi : "K" & dongcuoi).select Bị báo lỗi ạ. Thầy xem giúp em vói
Sub chondong() Dim dc As Long dc = Sheet1.Range("G" & Rows.Count).End(xlUp).Row Sheet1.Range("G" & dc, "I" & dc).Select Selection.Borders(xlDiagonalDown).LineStyle = xlNone Selection.Borders(xlDiagonalUp).LineStyle = xlNone With Selection.Borders(xlEdgeLeft) .LineStyle = xlContinuous .ColorIndex = 0 .TintAndShade = 0 .Weight = xlThin End With With Selection.Borders(xlEdgeTop) .LineStyle = xlContinuous .ColorIndex = 0 .TintAndShade = 0 .Weight = xlThin End With With Selection.Borders(xlEdgeBottom) .LineStyle = xlContinuous .ColorIndex = 0 .TintAndShade = 0 .Weight = xlThin End With With Selection.Borders(xlEdgeRight) .LineStyle = xlContinuous .ColorIndex = 0 .TintAndShade = 0 .Weight = xlThin End With With Selection.Borders(xlInsideVertical) .LineStyle = xlContinuous .ColorIndex = 0 .TintAndShade = 0 .Weight = xlThin End With End Sub
vỗ tay
Đào Thị Truc Quỳnh20:05 - May 23, 2020
Thứ 1: Code của bạn lỗi do dấu hai chấm bạn không đặt trong dấu nháy kép. Chú ý lại cách viết code với đối tượng Range nhé. Thứ 2: bạn record macro cho thao tác kẻ khung tại 1 vùng bất kỳ (như code do thầy Tuấn Ba cung cấp), sau đó thay đổi vùng đó bằng dòng cuối (như code của bạn đang viết ở trên)
vỗ tay
Đào Thị Truc Quỳnh21:05 - May 25, 2020
cám ơn thầy ạ
vỗ tay
Đào Thị Truc Quỳnh08:06 - Jun 09, 2020
Thầy cho em hỏi em viết code như bên duois nhưng vẫn báo lỗi: Sheets("Data").Range("B" & DongCuoi & ":O" & DongCuoi).Select thầy giúp giải thích với ạ
Sub Ke_Khung3() ' ' Ke_Khung3 Macro ' Dim DongCuoi As Long DongCuoi = Sheets("Data").Range("B" & Rows.Count).End(xlUp).Row Sheets("Data").Range("B" & DongCuoi & ":O" & DongCuoi).Select ActiveSheet.Unprotect Selection.Borders(xlDiagonalDown).LineStyle = xlNone Selection.Borders(xlDiagonalUp).LineStyle = xlNone With Selection.Borders(xlEdgeLeft) .LineStyle = xlContinuous .ColorIndex = 0 .TintAndShade = 0 .Weight = xlThin End With With Selection.Borders(xlEdgeTop) .LineStyle = xlContinuous .ColorIndex = 0 .TintAndShade = 0 .Weight = xlThin End With With Selection.Borders(xlEdgeBottom) .LineStyle = xlContinuous .ColorIndex = 0 .TintAndShade = 0 .Weight = xlThin End With With Selection.Borders(xlEdgeRight) .LineStyle = xlContinuous .ColorIndex = 0 .TintAndShade = 0 .Weight = xlThin End With With Selection.Borders(xlInsideVertical) .LineStyle = xlContinuous .ColorIndex = 0 .TintAndShade = 0 .Weight = xlThin End With With Selection.Borders(xlInsideHorizontal) .LineStyle = xlContinuous .ColorIndex = 0 .TintAndShade = 0 .Weight = xlThin End With Sheets("Data").Unprotect Password:="1" End Sub
@ 2020 - Bản quyền của Công ty cổ phần công nghệ giáo dục Gitiho Việt Nam Giấy chứng nhận Đăng ký doanh nghiệp số: 0109077145, cấp bởi Sở kế hoạch và đầu tư TP. Hà Nội