Giúp code chỉnh độ rộng dòng theo ký tự trong ô

minhtuan55 · 4/5/17

Chào cả nhà GPE !
Em cần 1 đoạn code để chỉnh độ rộng dòng theo tổng ký tự trong ô
Ví dụ vùng cần chỉnh độ rộng: B6:B100
- Nếu ô đó có tổng ký tự >= 15 thì độ rộng 30 Pixel
- Còn tất cả trường hợp còn lại ( tổng ký tự < 15, ô trống, ô báo lỗi NA, Lồi NS....) thì độ rộng 15 Pixel

Mục đích làm: Em thường xuyên in báo cáo, do các tên hàng nó dài nên em muốn nó tự động xuống dòng đúng Chính xác do em quy định

Em đã tự viết code sau mà nó báo lỗi chẳng biết sao

Mã:

 Sub GPE()
Dim Cll As Range
For Each Cll In Range("B6:B25").Value
    If Len(Cll) >= 10 Then
       Cll.RowHeight = 14
    Else
       Cll.RowHeight = 30
    End If
    
Next Cll
End Sub

Xin chân thành cảm ơn !

befaint · 4/5/17

minhtuan55 đã viết:
Em đã tự viết code sau mà nó báo lỗi chẳng biết sao

Là câu không tin được.

minhtuan55 · 4/5/17

befaint đã viết:
Là câu không tin được.

giúp em đi anh . em mò từ sáng đến giờ mà chẳng được

vanthinh3101 · 4/5/17

minhtuan55 đã viết:
Chào cả nhà GPE !
Em cần 1 đoạn code để chỉnh độ rộng dòng theo tổng ký tự trong ô
Ví dụ vùng cần chỉnh độ rộng: B6:B100
- Nếu ô đó có tổng ký tự >= 15 thì độ rộng 30 Pixel
- Còn tất cả trường hợp còn lại ( tổng ký tự < 15, ô trống, ô báo lỗi NA, Lồi NS....) thì độ rộng 15 Pixel

Mục đích làm: Em thường xuyên in báo cáo, do các tên hàng nó dài nên em muốn nó tự động xuống dòng đúng Chính xác do em quy định

Em đã tự viết code sau mà nó báo lỗi chẳng biết sao

Mã:

Sub GPE() Dim Cll As Range For Each Cll In Range("B6:B25").Value If Len(Cll) >= 10 Then Cll.RowHeight = 14 Else Cll.RowHeight = 30 End If Next Cll End Sub

Xin chân thành cảm ơn !

Bạn thử nhé!

Mã:

Sub GPE()
    Dim i As Integer
    
    For i = 6 To 25
        If WorksheetFunction.IsError(Cells(i, 2).Value) = True Then
            Rows(i).RowHeight = 15
        ElseIf Len(Cells(i, 2).Value) >= 15 Then
            Rows(i).RowHeight = 30
        Else
            Rows(i).RowHeight = 15
        End If
    Next
End Sub

phulien1902 · 4/5/17

minhtuan55 đã viết:
Chào cả nhà GPE !
Em cần 1 đoạn code để chỉnh độ rộng dòng theo tổng ký tự trong ô
Ví dụ vùng cần chỉnh độ rộng: B6:B100
- Nếu ô đó có tổng ký tự >= 15 thì độ rộng 30 Pixel
- Còn tất cả trường hợp còn lại ( tổng ký tự < 15, ô trống, ô báo lỗi NA, Lồi NS....) thì độ rộng 15 Pixel

Mục đích làm: Em thường xuyên in báo cáo, do các tên hàng nó dài nên em muốn nó tự động xuống dòng đúng Chính xác do em quy định

Em đã tự viết code sau mà nó báo lỗi chẳng biết sao

Mã:

Sub GPE() Dim Cll As Range For Each Cll In Range("B6:B25").Value If Len(Cll) >= 10 Then Cll.RowHeight = 14 Else Cll.RowHeight = 30 End If Next Cll End Sub

Xin chân thành cảm ơn !

Bạn thử:

