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á.

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
Nguyễn Nhân Thành
Nguyễn Nhân Thành
Thảo luận 3 thảo luận
Vỗ tay 0 vỗ tay
Lượt xem 355 lượt xem

viết dùm e cod mở sheets ẩn dùng vòng lặp cho nhiều sheets ạ

Nhờ thầy viết dùm e cod mở sheets ẩn dùng vòng lặp cho nhiều sheets ạ
Thảo luận 3 câu trả lời
Lượt xem 355 lượt xem
Vỗ tay vỗ tay
Chia sẻ
Nguyễn Nhân Thành 21:04 - Apr 15, 2020
Đây bạn nhé:
Code mở ẩn tất cả các sheet

Sub MoAn()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
ws.Visible = xlSheetVisible
Next ws
End Sub
Vỗ tay vỗ tay
Nguyễn Nhân Thành 22:04 - Apr 15, 2020
Da vòng lặp ẩn hiện từng sheets mot trong 1 worksheet ạ, thay vì phải viết 1 sheets là 1 sub ạ, giờ e viết tất cả các sheets chung 1 sub mà vẫn ẩn hiển từng sheets được ạ.
Vỗ tay vỗ tay
Nguyễn Nhân Thành 05:04 - Apr 16, 2020
Thế bạn tham khảo bài viết này:
Cách ẩn hiện sheet (nhiều sheet cùng lúc) theo ý muốn thông qua 1 menu quản lý:
https://blog.gitiho.com/cach-de-tao-m...
Vỗ tay vỗ tay
Câu hỏi liên quan
file bài tập này ở đâu vậy ad
Em không tìm được file dữ liệu để import của phần này ạ, chỉ thấy 3 file kết quả thôi ạ
Em làm thế này nhưng khi thực hiện chỉ đến dòng 101 là có dữ liệu, còn từ dòng 102 đến 106 ở file gốc có dữ liệu nhưng trong file chính hiện #N/A, không hiểu bị lỗi gì ạ? Sub import() 'hien thi hop thoai With Application.FileDialog(msoFileDialogFilePicker)...
tai sao khi chon file de input, no bao loi object required
Thầy ơi thầy giải đáp bài tập viết code để biện luận tránh nhập dữ liệu trùng đi ạ
Ở phần code biện luận tránh nhập dữ liệu trùng, mình có thử đoạn code này nhưng bị báo lỗi "Runtime error 13 - type mismatch". Vậy sửa làm sao ạ? Cám ơn Dim j As Long For j = 1 To dongcuoi_wbKQ If WorksheetFunction.CountIf(wb_KQ.Sheets(2).Range("A1:BM" & j), Range("A"...
Mình đã thử làm theo như bạn Tuấn Ba chỉ nhưng tại sao nó vẫn cho phép nhận dữ liệu trùng vậy ạ? Ngoài ra, sau mỗi lần import 1 file excel là xuất hiện thêm thông báo "Du lieu da bi trung" (trước đó ko bị). Đây là đoạn code của mình: Option...
Dạ thưa thầy!.ví dụ: +File kết quả để ở thư mục D:\Ket qua + Các file select để ở thư mục D:\Select Mình không cần chạy code hiện cửa sổ chọn file mà viết code tự động cho nó vào từng thư mục để copy file thì như thế nào ạ
Em muốn viết 1 đoạn Code mở Fille .xml sang.xlsx và gộp tất cả các file này lại. Em thử nhưng không được. Mong thầy hỗ trợ giúp em. Em cảm ơn. Đoạn code With Application.FileDialog(msoFileDialogFilePicker) .AllowMultiSelect = True .Show...
Nhờ thầy hướng dẫn cách ngăn ngừa khi file đã chọn, đã copy dữ liệu xong thì VBA sẽ không cho phép chọn nữa như thầy đã nói cuối bài giảng . Không biết các đoạn code viết thế nào???
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 Trung Văn, Quận Nam Từ Liêm, Thành phố Hà Nội, Việt Nam
© 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