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
Truong The Luan
Truong The Luan
Thảo luận 4 thảo luận
Vỗ tay 0 vỗ tay
Lượt xem 212 lượt xem

Hi code để tự động in ra lưu tên file dưới ng (Tên + Bộ Phận) và lưu PDF

Hi thầy,

Cho em hỏi code để tự động in ra lưu tên file dưới dạng (Tên + Bộ Phận) và lưu PDF ạ.

 

Thảo luận 4 câu trả lời
Lượt xem 212 lượt xem
Vỗ tay vỗ tay
Chia sẻ
Truong The Luan 12:07 - Jul 18, 2022

Bạn xác định tên lưu và bộ phận là 1 biến rồi thay thế là được nhé

Còn code giống hệt bạn xem bài 124 nhé.

Vỗ tay vỗ tay
Truong The Luan 15:07 - Jul 18, 2022

Thưa chuyên gia, bài 24 em chỉ thấy in hàng loạt là print out chứ không thấy code lưu file pdf, nhờ chuyển gia hỗ trợ giúp

Vỗ tay vỗ tay
Truong The Luan 15:07 - Jul 18, 2022

Câu lệnh xuất pdf như sau

 ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, fileName:=Tencanluu & ".Pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True

Vỗ tay vỗ tay
Truong The Luan 16:07 - Jul 18, 2022

Cảm ơn chuyên gia

Vỗ tay vỗ tay
Câu hỏi liên quan
Sub Form_Luumoi() Dim i As Long i = Sheets("Data_ThuChi").Range("A" & Rows.Count).End(xlUp).Row + 1 If Sheets("Form").Range("C6").Value = " " Then MsgBox "thieu ngay" Exit Sub ElseIf Sheets("Form").Range("C8").Value = " " Then MsgBox "thieu thong tin" Exit Sub ElseIf Sheets("Form").Range("C12").Value...
Mình đang làm bài tập này, ở đây có công thức như trong công thức lệnh của hàm Sumifs như sau: =SUMIFS(Data_SoTien, Data_Loai, "Thu", Data_Ngay, "
" target="_blank"> Dear các anh Cho em hỏi trong file Excel e đã định dạng Date dd/mm/yyyy mà vẫn hiển thị theo kiểu mm/dd/yyyy, chỉ các ngày lớn hơn 12 mới hiển thị đúng. Các anh hướng dẫn e khắc phục với ạ Em cảm ơn
Sheets("Data_ThuChi").Activate Sheet6.Activate Thầy cho em hỏi. tại sao dòng lệnh 1 khi em đánh dấu "." thì nó ko hiện chữ .Activate để em chọn ạ còn dòng lệnh 2 thì lại được
Em làm theo bài giảng nhưng thấy biến i sẽ chạy từ dòng đầu đến dòng cuối của bảng Data. Em thử giới hạn i bằng cách tìm DongBD và DongKT theo tên Bộ Phận/Phòng Ban đươc chọn, nhưng nếu list Data _PhongBan không khớp với Data_Nhansu thi sẽ...
Dear thầy. Em muốn lưu nội dung các Cột từ sheet "SoHD", và sheet "PAYMENT" vào sheet "data" -dữ liệu trong 2 sheet "SoHD" và sheet "PAYMENT" luôn cập nhật, - và trong sheet "data" sẽ tự động thêm dữ liệu từ 02 sheet trên (nhưng không trùng lặp dữ liệu)...
Chào Thầy. Em muốn in dưới dạng PDF, với filename là tên + bộ phận, thầy hướng dẫn code giúp em với ạ Cảm ơn Thầy
em co 1 file excel gom 1 sheet bien ban nghiem thu va 1 sheet phieu yeu cau. em in theo danh sach cong viec tu 1 den n, khi in thi in het sheet bien ban nghiem thu va sheet phieu cau cau cua cong viec 1. sau do den cong viec 2 va cong viec n thi giai quyet sao a.
Sub in_bophan() Dim dongBD As Long Dim dongKT As Long dongBD = 3 dongKT = Sheets("Data_NhanSu").Range("B" & Rows.Count).End(xlUp).Row Dim i As Long For i = dongBD To dongKT If Sheets("Data_NhanSu").Range("U" & i).Value = Sheets("Data_NhanSu").Range("O2").Value Then Sheets("HDLD").Range("O3").Value...
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