Tự tạo File sưu tầm bài hay của GPE

[sealand]

Thường mình gặp những bài hay trên diễn đàn là mình chép về để đâu đó khi cần tìm không ra, trong khi không phải lúc nào cũng nên mạng được. Trong khi tham gia thảo luận bài với các bạn có liên quan vấn đề này, mình chợt nảy ra ý định tại sao không tao cho mình mình 1 file sưu tầm nhỉ.
Vậy la suốt tối đến giờ sản phẩm sơ bộ hoàn thành mình load lên các bạn tham khảo nhé. Trong file còn nhiều lỗi và hạn chế. Thậm chí cả hàm Filter cực phù hợp cho nó mình cũng chưa đưa vào. Hướng dẫn mình ghi cụ thể trong file rồi.
Đối với những bài dài thanh cuộn chưa hiện ra, bạn đặt con trỏ vào rồi dùng phím mũi tên lượt xuống dưới là thanh cuộn hiện ra.

 

[sealand]

Mình dựa trên phần bổ xung của domfootwear hoàn thiện chức năng Update, thuận tiện cho việc thêm sửa xoá dữ liệu.
Hiện mình đang mắc là làm sao đặt biểu tượng của Form lên thanh TastBar (Khi application đang ẩn). Như vậy mới thuận tiện cho việc chuyển đổi giữa các cửa sổ khi sao chép, sưu tầm.
Mình load bài và mong các bạn góp ý hoàn thiện thêm nhé.
Thank!

 

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

Mình dựa trên phần bổ xung của domfootwear hoàn thiện chức năng Update, thuận tiện cho việc thêm sửa xoá dữ liệu.
Hiện mình đang mắc là làm sao đặt biểu tượng của Form lên thanh TastBar (Khi application đang ẩn). Như vậy mới thuận tiện cho việc chuyển đổi giữa các cửa sổ khi sao chép, sưu tầm.
Mình load bài và mong các bạn góp ý hoàn thiện thêm nhé.
Thank!

Em thấy hình như khi update dữ liệu có lúc nó không load đúng đề tài anh à.

 

[ongtrungducmx25]

Em thấy ý tưởng khá hay ở chỗ là mọi người có thể update dữ liệu riêng mình cần! chúc ý tưởng của sealand thành công nhé!

 

[sealand]

Em thấy hình như khi update dữ liệu có lúc nó không load đúng đề tài anh à.

Đúng rồi, vì Form dùng lệnh Hide nên khi Show lại thì các lệnh trong Initialize không có tác dụng. Các bạn thêm sub sau sẽ khắc phục được

Private Sub UserForm_Activate()
Me.txtRow = Line
UpdateData
Label3.Caption = txtPage
End Sub

Cám ơn nhé.

 

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

Hiện mình đang mắc là làm sao đặt biểu tượng của Form lên thanh TastBar (Khi application đang ẩn). Như vậy mới thuận tiện cho việc chuyển đổi giữa các cửa sổ khi sao chép, sưu tầm.

Em đã cho biểu tượng vào form rồi, anh đóng hết tất cả các file Excel lại rồi hãy mở file này lên nhé. Em có thêm vào nút Min để khi không cần ta xụp nó xuống.

 

[mrapril]

Bài viết hay lắm, phần tác giả bác có thể cho nó auto sort theo vần 1->9 và alphabet không
Có thể cho Zoom to zoom nhỏ tùy thích cái size form được không bác
Có thể hiển thị 2 form cùng 1 lúc được không, hoặc hướng dẫn mình để hiển thị 2 form như vậy. (frmupdate vs. UserForm1)

 

[sealand]

Bài viết hay lắm, phần tác giả bác có thể cho nó auto sort theo vần 1->9 và alphabet không
Có thể cho Zoom to zoom nhỏ tùy thích cái size form được không bác

Nói chung, mình cố gắng giản tiện cho phù hợp chứ thực tế giải pháp này đều có thể được:
1/Sort ta dùng Adin sort tiếng Việt của Bác Pham Duy Long hay 1 số người khác trên GPE sort sheet DT rồi nạp lại là được thôi.

2/Zoom: Khá phức tạp vì ta phải viết 1 sub chỉnh lại tỷ lệ các đối tượng theo độ Zoon của Form.

Đây là các tính năng nâng cao ta hoàn thiện sau (Kỳ này đang kỳ báo cáo năm mà)
To Domfootwear
Mình vẫn chưa thấy biểu tượng trên thanh TaskBar ở chân màn hình ấy. Khi đổi Window chỉ cần chọn nó là được.

 

[mrapril]

Có cách nào lưu cả ảnh vào không, mình thấy hình như chỉ có text, với một số bài nếu có hình ảnh sẽ trực quan hơn
Và mình thấy lúc mình sửa cái label không type có dấu tiếng việt được

 

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

To Domfootwear
Mình vẫn chưa thấy biểu tượng trên thanh TaskBar ở chân màn hình ấy. Khi đổi Window chỉ cần chọn nó là được.

Anh thử lại lần nữa đi nhé, anh đóng tất cả file Excel của anh lại, mở file này lên, nhấn nút min trên form hoặc click vào 1 nơi nào đó của form là thấy liền.

 

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

Có cách nào lưu cả ảnh vào không, mình thấy hình như chỉ có text, với một số bài nếu có hình ảnh sẽ trực quan hơn
Và mình thấy lúc mình sửa cái label không type có dấu tiếng việt được

Trong Textbox không chứa được hình đâu bạn

 

[Hoàng Trọng Nghĩa]

