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

QuangMinhtb · 21/11/19

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ẻ!

PacificPR · 21/11/19

QuangMinhtb đã viết:
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 228753 View attachment 228754

Sao cái này làm mãi mà chưa xong vậy. Nhiều nick thế ta

pinklove · 21/11/19

QuangMinhtb đã viết:
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 228753 View attachment 228754

Bạn hoàn toàn có thể làm được bằng công thức mà, tham khảo nhé.

QuangMinhtb · 21/11/19

pinklove đã viết:
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: 21/11/19

PacificPR đã viết:
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 ạ!

♫ђöล♥ßล†♥†µ♫ · 21/11/19

QuangMinhtb đã viết:
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: 21/11/19

Có một thôi ạ!

Vậy á

pinklove · 21/11/19

♫ђöล♥ßล†♥†µ♫ đã viết:
Vậy á

Lâu em ko vào, nhưng cách viết code của bác nhìn quen quá

QuangMinhtb · 22/11/19

♫ђöล♥ßล†♥†µ♫ đã viết:
Vậy á

Cám ơn chị! chúc chị ngày mới nhiều may mắn!

Bài đã được tự động gộp: 22/11/19

pinklove đã viết:
Bạn hoàn toàn có thể làm được bằng công thức mà, tham khảo nhé.

Cám ơn anh (chị)

QuangMinhtb · 22/11/19

♫ђöล♥ßล†♥†µ♫ đã viết:
Vậy á

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ị)

Excel my love_1 · 22/11/19

QuangMinhtb đã viết:
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

XuanThanh · 22/11/19

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

♫ђöล♥ßล†♥†µ♫ · 22/11/19

QuangMinhtb đã viết:
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à

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é

QuangMinhtb · 22/11/19

XuanThanh đã viết:

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: 22/11/19

♫ђöล♥ßล†♥†µ♫ đã viết:
Ơ ơ. Mình đã gi rõ "Thừa em nào thì xóa nhé" rồi mà

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ị.

QuangMinhtb · 22/11/19

♫ђöล♥ßล†♥†µ♫ đã viết:
Ơ ơ. Mình đã gi rõ "Thừa em nào thì xóa nhé" rồi mà

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ị.

QuangMinhtb đã viết:
Em cám ơn anh/chị.

Bài đã được tự động gộp: 22/11/19

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.

XuanThanh · 22/11/19

Không hiểu. Nối tiếp vào sheet chuyen hay sao?

QuangMinhtb · 22/11/19

XuanThanh đã viết:
Không hiểu. Nối tiếp vào sheet chuyen hay sao?

Dạ! vẫn từ khóa ở sheet"chuyen" trong ô D2, D3
và kết quả mong muốn như hình dưới
Em có đình kèm file, mong anh giúp đỡ chỉnh lại giúp em chút.

XuanThanh · 22/11/19

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

QuangMinhtb · 22/11/19

XuanThanh đã viết:
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!

kimnganlzd · 23/11/19

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:

Sheet chuyển

XuanThanh · 23/11/19

@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)

kimnganlzd · 23/11/19

XuanThanh đã viết:

@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 -+*/

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

Người dùng đang xem chủ đề này

Thành viên hoạt động

File đính kèm

Thành viên mới

Thành viên thường trực

File đính kèm

Thành viên hoạt động

Thành viên tiêu biểu

File đính kèm

Thành viên thường trực

Thành viên hoạt động

Thành viên hoạt động

Thành viên thường trực

File đính kèm

Thành viên thường trực

Thành viên tiêu biểu

File đính kèm

Thành viên hoạt động

Thành viên hoạt động

File đính kèm

Thành viên thường trực

Thành viên hoạt động

File đính kèm

Thành viên thường trực

Thành viên hoạt động

File đính kèm

Thành viên mới

File đính kèm

Thành viên thường trực

Thành viên mới

Đếm ngược thời gian