Gitiho contest

Cùng gitiho contest chinh phục kiến thức, khẳng định bản thân với hệ thống bài test phong phú, đầy đủ các chủ đề để bạn khám phá.

Lộ trình học tập

Khám phá đỉnh cao tri thức cùng Gitiho qua hành trình học tập được thiết kế tỉ mỉ và toàn diện. Với kho tàng lộ trình đa dạng, chuyên sâu trên mọi lĩnh vực, chúng tôi sẽ đồng hành cùng bạn khai phá tiềm năng, chinh phục thách thức và khẳng định giá trị bản thân. Mỗi hành trình đều được nghiên cứu công phu, tạo nên bước đệm vững chắc để bạn tự tin bứt phá và tỏa sáng trên con đường phát triển sự nghiệp."

Chương trình hội viên Gitiho

Gói Hội viên Gitiho: Trọn bộ khoá học theo Khung năng lực

480+ khóa học

15 Danh mục theo kỹ năng, ngành nghề

Năng lực Lõi, Năng lực Chuyên môn, Năng lực Bổ trợ, Năng lực Quản lý

Khám phá ngay

2000+ đã đăng ký

Gói Hội viên G-Skills: 03 kỹ năng bổ trợ thiết yếu

83 khóa học Tin học văn phòng

85 khóa học Kỹ năng mềm

29 khóa học Ngoại ngữ

Khám phá ngay

500+ đã đăng ký

Gitiho for leading business

Tối ưu và đơn giản hóa hoạt động đào tạo tại doanh nghiệp. Sẵn sàng nền tảng, nội dung đào tạo cho tất cả các vị trí, bộ phận. Ứng dụng MIỄN PHÍ ngay vào doanh nghiệp chỉ với MỘT click.

Đã được tin tưởng sử dụng bởi các doanh nghiệp

  1. Trang chủ
  2. Hỏi đáp
  3. Trang chủ
  4. Hỏi đáp
Đoàn Hữu Nghị
Đoàn Hữu Nghị
Thảo luận 8 thảo luận
Vỗ tay 0 vỗ tay
Lượt xem 149 lượt xem

em gộp nhiều sheet thành 1 sheet thì làm thế nào ạ

chào thầy. em hỏi gộp nhiều sheet thành 1 sheet thì làm thế nào ạ

Thảo luận 8 câu trả lời
Lượt xem 149 lượt xem
Vỗ tay vỗ tay
Chia sẻ
Đoàn Hữu Nghị 07:10 - Oct 30, 2020

Chào bạn bạn xem chương 10 nhé.

Vỗ tay vỗ tay
Đoàn Hữu Nghị 21:10 - Oct 31, 2020

Thầy xem giúp lỗi ở code này giúp em với ạ

Dim DongCuoi, DC As Integer

    Dim KhoangCach, i As Integer

            For i = 3 To 17

   DC = Sheets(i).Range("C" & Rows.Count).End(xlUp).Row

KhoangCach = DC - 3

DongCuoi = Sheets(17).Range("C" & Rows.Count).End(xlUp).Row

Sheets(17).Range("B" & DongCuoi + 1, "V" & DongCuoi + KhoangCach + 1).Value _

= Sheets(i).Range(B3, "V" & DC).Value

    Next i

End Sub

Vỗ tay vỗ tay
Đoàn Hữu Nghị 22:10 - Oct 31, 2020

em sửa được rồi thầy

Vỗ tay vỗ tay
Đoàn Hữu Nghị 10:11 - Nov 02, 2020

Chúc bạn học tốt cùng gitiho

Vỗ tay vỗ tay
Đoàn Hữu Nghị 17:02 - Feb 22, 2021

Chào Thầy

Việc gắn nút thi hành lệnh có thể gắn cho từng Modul được không Thầy ? Trong bài quản l1y của HV gồm 02 Modul và 9 Macro. Mình có thể dùng 2 nút gán được không Thầy.

Mong muốn HV là Refresh Pivot table trước , rồi mới lọc , makeup các table sau.

Cảm ơn Thầy ( xem thêm hình)


Vỗ tay vỗ tay
Đoàn Hữu Nghị 08:02 - Feb 23, 2021

Chào bạn gán nút bấm chỉ cho 1 macro thôi bạn, bạn muốn gán bạn sẽ làm như sau: 

sub goi_tonghop()
  call macro1
  call macro2
  call macro3
end sub
Vỗ tay vỗ tay
Đoàn Hữu Nghị 09:02 - Feb 23, 2021

