Viết đoạn code cho nút lệnh SAVE ?

[van80]

Chào các anh, chị trên diễn đàn !
Nhờ anh, chị viết dùm code cho nút lệnh SAVE
Tôi xin trích dẫn như sau:
Chương trình này gồm 2 sheet: một sheet(data) và một sheet(xem) và có 2 nút lệnh: Xem và SAVE
Muốn xem hồ sơ của học sinh thì gõ mã số của HS vào ô P10 và Click nút Xem
Vấn đề tôi đặt ra ở đây là bước sang năm học mới cập nhật thêm số liệu
Ví dụ năm học 13-14 HS lên lớp hay ở lại thì tôi gõ vào cột tương ứng của năm học (F10) 9A
Click SAVE thì số liệu cập nhật vào sheet(data) ngay đúng vị trí ban đầu ( vị trí ban đầu ở dòng 11 thì phải SAVE ở đúng vị trí dòng 11)
Nút lệnh Xem chạy được rồi , nhờ các Anh, Chị viết dùm nút lệnh SAVE
Trân trọng cám ơn !
File đính kèm :View attachment 13949

 

[van80]

Ðề: Viết đoạn code cho nút lệnh SAVE ?

Chào các anh, chị trên diễn đàn !
Nhờ anh, chị viết dùm code cho nút lệnh SAVE
Tôi xin trích dẫn như sau:
Chương trình này gồm 2 sheet: một sheet(data) và một sheet(xem) và có 2 nút lệnh: Xem và SAVE
Muốn xem hồ sơ của học sinh thì gõ mã số của HS vào ô P10 và Click nút Xem
Vấn đề tôi đặt ra ở đây là bước sang năm học mới cập nhật thêm số liệu
Ví dụ năm học 13-14 HS lên lớp hay ở lại thì tôi gõ vào cột tương ứng của năm học (F10) 9A
Click SAVE thì số liệu cập nhật vào sheet(data) ngay đúng vị trí ban đầu ( vị trí ban đầu ở dòng 11 thì phải SAVE ở đúng vị trí dòng 11)
Nút lệnh Xem chạy được rồi , nhờ các Anh, Chị viết dùm nút lệnh SAVE
Trân trọng cám ơn !
File đính kèm :View attachment 13949

Lâu rồi sao không thấy ai giúp mình vậy ?

 

[be09]

Ðề: Viết đoạn code cho nút lệnh SAVE ?

Đọc bài này thì biết tại sao liền.

http://www.danketoan.com/forum/chia-se-cung-dan-nha-ke/tai-sao-thieu-loi-cam.199723.html

 

[van80]

Ðề: Viết đoạn code cho nút lệnh SAVE ?

Đọc bài này thì biết tại sao liền.

http://www.danketoan.com/forum/chia-se-cung-dan-nha-ke/tai-sao-thieu-loi-cam.199723.html

Lâu rồi sao không thấy ai giúp mình vậy ? Mình gởi lời cảm ơn đến tất cả thành viên trên diễn đàn.

 

[van80]

Ðề: Viết đoạn code cho nút lệnh SAVE ?

Chị ơi, chị phải nhấn nút cảm ơn ở sau mỗi bài gửi của thành viên ý ah. Cái đó là một phần động lực để các anh chị có thêm tinh thần mà giúp đỡ chị đó !

Cám ơn bạn động viên !

 

[be09]

Ðề: Viết đoạn code cho nút lệnh SAVE ?

Chào các anh, chị trên diễn đàn !
Nhờ anh, chị viết dùm code cho nút lệnh SAVE
Tôi xin trích dẫn như sau:
Chương trình này gồm 2 sheet: một sheet(data) và một sheet(xem) và có 2 nút lệnh: Xem và SAVE
Muốn xem hồ sơ của học sinh thì gõ mã số của HS vào ô P10 và Click nút Xem
Vấn đề tôi đặt ra ở đây là bước sang năm học mới cập nhật thêm số liệu
Ví dụ năm học 13-14 HS lên lớp hay ở lại thì tôi gõ vào cột tương ứng của năm học (F10) 9A
Click SAVE thì số liệu cập nhật vào sheet(data) ngay đúng vị trí ban đầu ( vị trí ban đầu ở dòng 11 thì phải SAVE ở đúng vị trí dòng 11)
Nút lệnh Xem chạy được rồi , nhờ các Anh, Chị viết dùm nút lệnh SAVE
Trân trọng cám ơn !
File đính kèm :View attachment 13949

