Định dạng dữ liệu khi nối chuỗi (1 người xem)

[kbw1]

Xin chào mọi người!
Mình có công thức sau: A1=B1&B2
Mình có thể làm nội dung hiển thị ở ô A1 (B1 là chữ thường, còn B2 là chữ đậm được không ạ)
Mong mọi người giúp đỡ.

 

[comet_1701]

Xin chào mọi người!
Mình có công thức sau: A1=B1&B2
Mình có thể làm nội dung hiển thị ở ô A1 (B1 là chữ thường, còn B2 là chữ đậm được không ạ)
Mong mọi người giúp đỡ.

chắc là được thôi, dùng font, character, len có thể xử lý được, trên gpe có mà, bạn vào mà search nhé

 

[kbw1]

chắc là được thôi, dùng font, character, len có thể xử lý được, trên gpe có mà, bạn vào mà search nhé

Mình ko hiểu ý bạn nói.

 

[comet_1701]

Mình ko hiểu ý bạn nói.

Sub Noi_chuoi()
  lr = Range("B1000").End(xlUp).Row
  For i = 2 To lr
     Cells(i, 1).Value = Cells(i, 2).Value & " " & Cells(i, 3).Value
     Cells(i, 1).Characters(Start:=13, Length:=100).Font.FontStyle = "Bold"
  Next i
End Sub

Ví dụ thế này, trên GPE có mà, bạn nên có file giả lập cụ thể để kết quả được chính xác

 

[huuthang_bd]

chắc là được thôi, dùng font, character, len có thể xử lý được, trên gpe có mà, bạn vào mà search nhé

Bạn làm thử coi. Được chết liền.

 

[kbw1]

Vậy có khả thi ko các bạn.

 

[doatmenhhon]

Vậy có khả thi ko các bạn.

Hiện tại ngoài nghĩ dùng code ra em chưa nghĩ cách nào dùng hàm mà được

 

[comet_1701]

Bạn làm thử coi. Được chết liền.

Em đang thử được 1/3. đang bị rối một đoạn nhưng em nghĩ là được. Em tháy mấy chữ màu đen rồi, đang cố tiếp

Sub Noi_chuoi_1()
  lr = Range("B1000").End(xlUp).Row
  For i = 2 To lr
   
     Cells(i, 1).Value = Cells(i, 2).Value & " " & Cells(i, 3)
   With Cells(i, 1)
    .ClearFormats
    .Characters(1, Len(Cells(i, 3))).Font.Bold = True
    .Characters(Len(Cells(i, 2)) + 6 + Len(Cells(i, 3)), Len(.Value)).Font.Bold = True
    
End With
  Next i
End Sub

 

[comet_1701]

Vậy có khả thi ko các bạn.

bạn xem thế này có được ko nhé

Sub Noi_chuoi_1()
  lr = Range("B1000").End(xlUp).Row
  For i = 2 To lr
   
     Cells(i, 1).Value = Cells(i, 2).Value & " " & Cells(i, 3)
   With Cells(i, 1)
    .ClearFormats
    '.Characters(1, Len(Cells(i, 3))).Font.Bold = True
    .Characters(Len(Cells(i, 2)) + 2, Len(Cells(i, 3))).Font.FontStyle = "Bold"
    
End With
  Next i
End Sub

 

[comet_1701]

bạn xem thế này có được ko nhé

Sub Noi_chuoi_1()
  lr = Range("B1000").End(xlUp).Row
  For i = 2 To lr
   
     Cells(i, 1).Value = Cells(i, 2).Value & " " & Cells(i, 3)
   With Cells(i, 1)
    .ClearFormats
    '.Characters(1, Len(Cells(i, 3))).Font.Bold = True
    .Characters(Len(Cells(i, 2)) + 2, Len(Cells(i, 3))).Font.FontStyle = "Bold"
    
End With
  Next i
End Sub

