-
07-12-2013, 06:45 AM #1
Junior Member
- Ngày tham gia
- Nov 2015
- Bài viết
- 4
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 13949View more random threads:
- Hợp nhất nhiều File vào 1 file
- Tặng các bạn làm ở Ngành TNMT File theo dõi hợp đồng Đo đạc
- Thắc mắc code
- Theo dõi thu học phí sinh viên
- Click vào Cell hiện ra cái lịch để nhập 1 ngày
- Tách họ và tên
- Tự động tăng số row
- Help Code VBA TH QuyI
- Mong các bạn giúp đỡ : Lập trình VBA cho excel " lọc danh sách nhân viện có cùng độ tuổi "
- Gán giá trị cho 1 cell
-
07-18-2013, 11:08 PM #2
Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: Viết đoạn code cho nút lệnh SAVE ?
Gửi bởi van80
-
07-18-2013, 11:35 PM #3
Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: 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.**************/forum/chia-se-cung-dan-nha-ke/tai-sao-thieu-loi-cam.199723.html
-
07-19-2013, 05:19 PM #4
Junior Member
- Ngày tham gia
- Nov 2015
- Bài viết
- 0
Ðề: Viết đoạn code cho nút lệnh SAVE ?
Gửi bởi be09
-
07-19-2013, 05:30 PM #5
Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: Viết đoạn code cho nút lệnh SAVE ?
Gửi bởi van80
-
07-20-2013, 05:38 PM #6
Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: Viết đoạn code cho nút lệnh SAVE ?
Gửi bởi linhung8589
-
07-20-2013, 06:28 PM #7
Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: Viết đoạn code cho nút lệnh SAVE ?
Gửi bởi van80
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ê à?
-
07-21-2013, 05:17 PM #8
Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: Viết đoạn code cho nút lệnh SAVE ?
Gửi bởi be09
-
07-22-2013, 04:12 PM #9
Junior Member
- Ngày tham gia
- Nov 2015
- Bài viết
- 1
Ðề: Viết cho bạn đoạn code đây, xài thử
Mã nguồn PHP:[COLOR=#000000]
Option Explicit [/COLOR][COLOR=#DD0000]'<=|' [/COLOR][COLOR=#007700]Private [/COLOR][COLOR=#0000BB]Sub CommandButton1_Click[/COLOR][COLOR=#007700]() [/COLOR][COLOR=#0000BB]Dim Sh [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Worksheet[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]Rng [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Range[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]sRng [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Range Set Sh [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]ThisWorkbook[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Worksheets[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"data"[/COLOR][COLOR=#007700]) [/COLOR][COLOR=#0000BB]With Sh[/COLOR][COLOR=#007700].[[/COLOR][COLOR=#0000BB]P7[/COLOR][COLOR=#007700]] [/COLOR][COLOR=#0000BB]Set Rng [/COLOR][COLOR=#007700]= .[/COLOR][COLOR=#0000BB]Resize[/COLOR][COLOR=#007700](.[/COLOR][COLOR=#0000BB]CurrentRegion[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Rows[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Count[/COLOR][COLOR=#007700]) [/COLOR][COLOR=#0000BB]End With Set sRng [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Rng[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Find[/COLOR][COLOR=#007700]([[/COLOR][COLOR=#0000BB]P10[/COLOR][COLOR=#007700]].[/COLOR][COLOR=#0000BB]Value[/COLOR][COLOR=#007700], , [/COLOR][COLOR=#0000BB]xlFormulas[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]xlWhole[/COLOR][COLOR=#007700]) If [/COLOR][COLOR=#0000BB]Not sRng Is Nothing Then Sh[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Cells[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]sRng[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Row[/COLOR][COLOR=#007700], [/COLOR][COLOR=#DD0000]"B"[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Resize[/COLOR][COLOR=#007700](, [/COLOR][COLOR=#0000BB]14[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Value [/COLOR][COLOR=#007700]= [[/COLOR][COLOR=#0000BB]B10[/COLOR][COLOR=#007700]:[/COLOR][COLOR=#0000BB]o10[/COLOR][COLOR=#007700]].[/COLOR][COLOR=#0000BB]Value End [/COLOR][COLOR=#007700]If [/COLOR][COLOR=#0000BB]End Sub [/COLOR]
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
:cogidau:
-
07-23-2013, 03:57 AM #10
Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: Viết cho bạn đoạn code đây, xài thử
Gửi bởi TQChanh
Giá thu hẹp vùng kín và thu hẹp vùng kín ở đâu tốt nhất Đà Nẵng? Đây là chủ đề được rất nhiều chị em quan tâm, trong quá trình tìm hiểu để làm đẹp vùng tam giác nhớ thương của mình. Hãy cùng tìm hiểu...
Giá Thu Hẹp Vùng Kín và Thu Hẹp Vùng Kín Ở Đâu Tốt Nhất Đà Nẵng