Cách nào lấy luôn cả định dạng trong list

[hoile]

Mình tạo 1 list DS có dạng Ông. Nguyễn Văn A,...
nhưng khi lấy dữ liệu từ DS thì chỉ cho ra Ông. Nguyễn Văn A... không in đậm tên,
có cách nào khắc phục hiện tượng trên. Xin cám ơn

 

[Hai Lúa Miền Tây]

Mình tạo 1 list DS có dạng Ông. Nguyễn Văn A,...
nhưng khi lấy dữ liệu từ DS thì chỉ cho ra Ông. Nguyễn Văn A... không in đậm tên,
có cách nào khắc phục hiện tượng trên. Xin cám ơn

Bạn nên gửi 1 ít dữ liệu và diễn đạt trong đó cho dể nhé.

 

[hoile]

mình gởi lại rồi bạn xem lại dùm nhé!

 

[ndu96081631]

Mình tạo 1 list DS có dạng Ông. Nguyễn Văn A,...
nhưng khi lấy dữ liệu từ DS thì chỉ cho ra Ông. Nguyễn Văn A... không in đậm tên,
có cách nào khắc phục hiện tượng trên. Xin cám ơn

Cái này không dể ăn đâu nha ---> Kể cả dùng VBA cũng chưa biết sẽ làm theo hướng nào ---> Rắc rối nằm ở chổ: Trong chuổi có nhiều định dạng... vậy bằng cách nào Excel có thể phát hiện được sự tồn tại của các định dạng trên?
Tôi nghĩ chắc chỉ có nước Copy\Paste là khả thi và dể nhất
Thử xem! (đương nhiên copy\paste bằng code VBA)

 

[huuthang_bd]

Mình tạo 1 list DS có dạng Ông. Nguyễn Văn A,...
nhưng khi lấy dữ liệu từ DS thì chỉ cho ra Ông. Nguyễn Văn A... không in đậm tên,
có cách nào khắc phục hiện tượng trên. Xin cám ơn

Cái này không làm được đâu. Ngoài cách Copy/Cut - Paste thì không có cách nào khác giữ nguyên định dạng như vậy đâu.

 

[Hai Lúa Miền Tây]

Mình tạo 1 list DS có dạng Ông. Nguyễn Văn A,...
nhưng khi lấy dữ liệu từ DS thì chỉ cho ra Ông. Nguyễn Văn A... không in đậm tên,
có cách nào khắc phục hiện tượng trên. Xin cám ơn

Để lấy dữ liệu vào list (Validation) thì dữ liệu trong list nó không giữ nguyên định dạng của dữ liệu nguồn được đâu bạn.

 

[hoile]

ặc, thank các bác nhiều, cứ tưởng đơn giản, dể ăn, ai ngờ các cao thủ lại bó tay, em thì tiêu luôn.

 

[ndu96081631]

ặc, thank các bác nhiều, cứ tưởng đơn giản, dể ăn, ai ngờ các cao thủ lại bó tay, em thì tiêu luôn.

Không hẳn là bó tay ---> Ý tôi nói là có thể làm được, với điều kiện dùng VBA
Ví dụ code nó như thế này:

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect([B9:B11], Target) Is Nothing Then
    With Application
      .EnableEvents = False
      Range("ds").Find(Target, , , 1).Copy Target
      Target.Validation.Add 3, , , "=ds"
      .EnableEvents = True
      .CutCopyMode = False
    End With
  End If
End Sub

Tuy nhiên, bạn xem lại, liệu có cần đến mức phải dùng nó không?
(thích thì cứ paste code vào thí nghiệm)