Nhờ anh (chị) giúp em code điền dữ liệu

Liên hệ QC

QuangMinhtb

Thành viên hoạt động
Tham gia
31/10/19
Bài viết
171
Được thích
34
Xin được nhờ anh chị giúp em đoạn code (do nhu cầu công việc em phải xóa dữ liệu nên không dùng hàm, nếu dùng hàm sẽ bị lỗi nên nhờ anh chị giúp em đoạn code)
Lấy dữ liệu từ ô B4, E4 trở đi trong sheet"bandau" để điền sang sheet"chuyen" và khi điền thì ghép với từ khóa ở ô D2, D3 trong sheet"Chuyen".
Ví dụ cụ thể:
+ Sheet"bandau" ở dòng số 4 tương ứng với số thứ tự số 1 là ô B4=Cán bộ kỹ thuật, E4=Vũ Văn Đăng
+
Lấy dữ liệu dòng số 4 sheet"bandau" điền sang sheet"chuyen" thì dữ liệu được lấy sang trong sheet"chuyen" như sau: ô A4 là số thứ tự 1, dòng B4,B5 sau khi ghép với từ khóa ở D3, D4 (tô chữ màu đỏ) sẽ là B4="Vị trí: Cán bộ kỹ thuật", B5= "Tên: Vũ Văn Đăng"
Tương tự cho các số thứ tự còn lại ở sheet"bandau" được lấy sang sheet"chuyen" (như hình số 2).
Khi dữ liệu được điền nếu có thể nhờ anh (chị giúp em) bo viền luôn các dữ liệu ( như hình thứ 2) em đính kèm luôn được không ạ?
Xin được sự giúp đỡ của các anh(chị)
Em cảm ơn!
Chúc cả nhà buổi tối vui vẻ!
m1.pngm2.png
 

File đính kèm

  • Bi.xls
    41 KB · Đọc: 11
Xin được nhờ anh chị giúp em đoạn code (do nhu cầu công việc em phải xóa dữ liệu nên không dùng hàm, nếu dùng hàm sẽ bị lỗi nên nhờ anh chị giúp em đoạn code)
Lấy dữ liệu từ ô B4, E4 trở đi trong sheet"bandau" để điền sang sheet"chuyen" và khi điền thì ghép với từ khóa ở ô D2, D3 trong sheet"Chuyen".
Ví dụ cụ thể:
+ Sheet"bandau" ở dòng số 4 tương ứng với số thứ tự số 1 là ô B4=Cán bộ kỹ thuật, E4=Vũ Văn Đăng
+
Lấy dữ liệu dòng số 4 sheet"bandau" điền sang sheet"chuyen" thì dữ liệu được lấy sang trong sheet"chuyen" như sau: ô A4 là số thứ tự 1, dòng B4,B5 sau khi ghép với từ khóa ở D3, D4 (tô chữ màu đỏ) sẽ là B4="Vị trí: Cán bộ kỹ thuật", B5= "Tên: Vũ Văn Đăng"
Tương tự cho các số thứ tự còn lại ở sheet"bandau" được lấy sang sheet"chuyen" (như hình số 2).
Khi dữ liệu được điền nếu có thể nhờ anh (chị giúp em) bo viền luôn các dữ liệu ( như hình thứ 2) em đính kèm luôn được không ạ?
Xin được sự giúp đỡ của các anh(chị)
Em cảm ơn!
Chúc cả nhà buổi tối vui vẻ!
View attachment 228753View attachment 228754
Sao cái này làm mãi mà chưa xong vậy. Nhiều nick thế ta
 
