Bạn phải chuột vô tên Sheet1 trên thanh liệt kê tên các sheet, chọn hàng view code (dòng cuối) & nhập đoạn code dưới này vô; (tất nhiên bạn phải sửa lại tên Sheets (ở đây là 'C1' -> 'Sheet2' của bạn)
Ở đây ô nhập liệu là 'A15' bạn sửa lại thành ô 'A2'. Nơi mà bạn muốn nhập dữ liệu để nó chuyển sang Sheet2 cho bạn í mà!
' Có gì thắc mắc thì hỏi tiếp, nha!
Ở đây ô nhập liệu là 'A15' bạn sửa lại thành ô 'A2'. Nơi mà bạn muốn nhập dữ liệu để nó chuyển sang Sheet2 cho bạn í mà!
' Có gì thắc mắc thì hỏi tiếp, nha!
Sửa lần cuối:
Ý Camry muốn là tách riêng 1 sheet nhập liệu (form nhập liệu) và Sheet dử liệu (CSDL) riêng ra. Điều này không sử dụng VBA không làm được. Nhưng để tạo mối liên kết chặt chẽ và đảm bảo không gây ra những lỗi nghiêm trọng làm sai lệch dữ liệu của bạn, bạn phải master về VBA.
Excel cũng có công cụ hỗ trợ nhập liệu. Trong thư viện cũng có 1 Add-In hỗ trợ nhập liệu, nó tạo ra 1 Auto Form. Nhưng tất thảy đều không hoàn hảo bởi 1 trong những điểm mạnh nhất, được yêu thích nhất của Excel là cả 3 "thành phần" form nhập liệu - CSDL - công cụ dàn trang (Form, Database, Report) chỉ là 1, đó là worksheet lại bị bỏ qua.
Theo tôi với trình độ Excel vừa vừa và quy mô dữ liệu nhỏ (1 người dùng), bạn nên nhập liệu ngay trên CSDL và dùng 1 số công cụ như Protect Sheet ... để hạn chế lỗi và bảo vệ dữ liệu. Tôi cũng mất không ít thời gian để thiết kế form nhập liệu, nhưng rút cục thấy nhập thẳng trên database là tốt nhất.
Excel cũng có công cụ hỗ trợ nhập liệu. Trong thư viện cũng có 1 Add-In hỗ trợ nhập liệu, nó tạo ra 1 Auto Form. Nhưng tất thảy đều không hoàn hảo bởi 1 trong những điểm mạnh nhất, được yêu thích nhất của Excel là cả 3 "thành phần" form nhập liệu - CSDL - công cụ dàn trang (Form, Database, Report) chỉ là 1, đó là worksheet lại bị bỏ qua.
Theo tôi với trình độ Excel vừa vừa và quy mô dữ liệu nhỏ (1 người dùng), bạn nên nhập liệu ngay trên CSDL và dùng 1 số công cụ như Protect Sheet ... để hạn chế lỗi và bảo vệ dữ liệu. Tôi cũng mất không ít thời gian để thiết kế form nhập liệu, nhưng rút cục thấy nhập thẳng trên database là tốt nhất.
Cụ thể thế này nha:
1./ Bạn có thấy thanh liệt kê các tên Sheets ở dưới cùng & bên trái màn hình không? (Người ta hay gọi nó là SheetName gì đó) Bạn phải chuột vô Sheet1 (như bạn ghi ở bài đầu & sẽ trở thành nơi nhập dữ liệu để chuyển tiếp sang Sheet2 nhờ macro) như đã nêu ở bài trên & chọn View Code. . .
2./ Trong cửa sổ (mà người ta hay gọi là CS VBE) của sheet1. Nếu bên phải chưa có gì (nghĩa là 1 CS màu xám) thì bạn vô menu Insert -> Module; Lúc này CS VBE sẵn sàng cho bạn chép đoạn mã mình ghi cho bạn. (Hay làm vầy cũng được: Phần trên của CS VBE có 2 CS nhỏ; bên trái có thể là (General); Cái bên phải tương ứng là (Declaration) Cái quan trong là bạn nhấp vô mũi tên của CS bên trái & chọn dòng thứ 2 ghi là Worksheet; Bạn sang CS nhỏ bên phải & chọn dòng Change ; Nếu mọi việc trôi chảy bạn sẽ được VBE dọn sẵn 2 hàng của một macro; như sau:
Tất nhiên ở đây không có tạo mối liên kết nào hết giữa 2 sheets, mà chỉ đơn giản là bạn nhập vô A2 ~ gì, thì macro này tự động đem đến ô trống đầu tiên của cột B thuộc sheet2 & gán vô giúp bạn; thế thôi!
(chú í C2 có dài; nhưng với bạn lúc này, theo mình, chưa đủ trình độ để ngắt ra đâu nha)
2 câu lệnh ngắn vậy nhưng muốn với tới nó mình phải mất 1 vài tháng!
Chúc vui nha! (Thắc mắc gì nữa không?, chẵng hạn: bạn hay uống bia với đậu phọng hay lạc rang?)
Sửa lần cuối:
L
QDuc nói:
Mình có bài toán này nhờ bạn giải giúp
- Mình có 2 sheet.
- Muốn cột A6:B100 ở Sheet 1 khi có dữ liệu nhập vào thì từ động sẽ được trích sang cột B5:C100 ở sheet2.
- Muốn cột J6:L100 ở sheet 1 khi có dữ liệu nhập vào thì từ động sẽ được trích sang cột D5:F100 ở sheet2.
- Muốn cột N6:N100 ở sheet 1 khi có dữ liệu nhập vào thì từ động sẽ được trích sang cột G5:G100 ở sheet2.
- Muốn cột M6:M100 ở sheet 1 khi có dữ liệu nhập vào thì từ động sẽ được trích sang cột H5:H100 ở sheet2.
Hy vọng bạn giành ít thời gian giải bài toán này giúp mình, nó sẽ giúp mình cải thiện công việc thủ công cuả mình rất nhiều & giảm nhẹ dung lượng file kế toán của mình.
Xin cảm ơn bạn nhiều
Thân chào bạn
Bạn nó rõ một tẹo dùm nha:
1./Chép cả cột hay chỉ chép các ô mới nhập vô phần cuối của cột tương ứng S2 vậy?
2./Tại sao số ô trong các vùng tương ứng lại # nhau vậy?. như:
A6:C100 -> B5:C100 là sao? (ó nghĩa gì ở đây không?
Chờ hồi âm của bạn & mình rất sẵn lòng trong khả năng mà!
Chú ý: Bạn có thể nói rõ trong bài trên (Edit lại đi) & báo cho mình biết qua tin nhắn!
Sửa lần cuối:
L
QDuc nói:
Hi ! bạn
1/ Chép cả cột luôn (chép cột từ S1 sang cột chỉ định ở S2).
2/ Các cột khác nhau vì dữ liệu S1 sẽ làm báo cáo ở S2, nhưng do có quá nhiều dữ liệu ở S1 phải mang sang S2 nên nhờ bạn giúp mình link dữ liệu sang bằng VBA để cho nhẹ file, hiện tại mình đang áp dụng công thức nên file khá nặng.
Rất mong bạn giúp mình.
Chờ tin bạn.
Thân chào bạn
1./ Bạn chép đoạn mã sau vô nơi nhập liệu
2./ Cách làm việc: Khi bạn nhập vô ô cuối của vùng ( ô phải dưới nhất) & các ô kề trái của vùng đã được nhập thì số liệu sẽ được tự động chuyễn sang "S2"
(chú ý đổi tên 'S2' trong đoạn mã lệnh đúng tên bạn đã gán trong sheet báo cáo nha!)
2./ Cách làm việc: Khi bạn nhập vô ô cuối của vùng ( ô phải dưới nhất) & các ô kề trái của vùng đã được nhập thì số liệu sẽ được tự động chuyễn sang "S2"
(chú ý đổi tên 'S2' trong đoạn mã lệnh đúng tên bạn đã gán trong sheet báo cáo nha!)
(húc &ui &ẽ!
Sửa lần cuối:
L
QDuc nói:
Hi! bạn
Có 2 vấn đề như sau:
1/ báo lỗi ngay dòng này.
If Not Intersect(Range("J100"), Target) Is Nothing And Not IsNull(Target.Offset(0, -1).Value) And Not IsNull(Target.Offset(0, -2).Value) Then.
2/ Bạn cải tiến code cho phép khi có số liệu tại S1 là tự động chép sang S2, ở đây đang bị ràng buộc phải nhập đến dòng cuối ở S1 (dòng thứ 98) thì dữ liệu mới được mang sang.
Hy vọng bạn cải tiến giúp mình
Thân chào
Xem lai về ngắt dòng lệnh
Dòng lệnh đầu không lỗi mà chúng tương tư nhau, chỉ # là D2 quá dài (chú í cách ngắt dòng lệnh thành 2 - Dấu gạch nối dòng lệnh đứng riêng nha!)
Còn bạn muốn nhật bất kỳ ô nào trong cột (vùng) thì đều Copy chứ zì? Zễ mà:
Đổi các câu lệnh có 2 chữ đầu dòng là If Not thành như sau:
Dòng lệnh đầu không lỗi mà chúng tương tư nhau, chỉ # là D2 quá dài (chú í cách ngắt dòng lệnh thành 2 - Dấu gạch nối dòng lệnh đứng riêng nha!)
Còn bạn muốn nhật bất kỳ ô nào trong cột (vùng) thì đều Copy chứ zì? Zễ mà:
Đổi các câu lệnh có 2 chữ đầu dòng là If Not thành như sau:
thành câu:
(/à bạn nhớ thêm vô dòng lệnh đầu tiên như sau
?Bạn uống bia hơi với zì?
Sửa lần cuối:
Post bài dùm bạn
Vừa qua mình nhận được thư của AiCungLaThay, như sau
Hể bạn nhập đến ô A22 thì macro tự động đem dữ liệu từ A2:A22 sang nối tiếp vô ô đầu của cột 'B' chưa dữ liệu
Chúc vui!
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A22")) Is Nothing Then
Dim lRow As Long
lRow = Sheets("S2").[b65432].End(xlUp).Row + 1
Range("A2:A22").Copy Destination:=Sheets("S2").Range("B" & lRow)
End If
End Sub
Vừa qua mình nhận được thư của AiCungLaThay, như sau
Bạn xem trong file đính kèm
Hể bạn nhập đến ô A22 thì macro tự động đem dữ liệu từ A2:A22 sang nối tiếp vô ô đầu của cột 'B' chưa dữ liệu
Chúc vui!
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A22")) Is Nothing Then
Dim lRow As Long
lRow = Sheets("S2").[b65432].End(xlUp).Row + 1
Range("A2:A22").Copy Destination:=Sheets("S2").Range("B" & lRow)
End If
End Sub
Sửa lần cuối:
N
Ðề: Post bài dùm bạn
Dear QDuc,
Mình cũng có yêu cầu sốtuwowng tự như trên, nhưng hơi khác tí là:
+ Lấy dữ liệu từ sheet nhập liệu copy sang sheet lưu dữ liệu:A1 --> B1, A2-->C1, A3-->D1 (đổi cột thành hàng)
+ Sau khi nhập 1 loại từ A1--> A10 chẳng hạn, việc nhập liệu chỉ thực hiện khi bấm vào command button OK
+ Và nếu một trong các ô A1-->A10 trống thì khi nhập liệu lần 2, sheet lưu dữ liệu cũng phải tự xuống hàng
Vậy kết hợp lại phải viết như thế nào hen?
Mình mới tập tành nên hơi gà mờ.
Thanks
Dear QDuc,
Mình cũng có yêu cầu sốtuwowng tự như trên, nhưng hơi khác tí là:
+ Lấy dữ liệu từ sheet nhập liệu copy sang sheet lưu dữ liệu:A1 --> B1, A2-->C1, A3-->D1 (đổi cột thành hàng)
+ Sau khi nhập 1 loại từ A1--> A10 chẳng hạn, việc nhập liệu chỉ thực hiện khi bấm vào command button OK
+ Và nếu một trong các ô A1-->A10 trống thì khi nhập liệu lần 2, sheet lưu dữ liệu cũng phải tự xuống hàng
Vậy kết hợp lại phải viết như thế nào hen?
Mình mới tập tành nên hơi gà mờ.
Thanks
M
bạn Qduc ơi bạn giúp mình code này được ko. cũng bài cũng bài toán như bạn như bạn Camry .
"Mình có 2 sheet1 và 2
Lần 1 Sheet 1 ô A2 B2 là ô nhập dữ liệu, sheet 2 cột A và B là lưu dữ liệu
tại sheet A2 mình nhập mã số 1, B2 mình nhập dữ liệu " An" thì tại sheet 2 ô A2 hiện mã số 1 và ô B2 hiện dữ liệu là "an"
tại sheet A2 mình nhập mã số 2, B2 mình nhập dữ liệu " Bình" thì tại sheet 2 ô A3 hiện mã số 2 và ô B3 hiện dữ liệu là "Bình"
tại sheet A2 mình nhập mã số 3, B2 mình nhập dữ liệu " Thiên" thì tại sheet 2 ô A4 hiện mã số 3 và ô B4 hiện dữ liệu là "Thiên"
.............
nếu tại sheet A2 mình nhập mã số 1 thì tại ô B2 sheet 1 sẽ lấy giá trị của B2 sheet 2 để mình chỉnh sửa dữ liệu, sau khi chỉnh sửa xong thì lưu vào ô B2 của sheet2.
ví dụ file đính kèm
"Mình có 2 sheet1 và 2
Lần 1 Sheet 1 ô A2 B2 là ô nhập dữ liệu, sheet 2 cột A và B là lưu dữ liệu
tại sheet A2 mình nhập mã số 1, B2 mình nhập dữ liệu " An" thì tại sheet 2 ô A2 hiện mã số 1 và ô B2 hiện dữ liệu là "an"
tại sheet A2 mình nhập mã số 2, B2 mình nhập dữ liệu " Bình" thì tại sheet 2 ô A3 hiện mã số 2 và ô B3 hiện dữ liệu là "Bình"
tại sheet A2 mình nhập mã số 3, B2 mình nhập dữ liệu " Thiên" thì tại sheet 2 ô A4 hiện mã số 3 và ô B4 hiện dữ liệu là "Thiên"
.............
nếu tại sheet A2 mình nhập mã số 1 thì tại ô B2 sheet 1 sẽ lấy giá trị của B2 sheet 2 để mình chỉnh sửa dữ liệu, sau khi chỉnh sửa xong thì lưu vào ô B2 của sheet2.
ví dụ file đính kèm
Bạn tham khảo đoạn code sau đây nhé:
Option Explicit
Sub ghidulieu()
Dim sh1 As Worksheet
Dim sh2 As Worksheet
Dim i&, d&
Set sh1 = ThisWorkbook.Sheets("Sheet1")
Set sh2 = ThisWorkbook.Sheets("Sheet2")
d = sh2.Range("A" & sh2.Rows.Count).End(xlUp).Row + 1
If sh1.Cells(2, 1).Value <> "" And sh1.Cells(2, 2).Value <> "" Then
sh2.Cells(d, 1).Value = sh1.Cells(2, 1).Value
sh2.Cells(d, 2).Value = sh1.Cells(2, 2).Value
End If
End Sub
Similar threads
Xem nhiều
- M
- M
- T
- MTổng hợp các nội dung liên quan đến việc thi tuyển vào ngân hàng!
- Started by mechipchip
- Lượt xem: 2,905,176
- J
Liên kết
Chia sẻ trang
