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
Nga Vo
Nga Vo
Thảo luận 1 thảo luận
Vỗ tay 0 vỗ tay
Lượt xem 127 lượt xem

tên file của em h dài nên muốn ngắn gọn để viết vô code thi có cách nào

thầy ơi tên file của em hơi dài nên muốn ngắn gọn để viết vô code thi có cách nào đặt tên file giả trong VBA ko thầy.

Thảo luận 1 câu trả lời
Lượt xem 127 lượt xem
Vỗ tay vỗ tay
Chia sẻ
Nga Vo 09:01 - Jan 17, 2022

Bạn có thể đặt tên biến cho 1 workbook để dễ viết hơn.

Nhưng thường trong code chúng ta ít khi gọi đích danh tên workbook mà thường là:

- Thisworkbook dành cho workbook chứa code, thường là đích đến

- Các workbook khác thì bạn mở thông qua fileDialog hoặc GetOpenFileName thì bạn gán biến cho các file này

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 Đại Mỗ, 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