Nhà cháu tự lập một cái file bằng excel để trả kết quả chứ hiện tại cháu trả bằng phiếu mẫu người ta in sẵn rồi viết tay vào.
Nhà cháu mới đến làm ở đó nên cũng bở ngở. Cháu muốn tạo file làm sẵn như vậy vừa nhanh vừa bài bản.
Hiện thì cháu trả kết quả ở sheet2 (PHIEU_KQ) và yêu cầu chụp vùng nào thì cháu lại qua sheet1(DATA) để copy và quay lại dán.
Cháu muốn nhờ các bác giúp giùm cháu với.
1. Tại sheet2 (PHIEU_KQ) nếu chọn C16 (Ví dụ Sọ não tiếp tuyến) thì nó sẽ copy ở sheet1(DATA) D219:D222 và dán vào từ ô C26 ở sheet2(PHIEU_KQ). VD:
SỌ NÃO TIẾP TUYẾN
* Phim sọ não tiếp tuyến:
* Xương vòm sọ tại điểm tiếp tuyến: Không thấy bất thường.
* Hình bất thường khác: Không thấy.
Cháu có nhờ bên GPE nhưng chỉ lọc bằng hàm nên khi cháu muốn edit lại mô tả khi có bệnh lý thì không được.
2. Cháu muốn tạo thêm 1 sheet để lưu phần hành chính sau mỗi 1 lần xuất phiếu như sheet4(THONGTIN) như vậy có code nào làm được không.
Rất mong các bác giúp đỡ. Chân thành cám ơn các bác.
- Vui lòng đọc nội qui diễn đàn để tránh bị xóa bài viết
- Tìm kiếm trước khi đặt câu hỏi
Xin giúp về code lọc và chép dữ liệu
Điều hành viên: tungblt
-
- Bài viết: 1
- Ngày tham gia: T.Ba 21/03/2017 1:30 pm
- Has thanked: 2 time
Xin giúp về code lọc và chép dữ liệu
Sửa lần cuối bởi xuancanh0209 vào ngày T.Năm 23/03/2017 8:00 am với 3 lần sửa.
- xuanha
- Guru
- Bài viết: 1222
- Ngày tham gia: T.Năm 19/08/2010 4:25 pm
- Đến từ: Ban Tổ chức Thành uỷ Hưng Yên, tỉnh Hưng Yên
- Has thanked: 13 time
- Been thanked: 380 time
- Liên hệ:
Re: XIN GIÚP VỀ CODE LỌC VÀ CHÉP DỮ LIỆU
Mã: Chọn hết
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Long, dong As Long, x$, index%
index = 27
dong = Sheets("Data").Range("B" & Rows.Count).End(xlUp).Row
If Target.Address <> "$C$26" Then Exit Sub
Range("B27:G37").ClearContents
For i = 2 To dong - 1
If Sheet1.Range("C" & i).Value = Target.Value And Sheet1.Range("D" & i).Value <> Target.Value Then
Range("C" & index).Value = Sheet1.Range("D" & i).Value
index = index + 1
End If
Next
End Sub
- Tập tin đính kèm
-
- TRAKETQUA1.rar
- (36.43 KiB) Đã tải 45 lần
Kiểm phiếu Đại hội Đoàn, Đại hội Đảng
http://caulacbovb.com/forum/viewtopic.php?t=23599
http://caulacbovb.com/forum/viewtopic.php?t=23599
Quay về “Visual Basic for Application (VBA)”
Đang trực tuyến
Đang xem chuyên mục này: Không có thành viên nào trực tuyến. và 1 khách