Xin được nhờ anh chị giúp em đoạn code (do nhu cầu công việc em phải xóa dữ liệu nên không dùng hàm, nếu dùng hàm sẽ bị lỗi nên nhờ anh chị giúp em đoạn code)
Lấy dữ liệu từ ô B4, E4 trở đi trong sheet"bandau" để điền sang sheet"chuyen" và khi điền thì ghép với từ khóa ở ô D2, D3 trong sheet"Chuyen".
Ví dụ cụ thể:
+ Sheet"bandau" ở dòng số 4 tương ứng với số thứ tự số 1 là ô B4=Cán bộ kỹ thuật, E4=Vũ Văn Đăng
+
Lấy dữ liệu dòng số 4 sheet"bandau" điền sang sheet"chuyen" thì dữ liệu được lấy sang trong sheet"chuyen" như sau: ô A4 là số thứ tự 1, dòng B4,B5 sau khi ghép với từ khóa ở D3, D4 (tô chữ màu đỏ) sẽ là B4="Vị trí: Cán bộ kỹ thuật", B5= "Tên: Vũ Văn Đăng"
Tương tự cho các số thứ tự còn lại ở sheet"bandau" được lấy sang sheet"chuyen" (như hình số 2).
Khi dữ liệu được điền nếu có thể nhờ anh (chị giúp em) bo viền luôn các dữ liệu ( như hình thứ 2) em đính kèm luôn được không ạ?
Xin được sự giúp đỡ của các anh(chị)
Em cảm ơn!
Chúc cả nhà buổi tối vui vẻ!
View attachment 228753View attachment 228754
Bạn hoàn toàn có thể làm được bằng công thức mà, tham khảo nhé.
 

File đính kèm

  • Bi.xls
    42 KB · Đọc: 10
Bạn hoàn toàn có thể làm được bằng công thức mà, tham khảo nhé.
Anh(chị) có thể giúp em bằng code được không ạ! Do đặc điểm công việc em xoá dưc liệu thì công thức sẽ bị lỗi. Em xin cảm ơn!
Bài đã được tự động gộp:

Sao cái này làm mãi mà chưa xong vậy. Nhiều nick thế ta
Có một thôi ạ!
 

File đính kèm

  • Bi (1).xls
    48 KB · Đọc: 23
Anh (chị) cho em hỏi thêm:
Hiện tại em chạy code thì có lỗi : "Tên: trí: Vũ Văn Đăng"
giả sử em muốn kết quả khi chạy code tương ứng với số thứ tự số 1 là:
Vị trí công việc: Cán bộ kỹ thuật
Tên: Vũ Văn Đăng

Thì thay sửa code thê nào vậy ạ?
Nếu từ khóa như ban đầu "Vị trí:" và "Tên:" em muốn thay bằng từ khác thì phải chỉnh sửa trong code đúng không ạ?
Em cảm ơn (anh/chị)
loi.png
 
Anh (chị) cho em hỏi thêm:
Hiện tại em chạy code thì có lỗi : "Tên: trí: Vũ Văn Đăng"
giả sử em muốn kết quả khi chạy code tương ứng với số thứ tự số 1 là:
Vị trí công việc: Cán bộ kỹ thuật
Tên: Vũ Văn Đăng

Thì thay sửa code thê nào vậy ạ?
Nếu từ khóa như ban đầu "Vị trí:" và "Tên:" em muốn thay bằng từ khác thì phải chỉnh sửa trong code đúng không ạ?
Em cảm ơn (anh/chị)
View attachment 228816
Bạn thử code này nhé. Mình mới nghiên cứu, tập làm VBA nên code sẽ không cao cấp bằng của Hoa Bất tử, nhưng mà cũng là 1 cách để ra được đáp án bạn mong muốn và có đáp ứng được nhu cầu nối chuối cho trước ở vị trí ô D2,D3 bên sheet chuyen. Bạn tham khảo thêm
 

File đính kèm

  • Tap lam VBA.xlsb
    21.2 KB · Đọc: 5
