Nhờ hỗ trợ lấy dữ liệu theo điều kiện (1 người xem)

[ngmcuongbl]

Chào anh/chị
- Em đang làm cái file chấm điểm, bị vướng trường hợp khi lưu excel cứ mặc định lưu tiếp theo không báo lưu trùng được (số sáng kiến và người chấm nếu đã có rồi thì ghi đè lên, nhưng nó lại ghi tiếp thêm 1 dòng mới).
- Khi chọn số sáng kiến tại ô F7 thì nếu chưa chấm điểm hệ thống hiển thị câu mời bạn chấm điểm, còn nếu có điểm rồi thì load điểm từ sheet diemchitiet qua
Nhờ các anh/chị giúp đỡ, xin cám ơn!

 

[TongDe]

Đang rảnh cũng ráng giúp bạn 1 tí…

Tham gia diễn đàn đã lâu nhưng file của bạn quả là làm khó chính mình..

Cách giải quyết sao cho đơn giản và hiệu quả:

• Bê nguyên dữ liệu không công thức lưu sang phải…
• Muốn coi cái nào thì cho hiện lại : hàm sum tự tính lại

Mở file lên và đọc sheet Hướng dẫn…

Còn gì thắc mắc thì hỏi tiếp nha!

 

[ngmcuongbl]

Đang rảnh cũng ráng giúp bạn 1 tí…

Tham gia diễn đàn đã lâu nhưng file của bạn quả là làm khó chính mình..

Cách giải quyết sao cho đơn giản và hiệu quả:

• Bê nguyên dữ liệu không công thức lưu sang phải…
• Muốn coi cái nào thì cho hiện lại : hàm sum tự tính lại

Mở file lên và đọc sheet Hướng dẫn…

Còn gì thắc mắc thì hỏi tiếp nha!

Hi anh, em lưu riêng vì có nhiều thành viên chấm điểm, khi chấm xong em sẽ chép tổng hợp vô sheet diemchitiet để theo dõi, đoạn code để lưu này đang có vấn đề không lưu được các dữ liệu tại ô E10, E11, E12 và D10, các ô khác thì lưu bình thường

Sub Button59_Click()



    Sheets("chamsangkien").Select
  
    sosk = Range("F7").Value
    tensk = Range("A7").Value
    trinhbay = Range("E10").Value
    diemtbay1 = Range("E11").Value
    diemtbay2 = Range("E12").Value
    nhanxet1 = Range("D10").Value
    lydosk = Range("E14").Value
    diemldo1 = Range("E15").Value
    diemldo2 = Range("E16").Value
    nhanxet2 = Range("D14").Value
    noidungsk = Range("E17").Value
    diemndung1 = Range("E18").Value
    diemndung2 = Range("E19").Value
    nhanxet3 = Range("D17").Value
    tailieu = Range("E20").Value
    nhanxet4 = Range("D20").Value
    hieuqua = Range("E21").Value
    diemhqua1 = Range("E22").Value
    diemhqua2 = Range("E23").Value
    nhanxet5 = Range("D21").Value
    tongdiem = Range("E24").Value
    xeploai = Range("E27").Value
    nhanxet = Range("A34").Value
    nguoicham = Range("D33").Value
    Sheets("diemchitiet").Select
    n = Range("F1").Value
    Range("A2").Select
    ActiveCell.Offset(n + 3, 0).Value = sosk
    ActiveCell.Offset(n + 3, 1).Value = tensk
    ActiveCell.Offset(n + 3, 2).Value = trinhbay
    ActiveCell.Offset(n + 3, 3).Value = diemtbay1
    ActiveCell.Offset(n + 3, 4).Value = diemtbay2
    ActiveCell.Offset(n + 3, 5).Value = nhanxet1
    ActiveCell.Offset(n + 3, 6).Value = lydosk
    ActiveCell.Offset(n + 3, 7).Value = diemldo1
    ActiveCell.Offset(n + 3, 8).Value = diemldo2
    ActiveCell.Offset(n + 3, 9).Value = nhanxet2
    ActiveCell.Offset(n + 3, 10).Value = noidungsk
    ActiveCell.Offset(n + 3, 11).Value = diemndung1
    ActiveCell.Offset(n + 3, 12).Value = diemndung2
    ActiveCell.Offset(n + 3, 13).Value = nhanxet3
    ActiveCell.Offset(n + 3, 14).Value = tailieu
    ActiveCell.Offset(n + 3, 15).Value = nhanxet4
    ActiveCell.Offset(n + 3, 16).Value = hieuqua
    ActiveCell.Offset(n + 3, 17).Value = diemhqua1
    ActiveCell.Offset(n + 3, 18).Value = diemhqua2
    ActiveCell.Offset(n + 3, 19).Value = nhanxet5
    ActiveCell.Offset(n + 3, 20).Value = tongdiem
    ActiveCell.Offset(n + 3, 21).Value = xeploai
    ActiveCell.Offset(n + 3, 22).Value = nhanxet
    ActiveCell.Offset(n + 3, 23).Value = nguoicham
   Sheets("diemchitiet").Select
    Range("F7").Select
    Selection.ClearContents
    Range("A7").Select
    Selection.ClearContents
    Range("E10").Select
    Selection.ClearContents
    Range("E11").Select
    Selection.ClearContents
     Range("E12").Select
    Selection.ClearContents
     Range("D10").Select
    Selection.ClearContents
     Range("E14").Select
    Selection.ClearContents
     Range("E15").Select
    Selection.ClearContents
     Range("E16").Select
    Selection.ClearContents
     Range("D14").Select
    Selection.ClearContents
     Range("E17").Select
    Selection.ClearContents
     Range("E18").Select
    Selection.ClearContents
     Range("E19").Select
    Selection.ClearContents
     Range("D17").Select
    Selection.ClearContents
     Range("E20").Select
    Selection.ClearContents
     Range("D20").Select
    Selection.ClearContents
     Range("E21").Select
    Selection.ClearContents
     Range("E22").Select
    Selection.ClearContents
     Range("E23").Select
     Selection.ClearContents
      Range("D21").Select
    Selection.ClearContents
     Range("E24").Select
      Selection.ClearContents
      Range("E27").Select
    Selection.ClearContents
       Range("A34").Select
    Selection.ClearContents
     Range("D33").Select
    Selection.ClearContents
         Range("A2").Select
   
