cách link dữ liệu giữa 2 sheet

Liên hệ QC

soiconkthn

Thành viên mới
Tham gia
25/8/07
Bài viết
34
Được thích
2
Nghề nghiệp
kỹ sư xây dựng
các anh chị cho e hỏi làm thế làm để link dữ liệu tự động từ sheet: "bảng nhập từ" vào sheet "bảng phân loại theo vần một cách tự động".khi e nhập dữ liệu ở sheet "bảng nhập từ "thì nó sẽ tự động link dữ liệu sang sheet "bảng phân loại từ".thanks
 

File đính kèm

Lần chỉnh sửa cuối:
các anh chị cho e hỏi làm thế làm để link dữ liệu tự động từ sheet: "bảng nhập từ" vào sheet "bảng phân loại theo vần một cách tự động".khi e nhập dữ liệu ở sheet "bảng nhập từ "thì nó sẽ tự động link dữ liệu sang sheet "bảng phân loại từ".thanks

Như thế này đúng không ?
 

File đính kèm

cảm ơn anh về bài trả lời của anh, nhưng có một khuyết điểm thế này e ko thể sắp xếp các cột từ mới theo vần đc.toàn hiện lên not available.thanks
 
.......khi e nhập dữ liệu ở sheet "bảng nhập từ "thì nó sẽ tự động link dữ liệu sang sheet "bảng phân loại từ".thanks
Ngoài yêu cầu trên của bạn, mình còn cho dữ liệu sau khi cập nhật vào sheet "bảng phân loại từ" thì tự động Sort theo vần luôn.

Bạn xem file đính kèm nhé!
 

File đính kèm

sao e không thấy câu lệnh gì cả, cái này anh dùng lập trình để làm ạ, anh có thể giới thiệu qua về cách làm của anh cho e đc ko, thanks
 
cái này lợi hại thật chỉ một dòng lập trình ngắn như vậy mà làm đc bao nhiều việc :
Sub myCopy()
Application.ScreenUpdating = False
Sheets("BangPLtheoVan").Range("B4:E" & Sheets("bangPLtheoVan").[B65536].End(xlUp).Row).ClearContents
Sheets("BangNhapTu").Range("C5:F" & Sheets("BangNhapTu").[C65536].End(xlUp).Row).Copy
Sheets("BangPLtheoVan").[B4].PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Sheets("BangPLtheoVan").Activate
Range("C3:E" & Sheets("BangPLtheoVan").[B65536].End(xlUp).Row).Sort Key1:=Range("C4"), Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
[C3].Select
Sheets("BangNhapTu").Activate
Application.ScreenUpdating = True
End Sub
bây giờ nếu e muốn thêm cột phiên âm thì phải sửa dòng lập trình này như thế nào ạ.thanks
 
Lần chỉnh sửa cuối:
............bây giờ nếu e muốn thêm cột phiên âm thì phải sửa dòng lập trình này như thế nào ạ.thanks

Sub myCopy()
Application.ScreenUpdating = False
'---------------------------------------------------------------
Sheets("BangPLtheoVan").Range("B4:E" & Sheets("bangPLtheoVan").[B65536].End(xlUp).Row).ClearContents
Sheets("BangNhapTu").Range("C5:F" & Sheets("BangNhapTu").[C65536].End(xlUp).Row).Copy
Sheets("BangPLtheoVan").[B4].PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
'---------------------------------------------------------------
Sheets("BangPLtheoVan").Activate
Range("C3:E" & Sheets("BangPLtheoVan").[B65536].End(xlUp).Row).Sort Key1:=Range("C4"), Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
[C3].Select
Sheets("BangNhapTu").Activate
'---------------------------------------------------------------
Application.ScreenUpdating = True
End Sub
Bạn sửa ở những chỗ mình tô đậm màu đỏ ấy! Tăng thêm cột thì chữ cái tô đậm màu đỏ ấy sẽ khác nhau theo thứ tự chữ cái của cột cần thao tác.
 
e đã làm đc rồi,cảm ơn anh, bây giờ e muốn khi mình nhập 2 từ giống nhau thì 2 từ ấy sẽ hiện lên màu đỏ ở sheet phân loại từ, giống như kiểu định dạng có điều kiện ấy(CF) ấy. thanks
 
e đã làm đc rồi,cảm ơn anh, bây giờ e muốn khi mình nhập 2 từ giống nhau thì 2 từ ấy sẽ hiện lên màu đỏ ở sheet phân loại từ, giống như kiểu định dạng có điều kiện ấy(CF) ấy. thanks

Vấn đề này (tô đậm, màu đỏ) bạn vẫn dùng Conditional Format được mà. Yêu cầu này có nhiều trên GPE bạn search là ra thôi.
 
e search trên diễn đàn ra cách làm rồi, thực hiện ở bên ngoài thì đc nhưng ko hiểu sao thực hiện trong sheet phân loại từ thi lại ko đc, anh chỉ dùm e với xem lỗi sai ở đâu
d. Tô màu các giá trị trùng lặp trong cột (Highlight Duplicates in Column)


B1. Chọn vùng A2:A11
B2. Vào Format | Conditional Formatting
B3. Chọn Formula Is tại Condition 1
B4. Nhập vào công thức: =COUNTIF($A$2:$A$11,A2)>1
B5. Nhấn nút Format, chọn màu chữ là màu xanh và in đậm
B6. Nhấn OK, và nhấn tiếp OK
thanks
 

File đính kèm

Bạn xem lại xem, bạn đang COUNTIF cột C chứ đâu phải cột D đâu! MÀ đúng ra phải COUNTIF cột D chứ! (CountIF trong Conditional Format của bạn)
 
vẫn ko đc anh có thể sửa lại bài rồi gửi lại cho e đc ko. thanks anh nhiều
 
vẫn ko đc anh có thể sửa lại bài rồi gửi lại cho e đc ko. thanks anh nhiều
Bạn dùng CF thì đúng, nhưng sở dĩ nó không ra kết quả là cho phần dử liệu bạn nhập sai! Ví dụ 2 từ as thì trong đó có 1 từ dư 1 khoảng trắng
Bạn chú ý kỹ điều này nhé... Máy nó "khôn" nhưng không thông minh đến mức hiểu được từ ngữ ta nhập sai đâu
 

File đính kèm

e hiểu rồi, nhưng mà có thế kết hợp thế nào để thêm hàm trim( cắt khoảng trắng đi đc ko) e thêm vào rồi nhưng chăng thấy đc gì cả, hoặc có cách nào để mình cắt khoảng trắng đi ko).thanks
 
e hiểu rồi, nhưng mà có thế kết hợp thế nào để thêm hàm trim( cắt khoảng trắng đi đc ko) e thêm vào rồi nhưng chăng thấy đc gì cả, hoặc có cách nào để mình cắt khoảng trắng đi ko).thanks
Nếu bạn muốn dùng TRIM thì làm như sau:
- Gõ hàm TRIM vào 1 cột phụ!
- Kéo fill công thức xuống
- Copy kết quả rồi PasteSpecial\Value ngược vào dử liệu
 
Web KT

Bài viết mới nhất

Back
Top Bottom