PHP:

Sub abc()
    Dim Rng As Range, Cll As Range
    Application.EnableEvents = False
    Application.ScreenUpdating = False
    With Sheets(1)
        Set Rng = .Range("b6", .Range("b" & Rows.Count).End(xlUp)).SpecialCells(2)
    End With
    For Each Cll In Rng
        If Len(Cll.Value) >= 10 Then
            Cll.EntireRow.RowHeight = 14
        Else
            Cll.EntireRow.RowHeight = 30
        End If
    Next Cll
    Application.EnableEvents = True
    Application.ScreenUpdating = True
End Sub

Ba Tê · 4/5/17

minhtuan55 đã viết:
Chào cả nhà GPE !
Em cần 1 đoạn code để chỉnh độ rộng dòng theo tổng ký tự trong ô
Ví dụ vùng cần chỉnh độ rộng: B6:B100
- Nếu ô đó có tổng ký tự >= 15 thì độ rộng 30 Pixel
- Còn tất cả trường hợp còn lại ( tổng ký tự < 15, ô trống, ô báo lỗi NA, Lồi NS....) thì độ rộng 15 Pixel

Mục đích làm: Em thường xuyên in báo cáo, do các tên hàng nó dài nên em muốn nó tự động xuống dòng đúng Chính xác do em quy định

Em đã tự viết code sau mà nó báo lỗi chẳng biết sao

Mã:

Sub GPE() Dim Cll As Range For Each Cll In Range("B6:B25").Value If Len(Cll) >= 10 Then Cll.RowHeight = 14 Else Cll.RowHeight = 30 End If Next Cll End Sub

Xin chân thành cảm ơn !

1/ Chiều cao dòng chẳng liên quan gì đến chuyện "tự động xuống dòng..."
2/ For Each Cll In Range("B6:B25").Value <--- Bỏ .Value
3/ Những ô bị lỗi sẽ gây lỗi cho Len(Cll)
Chuỗi >=10 thì cao 14 (ngược lại chỉ 1 vài ký tự thì cao 30)
Cuối cùng chẳng hiểu bạn muốn làm gì.
Thà bạn nói rõ mục đích muốn có, mọi người sẽ đưa ra nhiều lựa chọn cho bạn.
Tự bạn "nghĩ ra" cái con đường "ngoằn ngoèo lắt léo" rồi hỏi làm sao dọn dẹp sạch sẽ chướng ngại.

HieuCD · 4/5/17

Mã:

Sub GPE()
Dim Cll As Range
For Each Cll In Range("B6:B25")
  If Len(CStr(Cll)) >= 15 Then Cll.RowHeight = 30 Else Cll.RowHeight = 15
Next Cll
End Sub

befaint · 4/5/17

HieuCD đã viết:
Mã:

Sub GPE() Dim Cll As Range For Each Cll In Range("B6:B25") If Len(CStr(Cll)) >= 15 Then Cll.RowHeight = 30 Else Cll.RowHeight = 15 Next Cll End Sub

Anh ơi. Người ta cần "chỉnh độ rộng dòng" cơ mà.

PacificPR · 4/5/17

minhtuan55 đã viết:
Chào cả nhà GPE !

Mục đích làm: Em thường xuyên in báo cáo, do các tên hàng nó dài nên em muốn nó tự động xuống dòng đúng Chính xác do em quy định

Cái này đâu có gộp ô đâu mà cần phải định chiều cao cố định (14 hoặc 30). Để chữ vừa khít ô chỉ cần AutoFit Row Height là được rồi

befaint · 4/5/17

PacificPR đã viết:
Cái này đâu có gộp ô đâu mà cần phải định chiều cao cố định (14 hoặc 30). Để chữ vừa khít ô chỉ cần AutoFit Row Height là được rồi

Chủ thớt yêu cầu chỉnh độ rộng của dòng và nói cái code bị lỗi nên không cần quan tâm tới cái code (có row height) nữa.

PacificPR · 4/5/17

befaint đã viết:
Anh ơi. Người ta cần "chỉnh độ rộng dòng" cơ mà.