.Characters(Len(Phần 1)+ Divide (Phần chia, nếu " " thì +2, nếu "," thì cộng 2), len (phần 2) có vẻ ổn.
Chủ topic phản hồi sớm nhé, vì trong giờ ko làm việc riêng nhiều được

 

[kbw1]

Ko ổn bạn ạ.
Mình tìm được topic này. http://www.giaiphapexcel.com/forum/...nguyên-định-dạng-khi-nối-chuỗi-giữa-các-cells
Nhưng mình cần đơn giản hơn.
chỉ cần định dạng đơn giản thôi. Có vẻ ko khả thi lắm.

 

[comet_1701]

Ko ổn bạn ạ.
Mình tìm được topic này. http://www.giaiphapexcel.com/forum/...nguyên-định-dạng-khi-nối-chuỗi-giữa-các-cells
Nhưng mình cần đơn giản hơn.
chỉ cần định dạng đơn giản thôi. Có vẻ ko khả thi lắm.

Bạn cứ trả lời thế này thì ai có thể giúp bạn dượcđây, không ổn ở chỗ nào, bạn nêu rõ ra mọi người mới biết được, file đính kèm không có, kết quả mong muốn cũng ko thì khó đấy.
Lúc khi đọc topic mình trả lời là có thể làm được là vì hồi xưa mình có đọc bài của Thầy ndu, nhưng ko phải link này
Link này ko ổn, không khả thi thế nào? Đến bây giờ mình ko rõ nhu cầu của bạn?

 

[kbw1]

Bạn cứ trả lời thế này thì ai có thể giúp bạn dượcđây, không ổn ở chỗ nào, bạn nêu rõ ra mọi người mới biết được, file đính kèm không có, kết quả mong muốn cũng ko thì khó đấy.
Lúc khi đọc topic mình trả lời là có thể làm được là vì hồi xưa mình có đọc bài của Thầy ndu, nhưng ko phải link này
Link này ko ổn, không khả thi thế nào? Đến bây giờ mình ko rõ nhu cầu của bạn?

Xin lỗi bạn.
Để mình làm lại.

 

[kbw1]

Không được. Code báo lỗi.
Thôi bạn ạ.
Cái này mình chỉnh tay thôi. Mình nghĩ có công thức hay giải pháp nào đơn giản thì tốt.
Ko nghĩ vấn đề này ko khả thi.
Cảm ơn bạn!

 

[comet_1701]

Không được. Code báo lỗi.
Thôi bạn ạ.
Cái này mình chỉnh tay thôi. Mình nghĩ có công thức hay giải pháp nào đơn giản thì tốt.
Ko nghĩ vấn đề này ko khả thi.
Cảm ơn bạn!

Gì mà bi quan thế, bạn cứ gửi lên, gặp người phù hợp có thể giải quyết được chăng, hôm nay là lần đầu tiên mình dùng Font, characters đó nên cũng lâu. Các thành viên khác or bác ndu có thể giúp được

 

[ndu96081631]

Các thành viên khác or bác ndu có thể giúp được

Tôi chỉ giúp khi nhìn thấy file thật chứ không giúp "chay" ---> Mất thời gian lắm

 

[comet_1701]

Tôi chỉ giúp khi nhìn thấy file thật chứ không giúp "chay" ---> Mất thời gian lắm

Cài này thì đương nhiên rồi ah. Ngay từ đầu bạn ý đã ko có file đính kèm nên ko rõ yêu cầu là gì. Em xem bài của Thầy với 1,2 thành viên nào đó cũng rất giỏi. Lâu lắm rồi nên ko nhớ nổi luôn

 

[kbw1]

Thực ra file cũng ko có gì.
Vùng dữ liệu thì mình muốn linh động. Tức là muốn vùng nào thì chọn. hay muốn cell nào thì chọn. Vì file biến đổi linh hoạt mà.
Nếu bạn vẫn còn hứng thú vs chủ đề này thì xin giúp đỡ mình.