Lỗi vòng lặp For Move or Copy sheets (2 người xem)

[Vàng A Súp]

Em chào các bác/ anh/ chị
Em đang tập viết VBA nên có gì không biết mong các bác/ anh/ chị chỉ bảo giúp ạ
Em muốn coppy các sheet trong file excel của em sang 1 file excel khác với thứ tự
1. Hợp đồng số 1
2. Phụ lục Hợp đồng số 1
3. Nghiệm thu số 1
4. Phụ Lục nghiệm thu số 1
5. Nghiệm thu Phân dẫn số 1
6. Phụ lục nghiệm thu Phân dẫn số 1
........từ số 1 đến số 14 ( hoặc hơn )
Cuối cùng là tổng hợp
Em thử làm 1 code nhưng khi xuất ra thì bị lỗi
- Thứ tự sheet xuất ra lại xuất hiện trái qua phải từ 14 đến 1 ( em muốn từ bộ số 1 đến 14 )
- Hợp đồng thực hiện được vòng lặp theo Spin Button nhưng từ những sheet khác ( từ số 2. đến 6. ) không lặp lại
Mong nhận được sự chỉ bảo, giúp đỡ từ các quý bác/ anh/ chị
Em xin chân thành cảm ơn

Sub Macro3()
'
' Macro3 Macro
' Vong lap
Workbooks.Add
ChDir "D:\"
ActiveWorkbook.SaveAs Filename:="D:\giai_phap_excell.xlsx", FileFormat:= _
xlOpenXMLWorkbook, CreateBackup:=False

Dim i As Long
Dim tu As Long, den As Long
Dim wb As Workbook
Dim sh As Worksheet
Set wb = ThisWorkbook
Set sh = wb.Sheets("Hop_dong")
tu = sh.Range("Hop_dong!O2")
den = sh.Range("Hop_dong!O5")

For i = tu To den Step 1
sh.Range("Hop_dong!O2") = i

' Xuat hop dong
Windows("Tap viet VBA.xlsm").Activate
Sheets("Hop_dong").Select
ActiveSheet.Unprotect "cc"
Sheets("Hop_dong").Copy After:=Workbooks("giai_phap_excell.xlsx").Sheets(1)
Windows("Tap viet VBA.xlsm").Activate

' Xuat phu luc hop dong

Sheets("Phu_Luc HD").Select
ActiveSheet.Unprotect "cc"
Sheets("Phu_Luc HD").Copy After:=Workbooks("giai_phap_excell.xlsx").Sheets(2)
Windows("Tap viet VBA.xlsm").Activate

' Xuat nghiem thu KL

Sheets("Nghiem_Thu").Select
ActiveSheet.Unprotect "cc"
Sheets("Nghiem_Thu").Copy After:=Workbooks("giai_phap_excell.xlsx").Sheets(3)
Windows("Tap viet VBA.xlsm").Activate

' Xuat phu luc nghiem thu KL

Sheets("Phu_Luc NT").Select
ActiveSheet.Unprotect "cc"
Sheets("Phu_Luc NT").Copy After:=Workbooks("giai_phap_excell.xlsx").Sheets(4)
Windows("Tap viet VBA.xlsm").Activate


' Xuat nghiem thu DD

Sheets("Phan_Dan").Select
ActiveSheet.Unprotect "cc"
Sheets("Phan_Dan").Copy After:=Workbooks("giai_phap_excell.xlsx").Sheets(5)
Windows("Tap viet VBA.xlsm").Activate

' Xuat phu luc nghiem thu DD

Sheets("Phu_Luc PD").Select
ActiveSheet.Unprotect "cc"
Sheets("Phu_Luc PD").Copy After:=Workbooks("giai_phap_excell.xlsx").Sheets(6)
Windows("Tap viet VBA.xlsm").Activate

Next i

' Xuat tong hop

Sheets("tong hop toan xa").Select
Sheets("tong hop toan xa").Copy After:=Workbooks("giai_phap_excell.xlsx").Sheets(7)
Windows("Tap viet VBA.xlsm").Activate

' Xuat tong hop chung tu

Sheets("DN").Select
Sheets("DN").Copy After:=Workbooks("giai_phap_excell.xlsx").Sheets(8)
Windows("Tap viet VBA.xlsm").Activate

' Xoa sheet 1

Windows("giai_phap_excell.xlsx").Activate
Sheets("Sheet1").Select
ActiveWindow.SelectedSheets.Delete
End Sub

 

[Vàng A Súp]

@SA_DQ @Hoàng Tuấn 868 @Maika8008 @batman1 @befaint @xuongrongdat các bác giúp em với ạ. Hì hì. Em mò mãi từ hôm qua tới giờ mà vẫn không ra ạ. Huhu

 

[Hoàng Tuấn 868]

@SA_DQ @Hoàng Tuấn 868 @Maika8008 @batman1 @befaint @xuongrongdat các bác giúp em với ạ. Hì hì. Em mò mãi từ hôm qua tới giờ mà vẫn không ra ạ. Huhu

Chịu khó khóc to hơn thì Bụt mới hiện lên chứ, khóc nhỏ quá Bụt chưa nghe thấy bạn ơi.

 

[Vàng A Súp]

Chịu khó khóc to hơn thì Bụt mới hiện lên chứ, khóc nhỏ quá Bụt chưa nghe thấy bạn ơi.

Hì hì. Vậy thì. Huhuhu . Bác @Hoàng Tuấn 868 ơi, bác giúp em với ạ

 

[Hoàng Tuấn 868]

Hì hì. Vậy thì. HUHUHUHU . BÁC @Hoàng Tuấn 868 ƠI GIÚP EM VỚI Ạ Ạ Ạ Ạ.

Sửa lại toàn bộ về chữ thường cho đúng Nội quy đi bạn.

 

[Vàng A Súp]

Sửa lại toàn bộ về chữ thường cho đúng Nội quy đi bạn.

Bác bảo em khóc to mờ .Capslock mới thể hiện được độ khóc to ạ

 

[Hoàng Tuấn 868]

Bác bảo em khóc to mờ .Capslock mới thể hiện được độ khóc to ạ

Nếu không sửa thì Bụt không hiện lên đâu.

 

[Vàng A Súp]

Nếu không sửa thì Bụt không hiện lên đâu.

Hic. Em sửa rồi. Mọi hôm bác dễ tính thế mà hôm nay nóng quá nên cũng khó tính theo hay sao ý

 

[Hoàng Tuấn 868]

Hic. Em sửa rồi. Mọi hôm bác dễ tính thế mà hôm nay nóng quá nên cũng khó tính theo hay sao ý

Bây giờ vào việc nhé, cụ thể là thế nào đây.

 

[Vàng A Súp]

Bây giờ vào việc nhé, cụ thể là thế nào đây.

Dạ cụ thể là như này ạ :
Em muốn coppy các sheet trong file excel của em sang 1 file excel khác với thứ tự
1. Hợp đồng số 1
2. Phụ lục Hợp đồng số 1
3. Nghiệm thu số 1
4. Phụ Lục nghiệm thu số 1
5. Nghiệm thu Phân dẫn số 1
6. Phụ lục nghiệm thu Phân dẫn số 1
........từ số 1 đến số 14 ( hoặc hơn )
Cuối cùng là tổng hợp
Em thử làm 1 code nhưng khi xuất ra thì bị lỗi
- Thứ tự sheet xuất ra lại xuất hiện trái qua phải từ 14 đến 1 ( em muốn từ bộ số 1 đến 14 )
- Hợp đồng thực hiện được vòng lặp theo Spin Button nhưng từ những sheet khác ( từ số 2. đến 6. ) không lặp lại
( Chỗ unprotect " cc " là em phòng sau này em có lỡ khoá sheet thì lúc xuất vẫn xuất được ạ )
File excel em đã up ở trên bác ạ

 

[batman1]

- Thứ tự sheet xuất ra lại xuất hiện trái qua phải từ 14 đến 1 ( em muốn từ bộ số 1 đến 14 )

Từ trái qua phải là từ 1 tới ... chứ không phải là từ ... xuống 1

Mà thôi, nếu muốn theo thứ tự ngược lại với hiện có thì thay TẤT CẢ After thành Before.

- Hợp đồng thực hiện được vòng lặp theo Spin Button nhưng từ những sheet khác ( từ số 2. đến 6. ) không lặp lại

Không hiểu bạn nói gì.

 

[Hoàng Tuấn 868]

Dạ cụ thể là như này ạ :
Em muốn coppy các sheet trong file excel của em sang 1 file excel khác với thứ tự
1. Hợp đồng số 1
2. Phụ lục Hợp đồng số 1
3. Nghiệm thu số 1
4. Phụ Lục nghiệm thu số 1
5. Nghiệm thu Phân dẫn số 1
6. Phụ lục nghiệm thu Phân dẫn số 1
........từ số 1 đến số 14 ( hoặc hơn )
Cuối cùng là tổng hợp
Em thử làm 1 code nhưng khi xuất ra thì bị lỗi
- Thứ tự sheet xuất ra lại xuất hiện trái qua phải từ 14 đến 1 ( em muốn từ bộ số 1 đến 14 )
- Hợp đồng thực hiện được vòng lặp theo Spin Button nhưng từ những sheet khác ( từ số 2. đến 6. ) không lặp lại
( Chỗ unprotect " cc " là em phòng sau này em có lỡ khoá sheet thì lúc xuất vẫn xuất được ạ )

