Cách định dạng nhiều ô cùng lúc (1 người xem)

[kimdong80]

Trong 1 ô vủa mình có nhiều hàng.Mình muốn tô đậm dòng 1 của tất cả các ô.Mình phải làm thế nào?

 

[cop_kh]

Bạn Click chuột vào số hàng (ở ngoài biên chứ không phải trong ô cell) để chọn cả dòng 1, rồi chọn Ctrl+B là OK.

 

[kimdong80]

Dữ liệu của mình bao gồm nhiều dòng.Trong mỗi ô củng có nhiều 1 dòng. VD:trong ô A3 của mình có 6 dòng(giống như khi nhập dữ liệu mình bấm Alt+enter 5 lần), ô A4 cũng có 6 dòng như vậy.MÌnh muốn dòng 1 của ô A3 và A4 của mình được tô đậm chỉ với 1 thao tác.Bấm Ctrl rồi chọn từng cái thì mất công quá vì dữ liệu của mình có tới hơn 1500ô

 

[sealand]

Nếu các vùng định dang giống nhau thì định dạng chuẩn 1 vùng rồi dùng nút cây cọ (Chổi) trên thanh công cụ chép định dạng rồi sau đó quét sang vùng cần định dạnh là được.(Nếu nháy đơn cây cọ thì chỉ chép 1 lần, nhưng nháy đúp cây cọ thì chép đến bao giờ dừng thì nháy lại cây cọ)
Đơn giản nhất là chọn khối cả dòng 1 vùng rồi chép định dạng như trên, cần định dạng vùng nào nháy chuột vào ô trên cùng bên trái của khối

 

[ndu96081631]

Nếu các vùng định dang giống nhau thì định dạng chuẩn 1 vùng rồi dùng nút cây cọ (Chổi) trên thanh công cụ chép định dạng rồi sau đó quét sang vùng cần định dạnh là được.(Nếu nháy đơn cây cọ thì chỉ chép 1 lần, nhưng nháy đúp cây cọ thì chép đến bao giờ dừng thì nháy lại cây cọ)
Đơn giản nhất là chọn khối cả dòng 1 vùng rồi chép định dạng như trên, cần định dạng vùng nào nháy chuột vào ô trên cùng bên trái của khối

Dùng "cây chổi" trong trường hợp mà tác giã vừa nêu là không ăn thua đâu anh... Thử xem!
Em đang nghĩ chắc phải dùng đến VBA quá

 

[sealand]

NDU à, dùng "cây chổi" được mà, kể cả các ô Merger . Nhưng mỗi lần gán chỉ được 1 vùng. Khi được 1 vùng thật lớn chép và gán để được vùng lớn. Nói chung, đây là biện pháp thông thường, còn gọi là giải pháp mang tính tác vụ này thì chỉ dùng VBA là OK nhất. Viết lệnh cho biết vùng chuẩn và vùng cần định dạng ...tạch là xong.

 

[BNTT]

Không được, anh Sealand à.
Anh xem lại kỹ cái này:

Dữ liệu của mình bao gồm nhiều dòng. Trong mỗi ô cũng có nhiều 1 dòng.
VD:trong ô A3 của mình có 6 dòng(giống như khi nhập dữ liệu mình bấm Alt+enter 5 lần), ô A4 cũng có 6 dòng như vậy.
Mình muốn dòng 1 của ô A3 và A4 của mình được tô đậm chỉ với 1 thao tác.
Bấm Ctrl rồi chọn từng cái thì mất công quá vì dữ liệu của mình có tới hơn 1500 ô

Dùng cây chổi có thể làm cho định dạng ô này giống ô kia.
Nhưng không thể làm một thành phần trong một ô này giống 1 thành phần trong ô kia.

 

[ndu96081631]

NDU à, dùng "cây chổi" được mà, kể cả các ô Merger . Nhưng mỗi lần gán chỉ được 1 vùng. Khi được 1 vùng thật lớn chép và gán để được vùng lớn. Nói chung, đây là biện pháp thông thường, còn gọi là giải pháp mang tính tác vụ này thì chỉ dùng VBA là OK nhất. Viết lệnh cho biết vùng chuẩn và vùng cần định dạng ...tạch là xong.

Là thế này đây (nên mới không được)
- Tác giã nói rằng trong 1 cell, tác giã nhập 1 đoạn text nhưng được chia ra thành nhiều dòng (Dùng Alt + Enter)
- Tại dòng thứ nhất của đoạn text đó tác giã định dạng chử đậm (trong 1 cell được chia 5 dòng, chỉ tô đậm dòng 1)
- Làm cách nào copy định dạng cell này cho các cell còn lại
Có thể anh chưa hình dung ra, vậy xem file em gữi anh sẽ hiểu ngay!

 

[sealand]

Thôi rồi, NDU mình nghĩ 1 ô có 5 dòng (5 cells), khổ thế đấy tiếng Việt với nhau mà mãi mới hiểu.

To phongtuyet:
Bạn tạo DS duy nhất mã hàng của bảng kê rồi dùng Vlookup() hay Match() từ NXT cái nào lỗi là mã mới

 

[sealand]

Bạn kiểm tra lại xem file này có phải như bạn hỏi không? Khi chọn vùng nhanh nhất là chọn cả cột B và C

 

[hoangvuluan]

To: sealand, tôi cải tiến Sub ToDam của bạn qua hàm SPLIT, và dùng nó theo dạng bật/tắt như sau:

Sub todam()
Dim rng As Range
Dim spl As Variant, i As Long
    Set rng = Application.InputBox("Nhap vung:", , , , , , , 8)
    If rng Is Nothing Then Exit Sub
        For Each cel In rng
            If Len(cel.Value) > 0 Then
                spl = Split(cel.Value, Chr(10), 2)
                If spl(0) <> Empty Then i = Len(spl(0)) + 1 Else i = Len(cel.Value)
                With cel.Characters(Start:=1, Length:=i).Font
                        .Bold = Not .Bold
                End With
            End If
        Next
End Sub

Thân!

 

[sealand]

To hoangvuluan:
Hàm Split() bạn dùng khá lợi hại đấy, thêm 1 cách sử lý hay.

To All:
Trong code của mình nhờ các bạn xóa giúp dòng lệnh dưới đây trên 2 sub (Để chỉ thừa chứ không sao):
ten = ActiveSheet.Name

(Lý do khi test sub xong xóa không hết)