Nhờ cao nhân chỉnh sửa giúp về VBA

[tuananhctxd]

Em có file này mà muốn chỉnh cái cột tuổi đảng bằng cột năm trừ cột ngày GN thì chỉnh kiểu gì ạ, hiện tại đang mặc định cột năm trừ cột ngày chính thức ạ.
Sub GPE()
Application.ScreenUpdating = False
Dim Dic As Object, sArr(), dArr(), Arr, Tem As String
Dim I As Long, J As Long, K As Long, R As Long, Nam As Long, Num As Long
Set Dic = CreateObject("Scripting.Dictionary")
Arr = Array(30, 40, 45, 50, 55, 60, 65, 70, 75, 80)
sArr = Range("B2", Range("B2").End(xlDown)).Resize(, 6).Value
R = UBound(sArr)
ReDim dArr(1 To R, 1 To 9)
Nam = Range("I1").Value
For J = 0 To UBound(Arr)
Dic.Item(Arr(J)) = ""
Next J
For I = 1 To R
Num = Nam - Year(sArr(I, 6))
If Dic.Exists(Num) Then
K = K + 1
dArr(K, 1) = K
For J = 1 To 6
dArr(K, J + 1) = sArr(I, J)
Next J
dArr(K, 8) = Num
Select Case Month(sArr(I, 6))
Case Is > 9
dArr(K, 9) = DateSerial(Nam, 11, 7)
Case Is > 6
dArr(K, 9) = DateSerial(Nam, 9, 2)
Case Is > 3
dArr(K, 9) = DateSerial(Nam, 5, 19)
Case Else
dArr(K, 9) = DateSerial(Nam, 2, 3)
End Select
End If
Next I
Set Dic = Nothing
Range("J2:R2").Resize(R).ClearContents
If K Then
Range("J2").Resize(K, 9) = dArr
Range("k2").Resize(K, 8).Sort Key1:=Range("R2"), Order1:=xlAscending, Key2:=Range("Q2"), Order2:=xlDescending
End If
End Sub

 

[bebo021999]

Dòng F253 ngày tháng bị sai. sửa lại nhé
sau đó sửa chỗ này lại:sArr(I, 6) thành sArr(I, 5)

For I = 1 To R
    Num = Nam - Year(sArr(I, 6))
    If Dic.Exists(Num) Then

thành

For I = 1 To R
    Num = Nam - Year(sArr(I, 5))
    If Dic.Exists(Num) Then

 

[Maika8008]

Tiêu đề bài viết như thế này thì có vi phạm nội quy không mọi người nhỉ?

 

[Hoàng Tuấn 868]

Tiêu đề bài viết như thế này thì có vi phạm nội quy không mọi người nhỉ?
View attachment 287101

Quá vi phạm, vì đọc tiêu đề không biết là sửa VBA cho nội dung gì.

 

[VetMini]

Tiêu đề bài viết như thế này thì có vi phạm nội quy không mọi người nhỉ?
View attachment 287101

Quá vi phạm, vì đọc tiêu đề không biết là sửa VBA cho nội dung gì.

Quý vị phí hơi thôi. Người giải bài đã nhiều lần nói là họ không cần lý tới mờ.

 

[bebo021999]

Quý vị phí hơi thôi. Người giải bài đã nhiều lần nói là họ không cần lý tới mờ.

hehe.
Nếu xét kỹ thì còn vụ tag code nữa...
Mà thôi kệ, vì code có trong file rồi quan tâm ngoài body làm gì
Vả lại mình chỉ cao 1.5m thôi nên mình cũng không ngại lắm cái danh xưng...

 

[Maika8008]

Quý vị phí hơi thôi. Người giải bài đã nhiều lần nói là họ không cần lý tới mờ.

Tôi không đề cập đến các thành viên vì thấy bài phù hợp thì hỗ trợ thôi nhưng tôi nghĩ ít ra thì BQT diễn đàn phải thực thi nội quy nghiêm minh để duy trì trật tự chứ nhỉ.
Nếu không làm thế thì thay đổi nội quy để người đăng bài không bị ràng buộc nữa.

 

[Hoàng Tuấn 868]

Tôi không đề cập đến các thành viên vì thấy bài phù hợp thì hỗ trợ thôi nhưng tôi nghĩ ít ra thì BQT diễn đàn phải thực thi nội quy nghiêm minh để duy trì trật tự chứ nhỉ.
Nếu không làm thế thì thay đổi nội quy để người đăng bài không bị ràng buộc nữa.

Hỗ trợ những trường hợp này là làm khó nhiều trường hợp khác, vì khi tra cứu những chủ đề có trong nội dung này thì sẽ không ra do tiêu đề không thể hiện một chút nào liên quan đến vấn đề cần tìm kiếm.

 

[tuananhctxd]

Dòng F253 ngày tháng bị sai. sửa lại nhé
sau đó sửa chỗ này lại:sArr(I, 6) thành sArr(I, 5)

For I = 1 To R
    Num = Nam - Year(sArr(I, 6))
    If Dic.Exists(Num) Then

thành

For I = 1 To R
    Num = Nam - Year(sArr(I, 5))
    If Dic.Exists(Num) Then

em cám ơn bác đã giúp đỡ ạ

Bài đã được tự động gộp: 3/3/23

Tiêu đề bài viết như thế này thì có vi phạm nội quy không mọi người nhỉ?
View attachment 287101

em xin lỗi vì viết thế ạ

Bài đã được tự động gộp: 3/3/23

Bài em đã được giải đáp nhờ các ad xóa bài hoặc khóa lại ạ, em xin chân thành cám ơn mọi người