Nhờ các Bác giúp Cô giáo nhà em 1 marco nhập liệu với ạ. (1 người xem)

trananhtommy · 11/12/14

Chả là E bị 1 cô giáo nhờ cải tiến cách nhập liệu, vì cô ấy cần theo dõi và cập nhật điểm thường xuyên cho các E ở các Trường, lớp khác nhau nên tối về cứ miệt mài suốt. E thì trình độ kém nên chạy lên đây nhờ các Bác giúp E với.

Nhu cầu của E có trong file đính kèm. Rất mong các Bác chỉ cho mấy đường.

Em thay mặt cô, rất cảm ơn các Bác!!! }}}}}

File đính kèm đây ạ:

(trong file này chỉ là 1 ít dữ liệu - thực tế cô ấy theo dõi hơn 20 trường nên dữ liệu nhiều lắm ạ)

Kiều Mạnh · 11/12/14

trananhtommy đã viết:
Chả là E bị 1 cô giáo nhờ cải tiến cách nhập liệu, vì cô ấy cần theo dõi và cập nhật điểm thường xuyên cho các E ở các Trường, lớp khác nhau nên tối về cứ miệt mài suốt. E thì trình độ kém nên chạy lên đây nhờ các Bác giúp E với.

Nhu cầu của E có trong file đính kèm. Rất mong các Bác chỉ cho mấy đường.

Em thay mặt cô, rất cảm ơn các Bác!!!

File đính kèm đây ạ:

(trong file này chỉ là 1 ít dữ liệu - thực tế cô ấy theo dõi hơn 20 trường nên dữ liệu nhiều lắm ạ)

Bạn tham khảo code sau về sửa lại theo cột nha... mình xem file của bạn sắp xếp cột sang dòng nhảy lộn xộn không khoa học nên làm biếng sửa code ....làm mẫu cho bạn thôi
bài này trên GPE rất nhiều .............Form nhập liệu

PHP:

Sub Cot_ToDong()
Application.ScreenUpdating = False
    Sheet2.Range("C7:C13").Copy
    Sheet3.Range("C65536").End(3)(2).PasteSpecial (3), Transpose:=True
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

trananhtommy · 11/12/14

Cám ơn Bạn kieu manh rất nhiều nhưng không phải thế ạ. Cái Cô ấy cần là:

Bước 1: Nhập liệu - ghi vào dữ liệu thông tin ban đầu - cái này đã làm được rồi.
Bước 2: Tìm lại những dữ liệu đã ghi ở Dữ liệu và NHẬP BỔ SUNG vào đúng dòng mà Cô ấy đã nhập ở Bước 1 (cái này mới cần giúp đỡ lập marco ghi cơ ạ). - thay thế công việc vào sheet "Du lieu", bấm Ctrl + F tìm rồi nhập thủ công đấy ạ.

Kiều Mạnh · 11/12/14

trananhtommy đã viết:
Cám ơn Bạn kieu manh rất nhiều nhưng không phải thế ạ. Cái Cô ấy cần là:

Bước 1: Nhập liệu - ghi vào dữ liệu thông tin ban đầu - cái này đã làm được rồi.
Bước 2: Tìm lại những dữ liệu đã ghi ở Dữ liệu và NHẬP BỔ SUNG vào đúng dòng mà Cô ấy đã nhập ở Bước 1 (cái này mới cần giúp đỡ lập marco ghi cơ ạ). - thay thế công việc vào sheet "Du lieu", bấm Ctrl + F tìm rồi nhập thủ công đấy ạ.

Ồ vậy hả ...sorry để mình làm theo phương thức Find xem thế nào nếu được mình úp lên cho nha

trananhtommy · 11/12/14

kieu manh đã viết:
Ồ vậy hả ...sorry để mình làm theo phương thức Find xem thế nào nếu được mình úp lên cho nha

Cảm ơn bạn. Bạn giúp mình khi find phải đối chiếu được ít nhất 2 tham số được không. Vì có thể có nhiều E học sinh trùng tên nhau bạn ạ.

Quang_Hải · 11/12/14

kieu manh đã viết:
Ồ vậy hả ...sorry để mình làm theo phương thức Find xem thế nào nếu được mình úp lên cho nha

Bài này không dùng Find được đâu. Mình nghĩ nên dùng Dic thì được.

trananhtommy · 12/12/14

quanghai1969 đã viết:
Bài này không dùng Find được đâu. Mình nghĩ nên dùng Dic thì được.

Dạ, có khó lắm không ạ..?

Quang_Hải · 12/12/14

trananhtommy đã viết:
Dạ, có khó lắm không ạ..?

Không thấy kieumanh viet cho bạn nên mình thử coi sao.

trananhtommy · 12/12/14

quanghai1969 đã viết:
Không thấy kieumanh viet cho bạn nên mình thử coi sao.

Dạ, đúng ý Cô ấy rồi. Cảm ơn Bác nhiều lắm ạ. Marco hay quá....

Kiều Mạnh · 12/12/14

quanghai1969 đã viết:
Không thấy kieumanh viet cho bạn nên mình thử coi sao.

dạo này anh viết Dic hay tach ra 2 sub em đọc tới luôi cuối cùng cũng hiểu code hay...bài này nếu sắp xếp dữ liệu ko nhảy búa sua thì em
viết được còn vậy thì thua...ngoài copy dòng sang cột

trananhtommy · 14/12/14

quanghai1969 đã viết:
Không thấy kieumanh viet cho bạn nên mình thử coi sao.

Oái oái, Bác ơi giúp E thêm chút nữa..

