Vậy ng thức làm cột cuối như thế nào ạ? Mình làm như bên dưới mà

Vậy công thức làm cột cuối như thế nào ạ? Mình làm như bên dưới mà k đúng

Dim cotcuoi As Long

cotcuoi = Sheets("BT_DinhDang").Range(Columns.Count & "2").End(xlUp).Column

5 câu trả lời

555 lượt xem

vỗ tay

Giang Hưng 17:07 - Jul 14, 2021

Chào bạn bạn đọc bài sau nhé

https://gitiho.com/blog/vba-8211-huon...

vỗ tay

Giang Hưng 20:07 - Jul 14, 2021

Mình có đoạn mã bên dưới:

' DinhDang_Accent1

Range("A2:D2").Style = "Accent1"

Mình muốn thay cột D thành cột cuối.

Theo mình hiểu là cần 2 bước:

1. Tìm giá trị cột cuối.

lastcol trả về giá trị là 1 con số. Ví dụ: cột cuối cùng là cột E thì Lastcol trả về giá trị "5". Câu hỏi là làm sao để chuyển số 5 thành chữ E?

2. Ghép vào công thức trên

Mình chưa biết cách lắp vào đoạn mã trên

vỗ tay

Giang Hưng 22:07 - Jul 14, 2021

chào bạn, bạn làm như sau nhé

Option Explicit
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
    Range("a1:" & Cells(1, LastCol).Address).Style = "20% - Accent1"
End Sub

vỗ tay

Giang Hưng 11:09 - Sep 24, 2021

Thầy chữa giúp mục số 5 và 10 của bài 2 được không ạ, mình không hiểu rõ yêu cầu 2 mục này lắm.

vỗ tay

Giang Hưng 13:09 - Sep 24, 2021

Chào bạn phần này gitiho sẽ báo giảng viên để sản xuất video bạn nhé.

vỗ tay

Gói Hội viên Gitiho: Trọn bộ khoá học theo Khung năng lực

Gói Hội viên G-Skills: 03 kỹ năng bổ trợ thiết yếu

Vậy ng thức làm cột cuối như thế nào ạ? Mình làm như bên dưới mà

Câu hỏi liên quan