Hỏi cách chỉnh Font chữ trong danh sách list đổ ra

[THPHONG]

Các Anh chị cho tôi xin hỏi với. Tôi làm một danh sách list đổ ra từ một sheet sang một sheet khác bằng cách.

Vào Data vào Validation sau đó chọn mục list ở ALLow và chọn Danh mục tại mục Sourse.

Tuy nhiên khi làm việc thì danh sách đổ la nhìn chữ rất nhỏ, tôi không biết chỉnh chữ trong danh sách list to ra như thế nào vậy nhờ các anh chị chỉ giúp tôi, toi xin cảm ơn.

 

[BNTT]

Muốn chữ trong List to hơn, bạn chỉnh chế độ View cao lên, = 120% chẳng hạn.
Chỉnh con số ở cái khung gần dấu ? ở sát góc phải của thanh Standard Toolbar

 

[TrungChinhs]

Muốn chữ trong List to hơn, bạn chỉnh chế độ View cao lên, = 120% chẳng hạn.
Chỉnh con số ở cái khung gần dấu ? ở sát góc phải của thanh Standard Toolbar

Bạn có thể chỉ giúp mình được không (ảnh màn hình trong file đính kèm) xin cảm ơn !

 

[Mr Okebab]

Các Anh chị cho tôi xin hỏi với. Tôi làm một danh sách list đổ ra từ một sheet sang một sheet khác bằng cách.

Vào Data vào Validation sau đó chọn mục list ở ALLow và chọn Danh mục tại mục Sourse.

Tuy nhiên khi làm việc thì danh sách đổ la nhìn chữ rất nhỏ, tôi không biết chỉnh chữ trong danh sách list to ra như thế nào vậy nhờ các anh chị chỉ giúp tôi, toi xin cảm ơn.

Font size trong list của Validation không thay đổi được bạn ạ.

Bạn tham khảo nhé :

[FONT=Arial, Helvetica, sans-serif]Data Validation Font Size and List Length[/FONT]

The font size in a data validation list can't be changed, nor can its default list length, which has a maximum of eight rows.

If you reduce the zoom setting on a worksheet, it can be almost impossible to read the items in the dropdown list, as in the example at right.

One workaround is to use programming, and a combo box from the Control Toolbox, to overlay the cell with data validation. If the user double-clicks on a data validation cell, the combobox appears, and they can choose from it.

Đây là Code để có thể tăng Zoom tự động khi vùng Validation được chọn.

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

Tham khảo


Thân!

 

[TrungChinhs]

Font size trong list của Validation không thay đổi được bạn ạ.

Bạn tham khảo nhé :




Đây là Code để có thể tăng Zoom tự động khi vùng Validation được chọn.

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

Tham khảo


Thân!

Tôi đã thử code này nhưng không được, nhờ các Bác chỉ dẫn. xin cảm ơn!

 

[Mr Okebab]

Tôi đã thử code này nhưng không được, nhờ các Bác chỉ dẫn. xin cảm ơn!

Bạn thử với File này nhé.

Khi bạn chọn vào vùng Validation thì nó sẽ tự động phóng to lên, nếu chọn ra ngoài thì nó nhỏ lại.

Thân!

 

[TrungChinhs]

Bạn thử với File này nhé.

Khi bạn chọn vào vùng Validation thì nó sẽ tự động phóng to lên, nếu chọn ra ngoài thì nó nhỏ lại.

Thân!

Nhờ các bạn giải thích giúp: Tại sao code này dán vào Modules hoặc ThisWorkbook lại không có tác dụng cho các sheet khác ? vậy muốn áp dụng cho tất cả các sheet trong Book hiện hành thì phải làm thế nào ? Thanks.

 

[Po_Pikachu]

@Mr Okebab: Gửi bác! Viết vậy thì đủ rồi cần gì!

Private Sub Worksheet_SelectionChange(ByVal Target As Range)     Dim lZoom As Long     Dim lZoomDV As Long     Dim lDVType As Long     lZoom = 100     lZoomDV = 150     lDVType = 0     Application.EnableEvents = False     On Error Resume Next     lDVType = Target.Validation.Type     On Error GoTo [COLOR=red]exitHandler[/COLOR]     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 [COLOR=red]exitHandler: [/COLOR]    Application.EnableEvents = True     Exit Sub End Sub