Mình đâu có thấy một số tên sheets mà bạn nêu trên đây, ví dụ: Hợp đồng số 1...

 

[Vàng A Súp]

Từ trái qua phải là từ 1 tới ... chứ không phải là từ ... xuống 1

Mà thôi, nếu muốn theo thứ tự ngược lại với hiện có thì thay TẤT CẢ After thành Before.

Không hiểu bạn nói gì.

Hơi trừu tượng tý vì em cũng gà nên cũng không biết nói như nào ý ạ. Bác giúp em tải file em up ở trên về xem phát hiểu luôn ạ. Bác giúp em với nhé

Bài đã được tự động gộp: 30/5/21

Mình đâu có thấy một số tên sheets mà bạn nêu trên đây, ví dụ: Hợp đồng số 1...

À dạ ý em là hợp đồng của em có 14 bộ. Em dùng spiner để làm ý ạ. Hợp đồng số 1 là hợp đồng của spiner 1 .( Khi O2=1) rồi từ vòng lặp sau O2=2....

 

[Hoàng Tuấn 868]

À dạ ý em là hợp đồng của em có 14 bộ. Em dùng spiner để làm ý ạ. Hợp đồng số 1 là hợp đồng của spiner 1 .( Khi O2=1) rồi từ vòng lặp sau O2=2....

Vậy là 1 sheet nhưng xuất ra 14 lần, mỗi lần là tăng một số hợp đồng hay thế nào nhỉ. Có lẽ bạn nên làm thủ công một file mẫu thể hiện kết quả mong muốn cho dễ hình dung.

 

[batman1]

Hơi trừu tượng tý vì em cũng gà nên cũng không biết nói như nào ý ạ. Bác giúp em tải file em up ở trên về xem phát hiểu luôn ạ.

Tôi xem hôm qua rồi bạn ạ. Chẳng qua là hôm qua tôi không muốn trả lời thôi. Vì bạn viết là muốn copy theo thứ tự
1. Hợp đồng số 1
2. Phụ lục Hợp đồng số 1
3. Nghiệm thu số 1
4. Phụ Lục nghiệm thu số 1
5. Nghiệm thu Phân dẫn số 1
6. Phụ lục nghiệm thu Phân dẫn số 1

mà code đã làm đúng y như thế rồi mà bạn lại kêu ca. Vì thế tôi không hiểu và không muốn trả lời.

Lần sau khi mô tả thì dùng tên y hệt như trong tập tin. Trong tập tin có vd. sheet Hop_dong chứ là gì có sheet Hợp đồng số 1 hay Hợp đồng đâu mà lại mô tả như thế.

 

[Vàng A Súp]

Vậy là 1 sheet nhưng xuất ra 14 lần hay thế nào nhỉ. Có lẽ bạn nên làm thủ công một file mẫu thể hiện kết quả mong muốn cho dễ hình dung.

À dạ vâng ạ. Bác chờ em chút nhé. Em bón cơm nốt cho 2 đứa trẻ xong em làm luôn ạ. Hì hì

Bài đã được tự động gộp: 30/5/21

Tôi xem hôm qua rồi bạn ạ. Chẳng qua là hôm qua tôi không muốn trả lời thôi. Vì bạ viết là muốn copy theo thứ tự
1. Hợp đồng số 1
2. Phụ lục Hợp đồng số 1
3. Nghiệm thu số 1
4. Phụ Lục nghiệm thu số 1
5. Nghiệm thu Phân dẫn số 1
6. Phụ lục nghiệm thu Phân dẫn số 1

mà code đã làm đúng y như thế rồi mà bạn lại kêu ca. Vì thế tôi không hiểu và không muốn trả lời.

Lần sau khi mô tả thì dùng tên y hệt như trong tập tin. Trong tập tin có vd. sheet Hop_dong chứ là gì có sheet Hợp đồng số 1 hay Hợp đồng đâu mà lại mô tả như thế.

Hì . Thế em mới nói : người khôn tả cảnh rất hay. Ít khôn tả chó lại quay sang gà. Hì hì.

 

[batman1]

Hì . Thế em mới nói : người khôn tả cảnh rất hay. Ít khôn tả chó lại quay sang gà. Hì hì.

Khôn gì ở đây? Cứ nhìn thấy trong tập tin có thế nào thì viết y như vậy thôi. Tự dưng lại bịa ra, lấy tên từ trên trời.

 

[Hoàng Tuấn 868]

Tự dưng lại bịa ra, lấy tên từ trên trời.

Anh ơi, nhà bạn đấy ở Yên Bái, gần cổng trời nên cũng tiện anh ạ.

 

[Vàng A Súp]

Vậy là 1 sheet nhưng xuất ra 14 lần, mỗi lần là tăng một số hợp đồng hay thế nào nhỉ. Có lẽ bạn nên làm thủ công một file mẫu thể hiện kết quả mong muốn cho dễ hình dung.

Dạ file em muốn xuất ra sẽ như này ạ. nhưng cái này em mới xuất có 3 bộ thôi ạ, Của em những 14 bộ cơ ạ . ( Kể ra phiền các bác tý nữa là đổi luôn được tên sheet thì hay quá , ví dụ : Hop_dong ( số 1) sẽ là HD1, Phu_Luc HD (số 1) sẽ là PL1 ý ạ, nếu làm lâu quá quá thì thôi cũng được ạ ) hì hì

Bài đã được tự động gộp: 30/5/21

Anh ơi, nhà bạn đấy ở Yên Bái, gần cổng trời nên cũng tiện anh ạ.

Bác trí nhớ tốt quá, vẫn nhớ em ở Yên Bái. Vẫn như lời mời lần trước ạ, Khi nào Bác lên Yên Bái công tác gọi em nhé. Hì hì

Bài đã được tự động gộp: 30/5/21

Khôn gì ở đây? Cứ nhìn thấy trong tập tin có thế nào thì viết y như vậy thôi. Tự dưng lại bịa ra, lấy tên từ trên trời.

Hì Hì, em quen tay quá, Tại mò mãi không ra nên bị Tẩu hỏa nhập ma , kiểu kiểu ý ạ

 

[Hoàng Tuấn 868]

Dạ file em muốn xuất ra sẽ như này ạ. nhưng cái này em mới xuất có 3 bộ thôi ạ, Của em những 14 bộ cơ ạ . ( Kể ra phiền các bác tý nữa là đổi luôn được tên sheet thì hay quá , ví dụ : Hop_dong ( số 1) sẽ là HD1, Phu_Luc HD (số 1) sẽ là PL1 ý ạ, nếu làm lâu quá quá thì thôi cũng được ạ ) hì hì

Vậy là 14 sheets của bộ hợp đồng số 1 sẽ xuất ra 1 file thứ nhất.
14 sheets của bộ hợp đồng số 2 sẽ xuất ra file tiếp theo... đến file thứ 14 phải không ban.

 

[Vàng A Súp]

Vậy là 14 sheets của bộ hợp đồng số 1 sẽ xuất ra 1 file thứ nhất.
14 sheets của bộ hợp đồng số 2 sẽ xuất ra file tiếp theo... đến file thứ 14 phải không ban.

Dạ 1 bộ hợp đồng sẽ có 6 sheet gồm : Hop_dong, Phu_luc Hd, Nghiem_thu Kl, Phu_luc Kl, Nghiem_thu Pd, Phu_luc PD. Ý em là cho tất cả chung 1file hoặc mỗi bộ 1 file cũng được ạ. Còn cái sheet tổng hợp với Dn không cần cũng được ạ. Hì hig

 

[Hoàng Tuấn 868]

Dạ 1 bộ hợp đồng sẽ có 6 sheet gồm : Hop_dong, Phu_luc Hd, Nghiem_thu Kl, Phu_luc Kl, Nghiem_thu Pd, Phu_luc PD. Ý em là cho tất cả chung 1file hoặc mỗi bộ 1 file cũng được ạ. Còn cái sheet tổng hợp với Dn không cần cũng được ạ. Hì hig

Mãi mới hiểu nổi, nhọc quá. Đấy là kết quả đầu ra.
Bây giờ đến phần thực hiện, bạn định theo trình tự nào, cứ nêu lần lượt nhé.

 

[Vàng A Súp]

Mãi mới hiểu nổi, nhọc quá. Đấy là kết quả đầu ra.
Bây giờ đến phần thực hiện bạn định theo trình tự nào, cứ nêu lần lượt nhé.

Hì hì. Dạ từ :
Hop_dong,
Phu_luc Hd,
Nghiem_thu Kl,
Phu_luc Kl,
Nghiem_thu Pd,
Phu_luc PD.
Mover or coppy sang 1 excel khác ạ.
Từ bộ số 1 ( spiner 1) đến 14 bác ạ. Chán em ghê, khổ ghê cơ. Đã ngu vba rồi còn dốt văn. Bác thông cảm em nhé

 

