Tham chiếu tương đối (1 người xem)

[love04]

Em đang làm 1 cái Macro chuyển font chữ về Time New Roman. Đầu tiền ở 1 ô bất kỳ--> Chọn cả sheet--> Chuyển font--> quay về ô lúc ban đầu , em muốn khi chuyển xong nó về đúng ô ban đầu. Code của nó đây nhưng em không biết sửa thế nào cả, Mn giúp em với!
Sub Macro1()
'
' Macro1 Macro
'

'
Cells.Select
Range("H8").Activate
With Selection.Font
.Name = "Times New Roman"
.Size = 11
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
End With
Range("I8").Select
End Sub

 

[mhung12005]

Em đang làm 1 cái Macro chuyển font chữ về Time New Roman. Đầu tiền ở 1 ô bất kỳ--> Chọn cả sheet--> Chuyển font--> quay về ô lúc ban đầu , em muốn khi chuyển xong nó về đúng ô ban đầu. Code của nó đây nhưng em không biết sửa thế nào cả, Mn giúp em với!
Sub Macro1()
'
' Macro1 Macro
'

'
Cells.Select
Range("H8").Activate
With Selection.Font
.Name = "Times New Roman"
.Size = 11
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
End With
Range("I8").Select
End Sub

Nếu chỉ thay đổi font cả sheet chỉ cần như này thôi bạn ạ:

Sub Macro1()    
    Cells.Font.Name = "Times New Roman"
    Range("[COLOR=#ff0000]D4[/COLOR]").Select
End Sub

Còn muốn chuyển con trỏ về ô nào thì bạn chỉnh chỗ màu đỏ là đc.

 

[VetMini]

chỉ cần như vầy thôi:

Sub Macro1()
Selection.Parent.Cells.Font.Name = "Times New Roman"
End Sub

Con trỏ không hề bị dời đi.

 

[love04]

chỉ cần như vầy thôi:

Sub Macro1()
Selection.Parent.Cells.Font.Name = "Times New Roman"
End Sub

Con trỏ không hề bị dời đi.

Muốn thêm cỡ chữ 11 nữa thì làm thế nào ạ

 

[hungpecc1]

Muốn thêm cỡ chữ 11 nữa thì làm thế nào ạ

Sub Macro1()
with Selection.Parent.Cells.Font
.Name = "Times New Roman"
.size =....
end with
End Sub

 

[love04]

Sub Macro1()
with Selection.Parent.Cells.Font
.Name = "Times New Roman"
.size =....
end with
End Sub

Thanks anh, hay quá! Cho em hỏi thêm chút, e cài thêm 1 cái Add-in vào Excel, ghi lại Macro này khi thực hiện các thao tác trên Add-in đó thì Macro nó ko ghi lại được các thao tác đó. Macro nó chỉ ghi lại được thao tác với những công cụ có sẵn trên Excel thôi ạ!

 

[hungpecc1]

Thanks anh, hay quá! Cho em hỏi thêm chút, e cài thêm 1 cái Add-in vào Excel, ghi lại Macro này khi thực hiện các thao tác trên Add-in đó thì Macro nó ko ghi lại được các thao tác đó. Macro nó chỉ ghi lại được thao tác với những công cụ có sẵn trên Excel thôi ạ!

thao tác trên Addin tức là sao hả bạn ??

Tức là bạn sử dụng các hàm, hay các thủ tục của addin , thì đương nhiên macro không ghi lại được là đúng rồi, Addin là công cụ do người dùng định nghĩa, nó không có trong từ điển của record macro, nếu bạn muốn record được các add in này thì bạn phải đăng ký Addin này với anh BILL GATE !

 

[love04]

thao tác trên Addin tức là sao hả bạn ??

Tức là bạn sử dụng các hàm, hay các thủ tục của addin , thì đương nhiên macro không ghi lại được là đúng rồi, Addin là công cụ do người dùng định nghĩa, nó không có trong từ điển của record macro, nếu bạn muốn record được các add in này thì bạn phải đăng ký Addin này với anh BILL GATE !

em đang dùng Add-in Vn-tool để chuyển font bất kỳ (TCVN3, VNI,...) về font Time New Roman, nếu không dùng được Add-in thì có cách nào viết bằng VBA được không ạ!

 

[hungpecc1]

em đang dùng Add-in Vn-tool để chuyển font bất kỳ (TCVN3, VNI,...) về font Time New Roman, nếu không dùng được Add-in thì có cách nào viết bằng VBA được không ạ!

thì trong code VBA bạn gọi hàm chuyển font trong Addin thôi !
thử gửi Addin lên mình xem qua !

 

[love04]

thì trong code VBA bạn gọi hàm chuyển font trong Addin thôi !
thử gửi Addin lên mình xem qua !

Đây anh, cái này chắc dễ xem hơn

 

[VetMini]

Add-ins chỉ giành cho các hàm/phương thức đã trọn vẹn, và nếu cần thì có khả năng nhận tham số để hoạt động cho nhiều trường hợp khác nhau.

Yêu cầu của bạn quá đặc thù (phông chữ Times, cỡ 11, ...) đặt vào add-ins là phung phí công sức.