Xin giúp em cách tạo Sheet mới từ các sheet có sẵn. (3 người xem)

[843824]

- Em xin trình bày cơ bản như sau: (chi tiết e có ghi rõ và tạo sheet ví dụ trong file đính kèm).
1. File excel gồm các dữ liệu đầu vào và 3 Sheet lấy nội dung từ các Sheet dữ liệu.
2. Em muốn làm sao tạo được 1 nút khi ấn vào đó nó sẽ tạo ra 1 Sheet mới gộp nội dung của 3 Sheet kia vào chung.

- Thật sự e không biết excel có còn phương pháp nào khác hay hơn không. Nhưng do bình thường e làm tay những thao tác này rất lâu và tốn thời gian dữ lắm.
- Em xin cảm ơn mọi người rất nhiều vì đã đọc bài viết.

 

[nguyenthuy13388]

- Em xin trình bày cơ bản như sau: (chi tiết e có ghi rõ và tạo sheet ví dụ trong file đính kèm).
1. File excel gồm các dữ liệu đầu vào và 3 Sheet lấy nội dung từ các Sheet dữ liệu.
2. Em muốn làm sao tạo được 1 nút khi ấn vào đó nó sẽ tạo ra 1 Sheet mới gộp nội dung của 3 Sheet kia vào chung.

- Thật sự e không biết excel có còn phương pháp nào khác hay hơn không. Nhưng do bình thường e làm tay những thao tác này rất lâu và tốn thời gian dữ lắm.
- Em xin cảm ơn mọi người rất nhiều vì đã đọc bài viết.

Chưa có thời gian tìm hiểu vụ ngăt trang in, tạm thời làm cho bạn yêu cầu gộp sheet:

Sub Rectangle1_Click()
Dim i As Long, Lr As Long, Lr1 As Long
Dim ShName As String, Sh As Worksheet

With Sheet1
 For i = 6 To .Range("A50000").End(xlUp).Row
    If .Range("A" & i).Value = .Range("I3").Value Then
         Lr = .Range("H50000").End(xlUp).Row + 1
         ShName = WorksheetFunction.Text(.Range("B" & i).Value, "ddmmyy")
         If KiemTra(ShName) = True Then
            MsgBox "SheetName da duoc khoi tao. Vui long chon so TT khac"
         Else
            .Range("H" & Lr).Value = .Range("B" & i).Value
            .Range("I" & Lr).Value = .Range("C" & i).Value
            Sheets.Add after:=Sheets("Lich")
            With ActiveSheet
                .Name = ShName
                For Each Sh In Worksheets
                    If Sh.Name = "NBo" Or Sh.Name = "YCau" Or Sh.Name = "Nthu" Then
                        Lr1 = Sh.Range("A1").SpecialCells(11).Row
                        Sh.Range("A1:J" & Lr1).Copy Destination:=Sheets(ShName).Range("A" & .Range("A1").SpecialCells(11).Row + 1)
                    End If
                Next Sh
            End With
         End If
    End If
 Next i
 .Select
End With
End Sub
'Hàm kiểm tra của tác giả: Ndu'
Public Function KiemTra(Txt As String) As Boolean
Dim Ws As Worksheet
For Each Ws In Worksheets
    If Ws.Name = Txt Then
        KiemTra = True
        Exit For
    End If
Next Ws
End Function

 

[843824]

Chưa có thời gian tìm hiểu vụ ngăt trang in, tạm thời làm cho bạn yêu cầu gộp sheet:

Dạ xin cảm ơn. Để mình chạy thử xem kết quả thế nào mình sẽ báo tiếp nhé.
- Kết quả ok rồi bạn ơi. Thank bạn nhiều.
- Được vậy là mừng rồi.
- Nếu có thời gian bạn xem giúp việc khi muốn in Cái sheet mới tạo ra => Bấm Ctrl P - hay nút in do mình tạo mới cũng được. Mà nó tự tạo trang in cho 3 phần nội dung trong 1 sheet thì hay quá.

 

[Nhất Chi Lan]

Dạ xin cảm ơn. Để mình chạy thử xem kết quả thế nào mình sẽ báo tiếp nhé.

Nếu bạn dung Excel 2007 thì cách này chỉ được khoảng 504 biên bản là hết cỡ

 

[843824]

