Gitiho contest
Cùng gitiho contest chinh phục kiến thức, khẳng định bản thân với hệ thống bài test phong phú, đầy đủ các chủ đề để bạn khám phá.
Lộ trình học tập
Khám phá đỉnh cao tri thức cùng Gitiho qua hành trình học tập được thiết kế tỉ mỉ và toàn diện. Với kho tàng lộ trình đa dạng, chuyên sâu trên mọi lĩnh vực, chúng tôi sẽ đồng hành cùng bạn khai phá tiềm năng, chinh phục thách thức và khẳng định giá trị bản thân. Mỗi hành trình đều được nghiên cứu công phu, tạo nên bước đệm vững chắc để bạn tự tin bứt phá và tỏa sáng trên con đường phát triển sự nghiệp."
Gitiho for leading business
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.
Đã được tin tưởng sử dụng bởi các doanh nghiệp
tìm cột cuối trong bảng để kẻ khung
anh chị cho em hỏi ,em mới học á, cách viết VBA mà kẻ khung theo dòng tiêu đề của khung mà không giới hạn á , kiểu mình thêm cột vào bản thì cột đó sẽ chưa kẻ khung thì mình viết code ntn ạ
3 câu trả lời
21 lượt xem
vỗ tay
Chào bạn bạn viết code tìm cột cuối
Sub LastColumnInOneRow()
'Find the last used column in a Row: row 1 in this example
Dim LastCol As Integer
With ActiveSheet
LastCol = .Cells(1, .Columns.Count).End(xlToLeft).Column
End With
MsgBox LastCol
End Sub
bạn tìm cột cuối rồi sẽ viết code kẻ khung tới cột bạn nhé.
vỗ tay
Em chạy code ko đc thầy ơi , thầy xem giúp em viết vậy đúng không ạ
Sub tim_dongcuoi()
Dim cotcuoi As Integer
cotcuoi = Sheets("BT_DinhDang").Cells(2, Sheets("BT_DinhDang").Cloumns.Count).End(xlToLeft).Cloumn
MsgBox cotcuoi
End Sub
vỗ tay
Bạn đẩy file của bạn lên giúp gitiho nhé.
vỗ tay
Câu hỏi liên quan
Top
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
Giấy phép mạng xã hội số: 588, cấp bởi Bộ Thông tin và Truyền thông