Chả là điểm các môn không nhập cùng 1 lúc. VD: Hôm nay nhập điểm môn toán, 3 ngày sau nhập điểm môn TA. Như vậy 3 ngày sau khi nhập môn TA và để trống ở Môn Toán thì nó lại xóa mất điểm môn Toán đã nhập của Cô ấy.

Bác giúp E thêm chút nữa là nếu Ô nào để trống thì giữ nguyên dữ liệu đã nhập, không ghi đè lên nữa có được không ạ.

Cảm ơn các Bác nhiều.!!

Quang_Hải · 15/12/14

trananhtommy đã viết:
Oái oái, Bác ơi giúp E thêm chút nữa..

Chả là điểm các môn không nhập cùng 1 lúc. VD: Hôm nay nhập điểm môn toán, 3 ngày sau nhập điểm môn TA. Như vậy 3 ngày sau khi nhập môn TA và để trống ở Môn Toán thì nó lại xóa mất điểm môn Toán đã nhập của Cô ấy.

Bác giúp E thêm chút nữa là nếu Ô nào để trống thì giữ nguyên dữ liệu đã nhập, không ghi đè lên nữa có được không ạ.

Cảm ơn các Bác nhiều.!!

PHP:

Private Sub CommandButton1_Click()
If Chk = False Then Auto_Open
Dim dk$, rng As Range, r, c
dk = [C7] & [C8] & [C9]
If Dic.exists(dk) Then
   r = Dic.Item(dk)
   For c = 6 To 9
      If Sheet3.Cells(r, c) = "" Then
        Sheet3.Cells(r, c) = Cells(c + 4, 3)
      End If
   Next
   [C7:C13].ClearContents
   MsgBox "Updated"
Else
   MsgBox "Thông tin không khop"
End If
End Sub

trananhtommy · 15/12/14

Dạ cám ơn Bác - quá chuẩn rồi Bác ạ.

Tiện đây, cho E hỏi nốt - để sau tự xử lý, đỡ phải nhờ vả các Bác nhiều. Bác bớt chút time chỉ thêm cho E được không...?

Giả sử E muốn thêm 2 ô nữa trong sheet "Cap nhat bo sung" để nhập liệu. Các Ô bổ sung là: C18, C23

Giá trị các Ô này gán vào các cột K, O trong sheet "Dulieu" thì E cần thay đổi và sửa những gì trong Marco của Bác ạ... Trình độ a bờ cờ mong Bác thông cảm... E định tự tìm nhưng nhìn như ma trận.. hi hii

E xin cảm ơn Bác trước nha.!!!

trananhtommy · 16/12/14

Bác Quanghai1969 chỉ nốt giúp E được không ạ. Ngày ngóng Bác mấy chục lần $-\\/.$

Quang_Hải · 16/12/14

trananhtommy đã viết:
Bác Quanghai1969 chỉ nốt giúp E được không ạ. Ngày ngóng Bác mấy chục lần $-\\/.$

Xin lỗi nhé. Mình có cái tật vầy nè: "Khi 1 dòng nước đã phiêu lưu ngàn bến lạ, thì không bao giờ trở lại nhịp cầu đã lỡ 1 lần qua."
Cho nên không viết tiếp đâu. Ai kêu bạn lúc đầu không yêu cầu hỗ trợ 1 lần làm chi, giờ ráng chịu. Hoặc tự xử, hoặc chờ thành viên khác nhé.

trananhtommy · 16/12/14

quanghai1969 đã viết:
Xin lỗi nhé. Mình có cái tật vầy nè: "Khi 1 dòng nước đã phiêu lưu ngàn bến lạ, thì không bao giờ trở lại nhịp cầu đã lỡ 1 lần qua."
Cho nên không viết tiếp đâu. Ai kêu bạn lúc đầu không yêu cầu hỗ trợ 1 lần làm chi, giờ ráng chịu. Hoặc tự xử, hoặc chờ thành viên khác nhé.

Thực ra E cũng không hỏi viết tiếp ạ. E chỉ hỏi cách để tùy biến sau này có thể tự sửa mà không cần hỏi han nhờ đến các Bác nữa thôi.

Người biết mất 30s để xử lý và chỉ cho người không biết. Người không biết có mò mẫm cả tháng chả đâu vào với đâu... hu hu..

Dù sao cũng cảm ơn Bác nhiều nhiều. @#!^%

be_09 · 16/12/14

trananhtommy đã viết:
Dạ, đúng ý Cô ấy rồi. Cảm ơn Bác nhiều lắm ạ. Marco hay quá....

Không cần Macro bạn vẫn có Form nhập liệu hấp dẫn hơn sheet Form.

Click dòng 4 sheet Du lieu, từ menu vào Data > Form.... sẽ có ngay cái Form nhập liệu với nhiều chức năng, bạn nghiên cứu các thao tác rồi hướng dẫn cô giáo thực hiện.

trananhtommy · 16/12/14

be09 đã viết:
Không cần Macro bạn vẫn có Form nhập liệu hấp dẫn hơn sheet Form.

Không ổn Bác ạ, dễ nhầm lẫn lắm...., tks Bác

Nhờ các Bác giúp Cô giáo nhà em 1 marco nhập liệu với ạ. (1 người xem)

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

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

File đính kèm

I don't program, I beat code into submission!!!

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

I don't program, I beat code into submission!!!

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

Thành viên gạo cội

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

Thành viên gạo cội

File đính kèm

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

I don't program, I beat code into submission!!!

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

Thành viên gạo cội

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

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

Thành viên gạo cội

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

Biên Hòa, Đồng Nai

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

Thời gian đếm ngược.