E có một vấn đề mong cả nhà giúp đỡ. Trong file e đính kèm e muốn gạch chân các chữ trong ô, nếu độ rộng của chữ chưa bằng độ rộng của ô thì cũng gạch chân đến hết độ rộng của ô. Em cám ơn cả nhà.
VBA gạch chân chữ (2 người xem)
- Thread starter Chian91
- Ngày gửi
Người dùng đang xem chủ đề này
- Tham gia
- 17/8/08
- Bài viết
- 8,662
- Được thích
- 16,725
- Giới tính
- Nam
Hiểu chết liền đó! Như thế nào là trường hợp đủ độ rộng, trường hợp nào là không đủ và nó sẽ ra cái hình dáng như thế nào, chứ đưa cái file lên mà chẳng thể nào hình dung nổi! Mục đích của bạn ứng dụng vào việc gì vậy?
Upvote
0
- Tham gia
- 17/8/08
- Bài viết
- 8,662
- Được thích
- 16,725
- Giới tính
- Nam
Theo tôi nghĩ bạn này làm kiểu giống Word đó mà các dấu tab có gạch dưới để điền vào chỗ trống?!
Upvote
0
- Tham gia
- 17/8/08
- Bài viết
- 8,662
- Được thích
- 16,725
- Giới tính
- Nam
Vẫn có cách làm thủ công được, tuy nhiên khó biết được liệu một ô chứa bao nhiêu chữ! Chiều rộng, chiều cao, rồi còn bị merge nữa, rồi còn các kiểu chữ, size chữ; wrap text hay không wrap text, v.v...
Lần chỉnh sửa cuối:
Upvote
0
- Tham gia
- 17/8/08
- Bài viết
- 8,662
- Được thích
- 16,725
- Giới tính
- Nam
Nhưng nếu làm thủ công, anh có thể gạch được như em không nè (hình bài #6)? Hehe, phàm cái gì làm thủ công được thì VBA làm được (quay lại macro), chẳng qua việc tính toán mình bó tay hoặc rất chi là vất vả thôi.
Upvote
0
- Tham gia
- 17/8/08
- Bài viết
- 8,662
- Được thích
- 16,725
- Giới tính
- Nam
Vấn đề là bao nhiêu chữ, xuống dòng bao nhiêu hàng, vân vân... và mây mây...
Upvote
0
E muốn những chữ đó như được viết trên một dòng kẻ ạ!
Upvote
0
Dạ, bác hướng dẫn cho em với ạ, em cám ơn bác!
Upvote
0
Xem format trong file
Upvote
0
Em cám ơn bác đã quam tâm nhưng vẫn chưa được ạ!
Upvote
0
Chưa được như thế nào
Upvote
0
Khi Cell đó Wrap Text thì không được ạ!
Upvote
0
File của mình vẫn được, gởi file không được lên
Upvote
0
Bác hướng dẫn cho e với ạ. E cám ơn bác!
Upvote
0
LamNA
Thành viên tích cực
- Tham gia
- 3/6/14
- Bài viết
- 900
- Được thích
- 727
- Giới tính
- Nam
- Nghề nghiệp
- Quản Lý Cửa Hàng
Nếu xác định được bao nhiêu chữ một dòng thì tự động xuống dòng thì chắc anh chị diễn đàn hỗ trợ tốt hơn, còn không xác định được thì hiện tại chỉ có 2 kết quả.
aaaaaaaaa
aaaa
hoặc
aaaaaaaa
aaa_____
Upvote
0
LamNA
Thành viên tích cực
- Tham gia
- 3/6/14
- Bài viết
- 900
- Được thích
- 727
- Giới tính
- Nam
- Nghề nghiệp
- Quản Lý Cửa Hàng
Xem thử cách này xem được không?
Mã:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim change As Range
Set change = Intersect(Target, Range("A2:A100")) ' Thay doi vung muon dinh dang
Application.ScreenUpdating = False
If Not change Is Nothing Then
Target.Font.Underline = True
Target.WrapText = True
End If
With Target.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
End With
Application.ScreenUpdating = True
End Sub
Upvote
0
Em cảm ơn bác đã giúp đỡ, nhưng trong trường hợp Meger cột A:cột E thì không được ạ!
Upvote
0
LamNA
Thành viên tích cực
- Tham gia
- 3/6/14
- Bài viết
- 900
- Được thích
- 727
- Giới tính
- Nam
- Nghề nghiệp
- Quản Lý Cửa Hàng
Bạn thử lại xem đúng ý chưa nhé
Trong module
Mã:
Option Explicit
Sub Merge()
Dim AB As Single
Dim A As Range
Dim rng As Range
Dim B As Double
Dim Dorong As Double
Dim ar As Variant
Dim i As Integer
Application.ScreenUpdating = False
For i = 2 To Range("A" & Rows.Count).End(xlUp).Row
On Error Resume Next
Set rng = Range(Range("A" & i).MergeArea.Address)
rng.MergeCells = False
B = rng.Cells(1).ColumnWidth
AB = 0
For Each A In rng
A.WrapText = True
A.HorizontalAlignment = xlLeft
A.VerticalAlignment = xlCenter
A.Font.Underline = True
A.Borders(xlEdgeBottom).LineStyle = xlContinuous
AB = A.ColumnWidth + AB
Next
AB = AB + rng.Cells.Count * 0.66
rng.Cells(1).ColumnWidth = AB
rng.EntireRow.AutoFit
Dorong = rng.RowHeight
rng.Cells(1).ColumnWidth = B
rng.MergeCells = True
rng.RowHeight = Dorong
Next i
Application.ScreenUpdating = True
End SubTrong sheet 1
Mã:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row)) Is Nothing Then
Call Merge
End If
End Sub
Upvote
0
Cám ơn bác quan tâm. Yêu cầu của e được viết lại trong file đính kèm ạ. Em cám ơn bác nhiều
Bài đã được tự động gộp:
Cám ơn bác quan tâm. yêu cầu của e được viết rõ lại trong file đính kèm ạ.
Upvote
0
Đoán mò thì thế này:
1. Chuỗi ký tự có thể nhập vào 1 ô hoặc nhiều ô được gộp thành một.
2. Chuỗi có thể tự gõ hoặc lấy từ nơi khác.
3. Chuỗi dài ngắn tùy ý. Do chiều rộng của ô có hạn nên ô sẽ luôn có WrapText = True.
4. Chuỗi có thể xuống dòng (Alt + Enter) ở giữa dòng ở một hoặc nhiều nơi bất kỳ trong chuỗi.
Bây giờ xin các masochist ra tay.
Lưu ý:
1. Do chủ thớt không bao giờ mô tả dữ liệu nên điểm 4 có thể tôi đoán mò sai.
2. Tưng tập tin lên chưa phải là đủ. Thậm chí tung tập tin lên cùng với mô tả yêu cầu chưa phải là tất cả. LUÔN LUÔN mô tả dạng dữ liệu. Một điều hiển nhiên thế mà không hiểu sao, hỡi các vị chủ thớt!
1. Chuỗi ký tự có thể nhập vào 1 ô hoặc nhiều ô được gộp thành một.
2. Chuỗi có thể tự gõ hoặc lấy từ nơi khác.
3. Chuỗi dài ngắn tùy ý. Do chiều rộng của ô có hạn nên ô sẽ luôn có WrapText = True.
4. Chuỗi có thể xuống dòng (Alt + Enter) ở giữa dòng ở một hoặc nhiều nơi bất kỳ trong chuỗi.
Bây giờ xin các masochist ra tay.
Lưu ý:
1. Do chủ thớt không bao giờ mô tả dữ liệu nên điểm 4 có thể tôi đoán mò sai.
2. Tưng tập tin lên chưa phải là đủ. Thậm chí tung tập tin lên cùng với mô tả yêu cầu chưa phải là tất cả. LUÔN LUÔN mô tả dạng dữ liệu. Một điều hiển nhiên thế mà không hiểu sao, hỡi các vị chủ thớt!
Lần chỉnh sửa cuối:
Upvote
0
Bài viết mới nhất
- Question
- Question
- Question
- Question
