Tạo sheet và điền dữ liệu vào textbox?

[Hoàng Nhật Phương]

Xin chào các bạn,
Oanh Thơ có một vấn đề,nêu trong tập tin gửi kèm.
Nhờ các bạn bạn giúp đỡ ạ.

 

[HeSanbi]

Tạo ra 800 / 4 = 200 Sheet? ------------- "Mơ hay là thật"

 

[huuthang_bd]

Xin chào các bạn,
Oanh Thơ có một vấn đề,nêu trong tập tin gửi kèm.
Nhờ các bạn bạn giúp đỡ ạ.

Làm vầy cho đơn giản.

 

[Hoàng Nhật Phương]

Làm vầy cho đơn giản.

Ồ,đúng là đơn giản mà lại hiệu quả.
OT cảm ơn anh Hữu Thắng nhiều ạ.

 

[HeSanbi]

Ồ,đúng là đơn giản mà lại hiệu quả.
OT cảm ơn anh Hữu Thắng nhiều ạ.

Cứ tưởng phải gán giá trị vào Label. Hỏi 1 đường nhưng lại muốn kết quả 1 nẻo. Vui quá ta. Vậy là xong bài này chưa?

 

[Hoàng Nhật Phương]

Cứ tưởng phải gán giá trị vào Label. Hỏi 1 đường nhưng lại muốn kết quả 1 nẻo. Vui quá ta. Vậy là xong bài này chưa?

Xin chào HeSanbi,
Mong muốn của OT kết quả cuối cùng là làm thể nào để hiển thị được kết quả lên lable là được, nên với cách làm của anh Hữu thắng là OK rồi ạ.

Có thể sẽ có nhiều cách, với cách của anh Hữu Thắng là gán vào cell sau đó link đến lable.
Còn dữ liệu minh họa của OT là gán trực tiếp, nếu HeSanbi có cách làm để gán trực tiếp có thể code cho OT để tham khảo thêm cách làm khác được không?

 

[HeSanbi]

Xin chào HeSanbi,
Mong muốn của OT kết quả cuối cùng là làm thể nào để hiển thị được kết quả lên lable là được, nên với cách làm của anh Hữu thắng là OK rồi ạ.

Có thể sẽ có nhiều cách, với cách của anh Hữu Thắng là gán vào cell sau đó link đến lable.
Còn dữ liệu minh họa của OT là gán trực tiếp, nếu HeSanbi có cách làm để gán trực tiếp có thể code cho OT để tham khảo thêm cách làm khác được không?

OT lấy Code của thầy Thắng trên kia.
rồi áp dụng dòng này:

'Giữ nguyên cái Sheet Mau trong file OT đăng
p = p + 1
If ItemIndex = 1 Then p = 1
Sh.shapes("Rectangle " & 4 + p).TextFrame2.TextRange.Characters.Text = sPrefix & aCode(i, 1)

Thông cảm cho tôi vì tính lười biến của tôi. Nếu không được thì hỏi lại nhé !