[Hoàng Tuấn 868]

Hì hì. Dạ từ :
Hop_dong,
Phu_luc Hd,
Nghiem_thu Kl,
Phu_luc Kl,
Nghiem_thu Pd,
Phu_luc PD.
Mover or coppy sang 1 excel khác ạ.
Từ bộ số 1 ( spiner 1) đến 14 bác ạ. Chán em ghê, khổ ghê cơ. Đã ngu vba rồi còn dốt văn. Bác thông cảm em nhé

Từ trình tự này bạn đặt ra các bước thực hiện cho code.
Bạn thử tự đặt ra các bước đi. Ví dụ: Bước 1 cần code làm gì để bộ hợp đồng xuất hiện thông tin của bộ hợp đồng số 1, sau khi xuất hiện thông tin của bộ hợp đồng số 1 rồi thì làm gì (bước 2)...

 

[Vàng A Súp]

Từ trình tự này bạn đặt ra các bước thực hiện cho code.
Bạn thử tự đặt ra các bước đi. Ví dụ: Bước 1 cần code làm gì để bộ hợp đồng xuất hiện thông tin của bộ hợp đồng số 1, sau khi xuất hiện thông tin của bộ hợp đồng số 1 rồi thì làm gì (bước 2)...

Sub Macro3()
'
' Macro3 Macro
' Vong lap
Workbooks.Add
ChDir "D:\"
ActiveWorkbook.SaveAs Filename:="D:\giai_phap_excell.xlsx", FileFormat:= _
xlOpenXMLWorkbook, CreateBackup:=False

Dim i As Long
Dim tu As Long, den As Long
Dim wb As Workbook
Dim sh As Worksheet
Set wb = ThisWorkbook
Set sh = wb.Sheets("Hop_dong")
tu = sh.Range("Hop_dong!O2")
den = sh.Range("Hop_dong!O5")

For i = tu To den Step 1
sh.Range("Hop_dong!O2") = i

' Xuat hop dong
Windows("Tap viet VBA.xlsm").Activate
Sheets("Hop_dong").Select
ActiveSheet.Unprotect "cc"
Sheets("Hop_dong").Copy After:=Workbooks("giai_phap_excell.xlsx").Sheets(1)
Windows("Tap viet VBA.xlsm").Activate

' Xuat phu luc hop dong

Sheets("Phu_Luc HD").Select
ActiveSheet.Unprotect "cc"
Sheets("Phu_Luc HD").Copy After:=Workbooks("giai_phap_excell.xlsx").Sheets(2)
Windows("Tap viet VBA.xlsm").Activate

' Xuat nghiem thu KL

Sheets("Nghiem_Thu").Select
ActiveSheet.Unprotect "cc"
Sheets("Nghiem_Thu").Copy After:=Workbooks("giai_phap_excell.xlsx").Sheets(3)
Windows("Tap viet VBA.xlsm").Activate

' Xuat phu luc nghiem thu KL

Sheets("Phu_Luc NT").Select
ActiveSheet.Unprotect "cc"
Sheets("Phu_Luc NT").Copy After:=Workbooks("giai_phap_excell.xlsx").Sheets(4)
Windows("Tap viet VBA.xlsm").Activate


' Xuat nghiem thu DD

Sheets("Phan_Dan").Select
ActiveSheet.Unprotect "cc"
Sheets("Phan_Dan").Copy After:=Workbooks("giai_phap_excell.xlsx").Sheets(5)
Windows("Tap viet VBA.xlsm").Activate

' Xuat phu luc nghiem thu DD

Sheets("Phu_Luc PD").Select
ActiveSheet.Unprotect "cc"
Sheets("Phu_Luc PD").Copy After:=Workbooks("giai_phap_excell.xlsx").Sheets(6)
Windows("Tap viet VBA.xlsm").Activate

Next i

' Xuat tong hop

Sheets("tong hop toan xa").Select
Sheets("tong hop toan xa").Copy After:=Workbooks("giai_phap_excell.xlsx").Sheets(7)
Windows("Tap viet VBA.xlsm").Activate

' Xuat tong hop chung tu

Sheets("DN").Select
Sheets("DN").Copy After:=Workbooks("giai_phap_excell.xlsx").Sheets(8)
Windows("Tap viet VBA.xlsm").Activate

' Xoa sheet 1

Windows("giai_phap_excell.xlsx").Activate
Sheets("Sheet1").Select
ActiveWindow.SelectedSheets.Delete
End Sub

Code này em làm thì trình tự là:
Tạo 1 file excel mới tại ổ D với tên giaiphapexcel
Xuất :
Hop_dong,
Phu_luc Hd,
Nghiem_thu Kl,
Phu_luc Kl,
Nghiem_thu Pd,
Phu_luc PD.

Lặp lại thao tác với spiner bằng 2
Cứ thế đến 14

Xuất tổng hợp
Xuất DN
Xoá sheet 1 ở excel mới tạo
Nhưng đến lúc em chạy lại bị lỗi ạ.hic hic

 

[Hoàng Tuấn 868]

Code này em làm thì trình tự là:
Tạo 1 file excel mới tại ổ D với tên giaiphapexcel
Xuất :
Hop_dong,
Phu_luc Hd,
Nghiem_thu Kl,
Phu_luc Kl,
Nghiem_thu Pd,
Phu_luc PD.

Lặp lại thao tác với spiner bằng 2
Cứ thế đến 14

Xuất tổng hợp
Xuất DN
Xoá sheet 1 ở excel mới tạo
Nhưng đến lúc em chạy lại bị lỗi ạ.hic hic

Lỗi của bạn ở đâu, lỗi như thế nào vậy.

 

[Vàng A Súp]

Lỗi của bạn ở đâu, lỗi như thế nào vậy.

Dạ bị lỗi là :
- Thứ tự sheet xuất ra xuất hiện trái qua phải từ bộ số 14 đến 1 ( em muốn từ bộ số 1 đến 14 )
- Hợp đồng thực hiện được vòng lặp theo Spin Button nhưng từ những sheet khác :
Phu_luc Hd,
Nghiem_thu Kl,
Phu_luc Kl,
Nghiem_thu Pd,
Phu_luc PD.
Thì không lặp lại bác ạ

Bài đã được tự động gộp: 30/5/21

Lỗi của bạn ở đâu, lỗi như thế nào vậy.

Code này vấn đề ở đâu thì em lọ mọ mãi không ra bác ạ. Bác xem giúp em với ạ.

Sub Macro3()
'
' Macro3 Macro
' Vong lap
Workbooks.Add
ChDir "D:\"
ActiveWorkbook.SaveAs Filename:="D:\giai_phap_excell.xlsx", FileFormat:= _
xlOpenXMLWorkbook, CreateBackup:=False

Dim i As Long
Dim tu As Long, den As Long
Dim wb As Workbook
Dim sh As Worksheet
Set wb = ThisWorkbook
Set sh = wb.Sheets("Hop_dong")
tu = sh.Range("Hop_dong!O2")
den = sh.Range("Hop_dong!O5")

For i = tu To den Step 1
sh.Range("Hop_dong!O2") = i

' Xuat hop dong
Windows("Tap viet VBA.xlsm").Activate
Sheets("Hop_dong").Select
ActiveSheet.Unprotect "cc"
Sheets("Hop_dong").Copy After:=Workbooks("giai_phap_excell.xlsx").Sheets(1)
Windows("Tap viet VBA.xlsm").Activate

' Xuat phu luc hop dong

Sheets("Phu_Luc HD").Select
ActiveSheet.Unprotect "cc"
Sheets("Phu_Luc HD").Copy After:=Workbooks("giai_phap_excell.xlsx").Sheets(2)
Windows("Tap viet VBA.xlsm").Activate

' Xuat nghiem thu KL

Sheets("Nghiem_Thu").Select
ActiveSheet.Unprotect "cc"
Sheets("Nghiem_Thu").Copy After:=Workbooks("giai_phap_excell.xlsx").Sheets(3)
Windows("Tap viet VBA.xlsm").Activate

' Xuat phu luc nghiem thu KL

Sheets("Phu_Luc NT").Select
ActiveSheet.Unprotect "cc"
Sheets("Phu_Luc NT").Copy After:=Workbooks("giai_phap_excell.xlsx").Sheets(4)
Windows("Tap viet VBA.xlsm").Activate


' Xuat nghiem thu DD

Sheets("Phan_Dan").Select
ActiveSheet.Unprotect "cc"
Sheets("Phan_Dan").Copy After:=Workbooks("giai_phap_excell.xlsx").Sheets(5)
Windows("Tap viet VBA.xlsm").Activate

' Xuat phu luc nghiem thu DD

Sheets("Phu_Luc PD").Select
ActiveSheet.Unprotect "cc"
Sheets("Phu_Luc PD").Copy After:=Workbooks("giai_phap_excell.xlsx").Sheets(6)
Windows("Tap viet VBA.xlsm").Activate

Next i

' Xuat tong hop