Đúng thật. Bắt đầu vào chỉ nhìn Code của anh ấy (Mặc dù anh ấy nói là code sau mà nó báo lỗi chẳng biết sao) mà không nhìn nội dung. Đúng thật là ... bị hố

befaint · 4/5/17

Việc chỉnh kích thước của dòng/ cột về đơn vị pixel thì cũng còn xem cái vụ đơn vị tính...

"On a worksheet, you can specify a column width of 0 (zero) to 255. This value represents the number of characters that can be displayed in a cell that is formatted with the standard font. The default column width is 8.43 characters. If a column has a width of 0 (zero), the column is hidden.

You can specify a row height of 0 (zero) to 409. This value represents the height measurement in points (1 point equals approximately 1/72 inch or 0.035 cm). The default row height is 12.75 points (approximately 1/6 inch or 0.4 cm). If a row has a height of 0 (zero), the row is hidden."
------
Link: https://support.office.com/en-us/ar...w-height-72f5e3cc-994d-43e8-ae58-9774a0905f46

Unit of row height is point: 1 point = 1/72 inch = (1/72) x 96 PPI (giả thiết màn hình có độ phân giải 96 pixel per inch) = 4/3 pixel
Unit of column width: 1 column unit width = 7 + 5 pixel | n column unit width = 7n + 5 pixel (cái này thì không rõ).

------
https://social.msdn.microsoft.com/F...-setting-column-width-in-pixel?forum=exceldev

minhtuan55 · 4/5/17

Ba Tê đã viết:
1/ Chiều cao dòng chẳng liên quan gì đến chuyện "tự động xuống dòng..."
2/ For Each Cll In Range("B6:B25").Value <--- Bỏ .Value
3/ Những ô bị lỗi sẽ gây lỗi cho Len(Cll)
Chuỗi >=10 thì cao 14 (ngược lại chỉ 1 vài ký tự thì cao 30)
Cuối cùng chẳng hiểu bạn muốn làm gì.
Thà bạn nói rõ mục đích muốn có, mọi người sẽ đưa ra nhiều lựa chọn cho bạn.
Tự bạn "nghĩ ra" cái con đường "ngoằn ngoèo lắt léo" rồi hỏi làm sao dọn dẹp sạch sẽ chướng ngại.

Dạ. E nói 1 cách ngắn gọn. Ô nào có tổng ký tự >=15 thì dòng đó có chiều cao là 30 Pixel, còn Tất cả trường hợp còn lại thì 15 Pixel. Còn mục đích thì em áp dụng cho vấn đề in ấn. em có thử định dạng Wrap text rồi như chưa ưng ý lắm

minhtuan55 · 4/5/17

HieuCD đã viết:
Mã:

Sub GPE() Dim Cll As Range For Each Cll In Range("B6:B25") If Len(CStr(Cll)) >= 15 Then Cll.RowHeight = 30 Else Cll.RowHeight = 15 Next Cll End Sub

Code anh đúng rồi đấy. Thank anh

minhtuan55 · 4/5/17

befaint đã viết:
Anh ơi. Người ta cần "chỉnh độ rộng dòng" cơ mà.

Sorry anh em dùng tư bị sai. ý em là Chiều cao dòng

steven.su · 15/5/18

Hiện tại cty em cũng cần phải căn chỉnh trang giấy, nếu lặp theo công thức của bạn HieuCD, và mình muốn thêm ví dụ như là nếu ký tự ô đó là từ 1~88 thì rowheight=15,89~188=30,189~260=45,261~334=60 thì phải thêm code thế nào ah và nếu 1 file excel có nhiều sheet mình muốn chạy hết tất cả sheet trong file đó thì phải làm thế nào ah. Xin thỉnh giáo cao nhân
#14
HieuCD đã viết:
Mã:
Sub GPE()
Dim Cll As Range
For Each Cll In Range("B6:B25")
If Len(CStr(Cll)) >= 15 Then Cll.RowHeight = 30 Else Cll.RowHeight = 15
Next Cll
End Sub

