từ danh sách đóng tiền lọc ra làm danh sách thi (2 người xem)

[thevu01]

Cảm ơn các bạn nhiều lắm để mình thử rồi mình báo cho các bạn sau nha.

 

[thevu01]

Cả tuần nay bận quá nên đến hôm nay mới ra tiệm net test được. Mình đã thử với 2 máy ở tiệm net nhưng vẫn bị vậy bạn ChanhTQ@ ơi. Không biết bạn ChanhTQ@ có hiểu sai ý mình không chứ quả thật là bị lỗi chứ nếu không mình làm vậy để làm gì, ở sheet1 mình dùng chuột chọn hết 1 hàng ngang ví dụ như hàng ngang số 8, rồi click chuột phải chọn delete hoặc insert là nó bị đứng file.

Mình đã thử bỏ dòng lệnh "Application.ScreenUpdating = False" như bạn chibi hướng dẫn thì đã chạy trơn tru, tuy nhiên vẫn bị lỗi 94 nên vẫn phải để đoạn code loại trừ lỗi 94 của bạn ChanhTQ@.
Nhưng mà nếu bỏ đoạn code "Application.ScreenUpdating = False" vậy có ảnh hưởng gì không vậy mấy bạn?

 

[thevu01]

Bạn sửa lại số 999 này =[Tổng SV]+ a (a là số bất kỳ bạn muốn - nên là 99)
Số a này làm bạn ít sửa lại SoSV mà thôi;
Hay thế này cũng được: Hàng năm trường bạn nhận vô 1.200 SV; năm nằm là 6.000;
Vậy ta ấn định SoSV = 12.000 (trừ hao số lưu ban) - Khi đó số tốt nghiệp sau 1 năm sẽ chuyển hồ sơ sang file khác để lưu.
Cũng nói trước rằng, sẽ có cách đối phó tốt nhất với SoSV này, đừng ấy náy nhiều về nó; Hiện thời cứ cho dư lên 1 tí

Xin chào các bạn, lúc trước mình được bạn ChanhTQ@ giúp làm phần code để làm việc, bây giờ tổng số sinh viên của mình cần phải để trong CSDL đã vượt qua số 12000, cụ thể là khoảng 19000. Nên mình muốn hỏi làm thế nào để chỉnh sửa trong code, vì mình thật sự không biết về code nên không dám sửa lung tung, mong được các bạn giúp đỡ:

Option Explicit
Const SoSV As Integer = 11999
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Loi_WSh
Dim Rng As Range, sRng As Range, Clls As Range
Dim Jj As Byte: Dim ShName As String

If Not Intersect(Range("O3:AO" & SoSV), Target) Is Nothing Then
ShName = Choose(Target.Column - 14, "QLHS", "THESV", "mh1", "mh2", "mh3", "mh4", _
"mh5", "mh6", "mh7", "mh8", "mh9", "mh10", "mh11", "mh12", "mh13", "mh14", "mh15" _
, "mh16", "mh17", "mh18", "mh19", "mh20", "mh21", "mh22", "mh23", "mh24", "mh25")
If Target.Cells(1, 1) = "" Then 'Delete more than record'
For Each Clls In Target
Set Rng = Cells(Clls.Row, "F").Resize(, 7)
With Sheets(ShName).Columns("B:B")
Set sRng = .Find(Rng.Cells(1, 1).Value, _
LookIn:=xlFormulas, lookat:=xlWhole)
If Not sRng Is Nothing Then sRng.EntireRow.Delete
End With
Next Clls
ElseIf UCase$(Target.Cells(1, 1)) = "X" Then 'Add Records to Sheet'
For Each Clls In Target
Sheets(ShName).[B65500].End(xlUp).Offset(1).Resize(, 7).Value _
= Cells(Clls.Row, "F").Resize(, 7).Value
Next Clls
End If
ElseIf Not Intersect(Target, Range("F3:F" & SoSV)) Is Nothing Then
For Jj = 1 To 2
ShName = Choose(Jj, "taiday", "noikhac")
With Sheets(ShName).Range("B2:B" & SoSV)
Set sRng = .Find(what:=Target.Value, LookIn:=xlFormulas, lookat:=xlWhole)
If Not sRng Is Nothing Then _
Target.Offset(, 1).Resize(, 7).Value = sRng.Offset(, 1).Resize(, 7).Value
End With
Next Jj
End If
Err_WSh: Exit Sub
Loi_WSh:
Select Case Err
Case Is <> 94
MsgBox Error, , Err
End Select
Resume Err_WSh
End Sub

 

[ThuNghi]

Const SoSV As Integer = 11999

Sửa cái dòng này thử
Thành

Const SoSV As Integer = 19000

Chưa xem file nên không biết OK không.

 

[ChanhTQ@]

Nên sửa thành

Const SoSV As Integer = 32000

Nếu chuẩn bị vượt 3 vạn SV thì nên khai báo là

[B]Const SoSV As Long = 10^7[/B]