Sheets("tong hop toan xa").Select
Sheets("tong hop toan xa").Copy After:=Workbooks("giai_phap_excell.xlsx").Sheets(7)
Windows("Tap viet VBA.xlsm").Activate

' Xuat tong hop chung tu

Sheets("DN").Select
Sheets("DN").Copy After:=Workbooks("giai_phap_excell.xlsx").Sheets(8)
Windows("Tap viet VBA.xlsm").Activate

' Xoa sheet 1

Windows("giai_phap_excell.xlsx").Activate
Sheets("Sheet1").Select
ActiveWindow.SelectedSheets.Delete
End Sub

 

[Hoàng Tuấn 868]

Dạ bị lỗi là :
- Thứ tự sheet xuất ra xuất hiện trái qua phải từ bộ số 14 đến 1 ( em muốn từ bộ số 1 đến 14 )
- Hợp đồng thực hiện được vòng lặp theo Spin Button nhưng từ những sheet khác :
Phu_luc Hd,
Nghiem_thu Kl,
Phu_luc Kl,
Nghiem_thu Pd,
Phu_luc PD.
Thì không lặp lại bác ạ

Phần thứ tự từ 1 đến 14 thì bạn thực hiện theo bài #11 của anh Batman.
Phần sau thì để mình xem qua đã nhé.

 

[Vàng A Súp]

Phần thứ tự từ 1 đến 14 thì bạn thực hiện theo bài #11 của anh Batman.
Phần sau thì để mình xem qua đã nhé.

Dạ vâng ạ. Hì hì

 

[Hoàng Tuấn 868]

Dạ vâng ạ. Hì hì

Mình thấy vẫn chạy mà bạn. Có điều là sao vòng lặp của bạn lại để có 6 sheets, còn mấy sheets sau sao không đưa vào vậy.

 

[Vàng A Súp]

Mình thấy vẫn chạy mà bạn. Có điều là sao vòng lặp của bạn lại để có 6 sheets, còn mấy sheets sau sao không đưa vào vậy.

Dạ còn sheet tổng hợp và sheet DN là tổng hợp cho tất cả các bộ Hop _ dong nên em không cho vòng lặp. Bác xem lại giúp em từ sheet Phu_luc Hd ý ạ. Các sheet sau đó có lặp nhưng số hợp đồng không lặp ý ạ

 

[Hoàng Tuấn 868]

Dạ còn sheet tổng hợp và sheet DN là tổng hợp cho tất cả các bộ Hop _ dong nên em không cho vòng lặp. Bác xem lại giúp em từ sheet Phu_luc Hd ý ạ. Các sheet sau đó có lặp nhưng số hợp đồng không lặp ý ạ

Mình viết cho bạn thì được ngay, nhưng ở đây mình muốn bạn tự sửa được, bây giờ bạn tạm tách phần copy ra, sau đó nhấn F8 cho vòng lặp chạy lần lượt các số hợp đồng để kiểm tra đã, bạn thực hiện thử đi xem thế nào.

 

[Vàng A Súp]

Mình viết cho bạn thì được ngay, nhưng ở đây mình muốn bạn tự sửa được, bây giờ bạn tạm tách phần copy ra, sau đó nhấn F8 cho vòng lặp chạy lần lượt các số hợp đồng để kiểm tra đã, bạn thực hiện thử đi xem thế nào.

Hì hì. Dạ vâng ạ. Có làm thì mới có khôn. Nhờ các bác mãi không khá lên được. Bác cho em thời gian mò lại. Bao giờ em bí quá bác lại giúp em bác nhé. Em cám ơn bác nhiều ạ. Hì hì

 

[batman1]

Phần thứ tự từ 1 đến 14 thì bạn thực hiện theo bài #11 của anh Batman.
Phần sau thì để mình xem qua đã nhé.

Hôm qua tôi kểm tra thấy code đã copy theo ĐÚNG THỨ TỰ MONG ƯỚC. Nhưng người ta lại kêu ca gì đó nên tôi chịu không hiểu. Nếu là viết nhầm thì sau bài #11 kiểm tra lại và đính chính. Nhưng tôi đợi mà chả thấy đính chính, cũng chả thấy nói nếu dùng Before thì đúng như mong đợi hay vẫn không. Giúp những người như này rất mệt, vì họ không kiểm tra, không khẳng định, không báo cáo kết quả kết quả thực hiện những gợi ý của mình.

 

[Hoàng Tuấn 868]

Hôm qua tôi kểm tra thấy code đã copy theo ĐÚNG THỨ TỰ MONG ƯỚC. Nhưng người ta lại kêu ca gì đó nên tôi chịu không hiểu. Nếu là viết nhầm thì sau bài #11 kiểm tra lại và đính chính. Nhưng tôi đợi mà chả thấy đính chính, cũng chả thấy nói nếu dùng Before thì đúng như mong đợi hay vẫn không. Giúp những người như này rất mệt, vì họ không kiểm tra, không khẳng định, không báo cáo kết quả kết quả thực hiện những gợi ý của mình.

Vâng anh, em cũng không viết luôn mà để bạn ấy tự kiểm tra dần dần các bước anh ạ.

 

[Vàng A Súp]

Vâng anh, em cũng không viết luôn mà để bạn ấy tự kiểm tra dần dần các bước anh ạ.

Dạ bác ơi em mò ra lỗi rồi ạ, nguyên nhân là khi xuất ra file mới thì file mới đó vẫn hoạt động spiner, em dùng code copy- pate Values thì chạy ổn ạ. Nhưng còn một số lỗi mà em không mò ra được ( nói chính xác là em không biết hì hì ):
1: Sau khi xuất xong thì spiner ở file gốc không hoạt động được
2: em muốn đổi tên sheet file mới sau khi xuất xong
Bác giúp em với bác nhé

Sub Macro3()
'
' Macro3 Macro
' Vong lap
Workbooks.Add
ChDir "D:\"
ActiveWorkbook.SaveAs Filename:="D:\giai_phap_excell.xlsx", FileFormat:= _
xlOpenXMLWorkbook, CreateBackup:=False

Dim i As Long
Dim tu As Long, den As Long
Dim wb As Workbook
Dim sh As Worksheet
Set wb = ThisWorkbook
Set sh = wb.Sheets("Hop_dong")
tu = sh.Range("Hop_dong!O2")
den = sh.Range("Hop_dong!O5")

' Xuat tong hop
Windows("Tap viet VBA.xlsm").Activate
Sheets("Tong_Hop").Select
Sheets("Tong_Hop").Copy Before:=Workbooks("giai_phap_excell.xlsx").Sheets(1)
Windows("Tap viet VBA.xlsm").Activate

' Xuat tong hop chung tu

Sheets("DN").Select
Sheets("DN").Copy Before:=Workbooks("giai_phap_excell.xlsx").Sheets(2)
Windows("Tap viet VBA.xlsm").Activate
For i = tu To den Step 1
sh.Range("Hop_dong!O2") = i



' Xuat hop dong
Windows("Tap viet VBA.xlsm").Activate
Sheets("Hop_dong").Select
ActiveSheet.Unprotect "cc"
Sheets("Hop_dong").Copy Before:=Workbooks("giai_phap_excell.xlsx").Sheets(3)
Range("A1:J71").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Columns("K:T").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlToLeft
Sheets("Hop_dong").Name = "HD"
Range("A44").Select
Windows("Tap viet VBA.xlsm").Activate

' Xuat phu luc hop dong

Sheets("Phu_Luc HD").Select
ActiveSheet.Unprotect "cc"
Sheets("Phu_Luc HD").Copy Before:=Workbooks("giai_phap_excell.xlsx").Sheets(4)
Range("B1:R36").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Rows("37:48").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
Sheets("Phu_Luc HD").Name = "PL"
Range("B2:R2").Select
Windows("Tap viet VBA.xlsm").Activate

' Xuat nghiem thu KL

Sheets("Nghiem_Thu").Select
ActiveSheet.Unprotect "cc"
Sheets("Nghiem_Thu").Copy Before:=Workbooks("giai_phap_excell.xlsx").Sheets(5)
Range("A1:J56").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Columns("K:Q").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlToLeft
Sheets("Nghiem_Thu").Name = "NT"
Range("A44").Select
Windows("Tap viet VBA.xlsm").Activate

' Xuat phu luc nghiem thu KL

Sheets("Phu_Luc NT").Select
ActiveSheet.Unprotect "cc"
Sheets("Phu_Luc NT").Copy Before:=Workbooks("giai_phap_excell.xlsx").Sheets(6)
Range("B136").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Rows("37:51").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
Sheets("Phu_Luc NT").Name = "BNT"
Range("B22").Select
Windows("Tap viet VBA.xlsm").Activate


' Xuat nghiem thu DD

Sheets("Phan_Dan").Select
ActiveSheet.Unprotect "cc"
Sheets("Phan_Dan").Copy Before:=Workbooks("giai_phap_excell.xlsx").Sheets(7)
Range("A1:J56").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Columns("K").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlToLeft
Sheets("Phan_Dan").Name = "PD"
Range("A44").Select
Windows("Tap viet VBA.xlsm").Activate

