Xin trợ giúp làm PCGD (5 người xem)

truongtrungviet · 17/10/11

Xin anh em hỗ trợ mình trong quá trình thống kê trong file đính kèm. Yêu cầu đưa ra như sau:
1. Những thông tin được nhập từ phiếu điều tra sẽ được nạp tự động vào sổ phổ cập như:

Đội
Thôn
Số phiếu
Thông tin chủ hộ
Các thành viên trong hộ và ngày tháng năm sinh.

Xin chân thành cảm ơn.

buithinhvan77 · 18/10/11

truongtrungviet đã viết:
Xin anh em hỗ trợ mình trong quá trình thống kê trong file đính kèm. Yêu cầu đưa ra như sau:
1. Những thông tin được nhập từ phiếu điều tra sẽ được nạp tự động vào sổ phổ cập như:

Đội

Thôn

Số phiếu

Thông tin chủ hộ

Các thành viên trong hộ và ngày tháng năm sinh.

Xin chân thành cảm ơn.

Bác phải ghi rõ yêu cầu chứ! Tốt nhất là đưa thêm dữ liệu mong muốn từ Sheet nào vào sheet nào? lấy bao nhiêu?... vào trong file, mọi người mới giúp được. Chứ nếu hiểu sai yêu cầu đến lúc sửa mệt lắm!

truongtrungviet · 18/10/11

Cảm ơn bạn đã trả lời. Mình muốn dữ liệu từ Sheet SOPHOCAP vào sheet PHIEUDIEUTRA
Những dữ liệu cần chuyển qua ở sổ PC mình đã bôi vàng ở file đính kèm.

dvu58 · 18/10/11

truongtrungviet đã viết:
Cảm ơn bạn đã trả lời. Mình muốn dữ liệu từ Sheet SOPHOCAP vào sheet PHIEUDIEUTRA
Những dữ liệu cần chuyển qua ở sổ PC mình đã bôi vàng ở file đính kèm.

Kính gửi thầy truongtrungviet

Hình như bị ngược thì phải: Đúng ra là phải lấy dữ liệu từ Phiếu điều tra "đổ" vào Sổ phổ cập mới đúng chứ, phải không thầy!?

truongtrungviet · 18/10/11

Nếu làm được vậy thì rất tiện cho người nhập liệu. Người nhập có thể nhập vào SOPHOCAP và từ SOPHOCAP lấy dữ liệu qua PHIEUDIEUTRA. Nhưng sợ cách này khó làm nên mình mới tính lấy từ Sheet SOPHOCAP vào sheet PHIEUDIEUTRA.
Anh em nào làm được cách lấy từ Sheet PHIEUDIEUTRA vào sheet SOPHOCAP thì tốt quá. Xin chân thành cảm ơn đã trợ giúp cho mình.

dmtcvn · 18/10/11

Cũng định giúp thầy nhưng không hiểu cao Sub DongCuoi() không chạy, xin nhờ các Pro giúp.

truongtrungviet · 18/10/11

Mình cho chạy Macro Sub DongCuoi thấy chạy đến dòng cuối bình thường mà.
Mình thử chạy nhập thì nó nhập qua OK nhưng cột: XÓM - THÔN - TÊN CHỦ HỘ - SỐ PHIẾU ĐIỀU TRA qua chỉ 1 dòng thôi.
VD: Hộ ông A có 3 người con. Như vậy thì khi lọc tên chủ hộ nó chỉ nhận có 1 người con ( mà đúng ra phải là 3).
Và một lưu ý nữa: PHIẾU ĐIỀU TRA số lượng rất lớn. nên sau này mình coppy nó xuống dưới ( Như vật ở một Sheet PHIEUDIEUTRA sẽ có nhiều PHIẾU)
HOặc bạn có thể cho dữ liệu từ PHIEUDIEUTRA sang SOPHOCAP giúp mình thì càng tốt.
Bạn nghiên cứu giúp mình với nhé. Cảm ơn bạn rất nhiều.

Ba Tê · 18/10/11

