Giúp mình viết VBA để rút trích 1 bảng (1 người xem)

[aiquocxp]

Minh có 1 bảng chính và 1 bảng rút trích xin các anh tạo dùm em 1 nút để trích là 1 ds đã cho ở bảng dưới với ĐK là hs thi lại

 

[cadafi]

Minh có 1 bảng chính và 1 bảng rút trích xin các anh tạo dùm em 1 nút để trích là 1 ds đã cho ở bảng dưới với ĐK là hs thi lại

Cái này không cần dùng "nút", dùng công thức cũng ra mà bạn. Xem file đính kèm nhé!

 

[huyen891977]

Tặng bạn cách dùng Advanced Filter nè (nếu có sai sót xin các cao thủ sửa giùm. Cám ơn nhiều)

 

[boyxin]

Tặng bạn cách dùng Advanced Filter nè (nếu có sai sót xin các cao thủ sửa giùm. Cám ơn nhiều)

Sửa lại code chút xíu cho gọn và kết quả đẹp

Sub Macro1()
    [A1:W11].AdvancedFilter 2, [AC1:AC2], [A17]
End Sub

 

[thunoka]

Nếu như muốn bảng trích không có dòng label thì phải làm sao vậy bạn?

 

[aiquocxp]

Rất cảm ơn các anh.
nhưng em muốn giữ nguyên công thức ở các trường TBCM, HL, Kết quả.
để khi HS thi lại em nhập điểm mới thì nó tự xét lại TBCM, HL và Kết quả luôn.
với lại em khóa sheet nó không cho rút trích vậy

 

[ndu96081631]

Theo như tác giã nói thì:
- Bảng tính này đang được Protect sheet với pass = 1
- Yêu cầu: Chỉ trích từ họ và tên đến môn NG và HK
Vậy theo tôi thì như vầy mới đúng nè

Sub Loc()
  On Error Resume Next
  Application.ScreenUpdating = False
  With Sheet1
    .Unprotect 1: .Range("A17").CurrentRegion.Clear
    With .Range("A1").CurrentRegion
      .AutoFilter 22, Right([A15], 8)
      Union(.Offset(, 1).Resize(, 16), .Offset(, 19).Resize(, 1)).Copy
    End With
    .Range("A17").PasteSpecial
    .AutoFilterMode = False: .Protect 1
  End With
  Application.ScreenUpdating = True
End Sub

 

[aiquocxp]

Rất cảm ơn anh
anh giúp dùm em tí nữa nhe. khi đã trích được rồi em muốn những môn đã trích có thể chỉnh sữa, những môn đó chỉ copy dữ liệu không copy công thức, còn các cột khác thì có công thức nhưng khoá, để xét KQ thi lại.
Mong anh giúp đỡ./.

 

[ndu96081631]

Rất cảm ơn anh
anh giúp dùm em tí nữa nhe. khi đã trích được rồi em muốn những môn đã trích có thể chỉnh sữa, những môn đó chỉ copy dữ liệu không copy công thức, còn các cột khác thì có công thức nhưng khoá, để xét KQ thi lại.
Mong anh giúp đỡ./.

Sorry... tôi quên vụ copy Value
Sửa lại thế này:

Sub Loc()
  On Error Resume Next
  Application.ScreenUpdating = False
  With Sheet1
    .Unprotect 1: .Range("A57").CurrentRegion.Clear
    With .Range("A1").CurrentRegion
      .AutoFilter 22, Right([A55], 8)
      .Offset(, 0).Resize(, 22).Copy
    End With
    .Range("A57").PasteSpecial
    .Range("A57").CurrentRegion.Offset(1, 3).Resize(, 14).Locked = False
    .AutoFilterMode = False: .Protect 1
  End With
  Application.ScreenUpdating = True
End Sub

 

[aiquocxp]

Anh ơi vùng rút trích vẫn còn công thức kèm theo các môn, anh thử lại dùm em với, chỗ học cuối cùng ngay môn Văn em có ban hành thử công thức ở trên, ở dưới vẫn còn

 

[ndu96081631]

Anh ơi vùng rút trích vẫn còn công thức kèm theo các môn, anh thử lại dùm em với, chỗ học cuối cùng ngay môn Văn em có ban hành thử công thức ở trên, ở dưới vẫn còn

Hic... lại post nhầm... bạn xem lại file này nhé

 

[aiquocxp]

file tại bài #9 là đúng nhưng công thức bên phần điểm các môn Toán, lý, .... NG vẫn còn tồn tại anh ơi. em lấy ví dụ: Học sinh cuối cùng có cột Văn em ban hành công thức xuống dưới vẫn còn. Mục đích của em là có 3 sheet HKI, HKII, CNam. vậy đây là sheet cả năm nên có CT như sau: ((HKII*2)+HKI)/3. Nếu trích như thế thì địa chỉ sẽ lấy khác, mong anh xem lại dùm em

 