HieuCD · 15/5/18

steven.su đã viết:
Hiện tại cty em cũng cần phải căn chỉnh trang giấy, nếu lặp theo công thức của bạn HieuCD, và mình muốn thêm ví dụ như là nếu ký tự ô đó là từ 1~88 thì rowheight=15,89~188=30,189~260=45,261~334=60 thì phải thêm code thế nào ah và nếu 1 file excel có nhiều sheet mình muốn chạy hết tất cả sheet trong file đó thì phải làm thế nào ah. Xin thỉnh giáo cao nhân
#14
HieuCD đã viết:
Mã:
Sub GPE()
Dim Cll As Range
For Each Cll In Range("B6:B25")
If Len(CStr(Cll)) >= 15 Then Cll.RowHeight = 30 Else Cll.RowHeight = 15
Next Cll
End Sub

Mã:

Sub GPE()
  Dim Sh As Worksheet, Cll As Range, StrLen As Double
  For Each Sh In Sheets
    For Each Cll In Sh.Range("C1", Sh.Range("C65500").End(xlUp))
      StrLen = Len(Cll.Value)
      Select Case StrLen
        Case 0 To 88:     Cll.RowHeight = 15
        Case 89 To 188:   Cll.RowHeight = 30
        Case 189 To 260:  Cll.RowHeight = 45
        Case 261 To 334:  Cll.RowHeight = 60
      End Select
    Next Cll
  Next Sh
End Sub

steven.su · 15/5/18

HieuCD đã viết:

Mã:

Sub GPE()
  Dim Sh As Worksheet, Cll As Range, StrLen As Double
  For Each Sh In Sheets
    For Each Cll In Sh.Range("C1", Sh.Range("C65500").End(xlUp))
      StrLen = Len(Cll.Value)
      Select Case StrLen
        Case 0 To 88:     Cll.RowHeight = 15
        Case 89 To 188:   Cll.RowHeight = 30
        Case 189 To 260:  Cll.RowHeight = 45
        Case 261 To 334:  Cll.RowHeight = 60
      End Select
    Next Cll
  Next Sh
End Sub

Code có vẻ ổn, nhưng có vấn đề là chữ và số thì khi mình cố định bằng công thức len có vẻ nó bị sai lệch khi ô đó có thể hiện chữ số và ký tự đặc biệt khi view nó sẽ không bị ẩn dòng , Bác có hàm nào để thay thế hàm len không ah

HieuCD · 15/5/18

steven.su đã viết:
Code có vẻ ổn, nhưng có vấn đề là chữ và số thì khi mình cố định bằng công thức len có vẻ nó bị sai lệch khi ô đó có thể hiện chữ số và ký tự đặc biệt khi view nó sẽ không bị ẩn dòng , Bác có hàm nào để thay thế hàm len không ah

Gởi file thật lên mới tính dùng cách nào

steven.su · 15/5/18

HieuCD đã viết:
Gởi file thật lên mới tính dùng cách nào

Bác xem giúp mình những dòng highlight màu vàng nhé, và bác xem giúp e nếu dòng STT 67 nếu cột B chữ bị cho xuống dòng, những vì cột C dòng đó không lớn 88 ký tự sẽ bị chuyển về dòng đó độ rộng 15 và cột B sẽ bị mất chữ

Giúp code chỉnh độ rộng dòng theo ký tự trong ô

Thành viên bị đình chỉ hoạt động

File đính kèm

|||||||||||||

Thành viên bị đình chỉ hoạt động

Thành viên tích cực

GPE - My love

Cạo Rồi Khỏi Gội

Chuyên gia GPE

|||||||||||||

Thành viên mới

|||||||||||||

Thành viên mới

|||||||||||||

Thành viên bị đình chỉ hoạt động

Thành viên bị đình chỉ hoạt động

Thành viên bị đình chỉ hoạt động

Thành viên mới

File đính kèm

Chuyên gia GPE

Thành viên mới

Chuyên gia GPE

Thành viên mới

File đính kèm

Facebook

Group