Lần chỉnh sửa cuối:
Mã:
Sub Chuyen()
    Dim n As Long, m As Long, i As Long, j As Long
    n = Sheets("bandau").Range("A65000").End(xlUp).Row
    m = Sheets("chuyen").Range("B65000").End(xlUp).Row
    If m > 4 Then Sheets("Chuyen").Range("A4:B" & m).Clear
    j = 4
    For i = 4 To n
        If Sheets("chuyen").Range("A" & j - 1) = "" Then
            Sheets("chuyen").Range("A" & j) = Sheets("bandau").Range("A" & i)
        Else
            Sheets("chuyen").Range("A" & j) = ""
        End If
        Sheets("chuyen").Range("B" & j) = Sheets("chuyen").Range("D2") & Sheets("bandau").Range("B" & i)
        Sheets("chuyen").Range("B" & j + 1) = Sheets("chuyen").Range("D3") & Sheets("bandau").Range("E" & i)
        j = j + 2
    Next
End Sub

Thay giá trị ô D2 và D3 trong sheet chuyen bằng những gì bạn muốn thể hiện
 
Anh (chị) cho em hỏi thêm:
Hiện tại em chạy code thì có lỗi : "Tên: trí: Vũ Văn Đăng"
giả sử em muốn kết quả khi chạy code tương ứng với số thứ tự số 1 là:
Vị trí công việc: Cán bộ kỹ thuật
Tên: Vũ Văn Đăng

Thì thay sửa code thê nào vậy ạ?
Nếu từ khóa như ban đầu "Vị trí:" và "Tên:" em muốn thay bằng từ khác thì phải chỉnh sửa trong code đúng không ạ?
Em cảm ơn (anh/chị)
View attachment 228816
Ơ ơ. Mình đã gi rõ "Thừa em nào thì xóa nhé" rồi mà :p:p:p
Mã:
dArr(K, 2) = "Tên: " & sArr(I, 4)
Thích tên gì thì bạn gõ vào ô AG4 rồi copy AG5 vào nhé
 

File đính kèm

  • CodeUnicode.xls
    57.5 KB · Đọc: 8
Lần chỉnh sửa cuối:
Mã:
Sub Chuyen()
    Dim n As Long, m As Long, i As Long, j As Long
    n = Sheets("bandau").Range("A65000").End(xlUp).Row
    m = Sheets("chuyen").Range("B65000").End(xlUp).Row
    If m > 4 Then Sheets("Chuyen").Range("A4:B" & m).Clear
    j = 4
    For i = 4 To n
        If Sheets("chuyen").Range("A" & j - 1) = "" Then
            Sheets("chuyen").Range("A" & j) = Sheets("bandau").Range("A" & i)
        Else
            Sheets("chuyen").Range("A" & j) = ""
        End If
        Sheets("chuyen").Range("B" & j) = Sheets("chuyen").Range("D2") & Sheets("bandau").Range("B" & i)
        Sheets("chuyen").Range("B" & j + 1) = Sheets("chuyen").Range("D3") & Sheets("bandau").Range("E" & i)
        j = j + 2
    Next
End Sub

Thay giá trị ô D2 và D3 trong sheet chuyen bằng những gì bạn muốn thể hiện
Em cám ơn anh/chị.
Bài đã được tự động gộp:

Ơ ơ. Mình đã gi rõ "Thừa em nào thì xóa nhé" rồi mà :p:p:p
Mã:
dArr(K, 2) = "Tên: " & sArr(I, 4)
Thích tên gì thì bạn gõ vào ô AG4 rồi copy AG5 vào nhé
Em cám ơn anh/chị.
 
Ơ ơ. Mình đã gi rõ "Thừa em nào thì xóa nhé" rồi mà :p:p:p
Mã:
dArr(K, 2) = "Tên: " & sArr(I, 4)
Thích tên gì thì bạn gõ vào ô AG4 rồi copy AG5 vào nhé
Em cám ơn anh/chị.
Em cám ơn anh/chị.
Bài đã được tự động gộp:


Em cám ơn anh/chị.
Em làm phiền anh (chị) chút xíu nữa ạ!
Ở cột E và F trong sheet "bandau" em đã đảo vị trí cho nhau ( ban đầu em sơ ý)
khi chạy code thì bị đảo tên lên đầu, vị trí công việc xuống dưới ( và kết quản như hình 1)
Nhờ anh/ chị giúp em một lần nữa để có kết quả (như hình 2)
Và cả anh/chị XuanThanh giúp em một lần nữa ạ!