Anh cũng đã đọc bài của em trên diễn đàn Giải pháp Excel và ở đây nhưng không thấy ai giúp, vì các nguyên do sau:
Em thiết kế biểu hơi rườm rà và có những tiêu chí như tên trường, tên lớp vậy nhập tên trường ở cột nào, tên lớp cột nào, còn năm học theo ý anh góp ý là chỉ làm 1 cột là đủ vì mỗi học sinh mỗi năm chỉ học có 1 trường nếu chuyển chỗ khác thì ghi chuyển trường là đủ và đâu cần theo dõi nữa..v..v...
Tốt nhất là em nêu cụ thể công việc em cần theo dõi, tổng hợp báo cáo hoặc làm giấy mời phụ huynh học sinh thì mới biết mà giúp thiết kế lại cho phù hợp rồi mới tính đến viết Code.

Em làm ở Chi cục Thống kê à?

 

[van80]

Ðề: Viết đoạn code cho nút lệnh SAVE ?

Anh cũng đã đọc bài của em trên diễn đàn Giải pháp Excel và ở đây nhưng không thấy ai giúp, vì các nguyên do sau:
Em thiết kế biểu hơi rườm rà và có những tiêu chí như tên trường, tên lớp vậy nhập tên trường ở cột nào, tên lớp cột nào, còn năm học theo ý anh góp ý là chỉ làm 1 cột là đủ vì mỗi học sinh mỗi năm chỉ học có 1 trường nếu chuyển chỗ khác thì ghi chuyển trường là đủ và đâu cần theo dõi nữa..v..v...
Tốt nhất là em nêu cụ thể công việc em cần theo dõi, tổng hợp báo cáo hoặc làm giấy mời phụ huynh học sinh thì mới biết mà giúp thiết kế lại cho phù hợp rồi mới tính đến viết Code.

Em làm ở Chi cục Thống kê à?

Cám ơn anh đã góp ý. E là cán bộ làm công tác phổ cập THCS. vì số liệu phải lưu trữ lại để mà làm báo cáo thống kê. Mẫu thiết kế này không thể thay đổi được anh ơi.Trên diễn đàn excel em cũng có hỏi và đã có câu trả lời rồi anh ơi. Cám ơn mọi người đã góp ý cho mình.

 

[van80]

Ðề: Viết cho bạn đoạn code đây, xài thử

Option Explicit                 '<=|'
Private Sub CommandButton1_Click()
 Dim Sh As Worksheet, Rng As Range, sRng As Range
 
 Set Sh = ThisWorkbook.Worksheets("data")
 With Sh.[P7]
    Set Rng = .Resize(.CurrentRegion.Rows.Count)
 End With
 Set sRng = Rng.Find([P10].Value, , xlFormulas, xlWhole)
 If Not sRng Is Nothing Then
    Sh.Cells(sRng.Row, "B").Resize(, 14).Value = [B10:o10].Value
 End If
End Sub

Với tác giả topic mình muốn góp vài í, từ lớn đến nhò, như sau:

(N) Tên macro không nên là Xemhs, mà nên là XemHS

(L) Luôn lúc nào chúng ta nên xài "Option Explicit" trong chương trình' điều này chỉ mất vài giây; Nhưng không xài nó bạn có thể mất hàng giờ bỡi sự lộn tùng xèn của các dữ liệu chứa trong nó

(N) Trên các trang tính ta không nên format cả dòng tô đậm, mà chỉ nên tô những dòng có dữ liệu mà thôi; Sự tùy tiện sẽ làm bạn không tiến xa được trong VBA sau này!