@Trung Chinh: +ThisWorkbook: Nhưng code viết ở đây sẽ liên quan đến việc làm trên tất cả Worksheet luôn, và mang tính tổng quát - không mang tính cá nhân trên từng sheet. Như là mở Workbook, đóng Workbook, in trang, save,... +Worksheet: Thì lại mang tính cá thể hơn. Nó chỉ phục vụ cho sheet đó thôi! Nhưng có thể chỉ được các tác động nào đang xày ra trên sheet như SelectionChange hoặc Change thôi, tính toán, liên kết, bấm phải chuột, v.v.. +Module: Thì là những macro hoặc UDF (hàm tự định nghĩa). Những code viết trong đây thì chỉ khi nào được kích hoạt nó mới chạy thôi! Chứ không mang tính chất tự động như các vị trí trên. ++*++ Tự động: -ThisWorkbook: Tự động cho cả Workbook lúc đầu và lúc kết thúc -Worksheet: Tự động khi thao tác trên Excel ++*++ Ko tự động: Có module Những gì thuộc vùng nào thì chỉ có giá trị khi nó được đặt trong vùng đó thôi. Không thể nào lấy "Râu ông này cắm vào cầm của bà kia" được đâu bác! Nếu bác viết "Private Sub Worksheet_SelectionChange(ByVal Target As Range)" mà đặt vào Module thì nó chẳng biết cái Target này là range của sheet nào mà chạy cả. Tương tự cho các tình huống khác! Thân.

 

[TrungChinhs]

Cảm ơn Po_Picachu về bài viết này !
cái vụ code viết ở đâu mình vẫn còn tơ lơ mơ lắm, cũng đã xem một số bài trên GPE nhưng vẫn rất mơ hồ, mình cứ tưởng code viết trong Modules thì áp dụng cho tất cả các Workbook đang mở, viết trong ThisWorkbook thì áp dụng cho các sheet trong Book hiện hành còn viết trong sheet nào thì chỉ áp dụng cho sheet đó chính vì thế mình mới dán lung tung khắp nơi để truy nã.

P/s: sử dụng thịt nướng xiên đừng để cho trẻ em nhìn thấy nha...

 

[sealand]

Validation, Msgbox, Menu,Comment... nói chung nó phụ thuộc Font, cỡ chữ được thiết lập cho Window. Bạn nhấn chuột phải trên Destop-->Appearence-->Advan...-->
thiết lập Item, Font, Size, color phù hợp hiển thị tiếng Việt

 

[Mr Okebab]

@Mr Okebab: Gửi bác! Viết vậy thì đủ rồi cần gì!

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim lZoom As Long
    Dim lZoomDV As Long
    Dim lDVType As Long
    lZoom = 100
    lZoomDV = 150
    lDVType = 0
    Application.EnableEvents = False
[B][COLOR=Blue]    On Error Resume Next [/COLOR][/B]
    On Error GoTo [COLOR=red]exitHandler[/COLOR]
    lDVType = Target.Validation.Type
   
    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
[COLOR=red]exitHandler:
[/COLOR]    Application.EnableEvents = True
[COLOR=Blue][B]    Exit Sub[/B][/COLOR]
End Sub

Cảm ơn cậu nhé, tuy nhiên đã xóa bớt thì xóa luôn dòng màu xanh đi.

Code trên như thế bởi phong cách viết của tác giả đó là như vậy. nó phân định rõ xem đó là trường hợp nào, exitHandler khác với [FONT=&quot]errHandler[/FONT], như vậy để dẽ xác định lỗi khi xảy ra bằng một thông báo gì đó ứng với từng nhãn.
Đây là code của người khác chứ không phải của tớ (tớ còn chuối lắm)

Thân!

 

[te_thien00]

cách chĩnh front chử cữa 4rum ấy ? tui thấy front cvhử cũa 4rum tui nó nhỏ wá chỉ cách chỉnh đi + ai biết cách chỉnh auto logout cho 4rum thành auto login dc thì add nick char kira_devil_death666 bày tui với nhé