truongtrungviet đã viết:
Mình cho chạy Macro Sub DongCuoi thấy chạy đến dòng cuối bình thường mà.
Mình thử chạy nhập thì nó nhập qua OK nhưng cột: XÓM - THÔN - TÊN CHỦ HỘ - SỐ PHIẾU ĐIỀU TRA qua chỉ 1 dòng thôi.
VD: Hộ ông A có 3 người con. Như vậy thì khi lọc tên chủ hộ nó chỉ nhận có 1 người con ( mà đúng ra phải là 3).
Và một lưu ý nữa: PHIẾU ĐIỀU TRA số lượng rất lớn. nên sau này mình coppy nó xuống dưới ( Như vật ở một Sheet PHIEUDIEUTRA sẽ có nhiều PHIẾU)
HOặc bạn có thể cho dữ liệu từ PHIEUDIEUTRA sang SOPHOCAP giúp mình thì càng tốt.
Bạn nghiên cứu giúp mình với nhé. Cảm ơn bạn rất nhiều.

Rốt lại cũng chưa biết bạn muốn Nhập sheet nào, ghi sang sheet nào.
Bây giờ xem cái này, nhập trong sheet PHIEUDIEUTRA, xong ấn nút, nó sẽ ghi dữ liệu đã nhập nối thêm vào sheet SOPHOCAP.
Muốn sau khi nhập xong rồi thì xóa hết các dữ liệu có trên sheet PHIEUDIEUTRA thì xài luôn dòng cuối trong Sub Nhap.

SA_DQ · 18/10/11

Thử với 2 fiếu điều tra thì OK, bạn thêm nữa xem sao

Với qui ước là 'Số phiếu' fải nằm trên cùng cột như hiện tại

Fím nóng để chạy macro là {CTRL}+{SHIFT}+F

buithinhvan77 · 18/10/11

Ba Tê đã viết:
Rốt lại cũng chưa biết bạn muốn Nhập sheet nào, ghi sang sheet nào.
Bây giờ xem cái này, nhập trong sheet PHIEUDIEUTRA, xong ấn nút, nó sẽ ghi dữ liệu đã nhập nối thêm vào sheet SOPHOCAP.
Muốn sau khi nhập xong rồi thì xóa hết các dữ liệu có trên sheet PHIEUDIEUTRA thì xài luôn dòng cuối trong Sub Nhap.

Bác ơi code của bác nhỡ nháy 2, 3 cái nó cứ sang ào ào cả đống bác ạ!

truongtrungviet · 18/10/11

Cảm ơn bạn!
Bạn làm rất đúng ý định mình đưa ra, bạn có thể giúp mình vừa có thể đưa dữ liệu qua ( sau đó xóa dữ liệu phiếu như ý bạn) và cũng vừa lưu sang một sheet khác như file đính kèm của mình được không? Xin cảm ơn các bạn.

concogia · 18/10/11

truongtrungviet đã viết:
Cảm ơn bạn!
Bạn làm rất đúng ý định mình đưa ra, bạn có thể giúp mình vừa có thể đưa dữ liệu qua ( sau đó xóa dữ liệu phiếu như ý bạn) và cũng vừa lưu sang một sheet khác như file đính kèm của mình được không? Xin cảm ơn các bạn.

Thêm trong code của TTT tý tẹo

Mã:

Public Sub Nhap()
    Dim nN As Double, mM As Double
    Range("B10").Select
    nN = Range(Selection, Selection.End(xlDown)).Count
        With Sheets("SOPHOCAP").Range("B100").End(xlUp)
            .Offset(1, 20).Resize(nN).Value = Sheets("PHIEUDIEUTRA").Range("D2").Value
            .Offset(1, 21).Resize(nN).Value = Sheets("PHIEUDIEUTRA").Range("D3").Value
            .Offset(1, 22).Resize(nN).Value = Sheets("PHIEUDIEUTRA").Range("J4").Value
            .Offset(1, 23).Resize(nN).Value = Sheets("PHIEUDIEUTRA").Range("V2").Value
            .Offset(1).Resize(nN, 20).Value = Sheets("PHIEUDIEUTRA").Range("B10").Resize(nN, 20).Value
        End With
    Range("B10").Resize(nN, 20).ClearContents
    [a1:v31].Copy Sheets("LUUPHIEUDIEUTRA").[A10000].End(xlUp)(3)
End Sub

Bạn chèn câu lệnh này vào trên dòng End Sub là Ok