(L) Một CSDL chuẩn sẽ không có trống nguyên dòng bao giờ & rất ít khi để trống, trừ fi không biết về dữ liệu đó

(L) Không thể ngờ được là nhiều học sinh trong CSDL của bạn lài không có mã số; Vậy thì số HS này sẽ được quản lý ra sao?

. . . . .

Hẹn sớm gặp lại

Cám ơn bạn đã góp ý. Đoạn code của bạn chạy rất tuyệt vời ! Nhưng còn các ô h3, o3, g4, n4,g5, ọ và q10 không cật nhật được. Bạm giúp dùm mình ở chỗ này đi. Thân chào bạn !

 

[van80]

Ðề: Viết đoạn code cho nút lệnh SAVE ?

Mình thấy bạn viết được 1 nữa đoạn đường iêu cầu rồi còn gì!

Bạn xem & sửa tiếp 1 câu lệnh trong đó đi nha

 If Not sRng Is Nothing Then
    Sh.Cells(sRng.Row, "B").Resize(, 15).Value = [B10:P10].Value              [COLOR="red"] '<=|'[/COLOR]
    sRng.Offset(, 3).Value = [H3].Value            [COLOR="deepskyblue"] 'Chu Ho'[/COLOR]    
    sRng.Offset(, 6).Value = [G4].Value             [COLOR="deepskyblue"]''Dia Chi'[/COLOR]
    sRng.Offset(, 4).Value = [G5].Value            [COLOR="royalblue"] 'Ho Só'[/COLOR]
    sRng.Offset(, 2).Value = [o3].Value             [COLOR="blue"]'Ten Cha Me'[/COLOR]    
    sRng.Offset(, 7).Value = [N4].Value             [COLOR="blue"]''SDT'[/COLOR]    
    sRng.Offset(, 5).Value = [o5].Value            [COLOR="royalblue"] ''DBDTra'[/COLOR] 
  End If
End Sub

​

Thứ nữa là bạn nên nhờ hay dần dần tự dịch từ ngôn nhữ VBA sang tiếng Việt đi là vừa; Chớ ĩ lại vô GPE.COM hay ở đây hoài là không nên

Cám ơn bạn đã góp ý, Mình cũng biết một ít ngôn ngữ VBA nhưng vì đề tài khó quá nên mình nhờ giúp đỡ. Đêm qua mình cũng dựa vào đoạn code của bạn đã chỉnh sửa xong rồi. đây là đoạn code mình đã chỉnh sửa lại:
Dim Sh As Worksheet, Rng As Range, sRng As Range

Set Sh = ThisWorkbook.Worksheets("k3")
With Sh.[P7]
Set Rng = .Resize(.CurrentRegion.Rows.Count)
End With
Set sRng = Rng.Find([P10].Value, , xlFormulas, xlWhole)
If Not sRng Is Nothing Then
Sh.Cells(sRng.Row, "B").Resize(, 14).Value = [B1010].Value
Sh.Cells(sRng.Row, "Q").Resize(, 1).Value = [Q10].Value
Sh.Cells(sRng.Row, "S").Resize(, 1).Value = [H3].Value
Sh.Cells(sRng.Row, "R").Resize(, 1).Value = [O3].Value
Sh.Cells(sRng.Row, "V").Resize(, 1).Value = [G4].Value
Sh.Cells(sRng.Row, "W").Resize(, 1).Value = [N4].Value
Sh.Cells(sRng.Row, "T").Resize(, 1).Value = [G5].Value
Sh.Cells(sRng.Row, "U").Resize(, 1).Value = [O5].Value
End If
Range("B10:Q19").ClearContents
Range("H3,O5,G4,G5,N4,O3").ClearContents
MsgBox ("...Thành công..."), vbDefaultButton1, ("Thông báo !"): Range("H3").Select
Exit Sub
Mình còn 4 đề tài khó hơn nữa khả năng của mình thì có hạng mong rằng các bạn giúp đỡ mình. Thân chào các bạn!