Em xin cảm ơn.
kiem.pnghình 2.png
 

File đính kèm

  • Kiem lai.xlsm
    18.8 KB · Đọc: 3
Không hiểu. Nối tiếp vào sheet chuyen hay sao?
 
Nếu nói tiếp vào sheet chuyen thì xóa dòng này đi
If m > 4 Then Sheets("Chuyen").Range("A4:B" & m).Clear

Còn nếu thay vị trí dữ liệu trong sheet ban đầu thi thay
For i = 4 To n
bằng
For i = 15 To n
 
Nếu nói tiếp vào sheet chuyen thì xóa dòng này đi
If m > 4 Then Sheets("Chuyen").Range("A4:B" & m).Clear

Còn nếu thay vị trí dữ liệu trong sheet ban đầu thi thay
For i = 4 To n
bằng
For i = 15 To n
Vâng, như file em tải lên bài #15 có nhờ anh giúp lại:
ban đầu anh giúp em thì ở số thứ tự số 1 trong sheet "chuyen" :
dòng số 4 là "Vũ Văn Đăng " dòng số 5 là "chỉ huy trưởng"
Giờ em nhờ anh đối giúp em là dòng số 4 "chỉ huy trưởng", dòng số 5 là "Vũ Văn Đăng"
Tương tự đổi cho các số thứ tự còn lại. Từ khóa thì không quan trọng vì mình có thể thay đổi được,
Anh chỉnh code lại giúp em vậy mới nhé!
em có tải file.
Cám ơn anh!
ty.png
 

File đính kèm

  • cuoi.xlsm
    19 KB · Đọc: 6
Lần chỉnh sửa cuối:
Mình cũng gặp vấn đề như trên nhưng khác 1 chút, xin ké nhờ cao nhân giúp với ạ
Tình hình là e vẫn phải xóa dữ liệu cũ khi làm việc, nhưng dữ liệu nguồn và dữ liệu chuyển ngược lại với chủ thớt ạ, e xin gửi kèm file, nhờ mn chỉnh code lại giúp e với, e cám ơn nhìu nhìu

Sheet nguồn:
1574476213945.png

Sheet chuyển
1574476250138.png
 

File đính kèm

  • Excel.xlsx
    17.2 KB · Đọc: 6
@QuangMinhtb
Đổi cái này
Mã:
Sheets("chuyen").Range("B" & j) = Sheets("chuyen").Range("D2") & Sheets("bandau").Range("B" & i)
Sheets("chuyen").Range("B" & j + 1) = Sheets("chuyen").Range("D3") & Sheets("bandau").Range("E" & i)

thành
Mã:
Sheets("chuyen").Range("B" & j) = Sheets("chuyen").Range("D3") & Sheets("bandau").Range("E" & i)
Sheets("chuyen").Range("B" & j + 1) = Sheets("chuyen").Range("D2") & Sheets("bandau").Range("B" & i)
 
@QuangMinhtb
Đổi cái này
Mã:
Sheets("chuyen").Range("B" & j) = Sheets("chuyen").Range("D2") & Sheets("bandau").Range("B" & i)
Sheets("chuyen").Range("B" & j + 1) = Sheets("chuyen").Range("D3") & Sheets("bandau").Range("E" & i)

thành
Mã:
Sheets("chuyen").Range("B" & j) = Sheets("chuyen").Range("D3") & Sheets("bandau").Range("E" & i)
Sheets("chuyen").Range("B" & j + 1) = Sheets("chuyen").Range("D2") & Sheets("bandau").Range("B" & i)

E ngu người quá, chạy cứ bảo lỗi sai code ạ.... ko biết có pải e gà quá ko nữa -+*/
 
Web KT
Back
Top Bottom