Dùng vlookup lấy giá trị, comment, Format cell....

[hoangthux]

Mong mọi người giúp đỡ
Mình không biết gì về VBA hết nhưng giờ sếp yêu cầu cần dùng vlookup lấy :
- Giá trị trong ô
- Định dạng (Font chữ, in đậm,màu của ô, gạch chéo,...)
- Comment của ô đó.
Cố gắng mãi vẫn không thể làm được mong mọi người giúp
Gấp gấp
file đính kèm http://www.mediafire.com/?jgc1231c5ucygro

Giải Thích
Từ Sheet tổng hợp Dùng Vlookup lấy dử liệu từ các sheet khác về, nếu ô được lấy về như thế nào thì ô xuất ra phải y chang 100% như vậy.

 

[adam_tran]

Ðề: Dùng vlookup lấy giá trị, comment, Format cell....

Vấn đề này chỉ giải quyết bằng VBA thôi, không có hàm nào làm được.

 

[SA_DQ]

Ðề: Để xài được VBA, CSDL của bạn cần cải tổ nhiều hơn nữa

(*) Như ở đây đã góp í cho bạn: http://www.giaiphapexcel.com/forum/...-Dùng-vlookup-lấy-giá-trị-comment-Format-cell

Mình muốn góp cho bạn thêm các
điểm sau:

(*) Dữ liệi trong CSDL của bạn mang tính lặp lại quá nhiều; Lấy ví dụ tên fòng ban; Ở trường hợp này, người ta hay dùng mã fòng ban, như sau:

Tên fòng|Mã
Phòng TCHC|T
Phòng Kế toán|K
Phòng Dịch vụ|D
Phòng Khách hàng|H
Phòng Mả ketting|M
Phòng Kinh doanh|P

Một khi bạn thay hết tại 33 trang tính của bạn bạn tự khắc giảm được cỡ 10% trọng lượng cơ thể không chừng!

Nếu cần mình sẽ giúp bạn 1 macro để làm việc này?

Chờ tín hiệu từ bạn.

 

[hoangthux]

Ðề: Để xài được VBA, CSDL của bạn cần cải tổ nhiều hơn nữa

(*) Như ở đây đã góp í cho bạn: http://www.giaiphapexcel.com/forum/...-Dùng-vlookup-lấy-giá-trị-comment-Format-cell

Mình muốn góp cho bạn thêm các
điểm sau:

(*) Dữ liệi trong CSDL của bạn mang tính lặp lại quá nhiều; Lấy ví dụ tên fòng ban; Ở trường hợp này, người ta hay dùng mã fòng ban, như sau:

Tên fòng|Mã
Phòng TCHC|T
Phòng Kế toán|K
Phòng Dịch vụ|D
Phòng Khách hàng|H
Phòng Mả ketting|M
Phòng Kinh doanh|P

Một khi bạn thay hết tại 33 trang tính của bạn bạn tự khắc giảm được cỡ 10% trọng lượng cơ thể không chừng!

Nếu cần mình sẽ giúp bạn 1 macro để làm việc này?

Chờ tín hiệu từ bạn.

Thực tế:
Buổi sáng vào làm việc mình trích dữ liệu từ máy bấm vân tay của ngày hôm qua.
http://www.mediafire.com/?l7413gxmdmfmh1d
qua một công đoạn xử lý dữ liệu thô mới ra được như vậy (sheet 01 trong Tonghop CC) http://www.mediafire.com/?65hm2yk2pf7e568
sau đó copy và paste value vào sheet
nên trong sheet 01 đến 31 không có công thức là vậy.
Thực sự mình đang rất cần VBA hay macro để phối hợp với vlookup
nhưng chưa hề học qua nên nhờ mọi người giúp.

Đã chỉnh lại (chỉ để tên Phòng ban Sheet tổng hợp, các sheet khác không để tên phòng ban)
http://www.mediafire.com/?2ju5yauuyv79649

TB:
Thành thật biết ơn vì bạn ngỏ lời muốn giúp.
Với lại mình không biết về VBA nên cái vụ mã phòng ban phải thay đổi hay không thay đổi có thực sự quan trọng lắm không ?
Nếu công dụng để giảm cân thì mình cần ít thời gian chờ APROVE
Thân

 

[HongViet]

Ðề: Dùng vlookup lấy giá trị, comment, Format cell....

Tại trang tính 'Tong Hop' (nên là 'TongHop' hay 'THop") ô c78 đang lỗi;
Macro chạy đến đó thì vướng rồi!

 

[hoangthux]

Ðề: Dùng vlookup lấy giá trị, comment, Format cell....

Tại trang tính 'Tong Hop' (nên là 'TongHop' hay 'THop") ô c78 đang lỗi;
Macro chạy đến đó thì vướng rồi!

đã chỉnh lại theo yêu cầu :
Tong Hop đổi thành TongHop
Nhan viên Mau Duong đã nghỉ việc nên Vlookup không nhìn thấy
Đã up load lại File
http://www.mediafire.com/?i266pw4m18l7cl4
Có thương thì thương cho trót với "sếp"
Thiệt tình nếu biết viết macro thì mình sẽ căn cứ theo 2 sheet đầu viết tiếp cho các sheet còn lại.
Hết tuần này là qua nhận việc nên phải chuẩn bị thật kỷ lưỡng File này để báo cáo hàng ngày.
Cám ơn đã giúp

Sau khi coi lại File thấy macro lợi hại quá, cho mình hỏi nếu muốn học thì cò thể tự học được không?
Nếu đi học thì trường nào dạy "Sếp" làm ơn chỉ dùm. Thanks

 

[QDuc]

Ðề: Bạn muốn tự học thì sang đây & thử sức xem sao

http://www.giaiphapexcel.com/forum/archive/index.php/t-650.html

 

[hoangthux]

Ðề: Bạn muốn tự học thì sang đây & thử sức xem sao

Cảm ơn mọi người đã giúp mấy hôm nay.
Có một Bạn bên web giaiphapexecl đã giúp một đoạn macro chạy rất tốt
xin post để mọi người tham khảo

Option Explicit
Sub CopyTo()
 Dim Sh As Worksheet, Rng As Range, sRng As Range, Cls As Range
 Dim MyAdd As String
 Dim jJ As Long, lRw As Long, Col As Byte, Timer_ As Double
 On Error GoTo LoiCT
 
 Sheets("Tong Hop").Select:             Timer_ = Timer()
 lRw = [C65500].End(xlUp).Row + 35
 [k6].Resize(lRw, 150).Clear
 For jJ = 6 To lRw Step 2
    If Cells(jJ, "C").Value = "" Then Exit For
    For Each Sh In ThisWorkbook.Worksheets
        If IsNumeric(Sh.Name) Then
            Set Rng = Sh.Range("C2").Resize(lRw)
            Set sRng = Rng.Find(Cells(jJ, "C").Value, , xlFormulas, xlWhole)
            If sRng Is Nothing Then
                MsgBox Cells(jJ, "C").Value, , "Nothing"
            Else
                Col = 7 + 4 * CByte(Sh.Name)
                sRng.Offset(, 6).Resize(2, 4).Copy Destination:=Cells(jJ, Col)
            End If
        End If
    Next Sh
 Next jJ
' MsgBox Timer() - Timer_           '
Err_:               Exit Sub
LoiCT:
    MsgBox jJ, , Error
    Resume Err_
End Sub

& chúc thành công

(Thời gian đang cỡ 15 gy để macro cho ra kết quả)