Giúp tạo code thi hành lệnh đặt sẳn cố định (1 người xem)

[PeterQ]

Xin chào các anh chị,

Anh chị nào giúp em tạo Marco khi nhấn play thì

1. Tự động chuyển font size toàn bộ lên 16
2. Tự động chỉnh kích thước cột (chiều rộng) cho bằng giá trị trong ô
2. Tự động xóa cột D
3. Tự động tăng chiều cao dòng lên 18 và canh giữa dòng

Vui lòng giúp vì 1 ngày em làm những thao tác trên chắc tầm vài chục lần

Em cám ơn

 

[nguyenthuy13388]

Xin chào các anh chị,

Anh chị nào giúp em tạo Marco khi nhấn play thì

1. Tự động chuyển font size toàn bộ lên 16
2. Tự động chỉnh kích thước cột (chiều rộng) cho bằng giá trị trong ô
2. Tự động xóa cột D
3. Tự động tăng chiều cao dòng lên 18 và canh giữa dòng

Vui lòng giúp vì 1 ngày em làm những thao tác trên chắc tầm vài chục lần

Em cám ơn

kết quả của việc dùng macro record
dán code dưới vào nút bấm tùy ý nhé

Sub Macro1()
    Cells.Select
    With Selection.Font
    .Size = 16
    End With
    Cells.EntireColumn.AutoFit
    With Selection
        .HorizontalAlignment = xlCenter
    End With
    Selection.RowHeight = 18
    Columns("D:D").Select
    Selection.Delete
End Sub

 

[giaiphap]

Có thể ngắn hơn chút thế này.

Sub GPE()
    With Cells
        .Font.Size = 16
        .EntireColumn.AutoFit
        .RowHeight = 18
    End With
    Columns("D:D").Delete Shift:=xlToLeft
End Sub

 

[nguyenthuy13388]

Có thể ngắn hơn chút thế này.

Sub GPE()
    With Cells
        .Font.Size = 16
        .EntireColumn.AutoFit
        .RowHeight = 18
    End With
    Columns("D:D").Delete Shift:=xlToLeft
End Sub

thiếu phần canh giữa nưa bác ạ

.HorizontalAlignment = xlCenter

 

[PeterQ]

Cám ơn 2 anh

Em muốn canh giữ dòng chứ không phải giữa cột thì là lệnh gì vậy ?

kết quả của việc dùng macro record
dán code dưới vào nút bấm tùy ý nhé

Sub Macro1()
    Cells.Select
    With Selection.Font
    .Size = 16
    End With
    Cells.EntireColumn.AutoFit
    With Selection
        .HorizontalAlignment = xlCenter
    End With
    Selection.RowHeight = 18
    Columns("D:D").Select
    Selection.Delete
End Sub

Bài đã được tự động gộp: 4/7/18

thiếu phần canh giữa nưa bác ạ

.HorizontalAlignment = xlCenter

Code này là canh giữa cột, Canh giữa dòng thì sao ạ?

 

[giaiphap]

Cám ơn 2 anh

Em muốn canh giữ dòng chứ không phải giữa cột thì là lệnh gì vậy ?

Thì sửa dòng

.HorizontalAlignment = xlCenter

thành

.VerticalAlignment = xlCenter

 

[nguyenthuy13388]

Cám ơn 2 anh

Em muốn canh giữ dòng chứ không phải giữa cột thì là lệnh gì vậy ?

đây bạn nhé
(Em xin phép dùng code của bác Giaiphap cho bạn ấy dễ hiểu hơn)

Sub GPE()
    With Cells
        .Font.Size = 16
        .EntireColumn.AutoFit
        .RowHeight = 18
        .VerticalAlignment = xlCenter
    End With
    Columns("D:D").Delete Shift:=xlToLeft
End Sub

 

[PeterQ]

Cám ơn các anh

 

[VetMini]

...
Vui lòng giúp vì 1 ngày em làm những thao tác trên chắc tầm vài chục lần

Em cám ơn

Công ty nào mà có đòi hỏi lạ vậy?

Nếu làm vài chục lần mà bằng macro thì cũng phải chép macro lại bao nhiêu đó lần - mỗi file một lần?
Dùng template có phải là nhanh hơn không?
(nếu nhất định muốn dùng macro thì nên học biết cách đặt code vào file "personal")

 

[huuthang_bd]

đây bạn nhé
(Em xin phép dùng code của bác Giaiphap cho bạn ấy dễ hiểu hơn)

Sub GPE()
    With Cells
        .Font.Size = 16
        .EntireColumn.AutoFit
        .RowHeight = 18
        .VerticalAlignment = xlCenter
    End With
    Columns("D:D").Delete Shift:=xlToLeft
End Sub

Nên dùng ActiveSheet.UsedRange thay cho Cells