Nhất Chi Lan: mình xài excel 2010 đó bạn.
- Ý bạn là chỉ tạo được tối đa 504 sheet mới (gồm 3 cái kia)
- Hay chỉ 504/3= 168 sheet mới vậy bạn?
- Nếu 504 sheet thì ok chắc đảm bảo cho công việc. Còn 168 thì hơi ít.
- Vậy nếu muốn cho nó tăng lên - mình save ra *.xlsx có được không? và lúc này tối đa là được bao nhiêu sheet?

 

[843824]

Mọi người ơi, mọi người bổ sung giúp mình cách thức nào cho khi bấm lệnh in (hoặc 1 nút in riêng) trong các Sheet (kết quả đã được tạo ra theo cách của bạn Nguyenthuy388 ở trên): sao cho nó tự động ra 3 trang với?

Xin cảm ơn rất nhiều!

 

[843824]

Sắp đến tết rồi - chuẩn bị qua năm mới rồi.
Có bác nào chịu khó viết thêm dùm em cái Nút in như nội dung ở trên nữa với.
E xin cám ơn và xin mời bác nào giúp đỡ uống cafe ạ.

- Hoặc nếu không thì các bác chỉ e cách nào nghiên cứu để viết thêm vào Code của bác nguyenthuy13388 cũng được.

* Chúc mọi người ăn tết vui vẻ nhé.

 

[ppc0312]

Sắp đến tết rồi - chuẩn bị qua năm mới rồi.
Có bác nào chịu khó viết thêm dùm em cái Nút in như nội dung ở trên nữa với.
E xin cám ơn và xin mời bác nào giúp đỡ uống cafe ạ.

- Hoặc nếu không thì các bác chỉ e cách nào nghiên cứu để viết thêm vào Code của bác nguyenthuy13388 cũng được.

* Chúc mọi người ăn tết vui vẻ nhé.

Càng sắp tết càng bận, mà càng bận thì càng đọc nhanh, bạn không mô tả đọc cả 7 bài trên chả bài nào mô tả in cái gì in thế nào?

Đoán mò: Muốn hiểu về in và ngắt trang in thì ghi macro sẽ hiểu code (ghi cho thao tác page break, hay print area, ..).

 

[843824]

Càng sắp tết càng bận, mà càng bận thì càng đọc nhanh, bạn không mô tả đọc cả 7 bài trên chả bài nào mô tả in cái gì in thế nào?

Đoán mò: Muốn hiểu về in và ngắt trang in thì ghi macro sẽ hiểu code (ghi cho thao tác page break, hay print area, ..).

Dạ xin cám ơn bác. Đầu năm (mùng 2) xin chúc bác và cả diễn đàn mình gặp nhiều may mắn phát tài.
- Chắc do bác không có thời gian để xem các file trên nên chưa hình dung được.
- Em xin giải bày như sau:
+ Đầu tiên: e cần xuất ra 1 Sheet (VD: Ketqua). Sheet này được gộp từ 3 sheet con bên trong 1 file (với các số liệu từ 1 sheet input). Phần này đã làm ok nhờ bác Nguyenthuy388 qua Code bên trên rồi.
+ Bây giờ e cần: In cái Sheet Ketqua này ra. Do sheet Ketqua này được gộp từ 3 sheet nên nó sẽ gồm 3 - 4 trang giấy (tùy nội dung nhiều ít).
+ Có kèm hình minh họa bên dưới.
+ Điều e muốn: Khi bấm lệnh in do người dùng viết thì máy sẽ tự ngắt trang ở các vị trí hết 1 trang nội dung (hoặc lấy dòng trên dòng "Cộng Hòa Xã Hội..." làm vị trí ngắt trang). Sau đó in ra nữa là xong.
==> Xin cám ơn bác đã quan tâm.

 

[ppc0312]

Dạ xin cám ơn bác. Đầu năm (mùng 2) xin chúc bác và cả diễn đàn mình gặp nhiều may mắn phát tài.
- Chắc do bác không có thời gian để xem các file trên nên chưa hình dung được.
- Em xin giải bày như sau:
+ Đầu tiên: e cần xuất ra 1 Sheet (VD: Ketqua). Sheet này được gộp từ 3 sheet con bên trong 1 file (với các số liệu từ 1 sheet input). Phần này đã làm ok nhờ bác Nguyenthuy388 qua Code bên trên rồi.
+ Bây giờ e cần: In cái Sheet Ketqua này ra. Do sheet Ketqua này được gộp từ 3 sheet nên nó sẽ gồm 3 - 4 trang giấy (tùy nội dung nhiều ít).
+ Có kèm hình minh họa bên dưới.
+ Điều e muốn: Khi bấm lệnh in do người dùng viết thì máy sẽ tự ngắt trang ở các vị trí hết 1 trang nội dung (hoặc lấy dòng trên dòng "Cộng Hòa Xã Hội..." làm vị trí ngắt trang). Sau đó in ra nữa là xong.
==> Xin cám ơn bác đã quan tâm.

