Tăng kích cỡ chữ trong data validation

[vietcongwse]

Anh/Chị nào chỉ giáo giúp em cách tăng cỡ chữ của dữ liệu data validation.

Hiện tại em để zoom ở mức 70% - Không thể nhìn rõ chữ => Để từ 85% trở lên thì mới rõ được chữ nhưng khi này chỉ thấy được 1 ô muốn chọn.

 

[huonglien1901]

Anh/Chị nào chỉ giáo giúp em cách tăng cỡ chữ của dữ liệu data validation.

Hiện tại em để zoom ở mức 70% - Không thể nhìn rõ chữ => Để từ 85% trở lên thì mới rõ được chữ nhưng khi này chỉ thấy được 1 ô muốn chọn.
View attachment 226227

Bạn có thể gửi file lên không?

 

[Hong.Van]

https://www.giaiphapexcel.com/diend...nh-font-chữ-trong-danh-sách-list-đổ-ra.13633/​

 

[batman1]

Bạn có thể gửi file lên không?

Rõ rồi còn gửi tập tin làm gì?
Bạn thử zoom 70% thì sẽ thấy chữ trong DV nhỏ li ti mà.

 

[huonglien1901]

Rõ rồi còn gửi tập tin làm gì?
Bạn thử zoom 70% thì sẽ thấy chữ trong DV nhỏ li ti mà.

Ý em chỉ muốn gửi file nhìn ra sao ý mà Bác, Em cũng chưa gặp trường hợp này.

 

[vietcongwse]

[/QUOTE]

https://www.giaiphapexcel.com/diendan/threads/hỏi-cách-chỉnh-font-chữ-trong-danh-sách-list-đổ-ra.13633/​

Hiện tại mình đang dùng câu lệnh bên dưới nhưng lúc được lúc không chưa hiểu cách khắc phục.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim lZoom As Long
Dim lZoomDV As Long
Dim lDVType As Long
lZoom = 100
lZoomDV = 120
lDVType = 0

Application.EnableEvents = False
On Error Resume Next
lDVType = Target.Validation.Type

On Error GoTo errHandler
If lDVType <> 3 Then
With ActiveWindow
If .Zoom <> lZoom Then
.Zoom = lZoom
End If
End With
Else
With ActiveWindow
If .Zoom <> lZoomDV Then
.Zoom = lZoomDV
End If
End With
End If

exitHandler:
Application.EnableEvents = True
Exit Sub
errHandler:
GoTo exitHandler
End Sub

 

[PhanTuHuong]

Một số diễn đàn của tây cũng hỏi về vấn đề này, nhưng chỉ mới tạm khắc phục bằng mẹo zoom.
Không hiểu Micrsoft có update chức năng resize sau này không?