định dạng fonts chữ + get.cell(18,"cell")

[mrhackgm]

Em muốn excel thông báo cell nào có fonts không phải Unicode
trong file nhiều fonts
1/. Unicode, VD: times new roman
2/. Fonts ABC, VD: ".Vntime"
hiện tại em đang làm theo cách:

B1: dùng get.cell(18,cell) Crtl + F3: getinf= get.cell(18,Sheet1!A1)
B2: Dùng left(getinf) lọc ra ký tự "." đem vào logic trong CF =LEFT(getinf,1)="."
b3: => lọc ra màu CF, => convert fonts

nhưng vùng dữ liệu bé tý teo thì đc, cơ mà phập phù,
máy báo lỗi không đủ tài nguyên
có cách làm nào khác không các bác?

em hay phải đi cóp nhặt dữ liệu, làm CSDL để phân tích trong SPSS hoặc Stata,
mà ngã ngựa ở ngay quả fonts
em xin chân thành cảm ơn!

 

[mrhackgm]

vẫn fails các bác à. e chưa tìm được cách giải quyết

 

[mrhackgm]

các bác ơi
giờ giải quyết theo hướng dùng VBA
gọi
With Application.FindFormat.Font
.Name = ".VnTime"

khi tìm được rồi, có thể làm nhiều thứ
ví dụ, mình goto cell đó: application.goto (ref.....)

được không ạ?