Help, Dùng vlookup lấy giá trị, comment,Format cell.... (2 người xem)

[thienthu2002]

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 (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
Link đã fix lại, thành thật xin lỗi
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.

 

[ndu96081631]

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 (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/?hg6cq4ukyn50c7y
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.

File bị hư rồi, không mở được bạn à!

 

[thienthu2002]

File bị hư rồi, không mở được bạn à!

http://www.mediafire.com/?jgc1231c5ucygro
đã up lại File khác. Sorry bạn
Mong các cao thủ giúp đỡ.

 

[ndu96081631]

http://www.mediafire.com/?jgc1231c5ucygro
đã up lại File khác. Sorry bạn
Mong các cao thủ giúp đỡ.

Yêu cầu của bạn chắc chắn không thể dùng công thức được rồi
Cũng định viết code giúp bạn mà xem cái file cứ như "đám rừng", chẳng biết đường nào mà lần

 

[thienthu2002]

Yêu cầu của bạn chắc chắn không thể dùng công thức được rồi
Cũng định viết code giúp bạn mà xem cái file cứ như "đám rừng", chẳng biết đường nào mà lần

Đó là cái khó của tôi, vì :
Phòng Dịch Vụ : check in từ 7 giờ 30 đến buổi chiều là 16:30
nhưng trong nhóm phòng dịnh vụ lại có người cho phép không cần bấm thẻ vào buổi trưa nhưng có người lại bắt buộc bấm thẻ
giờ bắt buộc bấm thẻ buổi trưa từ 12 giờ 00 đến 13 giờ 00 nếu bấm sớm hơn hoặc trễ hơn coi như vi phạm
một số người làm việc tại văn phòng nên không cần bấm vào buổi trưa, nên mới có cột J ( có số 1) để phân loại.
nên phải tách ra cột ( Q R S T) để ai vào trể ra sớm tự In đậm sau đó Trưởng bộ phận ok thi mới bôi màu và hay không
nên qua bảng tổng hợp dùng vlokup lấy giá trị từ cột ( Q R S T) của từng ngày 01 đến 31 chứ không lấy giá trị cột ( I J K L)

tương tự phòng kinh doanh cũng vậy ( In 08 giờ 00 __ out 17 giờ 00)
giờ bắt buộc bấm thẻ buổi trưa từ 12 giờ 00 đến 13 giờ 15 nếu bấm sớm hơn hoặc trễ hơn coi như vi phạm
nhung có một số người làm việc tại văn phòng nên không cần bấm vào buổi trưa, nên mới có cột J ( có số 1) để phân loại.

các phòng ban còn lại thì bình thường thì vào _ ra 8 giờ _ 17 giờ ( không cần bấm thẻ trưa)

Phải xử lý từng sheet của từng ngày :
Vàng : Vi Phạm
In đậm : Vào trể hoặc ra sớm (nếu trưởng bộ phận chấp nhận thì bỏ qua còn không hiển thị màu vàng ( tự bôi không dùng công thức) = vi phạm )
chấm phép nếu còn phép
chấm nghỉ khong lương nếu được trưởng bộ phận đồng ý
...

dùng vlookup lấy giá trị theo từng sheet ngày từ ngày 01 đến cuối tháng ( nhưng phải kèm theo định dạng màu, comment nếu có, in đậm nếu có, gạch chéo nếu có...)
nếu ngồi xử lý thủ công mỗi ngày tôi mất gần 2 giờ 30 phút để tổng hợp ra báo cáo hàng ngày cho từng phòng ban.
sau đó phải update vào file tổng hợp ( không thể paste value vào được vì nhân sư thay đổi thường xuyên không theo thứ tự nhất định)
nên chính vì vậy mới nhờ các cao thủ tìm cách nào đó mà dùng vlooup + code gì đó lấy toàn bộ (định dạng , font chữ, màu, comment,...v..v..)
thật sự tôi biết đây là một bài toán khó nhưng cty tôi sắp chuyển qua 5 ngàn nhân viên nếu ngồi làm thủ công để báo cáo thực sự là.. không pro nhưng khổ nổi tôi không biết cách làm, đã cố gắng lên mạng tìm đủ mọi cách nhưng kiến thức hạn hẹp nên đành pó tay

 

[ChanhTQ@]

Bạn cần rút kinh nghiệm khi trình bày vấn đề hơn

Sau đây là thêm những góp í với CSDL của bạn:

(1) Mã nhân viên của bạn gồm 5 ký số; Vì lẽ đó, bạn không nên xài các mã có các ký số dưới 10000, như 00008 là không nên;
Nếu được khuyên, mình xin bạn xài mã gồm chủ iếu các ký tự, như

HoTen|Ma
Nguyễn Thị Nhựt Thuỷ|NNT00
Trần Quang|TJQ00
Trần Quý|TJQ01
MAUDUONG|JJM00
Nguyễn Nhật Thùy|NNT01

(2) Khi dùng họ tên NV (nhân viên) để dò tìm ra mã, nghĩa là bạn 'Gọt chưn theo giày'; Vì mã về nguyên tắc là không trùng, còn họ tên thì dễ trùng lắm bạn nà!

(3) Bạn nói là số NV là 500 trở lên, vậy sao không giả lập tăng lên đúng vậy; Vì có vậy các fương án viết ra mới có tính khả thi trong thực tiển.

(4*) (Chỉ khuyến áo thôi nhe Bạn xem xét có thể nhốt chung 5 (hay 7) ngày chấm công trong 1 trang tính được không? (Đó là mình nói khi dùng E2003!)

Rất mong thông tin từ bạn về các đề nghị trên.

 

[thienthu2002]

Gởi cao thủ ndu96081631

Yêu cầu của bạn chắc chắn không thể dùng công thức được rồi
Cũng định viết code giúp bạn mà xem cái file cứ như "đám rừng", chẳng biết đường nào mà lần

Mới làm lại cho đơn giản hơn một chút hy vọng bạn giúp được.
http://www.mediafire.com/?65hm2yk2pf7e568
Cám ơn trước

Sau đây là thêm những góp í với CSDL của bạn:

(1) Mã nhân viên của bạn gồm 5 ký số; Vì lẽ đó, bạn không nên xài các mã có các ký số dưới 10000, như 00008 là không nên;
Nếu được khuyên, mình xin bạn xài mã gồm chủ iếu các ký tự, như

HoTen|Ma
Nguyễn Thị Nhựt Thuỷ|NNT00
Trần Quang|TJQ00
Trần Quý|TJQ01
MAUDUONG|JJM00
Nguyễn Nhật Thùy|NNT01

(2) Khi dùng họ tên NV (nhân viên) để dò tìm ra mã, nghĩa là bạn 'Gọt chưn theo giày'; Vì mã về nguyên tắc là không trùng, còn họ tên thì dễ trùng lắm bạn nà!

(3) Bạn nói là số NV là 500 trở lên, vậy sao không giả lập tăng lên đúng vậy; Vì có vậy các fương án viết ra mới có tính khả thi trong thực tiển.

(4*) (Chỉ khuyến áo thôi nhe Bạn xem xét có thể nhốt chung 5 (hay 7) ngày chấm công trong 1 trang tính được không? (Đó là mình nói khi dùng E2003!)

Rất mong thông tin từ bạn về các đề nghị trên.

Vụ mã nhân viên mình không thay đổi được vì máy chấm công trích ra theo số thứ tự
Phải báo cáo mỗi ngày nên mới để sheet rời chứ thực chất mình muốn để cả 1 tháng vào cùng đế sau này viết công thức tính lương cho tiện, nhưng khổ nổi người cũ báo cáo như thế nào sếp bắt phải báo cáo y chang vậy khổ

 

[SA_DQ]

Vụ mã nhân viên mình không thay đổi được vì sếp không cho phép.
. . . mình muốn để cả 1 tháng vào cùng đế sau này viết công thức tính lương cho tiện, nhưng khổ nổi người cũ báo cáo như thế nào sếp bắt phải báo cáo y chang vậy khổ

Xem ra, cái bạn đang cần giúp sẽ là cách thức thuyết fục Sếp của bạn theo kịp trào lưu chung của XH;
Chuyện này thì ít người trên giaiphapexcel.COM kham nổi rồi!

Bạn thử lần cuối những điều này xem sao:

(1) Hiện nay các mã NV (Nhân viên) trong CQ bạn đều >'10000' (chỉ có 1 'em' mang mã 00008 mà thôi) trong khi đó, mã 10008 chưa ai mang, bạn thử đề nghị chuyển mã người này sang 10008; & chúng ta coi đây sẽ là đầu suôi, đuôi lọt! Một khi bạn thuyết fục được Sếp bạn. (Bạn cũng nên từ bỏ í định rằng cộng đồng này sẵn lòng giúp bạn tất cả mọi thứ, kể cả những suy nghĩ ngông cuồng & trái khoáy. . .

(2) Vấn đề này mình không biết của bạn hay Sếp bạn quyết định, là chuyện thay vì tên fòng, bạn nên xài mã fòng; Ví dụ: Thay vì Phòng Khách hàng, ta xài mã 'H' thay cho hàng ngàn từ như vậy trên CSDL của bạn cũng thấy đỡ bao tiền bạc & công sức hầu làm giàu thêm cho CQ bạn rồi còn gì!

(3) File mới, nhưng bạn chưa tiếp thu ngay các góp của người khác trên GPE.COM với bạn; Cụ thể nha, để bạn khỏi chối:
Tại [C8] của trang 'Tong hop' bạn đâáp công thức: =VLOOKUP(F8,DS!$C$4:$X$500,3,0)
Công thức này giúp bạn tra từ tên NV ra mã NV đó! Chuyện này là vô lí đã được thành viên cộng đồng góp í, mà bạn có sửa đâu! Hay bạn cũng nhiễm tính cách của Sếp bạn rồi?

Thật ra, bạn muốn có 1 vài macro cho công việc thì cộng đồng này sẽ không nề hà gì; Nhưng mình muốn nói với bạn là cũng có người muốn bạn có 1 cần câu để câu được VBA về xài lâu dài!

Chào thân ái!

 

[thienthu2002]

Xem ra, cái bạn đang cần giúp sẽ là cách thức thuyết fục Sếp của bạn theo kịp trào lưu chung của XH;
Chuyện này thì ít người trên giaiphapexcel.COM kham nổi rồi!

Bạn thử lần cuối những điều này xem sao:

(1) Hiện nay các mã NV (Nhân viên) trong CQ bạn đều >'10000' (chỉ có 1 'em' mang mã 00008 mà thôi) trong khi đó, mã 10008 chưa ai mang, bạn thử đề nghị chuyển mã người này sang 10008; & chúng ta coi đây sẽ là đầu suôi, đuôi lọt! Một khi bạn thuyết fục được Sếp bạn. (Bạn cũng nên từ bỏ í định rằng cộng đồng này sẵn lòng giúp bạn tất cả mọi thứ, kể cả những suy nghĩ ngông cuồng & trái khoáy. . .

(2) Vấn đề này mình không biết của bạn hay Sếp bạn quyết định, là chuyện thay vì tên fòng, bạn nên xài mã fòng; Ví dụ: Thay vì Phòng Khách hàng, ta xài mã 'H' thay cho hàng ngàn từ như vậy trên CSDL của bạn cũng thấy đỡ bao tiền bạc & công sức hầu làm giàu thêm cho CQ bạn rồi còn gì!

(3) File mới, nhưng bạn chưa tiếp thu ngay các góp của người khác trên GPE.COM với bạn; Cụ thể nha, để bạn khỏi chối:
Tại [C8] của trang 'Tong hop' bạn đâáp công thức: =VLOOKUP(F8,DS!$C$4:$X$500,3,0)
Công thức này giúp bạn tra từ tên NV ra mã NV đó! Chuyện này là vô lí đã được thành viên cộng đồng góp í, mà bạn có sửa đâu! Hay bạn cũng nhiễm tính cách của Sếp bạn rồi?

Thật ra, bạn muốn có 1 vài macro cho công việc thì cộng đồng này sẽ không nề hà gì; Nhưng mình muốn nói với bạn là cũng có người muốn bạn có 1 cần câu để câu được VBA về xài lâu dài!

Chào thân ái!

Đầu tiên cám ơn HYen17 đã quan tâm kiểm tra File hộ tôi.
Nhưng tại sao HYen17 lại căng thẳng nói tôi "ngông cuồng & trái khoáy " vậy nhỉ :
Giải quyết từng vấn đề nhé :

( 1 ) Tôi đã chỉnh lại vấn đề Mã nhân viên trước khi bạn gởi bài trả lời.( có lẽ lúc đó bạn đang kiểm tra File hộ tôi nên không thấy update)
Có hỏi sếp và tìm hiểu là số "00008" là số thứ tự từ máy chấm công trích ra vậy coi như là không thể trùng nhau được.
10008 không có trong danh sách không có nghĩa là chưa ai mang , mà người mang số 10008 đã nghĩ việc. Hồ sơ , lương, thông tin của 10008 vẫn còn đó không thể đè lên được.
Tủ hồ sơ nhân viên để theo số thứ tự để khi cần chi tốn vài phút là lấy ra được chứ không phải ...
lý do có công thức ở ô {C8} trang tổng hợp là người cũ để lại cho tôi 1 File tổng hợp như thế nhưng không có số thứ tự bấm thẻ nên tôi phải dùng công thức kéo về dự phòng sau này có người mới tự động sheet tổng hợp sẽ điền tên và bộ phận.

( 2 ) Chuyện mã phòng ban :
Cứ mỗi sáng sau khi tổng hợp phân tích thì in một danh sách ( ai không bấm thẻ tô màu vàng, vô trể in đậm, không cần bấm thẻ trưa "/",.....) gởi các phòng ban xác nhận.
Công văn gởi đi các bộ phận không thể sử dụng mã được.

(3) phần ( 01) giải thích rồi nhé.
Sẽ copy và paste value cột C
Sau này chỉ cần gỏ số của nhân viên tự động sẽ điền tên chứ không phải kiểu "gọt chân theo giày nhé"

Gút lại :
Vấn đề phòng ban trên CSDL tôi thấy không quan trọng lắm vì không có công thức nào link đến nó cả.

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
tô màu, in đậm gởi các phòng ban chờ xác nhận
sau đó copy và paste vào sheet 01 - 31

Công đoạn cần nhất hiện nay:
Dùng vlookup lấy dữ liệu + định dạng về sheet tổng hợp

 

[SA_DQ]

( 1.1 ) Có hỏi sếp và tìm hiểu là số "00008" là số thứ tự từ máy chấm công trích ra vậy coi như là không thể trùng nhau được.

(1.2) Tủi hồ sơ nhân viên để theo số thứ tự để khi cần chi tốn vài phút là lấy ra được chứ không phải ...

( 2 ) Chuyện mã phòng ban :
Cứ mỗi sáng sau khi tổng hợp phân tích thì in một danh sách gởi các phòng ban xác nhận.
Công văn gởi đi các bộ phận không thể sử dụng mã được.

(3) Gút lại :
Vấn đề phòng ban trên CSDL tôi thấy không quan trọng lắm vì không có công thức nào link đến nó cả.

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
tô màu, in đậm gởi các phòng ban chờ xác nhận
sau đó copy và paste vào sheet 01 - 31

Công đoạn cần nhất hiện nay:
Dùng vlookup lấy dữ liệu + định dạng về sheet tổng hợp

(1.1) Là mình lâu nay hay gặp kiểu này: Người cần tìm ở lớp 6A1, nhưng khi dùng lọc trong excel thì ra cả đống gồm cả 6A10 & 6A11 (nếu có) luôn;

(1.2) Túi hồ sơ này bạn quản như thế nào? có fải trong từng ngăn tủ khác nhau không? Mà mỗi ngăn tủ có nhãn ghi từ mã hồ sơ này đến mã thứ tự hồ sơ khác? Mà trên mặt túi, nếu ta thêm 1 dẫy số hay dẫy ký tự mang thông tin mã NV thêm nữa có chật chội lắm ru? Thêm nữa, nếu ta cho mỗi người không fải 1 con số vô tri vô giác, mà là những ký tự mang tính biểu trưng 1 qui luật sẽ giúp cho bạn & người đó tìm ngay tài liệu nhanh hơn không? chắc chắn là có đó bạn;
Nếu GĐ cần xem HS cô Công tằng Tôn Nữ Nguyệt Mai thì bạn hãy lập trong đầu qui trình tìm nhanh hồ sơ này nhất xem sao?
(/ới bạn, chắc là chạy đến máy tính, tra xem tên này có mã là gì? rồi tiếp,. . . (Đó là chưa kể máy vi tính dỡ chứng nhe!)
Thôi, chẳng qua chỉ là chuyện fím mà!

(2) Nhưng với bạn, biết hàm VLOOKUP() thì chuyện mã ĐV chuyển thành tên đơn vị hay ghi cả 2 lên công văn là khó hay bị cấm!?
Thật ra ô nào đó trên công văn WORD hay EXCEL đều có thể làm mờ hay tô đậm những ngôn từ cần thiết, fải vậy không bạn?!

(3) Gút lại, hình như mỗi hằng ngày, bạn chỉ việc chép 1 trang tính cụ thể ngày đó lên bảng 'THop' thôi fải không?
Chắc chuyện này không khó với nhiều người trong cộng đồng chúng ta; chỉ có việc là bạn khẵng định lần cuối:

(+) Cơ quan bạn khoảng bao nhiêu người?

(+) Bạn không nhất thiết fải đưa cả 31 trang chấm công lên làm gì trong thời điểm này, chỉ nên đưa 1, cùng lắm là 2 ngày; nhưng trong nớ fải có đủ mọi trường hợp có trong thực tiển chấm công bấm thẻ của CQ bạn;

(X) Sẵn đây xin hỏi bạn luôn: Bất kỳ ngày nào trong tháng có khi quyết định chuyển đơn vị công tác cho cá nhân nào từ fòng này sang fòng khác không? (Nếu không có thì nhẹ người hơn chút đĩnh!)

Thân ái!

 

[SA_DQ]

Bạn xem trong file kèm theo

Macro làm việc với 2 trang '01' & '02' đã nhé;
Bạn kiểm sau mỗi lần thêm/thay dữ liệu trong 2 trang này & chạy macro, nha.

 

[thienthu2002]

Macro làm việc với 2 trang '01' & '02' đã nhé;
Bạn kiểm sau mỗi lần thêm/thay dữ liệu trong 2 trang này & chạy macro, nha.

Đã kiểm tra, chỉnh lại công thức, xóa bớt hàng bị lỗi. Macro chạy đến cuối của ngày 1 ngày 2 tốt.
các ngày còn lại chưa hoạt động được mong bạn xem lại dùm.
http://www.mediafire.com/?i266pw4m18l7cl4
Cám ơn bạn.

 

[SA_DQ]

Bạn chép toàn bộ nội dung này đè lên macro sẵn có trong file cũ

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

 

[thienthu2002]

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

Đúng là ...
Không diễn tả được tôi vui mừng như thế nào.
Cám ơn sự giúp đỡ hết mình của mọi người.

 

[0905744404]

Chào cả nhà!
Em định mở 1 Topic khác nhưng khi tìm thì thấy trên Diễn đàn cũng đã mở rồi.
Em có file này mong mọi người giúp đỡ:
- Cũng dùng Hàm Vlookup() nhưng làm thế nào để lấy nguyên định dạng của Sheet Tổng Hợp

 

[Quang_Hải]

Chào cả nhà!
Em định mở 1 Topic khác nhưng khi tìm thì thấy trên Diễn đàn cũng đã mở rồi.
Em có file này mong mọi người giúp đỡ:
- Cũng dùng Hàm Vlookup() nhưng làm thế nào để lấy nguyên định dạng của Sheet Tổng Hợp

Theo mình biết thì hàm không thể nào trả về kết quả có kèm định dạng hay Comment được.
Hãy nghĩ theo hướng khác thì còn có thể.

 

[ndu96081631]

Chào cả nhà!
Em định mở 1 Topic khác nhưng khi tìm thì thấy trên Diễn đàn cũng đã mở rồi.
Em có file này mong mọi người giúp đỡ:
- Cũng dùng Hàm Vlookup() nhưng làm thế nào để lấy nguyên định dạng của Sheet Tổng Hợp

Bạn tự định dạng kết quả bằng tay thôi, vì không có hàm nào làm được cái chuyện định dạng cell cả

Theo mình biết thì hàm không thể nào trả về kết quả có kèm định dạng hay Comment được.
Hãy nghĩ theo hướng khác thì còn có thể.

Riêng Comment thì.. có thể đấy!

 

[0905744404]

Theo mình biết thì hàm không thể nào trả về kết quả có kèm định dạng hay Comment được.
Hãy nghĩ theo hướng khác thì còn có thể.

Cám ơn bác!! Vậy mong bác giúp em với

 

[0905744404]

Bạn tự định dạng kết quả bằng tay thôi, vì không có hàm nào làm được cái chuyện định dạng cell cả

Riêng Comment thì.. có thể đấy!

Cái này đã định dạng trước rồi! nhưng bây giờ em muốn in ra với số lượng lên tới hàng chục ngàn. ( nếu định dạng lại bằng tay thì rất lâu). Thầy giúp em với!

 

[Quang_Hải]

Cái này đã định dạng trước rồi! nhưng bây giờ em muốn in ra với số lượng lên tới hàng chục ngàn. ( nếu định dạng lại bằng tay thì rất lâu). Thầy giúp em với!

Thử dùng code xem sao
Đứng tại sheet LENBANG và chạy code này

Sub DO_TIM()
Dim r As Long, tim As Range
For r = 3 To [B65536].End(3).Row
   Set tim = Sheets("TONG HOP").[B:B].Find(Cells(r, 2), , , 1)
   If Not tim Is Nothing Then
      tim.Offset(, 3).Copy Cells(r, 6)
   End If
Next
End Sub