' Xuat phu luc nghiem thu DD

Sheets("Phu_Luc PD").Select
ActiveSheet.Unprotect "cc"
Sheets("Phu_Luc PD").Copy Before:=Workbooks("giai_phap_excell.xlsx").Sheets(8)
Range("J1:Q36").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Rows("39:42").Select
Columns("R:AD").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlToLeft
Sheets("Phu_Luc PD").Name = "BPD"
Range("J2:Q2").Select
Windows("Tap viet VBA.xlsm").Activate

Next i

' Xoa sheet 1

Windows("giai_phap_excell.xlsx").Activate
Sheets("Sheet1").Select
ActiveWindow.SelectedSheets.Delete
End Sub

Bài đã được tự động gộp: 31/5/21

Hôm qua tôi kểm tra thấy code đã copy theo ĐÚNG THỨ TỰ MONG ƯỚC. Nhưng người ta lại kêu ca gì đó nên tôi chịu không hiểu. Nếu là viết nhầm thì sau bài #11 kiểm tra lại và đính chính. Nhưng tôi đợi mà chả thấy đính chính, cũng chả thấy nói nếu dùng Before thì đúng như mong đợi hay vẫn không. Giúp những người như này rất mệt, vì họ không kiểm tra, không khẳng định, không báo cáo kết quả kết quả thực hiện những gợi ý của mình.

hì, tại văn em dốt bác ạ, Ngày xưa thi tốt nghiệp văn em được 2 điểm, tý nữa thì xịt tốt nghiệp hehe

 

[VetMini]

Hôm qua tôi kểm tra thấy code đã copy theo ĐÚNG THỨ TỰ MONG ƯỚC. Nhưng người ta lại kêu ca gì đó nên tôi chịu không hiểu. Nếu là viết nhầm thì sau bài #11 kiểm tra lại và đính chính. ...

Hỏi bác hơi ngoài lề .
Cái món 'Văn' tôi học ở trong Nam là về văn chương, mà năm 11 đã học hết rồi. Năm 12 được thay thế bằng môn Triết.
Cách nói chuyện, cư xử học trong môn 'Giáo Dục Công Dân', mấy năm đầu Trung Học. (mấy năm sau của Trung Hoc thì môn này dạy về các chính thể)

Theo thớt phân trần thì ở ngoài ấy (Bắc) dạy cách nói chuyện, cư xử qua môn 'Văn" à?

 

[Hoàng Tuấn 868]

Dạ bác ơi em mò ra lỗi rồi ạ, nguyên nhân là khi xuất ra file mới thì file mới đó vẫn hoạt động spiner, em dùng code copy- pate Values thì chạy ổn ạ. Nhưng còn một số lỗi mà em không mò ra được ( nói chính xác là em không biết hì hì ):
1: Sau khi xuất xong thì spiner ở file gốc không hoạt động được
2: em muốn đổi tên sheet file mới sau khi xuất xong

Mình chưa xem file.
Mục 1: Không hoạt động được cụ thể là như thế nào? Lỗi báo ra sao.
Mục 2: Tên sheets mới muốn đổi là gì, hay là Moi_1, Moi_2... Lỗi báo ra sao.

 

[batman1]

hì, tại văn em dốt bác ạ, Ngày xưa thi tốt nghiệp văn em được 2 điểm, tý nữa thì xịt tốt nghiệp hehe

Tôi viết

Hôm qua tôi kểm tra thấy code đã copy theo ĐÚNG THỨ TỰ MONG ƯỚC

Vậy thì chỉ phải kiểm tra lại và báo cáo: "Đúng là thế, em nhầm". Hoặc: "Không phải, em muốn thế này cơ ...".

Tôi viết

Mà thôi, nếu muốn theo thứ tự ngược lại với hiện có thì thay TẤT CẢ After thành Before.

Chỉ phải kiểm tra lại với Before rồi báo cáo đã đúng ý hay chưa.

Có cái gì liên quan tới Văn ở đây?

 

[Vàng A Súp]

Hỏi bác hơi ngoài lề .
Cái món 'Văn' tôi học ở trong Nam là về văn chương, mà năm 11 đã học hết rồi. Năm 12 được thay thế bằng môn Triết.
Cách nói chuyện, cư xử học trong môn 'Giáo Dục Công Dân', mấy năm đầu Trung Học. (mấy năm sau của Trung Hoc thì môn này dạy về các chính thể)

Theo thớt phân trần thì ở ngoài ấy (Bắc) dạy cách nói chuyện, cư xử qua môn 'Văn" à?

Bác trước khi nói nên tìm hiểu câu chuyện trước. Đừng có thể hiện mình kiểu " tam đại con gà". Và trong câu nói của bác hình như có ý phân biệt vùng miền.
Câu chuyện em nói dốt văn là văn tả, chứ cách cư xử của em luôn tử tế với mọi người, còn ai không tử tế với em mà muốn em tử tế lại thì cứ " tử " đi rồi em " tế "
Trường đại học thủy lợi em học có môn " kỹ năng giao tiếp" . Em được học mà, nhưng nó chỉ dậy với những người lịch sự thôi. Nhưng em đang nghĩ " nói chuyện với bác kiểu gì nhỉ " vì sách em học không có dậy

 

[batman1]

Hỏi bác hơi ngoài lề .
Cái món 'Văn' tôi học ở trong Nam là về văn chương, mà năm 11 đã học hết rồi. Năm 12 được thay thế bằng môn Triết.
Cách nói chuyện, cư xử học trong môn 'Giáo Dục Công Dân', mấy năm đầu Trung Học. (mấy năm sau của Trung Hoc thì môn này dạy về các chính thể)

Theo thớt phân trần thì ở ngoài ấy (Bắc) dạy cách nói chuyện, cư xử qua môn 'Văn" à?

Tôi không hiểu ý thớt. Tôi nghĩ rằng tôi đã viết rất cụ thể, có thể hiểu được. Tôi viết là code đã làm theo đúng thứ tự mà thớt muốn. Chỉ cần kiểm tra lại rồi báo cáo. Tôi cũng viết là thay After bằng Before xem lúc này có đúng ý không. Cũng chỉ cần kiểu tra lại rồi báo cáo. Tôi chả thấy có gì liên quan tới Văn ở đây.
Mà cứ cho là không hiểu tôi nói gì thì luôn luôn có thể hỏi lại. Trong khi nói chyện cũng thế, khi ta không hiểu người khác nói gì thì ta luôn hỏi để biết. Tại sao ở "đây" không thế mà lại viện cớ Văn, Sử, Địa? Tôi cũng không hiểu, bác hỏi người ta nhé.

 

[Hoàng Tuấn 868]

Bác trước khi nói nên tìm hiểu câu chuyện trước. Đừng có thể hiện mình kiểu " tam đại con gà". Và trong câu nói của bác hình như có ý phân biệt vùng miền.
Câu chuyện em nói dốt văn là văn tả, chứ cách cư xử của em luôn tử tế với mọi người, còn ai không tử tế với em mà muốn em tử tế lại thì cứ " tử " đi rồi em " tế "
Trường đại học thủy lợi em học có môn " kỹ năng giao tiếp" . Em được học mà, nhưng nó chỉ dậy với những người lịch sự thôi. Nhưng em đang nghĩ " nói chuyện với bác kiểu gì nhỉ " vì sách em học không có dậy

Không dưa lê dưa hấu nữa, tập trung vào công việc đi nào.

 

[Vàng A Súp]

Mình chưa xem file.
Mục 1: Không hoạt động được cụ thể là như thế nào? Lỗi báo ra sao.
Mục 2: Tên sheets mới muốn đổi là gì, hay là Moi_1, Moi_2... Lỗi báo ra sao.

Mục 1 là spiner file gốc khi chưa xuất vẫn ấn lên xuống để thay đổi nội dung trong sheet được. Xuất xong thì lại phải link cel lại.
Mục 2 : em muốn đổi tên là :
Hop_ dong thành: HD (1) , HD(2)....
Phu_luc Hd. Thành: PL(1)....
Nghiem_thu Kl, thành :NT(1)......
Phu_luc Kl,thành : BNT(1)...
Nghiem_thu Pd, thành PD(1)...
Phu_luc PD. Thành BPD (1)....
Bác chỉ giúp em với ạ

Bài đã được tự động gộp: 31/5/21

Tôi không hiểu ý thớt. Tôi nghĩ rằng tôi đã viết rất cụ thể, có thể hiểu được. Tôi viết là code đã làm theo đúng thứ tự mà thớt muốn. Chỉ cần kiểm tra lại rồi báo cáo. Tôi cũng viết là thay After bằng Before xem lúc này có đúng ý không. Cũng chỉ cần kiểu tra lại rồi báo cáo. Tôi chả thấy có gì liên quan tới Văn ở đây.
Mà cứ cho là không hiểu tôi nói gì thì luôn luôn có thể hỏi lại. Trong khi nói chyện cũng thế, khi ta không hiểu người khác nói gì thì ta luôn hỏi để biết. Tại sao ở "đây" không thế mà lại viện cớ Văn, Sử, Địa? Tôi cũng không hiểu, bác hỏi người ta nhé.

