Làm sao để LIST VIEW hiển thị Font UNICODE

[othanhquango]

Mình có xem 1 số bài trên diễn đàn nói về vấn đề này nhưng chưa hiểu lắm. Nhờ các bạn chỉ giúp mình cách hiện thi font trong list view cho đúng.

 

[othanhquango]

Hic, mình đã tìm hiểu và làm được như ý muốn rồi. Chân thành cảm ơn bạn rất nhiều. Do lúc sáng nóng vội nên ... đòi HBT. Thật sự giờ mình có nhiều thứ muốn hỏi nhưng ... sợ bị chửi quá nên thôi.

Mình đã tìm đọc tl và nâng cấp form DMH được như sau: Bạn xem và đóng góp ý kiến giúp mình.

 

[ndu96081631]

Hic, mình đã tìm hiểu và làm được như ý muốn rồi. Chân thành cảm ơn bạn rất nhiều. Do lúc sáng nóng vội nên ... đòi HBT. Thật sự giờ mình có nhiều thứ muốn hỏi nhưng ... sợ bị chửi quá nên thôi.

Mình đã tìm đọc tl và nâng cấp form DMH được như sau: Bạn xem và đóng góp ý kiến giúp mình.

Bạn vừa hỏi bài tại đây:
http://www.giaiphapexcel.com/forum/showthread.php?40480-Làm-sao-để-định-dạng-trong-trường-hợp-này
Tôi nghĩ cũng là chủ đề này, vậy ta bàn tiếp tại đây nhé
Tôi sửa code thế này:

Private Sub UserForm_Activate()
  Dim Tmp, ColA As String, Clls
  With Sheet2
    With .Range(.[A1], .[A65536].End(xlUp)).Resize(, 8)
      ColA = Intersect(.Offset(1), .Resize(, 1)).Address
      Tmp = .Value
      With Me.LVDMH.Range(.Address)
        .Parent.Parent.Windows(1).ViewableRange = .Address
        .Range("E2:H600").NumberFormat = "#,##0"
        .Value = Tmp
        .Borders.LineStyle = 1
        With .Parent.Range(ColA)
          .Formula = "=IF(ISTEXT(RC2),"""",COUNT(R2C2:RC2))"
          .Value = .Value
          For Each Clls In .Cells
            If Clls = "" Then
              Clls.Offset(, 1).Font.Bold = True
              Clls.Offset(, 1).Font.Italic = True
            Else
              Clls.Offset(, 1).HorizontalAlignment = xlCenter
            End If
          Next
        End With
      End With
    End With
  End With
End Sub

Bạn xem file nhé

 

[othanhquango]

Chuẩn luôn. Mình đang thiết kế cái sườn. May nhờ bạn hướng dẫn nên làm được tốt hơn. Cảm ơn bạn. Mình còn nhiều cái để hỏi lắm, nhưng chắc ... chờ nghiên cứu đã.

PM: có cảm giác hơi chậm tí khi load form.

 

[othanhquango]

Làm cách nào để giới hạn số cột tự động và điền nội dung

Nhờ các bạn xem giúp mình file đính kèm. Mình muốn làm trong frm_NhapXuat nhưng quậy hoài mà không được

Ý định của mình là nhập thông tin ở trên => nhấn button Nhập => nó sẽ hiện đầy đủ thông tin và chi tiết ở sheet dưới các cột tương ứng để xem lại cho chắc chắn) sau đó nếu đồng ý => nhấn button Ghi Sổ => sẽ gán giá trị cho sheet PhatSinh các cột tương ứng
Rất mong sự giúp đỡ của các bạn. Mình chân thành cảm ơn.

 

[ndu96081631]

Nhờ các bạn xem giúp mình file đính kèm. Mình muốn làm trong frm_NhapXuat nhưng quậy hoài mà không được

Ý định của mình là nhập thông tin ở trên => nhấn button Nhập => nó sẽ hiện đầy đủ thông tin và chi tiết ở sheet dưới các cột tương ứng để xem lại cho chắc chắn) sau đó nếu đồng ý => nhấn button Ghi Sổ => sẽ gán giá trị cho sheet PhatSinh các cột tương ứng
Rất mong sự giúp đỡ của các bạn. Mình chân thành cảm ơn.

SpreadSheet rất hay nhưng tới đây thì có vẽ bạn hơi lạm dụng nó rồi đấy
Muốn lấy dữ liệu từ SpreadSheet trên xuống dưới, đơn giản là copy bình thường thôi (như bạn làm trên sheet vậy)... Ngoài ra có thể dùng sự kiện Private Sub Spr_PS_SheetChange ---> Gõ trên thế nào thì dưới sẽ như thế
--------------
Nói ngoài lề: Khi xây dựng 1 Form, điều mà các bạn cần lưu ý nhất không phải là mức độ "hoành tráng" của Form mà chính là sự "TIỆN DỤNG" do nó mang lại ----> Nếu thao tác trên Form mà rắc rối hơn nhập trực tiếp thì ai thèm xài?