Gọi Form lên từ file *.xla

[thuannhpecc2]

Chào các bạn!
Minh sử dụng Ađin để lập tính toán móng của đu7òng dây tải điện, khi sử dụng listbox de in ra giá tri tính toán của các trường hợp thì gặp tình trạng chữ bi lệch nhau giửa các dòng --> do giá trị của mổi dối tương khác nhau và chiê2u dài của mỗi phần tữ cũng khác nhau
---> Nhờ anh em chỉ giúp các làm cho các giá trị xếp đều như canh trái hay canh phải trong Excell nhé
vd a b c d e
0.5 1.32 1.2 6.5 9.82
1 5.82 5.264 2.36 10.52
các dòng bị nhảy lệch đi
mình muốn nó canh các cột theo định dạng tab vậy
Mình muốn kết quả như thế này khi in ra trong listbox
a b c d e
0.5 1.32 1.2 6.5 9.82
1 5.82 5.264 2.36 10.52
Doan code mình đang viết như thế này
For sli = 1 To 9
ListBox1.AddItem sli & " " & bbb(sli) & " " & lll(sli) & " " & xm_max1(sli)
Next

2.-Mình viết các chương trình tính toán móng trong file xla (Addin), giờ mỗi khi tính toán móng mới từ 1 file Excell thì phải Alt + F11 để vào file .Xla để gọi form lên
- Mình muốn viết 1 đoạn code cho 1 commandbuttom cho các file excell cần tính để khi gọi form len thì chỉ cần nhấn vào nút là xong không phải vào các thử tục kia nũa
--> Anh en nào biết xin chỉ giáo cho mình cái.


--- File *.xla là file tính toán chung chứa các công thức tính và càc form chính.
---File cần tính là file xls khác
Rất mong nhận được sự chỉ giáo của mọi người

 

[Po_Pikachu]

Đây là 1 cách nhưng bạn phải vào Addin đó thêm lệnh gọi các form trong đó! Rồi dùng lệnh Application.Run để gọi các Sub mới đó thì mới chạy được lệnh gọi Form ra chứ không gọi trực tiếp Form được! Bạn xem file nha! Nhớ mở cả hai file ra mới thấy có kết quả nha. Thân.

 

[thuannhpecc2]

Đây là 1 cách nhưng bạn phải vào Addin đó thêm lệnh gọi các form trong đó! Rồi dùng lệnh Application.Run để gọi các Sub mới đó thì mới chạy được lệnh gọi Form ra chứ không gọi trực tiếp Form được!
Bạn xem file nha! Nhớ mở cả hai file ra mới thấy có kết quả nha.
Thân.

Cảm ơn bạn nhiều, mình chạy được rồi!!!

 

[lypt]

1 cách để từ file này mở userform ở file khác (không nhất thiết là file.xla)

Workbook_1 có UserForm1 (để phục vụ cho việc gì đó!);
Trong Workbook_1, tạo :
Private Sub Workbook_Open()
Workbooks("Ten_Workbook_2.xls ").Activate '(2)
UserForm1.Show '(3)
End Sub

Trong Workbook_2 tạo một CommandButton1 :
Private Sub CommandButton1_Click()
Workbooks.Open Filename:="Duongdan_Workbook_1.xls" '(1)
End Sub


Đang ở Workbook_2, sau khi click vào CommandButton1 thì :
(1) Mở Workbook_1

(2) Workbook_2 activate

(3) Mở UserForm1 trong Workbook_1

 

[thuannhpecc2]

Workbook_1 có UserForm1 (để phục vụ cho việc gì đó!);
Trong Workbook_1, tạo :
Private Sub Workbook_Open()
Workbooks("Ten_Workbook_2.xls ").Activate '(2)
UserForm1.Show '(3)
End Sub

Trong Workbook_2 tạo một CommandButton1 :
Private Sub CommandButton1_Click()
Workbooks.Open Filename:="Duongdan_Workbook_1.xls" '(1)
End Sub


Đang ở Workbook_2, sau khi click vào CommandButton1 thì :
(1) Mở Workbook_1

(2) Workbook_2 activate

(3) Mở UserForm1 trong Workbook_1

Cảm on bạn nhiều! Mình thử cách này luôn để lập trình cho cách mở 1 file luon

 

[Mr Okebab]

Chào các bạn!

2.-Mình viết các chương trình tính toán móng trong file xla (Addin), giờ mỗi khi tính toán móng mới từ 1 file Excell thì phải Alt + F11 để vào file .Xla để gọi form lên
- Mình muốn viết 1 đoạn code cho 1 commandbuttom cho các file excell cần tính để khi gọi form len thì chỉ cần nhấn vào nút là xong không phải vào các thử tục kia nũa
--> Anh en nào biết xin chỉ giáo cho mình cái.


--- File *.xla là file tính toán chung chứa các công thức tính và càc form chính.
---File cần tính là file xls khác
Rất mong nhận được sự chỉ giáo của mọi người

Để thuận tiện thì người ta thường hay làm thêm 1 Menu cho Addins đó, sau đó muốn thi hành lệnh gì (kể cả Form.Show) thì sẽ vào Menu để gọi.

Tạo menu có rất nhiều trên diễn đàn này. Bạn có thể tham khảo.

Thân!