[a1:v31].Copy Sheets("LUUPHIEUDIEUTRA").[A10000].End(xlUp)(3)

Hihi, được dịp Xì-Pam rồi
Trông hình bạn này gống "Lão Chết Tiệt" thật bà con ơi
Híc

truongtrungviet · 18/10/11

concogia đã viết:

Thêm trong code của TTT tý tẹo

Mã:

Public Sub Nhap()
    Dim nN As Double, mM As Double
    Range("B10").Select
    nN = Range(Selection, Selection.End(xlDown)).Count
        With Sheets("SOPHOCAP").Range("B100").End(xlUp)
            .Offset(1, 20).Resize(nN).Value = Sheets("PHIEUDIEUTRA").Range("D2").Value
            .Offset(1, 21).Resize(nN).Value = Sheets("PHIEUDIEUTRA").Range("D3").Value
            .Offset(1, 22).Resize(nN).Value = Sheets("PHIEUDIEUTRA").Range("J4").Value
            .Offset(1, 23).Resize(nN).Value = Sheets("PHIEUDIEUTRA").Range("V2").Value
            .Offset(1).Resize(nN, 20).Value = Sheets("PHIEUDIEUTRA").Range("B10").Resize(nN, 20).Value
        End With
    Range("B10").Resize(nN, 20).ClearContents
    [a1:v31].Copy Sheets("LUUPHIEUDIEUTRA").[A10000].End(xlUp)(3)
End Sub

Bạn chèn câu lệnh này vào trên dòng End Sub là Ok

Hihi, được dịp Xì-Pam rồi
Trông hình bạn này gống "Lão Chết Tiệt" thật bà con ơi
Híc

Chỉ được có 1 lần thôi bạn ơi. Lần thứ 2 nó không chèn tiếp theo nữa mà nó báo lỗi.

concogia · 18/10/11

truongtrungviet đã viết:
Chỉ được có 1 lần thôi bạn ơi. Lần thứ 2 nó không chèn tiếp theo nữa mà nó báo lỗi.

Hihi. "Xó Zì" bạn

Mã:

Public Sub Nhap()
    Dim nN As Double, mM As Double
    Range("B10").Select
    nN = Range(Selection, Selection.End(xlDown)).Count
        With Sheets("SOPHOCAP").Range("B100").End(xlUp)
            .Offset(1, 20).Resize(nN).Value = Sheets("PHIEUDIEUTRA").Range("D2").Value
            .Offset(1, 21).Resize(nN).Value = Sheets("PHIEUDIEUTRA").Range("D3").Value
            .Offset(1, 22).Resize(nN).Value = Sheets("PHIEUDIEUTRA").Range("J4").Value
            .Offset(1, 23).Resize(nN).Value = Sheets("PHIEUDIEUTRA").Range("V2").Value
            .Offset(1).Resize(nN, 20).Value = Sheets("PHIEUDIEUTRA").Range("B10").Resize(nN, 20).Value
        End With    
    [a1:v31].Copy Sheets("LUUPHIEUDIEUTRA").[A10000].End(xlUp)(3)
    Range("B10").Resize(nN, 20).ClearContents
End Sub

[a1:v31].Copy Sheets("LUUPHIEUDIEUTRA").[A10000].End(xlUp)(3)

Đoạn này là lưu phiếu sang sheet3

Range("B10").Resize(nN, 20).ClearContents

Đoạn này là xóa Phiếu Điều tra
Chỉnh lại đoạn lưu trên đoạn xóa
Vấn đề báo lỗi là do trong Phiếu điều tra của bạn chưa có dữ liệu sau khi xóa
Bạn thử lại nhé. Bài này còn phải làm lại nhiều mới ổn được
Thân

truongtrungviet · 18/10/11

COde của bác SA_DQ là ok nhất, mỗi tội người nhập phải copy rất nhiều phiếu điều tra. Nếu bài viết của bác SA_DQ + bài viết của Ba Tê thì mình nghĩ chương trình sẽ rất tuyệt vời cho người nhập. Xin chân thành biết ơn sự chia sẻ của các bạn.
http://www.giaiphapexcel.com/forum/member.php?10-SA_DQ

Ba Tê · 18/10/11