Mùng 2 đã lo việc ... nhờ
Đúng là chỉ có diễn đàn GPE, tốt nhất bỏ nó thôi
Đợi ai rảnh giúp vậy

 

[843824]

Mùng 2 đã lo việc ... nhờ
Đúng là chỉ có diễn đàn GPE, tốt nhất bỏ nó thôi
Đợi ai rảnh giúp vậy

Ồ - sorry đã làm phiền bác.
E cũng biết nhờ hơi kỳ nên ở trên #7 e có ghi là xin mời bác giúp đỡ uống cafe.
- Cái này nếu ở gần thì ok - còn nều ở xa thì bác cho e xin STK e CK chút tiền gọi là cafe cám ơn cũng được.
(Của ít lòng nhiều thôi bác).
- E ko giám trả giá cho chất xám của người giúp mình nhưng cũng không phải chỉ canh me chầu chực đâu.
- Bác nói vậy thì oan cho diễn đàn quá. Cái này CV e cần nhưng thật sự không biết kím ai để hỏi nên nhờ DĐ thôi.

 

[ppc0312]

Ồ - sorry đã làm phiền bác.
E cũng biết nhờ hơi kỳ nên ở trên #7 e có ghi là xin mời bác giúp đỡ uống cafe.
- Cái này nếu ở gần thì ok - còn nều ở xa thì bác cho e xin STK e CK chút tiền gọi là cafe cám ơn cũng được.
(Của ít lòng nhiều thôi bác).
- E ko giám trả giá cho chất xám của người giúp mình nhưng cũng không phải chỉ canh me chầu chực đâu.
- Bác nói vậy thì oan cho diễn đàn quá. Cái này CV e cần nhưng thật sự không biết kím ai để hỏi nên nhờ DĐ thôi.

Đầu tiên là tránh viết tắt, thứ nữa là nhờ trên này là tự do, miễn phí- nên tế nhị khi đề cập đến tiền (vì tiền trả thì bao nhiêu cho đủ, trả theo giờ e rằng ngang tháng lương trung bình)
Còn tôi viết trên mùng 2 vì hãy vui tết đã, mùng 2 đã nhờ thật là lạ thay.

 

[843824]

Đầu tiên là tránh viết tắt, thứ nữa là nhờ trên này là tự do, miễn phí- nên tế nhị khi đề cập đến tiền (vì tiền trả thì bao nhiêu cho đủ, trả theo giờ e rằng ngang tháng lương trung bình)
Còn tôi viết trên mùng 2 vì hãy vui tết đã, mùng 2 đã nhờ thật là lạ thay.

Ồ lâu quá mình mới vào lại xem.
Xin bác đọc kỹ lại ý mình đã nói. Đương nhiên free thì tốt. Nhưng nếu có bác nào có nhã ý giúp đỡ thì mình xin cám ơn và có chút cà phê cà pháo. (Mình đã ghi chất xám thì không thể trả giá ... đương nhiên cao quá thì mình không ráng được/ chứ không hề nói theo giờ theo ngày hay bao nhiêu cho đủ).
- Còn viết từ mùng 2 - như bác nhận thấy. Mấy bữa mình mới vô xem. Cũng như mọi người khác - không phải lúc nào cũng xem suốt trong này. Lúc nào rãnh tiện thì mình ghi thôi bác.
.... Túm lại: xin phép bác kết thúc vấn đề câu chữ tại đây. Để khỏi làm loãng diễn đàn.
- Nếu được và quan tâm, bác có thể quay lại chủ đề và giúp dùm mình mình xin cám ơn rất nhiều do cần thiết mà mình thì gà cái khoản này. (Mới đặt mua bộ sách VBA trong diễn đàn dịp này - hiện tại đang chờ sách về).
- Mọi người khác có xem thì xin giúp mình 1 tay với nhé.
- Xin cảm ơn mọi người.