• PRO

    Thông tin tài khoản
  • Cài đặt Cài đặt tài khoản
  • Lịch nhắc nhở Thiết lập lịch nhắc nhở
  • Quản lý tài chính Quản lý tài chính
  • Tra cứu chứng nhận
  • Gitiho Loyalty
  • Tất cả khóa học Tất cả Khóa học
  • Tất cả Blog Tất cả Blog
  • Tất cả Hỏi đáp
    1. Trang chủ
    2. Tìm kiếm Hỏi đáp
    3. Trang chủ
    4. Tìm kiếm Hỏi đáp
    Nga Vo
    Nga Vo
    Thảo luận 1 thảo luận
    Vỗ tay 0 vỗ tay
    Lượt xem 45 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 45 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 thử copy thử trực tiếp từ file này qua file kia, mà bị lỗi ở câu .Copy 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" & Rows.Count).End(xlUp).Row...
    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...
    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 206, tầng 2, Tòa nhà Tây Hà, Số 19 Tố Hữu, Khu đô thị 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