[ndu96081631]

file tại bài #9 là đúng nhưng công thức bên phần điểm các môn Toán, lý, .... NG vẫn còn tồn tại anh ơi. em lấy ví dụ: Học sinh cuối cùng có cột Văn em ban hành công thức xuống dưới vẫn còn. Mục đích của em là có 3 sheet HKI, HKII, CNam. vậy đây là sheet cả năm nên có CT như sau: ((HKII*2)+HKI)/3. Nếu trích như thế thì địa chỉ sẽ lấy khác, mong anh xem lại dùm em

Ai da... Giờ mới hiểu... (file trước bạn chỉ có 1 sheet, giờ là 3 sheet và có thêm công thức, đương nhiên phải có sự khác nhau chứ)
Xem lại file lần nữa

 

[aiquocxp]

Hi hi xin anh giúp em sự rắt rối nữa rồi.
em thêm phần tiêu đề vào thì lại không trích được nữa, mong anh thông cảm

 

[ndu96081631]

Hi hi xin anh giúp em sự rắt rối nữa rồi.
em thêm phần tiêu đề vào thì lại không trích được nữa, mong anh thông cảm

Bạn thêm như thế nào? Và nó bị lổi ra sao, cứ đưa lên "nguyên con" --> Sẽ sửa được thôi mà...
Gợi ý: Vì trong code lấy địa chỉ cell dựa vào bảng tính hiện có... nên rất có thể khi bạn chỉnh sửa gì đó thì code sẽ chạy sai???
- Hoặc là bạn bấm Alt + F11 mở code ra xem và sửa (cũng ngắn và dể nhìn thôi mà)
- Hoặc là sau khi thêm tiêu đề gì đó, nó không chạy được, bạn hãy gữi nguyên file lên đây nhé
Hi... hi... Rắc rối nhiều ---> Thêm kinh nghiệm mà

 

[aiquocxp]

- Đây nè anh ơi giúp dùm em
- Còn cái này nữa anh giúp em yêu cầu em có ghi trong file ấy

 

[boyxin]

- Đây nè anh ơi giúp dùm em
- Còn cái này nữa anh giúp em yêu cầu em có ghi trong file ấy

File: TrichThiLai_03.rar

Lỗi không trích lọc được là do bạn Merge Cells chứ không phải tại code

Khắc phục: hãy Unmerge Cells ([A1:C1] và [A5757]) => hết bệnh liền

 

[aiquocxp]

Rút trích như vậy nó lấy dòng tiêu đề ở trên cùng chứ không lấy dòng tên trường

 

[ndu96081631]

Rút trích như vậy nó lấy dòng tiêu đề ở trên cùng chứ không lấy dòng tên trường

Chưa hiểu lắm ý bạn!
Còn vụ bạn thêm mấy dòng ở trên thì dể lắm -- Chỉ cần sửa 1 tí trong code:
Đoạn
With .Range("A1").CurrentRegion
Bạn sửa lại thành:
With .Range("A1").CurrentRegion.Offset(2)
-----------
Còn file So diem ca nhan cũng có cách... bạn tham khảo thử bài này:
http://www.giaiphapexcel.com/forum/showthread.php?t=17173
Mỗi lần gõ vào vùng được định trước, Excel sẽ bắt nhập pass

 

[aiquocxp]

- Cảm ơn anh rất nhiều em đã làm được phần rút trích rùi
- Phần thức 2 em có ý này nhe:
Toàn bộ bảng tính em đã khoá sheet để ẩn công thức, Vùng em tô màu là không khoá để giáo viên nhập điểm nhưng em muốn sheet điểm của giáo viên nào thì giáo viên đó vào điểm, giáo viên khác không xáo được. Muốn làm vậy em phải khóa pass được không anh, mỗi lần muốn nhập điểm vào thì cần nhập pass mới cho nhập điểm tránh sữa điểm. Còn cột TB vẫn dấu công thức không cho đụng vào

 

[ndu96081631]

- Cảm ơn anh rất nhiều em đã làm được phần rút trích rùi
- Phần thức 2 em có ý này nhe:
Toàn bộ bảng tính em đã khoá sheet để ẩn công thức, Vùng em tô màu là không khoá để giáo viên nhập điểm nhưng em muốn sheet điểm của giáo viên nào thì giáo viên đó vào điểm, giáo viên khác không xáo được. Muốn làm vậy em phải khóa pass được không anh, mỗi lần muốn nhập điểm vào thì cần nhập pass mới cho nhập điểm tránh sữa điểm. Còn cột TB vẫn dấu công thức không cho đụng vào

Đường link tôi gữi bạn ở trên bạn đã xem chưa? Nếu làm theo thì bạn có thể phân vùng cho từng người... Ai có trách nhiệm nhập ở đâu thì chỉ có thể nhập ở đấy (đương nhiên khi nhập vào sẽ có pass xác nhận)