truongtrungviet đã viết:
COde của bác SA_DQ là ok nhất, mỗi tội người nhập phải copy rất nhiều phiếu điều tra. Nếu bài viết của bác SA_DQ + bài viết của Ba Tê thì mình nghĩ chương trình sẽ rất tuyệt vời cho người nhập. Xin chân thành biết ơn sự chia sẻ của các bạn.

Sao lại phải lưu thêm từng phiếu như thế nhỉ, cả trăm phiếu thì có nặng nề quá không?
Lập một phiếu thôi, muốn xem phiếu nào thì chọn số phiếu đó để xem hay in lại vẫn được mà.
Gõ số phiếu vào ô V2 của sheet LUUPHIEUDIEUTRA để xem nhé.
Đã chỉnh lại, khi ấn nút sẽ xóa tất cả dữ liệu trong phiếu cũ, số phiếu cộng thêm 1.

truongtrungviet · 18/10/11

Ba Tê đã viết:
Sao lại phải lưu thêm từng phiếu như thế nhỉ, cả trăm phiếu thì có nặng nề quá không?
Lập một phiếu thôi, muốn xem phiếu nào thì chọn số phiếu đó để xem hay in lại vẫn được mà.
Gõ số phiếu vào ô V2 của sheet LUUPHIEUDIEUTRA để xem nhé.
Đã chỉnh lại, khi ấn nút sẽ xóa tất cả dữ liệu trong phiếu cũ, số phiếu cộng thêm 1.

Cách làm của bạn quá tốt nhưng sao cứ nhập đến phiếu thứ 5 ở sheet PHIEUDIEUTRA là bị lỗi bạn ơi. ( Trong khi PCGD thì có hàng nghìn phiếu)

Ba Tê · 19/10/11

truongtrungviet đã viết:
Cách làm của bạn quá tốt nhưng sao cứ nhập đến phiếu thứ 5 ở sheet PHIEUDIEUTRA là bị lỗi bạn ơi. ( Trong khi PCGD thì có hàng nghìn phiếu)

Không thấy bị lỗi.
Sheet PHIEUDIEUTRA đã nhập thử hơn 6 phiếu vẫn chạy.
Chí có sheet LUUPHIEUDIEUTRA, nếu chọn số phiếu chưa có lưu trong sheet SOPHOCAP sẽ có báo là Số phiếu này không có, nghĩa là phải chọn số phiếu khác đã được lưu trong SOPHOCAP.
Xem lại file này hoặc Bạn đưa cái file bị lỗi lên đây thử xem.

truongtrungviet · 19/10/11

File bạn vừa gởi cũng bị . Báo lối Range("B10").Resize(nN, 20).ClearContents<br>
<br>
ĐỘI SX ( Xóm, Tổ, Đường ): nhập 1 liên tục 5 lần báo lỗi.

Ba Tê · 19/10/11

truongtrungviet đã viết:
File bạn vừa gởi cũng bị . Báo lối Range("B10").Resize(nN, 20).ClearContents

ĐỘI SX ( Xóm, Tổ, Đường ): nhập 1 liên tục 5 lần báo lỗi.

Bạn đưa cái file mà bạn nhập bị lỗi lên đây xem, không hiểu được sai chỗ nào, chẳng có lý do gì chạy được 4 lần mà lần 5 bị lỗi.

Xin trợ giúp làm PCGD (5 người xem)

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

Thành viên bị đình chỉ hoạt động

Thành viên thường trực

Thành viên bị đình chỉ hoạt động

Thành viên thường trực

Thành viên bị đình chỉ hoạt động

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

File đính kèm

Thành viên bị đình chỉ hoạt động

Cạo Rồi Khỏi Gội

File đính kèm

/(hông là gì!

File đính kèm

Thành viên thường trực

Thành viên bị đình chỉ hoạt động

Gội rồi mới Cạo

Thành viên bị đình chỉ hoạt động

Gội rồi mới Cạo

Thành viên bị đình chỉ hoạt động

Cạo Rồi Khỏi Gội

File đính kèm

Thành viên bị đình chỉ hoạt động

Cạo Rồi Khỏi Gội

File đính kèm

Thành viên bị đình chỉ hoạt động

Cạo Rồi Khỏi Gội

Đếm ngược thời gian