Dạ code này em tự mình mò ra nhờ anh hoàng tuấn 868 chỉ ạ. Em đã rất cố gắng diễn giải ý em cho các bác hiểu, nhưng do kiến thức excel em còn quá kém nên không biết trìn bày như nào

 

[Vàng A Súp]

Hỏi bác hơi ngoài lề .
Cái món 'Văn' tôi học ở trong Nam là về văn chương, mà năm 11 đã học hết rồi. Năm 12 được thay thế bằng môn Triết.
Cách nói chuyện, cư xử học trong môn 'Giáo Dục Công Dân', mấy năm đầu Trung Học. (mấy năm sau của Trung Hoc thì môn này dạy về các chính thể)

Theo thớt phân trần thì ở ngoài ấy (Bắc) dạy cách nói chuyện, cư xử qua môn 'Văn" à?

À em chợt để ý lại câu nói của bác. Đúng là từ lúc học cấp 3 đến lúc học lý luận chính trị, các thầy cô giáo em ngoài học vấn chuyên môn ra còn dậy về cách nói chuyện cư xử.
Chả lẽ bác không được học? . Em nghĩ không phải đâu. Là do bác không lĩnh hội được cái kiến thức căn bản này thôi.

 

[Hoàng Tuấn 868]

Mục 1 là spiner file gốc khi chưa xuất vẫn ấn lên xuống để thay đổi nội dung trong sheet được. Xuất xong thì lại
Dạ code này em tự mình mò ra nhờ anh hoàng tuấn 868 chỉ ạ. Em đã rất cố gắng diễn giải ý em cho các bác hiểu, nhưng do kiến thức excel em còn quá kém nên không biết trìn bày như nào

Nghiên cứu thử file này nhé. Các sheets không nhảy dữ liệu là do công thức của bạn, (tự chỉnh).

 

[Vàng A Súp]

Nghiên cứu thử file này nhé. Các sheets không nhảy dữ liệu là do công thức của bạn, (tự chỉnh).

dạ vâng ạ. hì hì. File này bác làm mẫu code cho em tự nghiên cứu, em đã hiểu ý bác và sẽ cố mò cho bằng ra thì thôi. Nhất định em không để bác thất vọng ạ. Em cám ơn bác nhiều lắm

 

[Hoàng Tuấn 868]

dạ vâng ạ. hì hì. File này bác làm mẫu code cho em tự nghiên cứu, em đã hiểu ý bác và sẽ cố mò cho bằng ra thì thôi. Nhất định em không để bác thất vọng ạ. Em cám ơn bác nhiều lắm

Nhớ nghiên cứu trong 2 code và ở sheets VBA_GPE nhé.

 

[Vàng A Súp]

Nhớ nghiên cứu trong 2 code và ở sheets VBA_GPE nhé.

Dạ vâng ạ. Hì hì

 

[Hoàng Tuấn 868]

Dạ vâng ạ. Hì hì

Một code là lấy tên các sheets, xuất tên sheets tại cột B của sheets VBA_GPE, muốn xuất ra file những sheets nào, theo thứ tự nào thì để lại cột B bắt đầu từ B1 các sheets đó theo thứ tự mong muốn.
Tạm thế đã, việc đổi tên sheets sẽ tính tiếp đợt sau.

 

[Vàng A Súp]

Một code là lấy tên các sheets, xuất tên sheets tại cột B của sheets VBA_GPE, muốn xuất ra file những sheets nào, theo thứ tự nào thì để lại cột B bắt đầu từ B1 các sheets đó theo thứ tự mong muốn.
Tạm thế đã, việc đổi tên sheets sẽ tính tiếp đợt sau.

Hì hì. Code bác làm ngắn ngọn nhìn qua có vẻ rất đơn giản, nhưng với em là cả trời tri thức. Muốn hiểu được thì chắc cũng phải vài vỉ parado ạ. . Tưởng khó mà hoá ra khó không tưởng bác ạ

 

[Vàng A Súp]

Hỏi bác hơi ngoài lề .
Cái món 'Văn' tôi học ở trong Nam là về văn chương, mà năm 11 đã học hết rồi. Năm 12 được thay thế bằng môn Triết.
Cách nói chuyện, cư xử học trong môn 'Giáo Dục Công Dân', mấy năm đầu Trung Học. (mấy năm sau của Trung Hoc thì môn này dạy về các chính thể)

Theo thớt phân trần thì ở ngoài ấy (Bắc) dạy cách nói chuyện, cư xử qua môn 'Văn" à?

Em đi ngủ rồi mà nghĩ đi nghĩ lại vẫn " tức cái lồng ngực" gì đâu á. Em thấy bác giúp người thì ít mà xỉa xói thì nhiều. Liệu cái chức " Chuyên gia GPA" kia bao nhiêu % là nhờ việc bác giúp người. Em LẠI xin phép tặng bác thêm bài thơ nữa em vừa chế ra

Văn chương chữ nghĩa có thừa
Bác vet xỉa xói chả chừa 1 ai
Ở đâu có tý sai sai
Anh hùng bàn phím anh tài là ta
Hở ra thể hiện tài ba
Dùng câu dùng chữ như là trẻ trâu
Chắc bác nghĩ vậy là ngầu
Nhưng mà xin phép chả là gì đâu
Ps: Tên " Vẹt " hợp với bác đấy, chúc bác là con vẹt biết nói tiếng không phải của vẹt.

 

[Thư Sinh Áo Trắng]

@SA_DQ @Hoàng Tuấn 868 @Maika8008 @batman1 @befaint @xuongrongdat các bác giúp em với ạ. Hì hì. Em mò mãi từ hôm qua tới giờ mà vẫn không ra ạ. Huhu

Thêm bác @HieuCD vào nữa bạn. Bác @HieuCD và @Maika8008 mà xong kiếm hợp bích thì sướng thôi rồi.

 

[Vàng A Súp]

Thêm bác @HieuCD vào nữa bạn. Bác @HieuCD và @Maika8008 mà xong kiếm hợp bích thì sướng thôi rồi.

Dạ em cũng rất hâm mộ 2 bác ấy lắm. )

 

[VetMini]

Lúc có chuyện phê phán thì phân tích "kỹ càng", lời lẽ bay như bươm bướm, câu cú chảy như sóng Trường Giang.

Lúc đem bài hỏi bài thì câu tắt tịt - kỹ năng phân tích chạy mất dấu. Phản hồi chẳng thấy đâu. Được nhắc thì lấy cớ chẳng biết văn.

Một người hai mặt hay một mặt hai người đây?

 

[Vàng A Súp]

Lúc có chuyện phê phán thì phân tích "kỹ càng", lời lẽ bay như bươm bướm, câu cú chảy như sóng Trường Giang.

Lúc đem bài hỏi bài thì câu tắt tịt - kỹ năng phân tích chạy mất dấu. Phản hồi chẳng thấy đâu. Được nhắc thì lấy cớ chẳng biết văn.

Một người hai mặt hay một mặt hai người đây?

Vâng, được cái nhà em buôn bán, chửi người thì văn nhiều lắm. Lý luận chính trị em cũng được học, cãi nhau em cũng chả ngán ai
Excel thì em đang tự học. Văn chửi thì có chứ văn tả excel thì không có. Bác không biết về con cá mập hình dáng như nào liệu bắt bác tả nó bác tả được không.
Bố em có dậy : " Chửi nhau với mấy bà bán hàng ngoài chợ không sợ bằng chửi nhau với mấy người có học, vì chả biết lúc nào nó chửi mình cả". Có lẽ em nghĩ bác sẽ không hiểu những gì em nói.
Bác @Hoàng Tuấn 868 nói em tập chung vào việc học, nên em sẽ dừng tranh luận với bác. Và mong bác đừng động chạm vào em nữa, Bài nào em đăng hỏi không mượn bác vào xỉa xói. Bác tuổi chắc lớn nhưng chưa đủ tuổi dậy em sống, cư xử như nào đâu. Bác là dân tri thức, em là dân công trình, dân chợ búa, có những thứ bác chỉ biết trên sách vở thôi.
Thân ái. Chào

 

[VetMini]

Tôi không hề có ý định "dậy dỗ" gì bạn.
Tôi chỉ mượn bạn làm ví dụ để khuyên răn những thành viên khác, thay vì để đẩu óc cãi cọ thì tập trung vào phương pháp hỏi bài sẽ tiến bộ hơn. Và nếu tập trung được vào cách phản hồi những người giúp mình thì sẽ lịch sự hơn.

 

[Vàng A Súp]

Tôi không hề có ý định "dậy dỗ" gì bạn.
Tôi chỉ mượn bạn làm ví dụ để khuyên răn những thành viên khác, thay vì để đẩu óc cãi cọ thì tập trung vào phương pháp hỏi bài sẽ tiến bộ hơn. Và nếu tập trung được vào cách phản hồi những người giúp mình thì sẽ lịch sự hơn.

