Chỉnh sửa code trong ListBox các Column gần lại nhau

[phạm văn trình]

Chào các anh chị !
Tôi nhờ anh chị chỉnh sửa, thêm bớt giúp đoạn Code trong file đính kèm này nhé. Trân trọng cảm ơn

 

[Hoàng Trọng Nghĩa]

Bạn không cần viết code gì thêm đâu. Trong Form bạn thiết lập các thuộc tính (Properties) như sau:

1) Nút STT bạn cho Width = 50, nút Số hiệu TK cho Width = 65, Left = 62, nút tên TK cho Width = 203, Left = 127

2) Với ListBox1, bạn đặt thuộc tính ColumnWidth = 50 pt; 65 pt (chỉ cần gõ 50; 65 thì nó sẽ hiểu) còn cột thứ 3 không cần cho chiều dài, tự nó sẽ Fix theo cột.

Thân.

 

[Hoàng Trọng Nghĩa]

À, còn nếu bạn cứ muốn dùng Code thì bạn thêm 1 chút xíu vào thủ tục của Form:

Private Sub UserForm_Initialize()
  FCol = 1
  hWnd = FindWindow("ThunderDFrame", Me.Caption)
  SetWindowLong hWnd, -16, &H84C00000
  ListBox1.RowSource = "TKSD!A9:C60"
  [COLOR=#ff0000][B]ListBox1.ColumnWidths = "50 pt; 65pt"[/B][/COLOR]
End Sub

 

[phạm văn trình]

Cảm ơn minhthien321, phải nói là bạn rất hiểu sâu về userForm. Tôi Muốn nhờ các bạn giải quyết 2 vấn đề còn lại được đề cập trong file đính kèm nhé. Trân trọng cảm ơn !

 

[nghiaphuc]

Cảm ơn minhthien321, phải nói là bạn rất hiểu sâu về userForm. Tôi Muốn nhờ các bạn giải quyết 2 vấn đề còn lại được đề cập trong file đính kèm nhé. Trân trọng cảm ơn !

Tạm thời anh sử dụng cái này, em đã rút gọn bớt một số vị trí không cần thiết (chẳng hạn như sub Worksheet_SelectionChange). Trên Form có cái nút SpinButton1 còn hơi ngược (nhấn nút bên trên thì chạy xuống, nhấn nút bên dưới thì chạy lên) nhưng có thể coi như không sao.

 

[viehoai]

Tạm thời anh sử dụng cái này, em đã rút gọn bớt một số vị trí không cần thiết (chẳng hạn như sub Worksheet_SelectionChange). Trên Form có cái nút SpinButton1 còn hơi ngược (nhấn nút bên trên thì chạy xuống, nhấn nút bên dưới thì chạy lên) nhưng có thể coi như không sao.

1. Hình như tác giả muốn Form nằm bên trái, dưới của Target khi kích phải chứ đâu phải của màn hình đâu

  With UserForm1
      .Top = Target.Top
      .Left = Target.Left
  End With

2. Vấn đề SpinButton1 chạy ngược sao anh không dùng

Private Sub SpinButton1_SpinUp()
    If ActiveCell.Row < 14 Then Exit Sub
    ActiveCell.Offset(-1).Activate
End Sub

Private Sub SpinButton1_SpinDown()
    ActiveCell.Offset(1).Activate
End Sub

Thân.

 

[phạm văn trình]

Xin trân trọng cảm ơn các anh chị: minhthien321; nghiaphuc; viehoai; các anh chị quá giỏi, tôi quá mất nhiều thời gian cho công việc này. nay được các anh giúp đỡ tôi rất cám ơn. Đúng là: KHÔNG THẦY ĐỐ MÀ LÀM LÊN. hẹn gặp lại các anh trên diễn đàn bổ ích này GPE.

 

[phạm văn trình]

Chào các anh chị!
Cảm ơn anh chị đã giúp đỡ. Trong quá trình ứng dụng lại xảy ra cái bất tiện trong file đính kèm. Nhờ anh chị sửa giúp nhé. Trân trọng cảm ơn.

 

[viehoai]

Chào các anh chị!
đề nghị các anh chị sửa giúp phần Code sao cho nháy chuột trái thì hộp đó sẽ mở ra, còn các chức năng khác để nguyên.

Cụ thể là những gì vậy bạn?

 

[phạm văn trình]

Cảm ơn viehoai !tôi đã đính kèm file:"Hiện tại bây giờ là nháy chuột phải thì hộp ListBox sẽ mở ra. Nhưng như vậy thì lại bất tiện, nó bị mất cái mặc định của Excel như các ô khác.
Kính đề nghị các anh chị sửa giúp phần Code sao cho nháy chuột trái thì hộp đó sẽ mở ra, còn các chức năng khác để nguyên". Cảm ơn các anh chị đã giúp đỡ.

 

[sealand]

Xin lỗi, chưa làm lại được giúp bạn. Tôi là kế toán và đã từng làm Form nhập dữ liệu nên có 1 số ý kiến:
1/Dùng chuột là hạ sách vì kế toán thường gõ phím. Khi đang gõ mà lại rờ chuột thì thật bất tiện.
2/Nên dùng 1 trong 2 cách:
-Gán phím tắt.
-Nhập đại vào rồi dùng sự kiện Worksheet change để kiểm tra Target bằng hàm Countif chẳng hạn nếu không có trong DMTK thì mở form

Bạn tham khảo ở link sau quá ngon với bạn

http://www.giaiphapexcel.com/forum/showthread.php?15-Tạo-bảng-chọn-dữ-liệu-trong-Excel&