hai lúa miền tây

Xin nhờ các Anh/ chị trên diễn đàn viết giúp cho một sub vba lấy dữ liệu từ file sheetdong_1.( trong sheet này có một số ô được tô màu đánh dấu). lấy dữ liệu theo phạm vi mong muốn tuỳ ý sang sheetmo_1.( mong muốn khi chuyển dữ liệu từ sheetdong_1 sang sheetmo_1...

Tình hình là phòng mình có 1 file share cả phòng dùng chung. Khi người trước sử dụng xong nhưng quên không thoát file dẫn đến tình trạng người sau không thể mở file để nhập dữ liệu được. Các bạn có thể giúp mình đoạn code tự động thoát file sau 1 khoảng thời gian không thao tác nữa được ko ạ...

Cấu trúc bài toán: +Đọc từ 1 thư mục đã chọn và bỏ hình ảnh vào các cell tương ứng ở cột B đã định danh sẵn. ==>Trong file mình đã mô tả, nếu bác nào chưa hiểu có thể hỏi lại và giải quyết bài toán trên nha. Cảm ơn các bác đã xem bài.

Nhờ các Anh/Chị hỗ trợ, Hiện tại em thấy được đoạn code của bác HLMT đã sửa được nội dung phù hợp. Phát sinh trường hợp mỗi lần em muốn test nội dung chương trình chậy hết toàn bộ Do em mới tập tành chưa biết nhiều nhờ Anh/Chị hỗ trợ vùng lựa chọn ví dụng như vùng lựa chọn từ ô H3-H4 sheet...

Các Thầy ơi, cho em hỏi, em đang dùng ADO để truy vấn báo cáo. Em viết đoạn code subquery sua đây mà nó cứ báo lỗi: "Runtime error '-2147217900 (80040e14) Syntax error in FROM clause" Đoạn code bị lỗi: tbl1 = "TRANSFORM SUM(DTTH) " & _ "SELECT VUNG, CN, TINH, HUYEN " & _...

Sub SQL_abc() Dim cn, rst As Object Set cn = CreateObject("ADODB.Connection") Set rst = CreateObject("ADODB.recordset") Dim strSQL As String Dim i As Integer strSQL = " select ID_AP, Decription, Import, Export, Import + Export as [Stock] from [NKY_AP$]" Dim...