Nói chung, mình cố gắng giản tiện cho phù hợp chứ thực tế giải pháp này đều có thể được:
1/Sort ta dùng Adin sort tiếng Việt của Bác Pham Duy Long hay 1 số người khác trên GPE sort sheet DT rồi nạp lại là được thôi.

2/Zoom: Khá phức tạp vì ta phải viết 1 sub chỉnh lại tỷ lệ các đối tượng theo độ Zoon của Form.

Đây là các tính năng nâng cao ta hoàn thiện sau (Kỳ này đang kỳ báo cáo năm mà)
To Domfootwear
Mình vẫn chưa thấy biểu tượng trên thanh TaskBar ở chân màn hình ấy. Khi đổi Window chỉ cần chọn nó là được.

Anh Sealand ơi, cái vụ tô đỏ là viết sub thủ công quy định khi maximized hoặc minimized hay normal thì đổi tỷ lệ, position của từng object hay có sẳn tính chất trong VBA chỉ gọi nó ra thôi?

 

[sealand]

To minhthien321:
Bất cứ 1 Object nào cũng được xác định và phân định phần trên Form theo các thông số:

-Top.
-Left.
-Height.
-Width.
Ta lấy thông số cực đại so với thông số khi Zoom của Form để điều chỉnh kích thước cho phù hợp và cân đối. Toàn bộ code này đặt vào Sub UserForm_Resize(). Như vậy khi Form to nhỏ thì các TextBox, List, Combo cũng to nhỏ theo, nhưng ta cố định mức nhỏ nhất là baonhiêu chứ không cho Zoom quá mức. Đây là cách mình thích , chứ mình không thích cách Zoom của Window là chỉ hy sinh khoảng nhìn còn các đối tượng vẫn giữ nguyên. Thậm chí, để thực sự thì còn phải chỉnh cả cỡ của Font nũa. Nói chung là cũng phức tạp.

 

[sealand]

Có cách nào lưu cả ảnh vào không, mình thấy hình như chỉ có text, với một số bài nếu có hình ảnh sẽ trực quan hơn
Và mình thấy lúc mình sửa cái label không type có dấu tiếng việt được

Thực sự đây là cái mình cũng muốn vậy và hoàn toàn có thể. Mình chưa thử được vì máy của mình hiện đang bị không Add control được. Cái này ta sử dụng RichText của VB là được.
Ta có thể tô màu định dạng như trong Word, thay đổi font....
Nhưng có 2 vấn đề:
-Quỹ thời gian cuối năm hạn chế quá.
-Cài các OCX này đôi khi sang máy khác hay bị lỗi. Ta lại phải có phần bổ xung OCX nó phức tạp với mọi người khi dùng file chỉ để ghi chép thôi.

 

[sealand]

To domfootwear:

Mình kích nút Min nó lặn mất tiêu. Bạn mở hình trong file nhé

 

[Candlelight]

Thực sự đây là cái mình cũng muốn vậy và hoàn toàn có thể. Mình chưa thử được vì máy của mình hiện đang bị không Add control được. Cái này ta sử dụng RichText của VB là được.
Ta có thể tô màu định dạng như trong Word, thay đổi font....
Nhưng có 2 vấn đề:
-Quỹ thời gian cuối năm hạn chế quá.
-Cài các OCX này đôi khi sang máy khác hay bị lỗi. Ta lại phải có phần bổ xung OCX nó phức tạp với mọi người khi dùng file chỉ để ghi chép thôi.

Anh sealand ơi, em thấy cái này hay quá mà sao anh không làm thử hả anh? Bài viết của anhtuan1066 đúng là món quà đầu năm mới đấy. Anh thử đi nha.
http://www.giaiphapexcel.com/forum/showpost.php?p=215312&postcount=1

 

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

To domfootwear:

Mình kích nút Min nó lặn mất tiêu. Bạn mở hình trong file nhé

Hix ! em cũng không hiểu sao nữa, máy em vẫn hiện tốt mà ? Anh xem đoạn phim nhé.

 

[sealand]

Ý mình là vậy đó, nhưng không hiểu sao mình mở không nên được. Mình kiểm tra code và Image vẫn có.
Mình phải xem lại xem lý do ra sao. Cám ơn domfootwear nhé.

 

[sealand]

Hôm nay, Chủ Nhật mình tranh thủ sửa File theo góp ý của các bạn và hoàn thiện thêm.
-Hoàn thiện phần Update
-Tạo phần tìm kiếm trên Internet qua Google.
-Tạo chức năng kiểm tra dọn dẹp hồ sơ.
-Tạo phần thông tin chung
Mình load lên các bạn tham khảo và góp ý bổ xung nhé. Chúc mọi người Chủ Nhật vui vẻ nhé.
Thân Sealand

 

[ndu96081631]

Hôm nay, Chủ Nhật mình tranh thủ sửa File theo góp ý của các bạn và hoàn thiện thêm.
-Hoàn thiện phần Update
-Tạo phần tìm kiếm trên Internet qua Google.
-Tạo chức năng kiểm tra dọn dẹp hồ sơ.
-Tạo phần thông tin chung
Mình load lên các bạn tham khảo và góp ý bổ xung nhé. Chúc mọi người Chủ Nhật vui vẻ nhé.
Thân Sealand

- Còn 1 vài lổi về việc thiếu khai báo biến
- Sao anh không dùng font Unicode? Máy em mở lên thấy toàn "mì tôm cua" (trên các Label)

 

[yeudoi]

Sao mình bấm vào tìm theo chủ đề lại bị lỗi. Nếu được bạn nên thêm tìm nội dung trong file nữa.