Bác " mượn " em bác đã hỏi ý kiến em chưa, Bác nghĩ bác là ai mà thích " mượn " là mượn. Buồn cười. Giờ ra đường thấy em nào xinh cũng " mượn " về dùng cũng được à.
Nếu muốn người khác tập chung được thì bác đừng có thấy người ta chưa vừa ý bác điều gì lại vào xỉa xói như kiểu mình là bố người khác ý.
Bác ngoài giúp em bực mình ra thì chưa giúp được gì đâu nên tốt nhất bác nên lượn khỏi bài viết của em đi
Ps: Thà mất dậy để được bình yên
Còn hơn hiền mà cứ bị làm phiền

 

[befaint]

Chớt thật. Bạn này tiếng Việt quên gốc nhiều quá.
"mượn" ở đây có nghĩa là mượn, là cái cớ, cái nhân tiện, chứ không phải là mượn, vay mượn, nhờ mượn.

Đại khái như:
"Chỉ dâu trách hòe".

 

[Vàng A Súp]

Chớt thật. Bạn này tiếng Việt quên gốc nhiều quá.
"mượn" ở đây có nghĩa là mượn, là cái cớ, cái nhân tiện, chứ không phải là mượn, vay mượn, nhờ mượn.

Đại khái như:
"Chỉ dâu trách hòe".

Câu chuyện này không liên quan tới bác. Nên tốt nhất bác đừng vào hùa.
Cây đã muốn lặng xin các loại gió hãy dừng. Cây mà bật bưng lên giờ thì chấp các loại gió

 

[ptm0412]

Tôi có nhận thư riêng của @Vàng A Súp nhờ giúp đỡ trong ch3u đề này, tôi vào xem thì có vài điều mà tôi không muốn tham gia:
- Có 1 bạn đang giúp đỡ theo cách chỉ hướng dẫn, không giúp toàn bộ code (@Hoàng Tuấn 868), vậy tôi không nên xen vào
- Bài #11 anh @batman1 có hỏi và góp ý về cách đặt câu hỏi đúng tên sheet, mà tác giả không phản hồi, cũng không kiểm tra gợi ý sửa before/ after. Đến tận bài 16 mới nhận dốt văn rồi cũng không trả lời câu hỏi. Đây là thái độ xem thường người giúp mình.
- Từ sau bài 16 toàn là thái độ không muốn tiếp thu góp ý mà lại còn muốn "đuổi" người góp ý đi.

Nhớ lại cách đây khoảng 1 tháng, tôi cũng có góp ý và nhận thai độ tương tự, khi tôi nhấn nút "unlike" thì nhận lại cái unlike. Việc unlike tôi không phải là nguyên nhân để tôi không giúp bài này, chính là các nguyên nhân trên.

Trong chủ đề này, nếu @Hoàng Tuấn 868 còn đủ kiên nhẫn bạn ấy sẽ giúp tiếp, còn ngoài ra tôi cho rằng sẽ chẳng ai tham gia nữa. Kể cả sau này.

TB:
Tôi cũng thuộc loại khó tính và lời nói của tôi chắc chắn sẽ gây mất lòng, nếu thế thì cứ việc "unlike" thoả thích.

 

[Vàng A Súp]

Tôi có nhận thư riêng của @Vàng A Súp nhờ giúp đỡ trong ch3u đề này, tôi vào xem thì có vài điều mà tôi không muốn tham gia:
- Có 1 bạn đang giúp đỡ theo cách chỉ hướng dẫn, không giúp toàn bộ code (@Hoàng Tuấn 868), vậy tôi không nên xen vào
- Bài #11 anh @batman1 có hỏi và góp ý về cách đặt câu hỏi đúng tên sheet, mà tác giả không phản hồi, cũng không kiểm tra gợi ý sửa before/ after. Đến tận bài 16 mới nhận dốt văn rồi cũng không trả lời câu hỏi. Đây là thái độ xem thường người giúp mình.
- Từ sau bài 16 toàn là thái độ không muốn tiếp thu góp ý mà lại còn muốn "đuổi" người góp ý đi.

Nhớ lại cách đây khoảng 1 tháng, tôi cũng có góp ý và nhận thai độ tương tự, khi tôi nhấn nút "unlike" thì nhận lại cái unlike. Việc unlike tôi không phải là nguyên nhân để tôi không giúp bài này, chính là các nguyên nhân trên.

Trong chủ đề này, nếu @Hoàng Tuấn 868 còn đủ kiên nhẫn bạn ấy sẽ giúp tiếp, còn ngoài ra tôi cho rằng sẽ chẳng ai tham gia nữa. Kể cả sau này.

TB:
Tôi cũng thuộc loại khó tính và lời nói của tôi chắc chắn sẽ gây mất lòng, nếu thế thì cứ việc "unlike" thoả thích.

Em thừ nhận là em có sai với bác @batman1 ạ. Không phải là em coi thường đâu, em còn dốt còn dại không dám coi thường ai cả
Cách đây 1 tháng là em nói vui với bác thôi chứ nào có dám thái độ khi bác góp ý đúng cho em thay đổi. Chắc tại tính em hay đùa nhưng các bác lại nghiêm túc, hoặc do tư duy và khoảng cách giữa các thế hệ khác nhau nên sẽ có những kiểu đùa khác nhau. Nhưng em chỉ muốn nói là em có thành ý học, có ý chí muốn học và không dám coi thường hay trì miết ai

Riêng với bác Vietmini. Em không phục. Liệu rằng vì cái danh GPE của bác với em chênh lệch nên.... Thôi được ạ. Đời vốn bất công mà.

Nếu bác nghĩ em sai, làm phiền các bác quá thì xin ban nick em. Em vẫn sẽ theo dõi diễn đàn với tư cách là khách. Nhưng sẽ không bao giờ hỏi bài.

 

[VetMini]

Luật chung của diễn đàn mở rộng là những bài đăng lên không còn là sở hữu chủ của người mở đầu nữa. Chúng thuộc về diễn đàn, và Ban Quản Trị diễn đàn có toàn quyền. Chỉ trừ việc cắt xén làm sai nghĩa bài.

Diễn đàn mở rộng không phải là một cái quán mà người vào đặt bàn có quyền từ chối không cho người khác nhập cùng bàn.

 

[Vàng A Súp]

Luật chung của diễn đàn mở rộng là những bài đăng lên không còn là sở hữu chủ của người mở đầu nữa. Chúng thuộc về diễn đàn, và Ban Quản Trị diễn đàn có toàn quyền. Chỉ trừ việc cắt xén làm sai nghĩa bài.

Diễn đàn mở rộng không phải là một cái quán mà người vào đặt bàn có quyền từ chối không cho người khác nhập cùng bàn.

Tốt nhất là trật tự, Tôi đã nói là để cho tôi yên,

 

[ptm0412]

Tốt nhất là trật tự, Tôi đã nói là để cho tôi yên,

Riêng bài #63, anh @VetMini nói đúng, ở đây không ai có quyền đuổi ai ra khỏi 1 chủ đề, bất cứ chủ đề nào. Và bạn không có tư cách để đứng ra "giữ trật tự".

 

[Vàng A Súp]

Riêng bài #63, anh @VetMini nói đúng, ở đây không ai có quyền đuổi ai ra khỏi 1 chủ đề, bất cứ chủ đề nào. Và bạn không có tư cách để đứng ra "giữ trật tự".

Vậy còn những bài khác thì sao ạ. Bác là ban quản trị, bác đứng ra phân xử giúp em ạ. Từ bài #37 bác ý vào đâu có thành ý góp ý cho em đâu, chưa nói đến có ý phân biệt vùng miền.
Nội quy diễn đàn có ghi : " Thành viên tham gia thảo luận cần tôn trọng những người cùng tham gia và tôn trọng người quản trị, không được khích bác, công kích, lăng mạ xúc phạm người khác, nóng nẩy, quá khích, gây mất đoàn kết trên diễn đàn"

Không chỉ mình em, có rất nhiều người từng phản đối bác Vetmini, thậm chí còn là chửi. Chắc chắn bác biết, và cũng chả lạ gì tính anh Vetmini
Chủ đề " Lấy vợ cùng cơ quan" em đăng trong mục Thư giãn. Mục đích em hi vọng anh em vào nói chuyện vui, chứ nào có dám ý trọng nam khinh nữ, coi vợ là đầy tớ. ( Thề danh dự với các bác sau 5 năm lấy nhau vợ em có nói là vợ em có mắt chọn chồng và không hối hận khi lấy em -> Đủ hiểu ). Thế mà vào xỉa xói, xúc phạm em

Riêng bài "Hướng dẫn học VBA" lại còn có ý bảo học để làm gì khi không phục vụ cho công việc của mình

Em tự hỏi rằng là các bác dung túng cho " Chuyên gia GPE", hay là em chỉ là thành viên mới, muốn được giúp thì phải chịu được nhục ( em cũng là con người như các bác, cũng có sỹ diện, danh dự, và tự hào vùng miền nơi mình sinh sống )

Vậy nên : em mong tham gia diễn đàn là để học hỏi các anh, đã là thành viên diễn đàn em cũng muốn góp gạch để xây dựng diễn đàn, nhưng do trình độ còn quá kém. Em muốn được học, muốn được phát triển mình, không muốn bị những bức tường kia cản trở