Thank you & Have a nice day also.

Manh

Vỗ tay vỗ tay
Đoàn Hữu Nghị 11:02 - Feb 23, 2021

Cảm ơn bạn đã tin tưởng và ủng hộ gitiho, chúc bạn học tốt

Vỗ tay vỗ tay
Câu hỏi liên quan
Thầy cho E hỏi với ạ, e viết đoạn code cho dữ liệu vào workbook tổng như sau nhưng ko chạy đc Dim DongCuoi_WB02 As Long DongCuoi_WB02=Workbooks("book2").Sheets("sheet1").range("A" & Rows.count).end(xlup).row KhoangCach_WB02=DongCuoi_WB2-2+1 Dim DongCuoi_WB04=Workbooks("book4").sheets("data").range("A"&...
workbooks("book2") Workbooks("book4") Không nên dùng trực tiếp như thế này. Bạn nên đặt biến đại diện cho các workbook này, sau đó viết theo biến sẽ đỡ bị sai. Viết trực tiếp như thế không đúng. Phải chỉ rõ book2.xlsx hay book2.xlsm? book2 này...
Thưa thầy, tôi thêm một số tên vào book 1 nhưng ở book 4 không lưu được đầy đủ và đếm dòng cuối của book 4 là 10 và book 1 là 14. code tôi viết dưới đây thầy xem sai ở đâu ạ! Sub GopDuLieu_02() Dim DongCuoi_wb1 As Long DongCuoi_wb1 = Workbooks("book1").Sheets("sheet1").Range("A"...
Em copy code VBA từ file Excel này sang file Excel khác nhưng bị lỗi không chạy được. Code của em đây ạ: Sub LayDuLieuDoanhthu_MTD() Workbooks.Open "C:\Users\HaNS\Dropbox\Temp\01-Ha_Weekly_Monthly_Report\CTTT_MTD.xlsx" Dim DongCuoi As Long DongCuoi = Workbooks("CTTT_MTD.xlsx").Sheets("Sheet1").Range("A"...
Sub Gopdulieu_04() 'Noi cho du lieu 'Workbooks("Book10").Sheet1.Range("A2:C4").Value 'Noi nhan du lieu 'Workbooks("Book13").Sheet2.Range("A2:C").Value Workbooks("Book13").Sheets("Data").Range("A2:C4").Value = _ Workbooks("Book10").Sheets("Sheet1").Range("A2:C4").Value 'gop du lieu book 11 Dim dongdau_Wb11...
Mình làm y hệt hướng dẫn của Thầy nhưng bị lỗi . Sub MergeWBs() Workbooks("TH_Merge WBs").Sheets("Data").Range("A2:C4").Value = _ Workbooks("Book1").Sheets("Sheet1").Range("A2:C4").Value End Sub Nhờ AD sửa giúp mình ạ. Cám ơn AD.
Sao clip này bị lỗi suốt thế nhỉ? cứ nói được 1 câu lại bị dừng
Làm sao thêm nút xóa để gộp dữ liệu hoàn toàn mới vào bảng dữ liệu
Thầy cho em hỏi, em vào đâu để đưa được những cái biểu tượng ở phía bên phải trên cùng. Ví dụ như là em muốn chuyển các đoạn code thành chú thích mà không phải đi tích từng dấu phẩy phía trên các dòng lệnh ạ?
Thầy cho em hỏi, em viết code để nhập dữ liệu từ work book3 vào work book 4 khi chạy thì ra sai KQ, không biết có bị thiếu chỗ nào ko ạ? Dim dongcuoi_wb3 As Long dongcuoi_wb3 = Workbooks("Book3").Sheets("sheet1").Range("A" & Rows.Count).End(xlUp).Row Dim dongdau_wb3...
Scroll Top Top

Hỗ trợ khách hàng

VỀ GITIHO

hợp tác và liên kết

Tải App Gitiho

Kết nối với chúng tôi

Địa chỉ văn phòng: Phòng 302, Tầng 3, Tòa nhà Tây Hà, KĐT mới Phùng Khoang, Phường Thanh Xuân, Thành phố Hà Nội
© 2020 - Bản quyền của Công Ty Cổ Phần Công Nghệ Giáo Dục Gitiho Việt Nam
Giấy chứng nhận Đăng ký doanh nghiệp số: 0109077145, cấp bởi Sở Kế hoạch và Đầu tư TP. Hà Nội
Giấy phép mạng xã hội số: 588, cấp bởi Bộ Thông tin và Truyền thông