End Sub

 

[be_09]

Hi anh, em lưu riêng vì có nhiều thành viên chấm điểm, khi chấm xong em sẽ chép tổng hợp vô sheet diemchitiet để theo dõi, đoạn code để lưu này đang có vấn đề không lưu được các dữ liệu tại ô E10, E11, E12 và D10, các ô khác thì lưu bình thường
Sub Button59_Click()
........................................................
End Sub

Góp ý cho bạn:
1/ Bạn nên sử dụng BB codes như thế này rồi paste code vào chỗ chấm, chấm (nhớ xóa khoảng trắng sau chữ CODE đầu).
[CODE ] ......................[/CODE]

2/ Những Cell nào của sheet CHAMSANGKIEN (có 9 Cell tô màu), cần lưu vào sheet DIEMCHITIET (có 6 Cell tô màu) bạn cần tô màu vàng cho dễ nhìn, số lượng Cell bạn tô màu không thống nhất).
3/ Code dùng lưu và truy vấn không nhiều dòng như bạn làm đâu.
4/ Các sheet khác tôi chưa xem nên không góp ý.

 

[TongDe]

'Rút gọn đọan code

Sub Button59_Click()

With Sheets("diemchitiet")
n = . Range("F1").Value
. Range("A2").Offset(n + 3, 0).Value = Sheets("chamsangkien"). Range("F7").Value
. Range("A2").Offset(n + 3, 1).Value = Sheets("chamsangkien"). [A7]
---------------
End with

'Trở về sheet diemchitiet để xóa nội dung

With Sheets("diemchitiet")
.Range("F7,E10:e12,d10,e14:e15").ClearContent
.Range("A2").Select
End with

End Sub

 

[TongDe]

Chào anh/chị
- Em đang làm cái file chấm điểm, bị vướng trường hợp khi lưu excel cứ mặc định lưu tiếp theo không báo lưu trùng được (số sáng kiến và người chấm nếu đã có rồi thì ghi đè lên, nhưng nó lại ghi tiếp thêm 1 dòng mới).
- Khi chọn số sáng kiến tại ô F7 thì nếu chưa chấm điểm hệ thống hiển thị câu mời bạn chấm điểm, còn nếu có điểm rồi thì load điểm từ sheet diemchitiet qua
Nhờ các anh/chị giúp đỡ, xin cám ơn!

Thử giải vấn đề của bạn theo cách hiểu của mình, nếu rảnh thì cho ý kiến học hỏi nha!