Em xin nhắc lại: Em không có ý coi thường ai cả, em luôn chân thành nhận những lời góp ý chân thành.

 

[NghiaKieu]

Các bác không thấy phù hợp với nhau thì sao không cho vào danh sách đen đi có phải đỡ nhức đầu hơn không nhỉ.

 

[Vàng A Súp]

Các bác không thấy phù hợp với nhau thì sao không cho vào danh sách đen đi có phải đỡ nhức đầu hơn không nhỉ.

Giờ em mới biết. Cảm ơn bác ạ. Em đã lé rồi mà sao chổi vẫn ám không tha. Haizz
Sao chổi thì lấp lánh
Chổi này thì lên tránh
Tránh rồi mà ông thánh
Ám hoài không cho lánh

 

[Vàng A Súp]

Và xin đính chính lại sợ bác hoàng tuấn 868 hiểu lầm là em ib bác ptm trước rồi bác tuấn mới giúp em sau.

 

[ptm0412]

Vậy còn những bài khác thì sao ạ. Bác là ban quản trị, bác đứng ra phân xử giúp em ạ. Từ bài #37 bác ý vào đâu có thành ý góp ý cho em đâu, ...

Tôi lại có những lời khó nghe như sau:
Tôi thấy vấn đề lớn nhất của bạn không phải là cái gì, mà chính là vấn đề về đọc hiểu:
1. Tôi viết rất rõ trong bài 64 là "Riêng bài 63 là đúng", nếu bạn nói ngược lại là sai thì phải có lý luận chứng và chứng minh, tôi cũng nói rõ là "không có tư cách đứng ra giữ trật tự" là trỏ vào đúng 1 câu nói của bạn. Đừng lôi tôi vào những tranh luận bên trên. Dù rằng những tranh luận bên trên chỉ chứng tỏ bạn không chấp nhận góp ý dưới bất kỳ hình thức nào.

2. Trong bài 57 chủ đề này: bạn hiểu sai từ "mượn" trong bài 56, và phản biện vô lý. Bài 58, có người (@befaint) đính chính giải thích lại từ "mượn", thì bạn vẫn không hiểu và đuổi người ấy ra (!)

3. Trong chủ đề "lấy vợ cùng cơ quan", bài viết "trọng nam khinh nữ" là nói chung cho khoảng 1 chục bài viết của nhiều người phía trên, không có bạn trong đó. Bạn thì không hiểu và cố chấp tin rằng người ta nói mình. Cũng chủ đề đó, tôi có viết 1 câu đại ý là "may trong số chục bài đó không có tôi", bạn cũng hiểu thành ý khác là nói bạn.

4. Trong khi chủ đề này bạn chưa làm xong, còn vướng mắc và còn muốn hỏi thêm, thế mà nhảy sang chủ đề khác, đọc không hiểu, trả lời trật lất lại còn đòi người ta đưa file lên (bài này)

5. Đối với góp ý của anh @batman1 mà bạn không phản hồi, nhắc nhiều lần cũng không phản hồi, cuối cùng nhận lỗi ở bài 61 mà vẫn không chính thức xin lỗi anh ấy, cũng tiếp tục không phản hồi (!). Vậy thì bạn hiểu gì về phép lịch sự?

6. Cuối cùng: Khi tôi nói bạn không có tư cách giữ trật tự, đó là tôi nói rất rõ rằng bạn không có quyền đuổi ai đó, không có quyền bắt ai đó phải im lặng (trật tự), mà bạn vẫn không hiểu và lại than phiền ở bài 67.

Còn việc bạn gửi tin nhắn riêng cho tôi thì khỏi thanh minh với ai, kể cả với @Hoàng Tuấn 868, chỉ có duy nhất 1 cách để người khác không biết, là ĐỪNG LÀM.

TB:
Bạn có nói rằng muốn thì ban nick bạn? Bạn phải tự chứng minh rằng bạn vi phạm nội quy điều mấy mục mấy, mức độ thế nào chứ?

Những bài trên đây và bài này tôi nói với tư cách cá nhân, sau đây tôi sẽ không nói thêm gì nữa, vì với người "không đọc hiểu" thì nói vô ích.

 

[Vàng A Súp]

Tôi lại có những lời khó nghe như sau:
Tôi thấy vấn đề lớn nhất của bạn không phải là cái gì, mà chính là vấn đề về đọc hiểu:
1. Tôi viết rất rõ trong bài 64 là "Riêng bài 63 là đúng", nếu bạn nói ngược lại là sai thì phải có lý luận chứng và chứng minh, tôi cũng nói rõ là "không có tư cách đứng ra giữ trật tự" là trỏ vào đúng 1 câu nói của bạn. Đừng lôi tôi vào những tranh luận bên trên. Dù rằng những tranh luận bên trên chỉ chứng tỏ bạn không chấp nhận góp ý dưới bất kỳ hình thức nào.

2. Trong bài 57 chủ đề này: bạn hiểu sai từ "mượn" trong bài 56, và phản biện vô lý. Bài 58, có người (@befaint) đính chính giải thích lại từ "mượn", thì bạn vẫn không hiểu và đuổi người ấy ra (!)

3. Trong chủ đề "lấy vợ cùng cơ quan", bài viết "trọng nam khinh nữ" là nói chung cho khoảng 1 chục bài viết của nhiều người phía trên, không có bạn trong đó. Bạn thì không hiểu và cố chấp tin rằng người ta nói mình. Cũng chủ đề đó, tôi có viết 1 câu đại ý là "may trong số chục bài đó không có tôi", bạn cũng hiểu thành ý khác là nói bạn.

4. Trong khi chủ đề này bạn chưa làm xong, còn vướng mắc và còn muốn hỏi thêm, thế mà nhảy sang chủ đề khác, đọc không hiểu, trả lời trật lất lại còn đòi người ta đưa file lên (bài này)

5. Đối với góp ý của anh @batman1 mà bạn không phản hồi, nhắc nhiều lần cũng không phản hồi, cuối cùng nhận lỗi ở bài 61 mà vẫn không chính thức xin lỗi anh ấy, cũng tiếp tục không phản hồi (!). Vậy thì bạn hiểu gì về phép lịch sự?

6. Cuối cùng: Khi tôi nói bạn không có tư cách giữ trật tự, đó là tôi nói rất rõ rằng bạn không có quyền đuổi ai đó, không có quyền bắt ai đó phải im lặng (trật tự), mà bạn vẫn không hiểu và lại than phiền ở bài 67.

Còn việc bạn gửi tin nhắn riêng cho tôi thì khỏi thanh minh với ai, kể cả với @Hoàng Tuấn 868, chỉ có duy nhất 1 cách để người khác không biết, là ĐỪNG LÀM.

TB:
Bạn có nói rằng muốn thì ban nick bạn? Bạn phải tự chứng minh rằng bạn vi phạm nội quy điều mấy mục mấy, mức độ thế nào chứ?

Những bài trên đây và bài này tôi nói với tư cách cá nhân, sau đây tôi sẽ không nói thêm gì nữa, vì với người "không đọc hiểu" thì nói vô ích.

Vâng. Em hiểu. Nói chung là 1 người là chuyên gia GPE với thành viên mới thì....
Haizz. Lỗi lớn nhất của em là dám đứng lên nói sự thật, mà đầy người ngứa mắt, bực lắm nhưng không dám nói.
Em sai em sẵn sàng xin lỗi. (Đã có lần em viết bài xin lỗi anh Vetmini rồi) nhưng anh đấy sai thì lại không. Đương nhiên, chuyên gia GPE mà

Em xin phép các anh, chị cho em tự rời khỏi diễn đàn. ( Xin vào rồi thì ra cũng phải có tiếng, chứ em biết em có xin hay không xin vẫn thế, có cô chợ vẫn cứ đông mà cô đi lấy ck thì chợ vẫn thế ). Sẽ còn có rất nhiều thành viên mới đăng ký nick chỉ để hỏi, hỏi xong rồi cũng quên nick luôn nếu diễn đàn vẫn hoạt động kiểu này.

Đặc biệt trước khi rời em gửi lời cám ơn DUY NHẤT tới anh @Hoàng Tuấn 868 , em chúc bác mạnh khoẻ, thành công, thắng lợi. Em vẫn sẽ nuôi đam mê của mình. Hi vọng lúc nào bác công tác lên Lục Yên bác sẽ alo em được đón tiếp bác.

 

[ptm0412]

Vẫn là không đọc hiểu. Tất cả các bài tôi viết, tôi không nói đến 1 nửa chữ bạn "sai". Tôi phân tích để nếu bạn chịu khó đọc cho kỹ thì có ích lợi. Còn việc này mới sai:

nhưng anh đấy sai thì lại không. Đương nhiên, chuyên gia GPE mà

Bạn đang quy cho tôi là thiên vị mặc dù đã giải thích do "đọc không hiểu" nên cứ tưởng người ta nói mình. (Kể cả những bài tôi không nêu làm dẫn chứng)