Code End(3) (1 người xem)

quykh · 22/12/12

Xin các AC giải thích code End(3) và AdvancedFilter 2 dùm em trong đoạn code dưới:

Sub Loc_co_dk()
[B8:F1000].ClearContents
With Sheet7
.Range(.[A3], .[I65536].End(3)).AdvancedFilter 2, [C2:C3], [C7:F7]
[C4] = .[B:B].Find([C3]).Offset(, -1)
[C5] = .[B:B].Find([C3]).Offset(, 1)
[C6] = .[B:B].Find([C3]).Offset(, 2)
End With
Range([C8], [C65536].End(3)).Offset(, -1) = [row(a:a)]
End Sub

huuthang_bd · 22/12/12

quykh đã viết:
Xin các AC giải thích code End(3) và AdvancedFilter 2 dùm em trong đoạn code dưới:

Sub Loc_co_dk()
[B8:F1000].ClearContents
With Sheet7
.Range(.[A3], .[I65536].End(3)).AdvancedFilter 2, [C2:C3], [C7:F7]
[C4] = .[B:B].Find([C3]).Offset(, -1)
[C5] = .[B:B].Find([C3]).Offset(, 1)
[C6] = .[B:B].Find([C3]).Offset(, 2)
End With
Range([C8], [C65536].End(3)).Offset(, -1) = [row(a:a)]
End Sub

Người ta viết tắt đó bạn. End(3) = End(xlUp) và AdvancedFilter 2 = AdvancedFilter xlFilterCopy

quykh · 22/12/12

Thế thì em nhờ các AC xem dùm em sao đoạn code này bị lỗi. Khi em gỏ số phiếu vào ô C3 thì bị lỗi. Mong các AC xem file đính kèm.

boyxin · 22/12/12

quykh đã viết:
Thế thì em nhờ các AC xem dùm em sao đoạn code này bị lỗi. Khi em gỏ số phiếu vào ô C3 thì bị lỗi. Mong các AC xem file đính kèm.

Bên Sheet1.[G3]="Thực Nhập" # Sheet2.[F7]="SL Thực Nhập"

Bạn sửa lại chỗ này là được mà

quykh · 23/12/12

Mong các AC viết cho em đoạn code để hiện Msgbox khi không có số phiếu nào trùng với ô C3

nghiaphuc · 23/12/12

quykh đã viết:
Mong các AC viết cho em đoạn code để hiện Msgbox khi không có số phiếu nào trùng với ô C3

Thử cái này xem sao:
[GPECODE=vb]Sub Test()
Dim Rng As Range
With Sheet1
Set Rng = .Range(.[B4], .[B65536].End(xlUp)).Find(Sheet2.[C3], lookat:=xlWhole)
End With
If Rng Is Nothing Then MsgBox "Khong tim thay!"
End Sub[/GPECODE]

quykh · 23/12/12

Paste vào đâu hả Anh? Sao em dán vào sheet 2 không có tác dụng Anh??

nghiaphuc · 23/12/12

quykh đã viết:
Paste vào đâu hả Anh? Sao em dán vào sheet 2 không có tác dụng Anh??

Bạn chèn vào đâu đó trong Sub Loc_pn là được mà, cứ thử đi.

Hong.Van · 23/12/12

quykh đã viết:
Paste vào đâu hả Anh? Sao em dán vào sheet 2 không có tác dụng Anh??

1/ Dán code bài 6 vào Module1
2/Vào Sheet2(Sheet2)
sửa

Mã:

.....Call Loc_pn .......

Thành

Mã:

.....Call Test .......

Hong.Van · 23/12/12

nghiaphuc đã viết:
Thử cái này xem sao:
[GPECODE=vb]Sub Test()
Dim Rng As Range
With Sheet1
Set Rng = .Range(.[B4], .[B65536].End(xlUp)).Find(Sheet2.[C3], lookat:=xlWhole)
End With
If Rng Is Nothing Then MsgBox "Khong tim thay!"
End Sub[/GPECODE]

Code trên em sửa thành (chữ màu đỏ)

Mã:

Sub Test()    Dim Rng As Range
    With Sheet1
        Set Rng = .Range(.[B4], .[B65536].End(xlUp)).Find(Sheet2.[C3], lookat:=xlWhole)
    End With
    If Rng Is Nothing Then
    MsgBox "Khong tim thay!"
    
[B][COLOR=#ff0000]    Sheet2.[C3].ClearContents[/COLOR][/B]
    End If
End Sub

Mục đích vừa thông báo vừa xóa luôn cell C3 của Sheet 2
Nhưng khi thông báo "Khong tim thay!" thì không thể tắt được thông báo này
Xin vui lòng sửa code & chỉ giúp chỗ sai!
Em cảm ơn!

dhn46 · 23/12/12

Hong.Van đã viết:
Code trên em sửa thành (chữ màu đỏ)

Mã:

Sub Test() Dim Rng As Range With Sheet1 Set Rng = .Range(.[B4], .[B65536].End(xlUp)).Find(Sheet2.[C3], lookat:=xlWhole) End With If Rng Is Nothing Then MsgBox "Khong tim thay!" [B][COLOR=#ff0000] Sheet2.[C3].ClearContents[/COLOR][/B] End If End Sub

Mục đích vừa thông báo vừa xóa luôn cell C3 của Sheet 2
Nhưng khi thông báo "Khong tim thay!" thì không thể tắt được thông báo này
Xin vui lòng sửa code & chỉ giúp chỗ sai!
Em cảm ơn!

Anh NghĩaPhúc đã chỉ rõ rồi mà bạn

Bạn chèn vào đâu đó trong Sub Loc_pn là được mà, cứ thử đi.

Tức là dán như thế này

Mã:

Sub Loc_pn()
'Sub Test
Dim Rng As Range
    With Sheet1
        Set Rng = .Range(.[B4], .[B65536].End(xlUp)).Find(Sheet2.[C3], lookat:=xlWhole)
    End With
        If Rng Is Nothing Then
            MsgBox "Khong tim thay!"
[B][COLOR=#ff0000]              Sheet2.[C3].ClearContents[/COLOR][/B]
        End If
'Sub Loc_pn
   [B8:F1000].ClearContents
   With Sheet1
      .Range(.[A3], .[G65536].End(3)).AdvancedFilter 2, [C2:C3], [C7:F7]
      [C4] = .[B:B].Find([C3]).Offset(, -1)
   End With
   Range([C8], [C65536].End(3)).Offset(, -1) = [row(a:a)]
End Sub

Hong.Van · 23/12/12

dhn46 đã viết:

Anh NghĩaPhúc đã chỉ rõ rồi mà bạn

Tức là dán như thế này

Mã:

Sub Loc_pn()
'Sub Test
Dim Rng As Range
    With Sheet1
        Set Rng = .Range(.[B4], .[B65536].End(xlUp)).Find(Sheet2.[C3], lookat:=xlWhole)
    End With
        If Rng Is Nothing Then
            MsgBox "Khong tim thay!"
[B][COLOR=#ff0000]              Sheet2.[C3].ClearContents[/COLOR][/B]
        End If
'Sub Loc_pn
   [B8:F1000].ClearContents
   With Sheet1
      .Range(.[A3], .[G65536].End(3)).AdvancedFilter 2, [C2:C3], [C7:F7]
      [C4] = .[B:B].Find([C3]).Offset(, -1)
   End With
   Range([C8], [C65536].End(3)).Offset(, -1) = [row(a:a)]
End Sub

Em đã thử code trên cũng không được
Bây giờ anh thử nhập SAI số phiếu tại ô C3 của sheet2 xem nó bị sao!
Em cảm ơn!

dhn46 · 23/12/12

Hiểu ý bạn rồi, bạn sử đoạn Test như thế này

Mã:

    [COLOR=#000000][I]Sub Test() 
   Dim Rng As Range
[/I][/COLOR]      Application.EnableEvents = True
  With Sheet1
         Set Rng = .Range(.[B4], .[B65536].End(xlUp)).Find(Sheet2.[C3], lookat:=xlWhole)
 End With
       If Rng Is Nothing Then
                MsgBox "Khong tim thay!"
[FONT=Verdana]                Application.EnableEvents = False
[/FONT][B][COLOR=#ff0000]                    Sheet2.[C3].ClearContents
[/COLOR][/B]       End If
 [COLOR=#000000][I]End Sub

[/I][/COLOR]

Hong.Van · 23/12/12

dhn46 đã viết:

Hiểu ý bạn rồi, bạn sử đoạn Test như thế này

Mã:

    [COLOR=#000000][I]Sub Test() 
   Dim Rng As Range
[/I][/COLOR]      Application.EnableEvents = True
  With Sheet1
         Set Rng = .Range(.[B4], .[B65536].End(xlUp)).Find(Sheet2.[C3], lookat:=xlWhole)
 End With
       If Rng Is Nothing Then
                MsgBox "Khong tim thay!"
[FONT=Verdana]                Application.EnableEvents = False
[/FONT][B][COLOR=#ff0000]                    Sheet2.[C3].ClearContents
[/COLOR][/B]       End If
 [COLOR=#000000][I]End Sub
[/I][/COLOR]

Lần đầu , nhập sai -> báo lỗi. Tắt báo lỗi, nhập sai lần nữa, không thèm thông báo luôn
Hi Hi, ai xem giúp em.Em cảm ơn

quykh · 23/12/12

Sao em làm giông các Ac mà chả thấy báo gì hết. Mong các Ac giúp em khi đúng số phiếu thì lọc rếucòn không có thì báo lỗi.

Quang_Hải · 23/12/12

Hong.Van đã viết:
Lần đầu , nhập sai -> báo lỗi. Tắt báo lỗi, nhập sai lần nữa, không thèm thông báo luôn
Hi Hi, ai xem giúp em.Em cảm ơn

Bạn đã bị sai ở chỗ application.enableevents=true. Nghiên cứu kỹ chỗ này sẽ hiểu tại sao.

Hong.Van · 23/12/12

quanghai1969 đã viết:
Bạn đã bị sai ở chỗ application.enableevents=true. Nghiên cứu kỹ chỗ này sẽ hiểu tại sao.

Anh giải thích giùm đi? cảm ơn anh!
------------
Cái này do anh dhn46 thêm vào!

huuthang_bd · 23/12/12

Hong.Van đã viết:
Lần đầu , nhập sai -> báo lỗi. Tắt báo lỗi, nhập sai lần nữa, không thèm thông báo luôn
Hi Hi, ai xem giúp em.Em cảm ơn

Bạn phải sửa lại như thế này mới đúng.
[gpecode=vb]
Sub Test()
Dim Rng As Range
With Sheet1
Set Rng = .Range(.[B4], .[B65536].End(xlUp)).Find(Sheet2.[C3], lookat:=xlWhole)
End With
If Rng Is Nothing Then
MsgBox "Khong tim thay!"
Application.EnableEvents = False
Sheet2.[C3].ClearContents
Application.EnableEvents = True
End If
End Sub[/gpecode]

quykh · 23/12/12

Em chèn thêm đoạn code này để xóa đi dữ liệu của phiếu trước mà không được
(màu đỏ), mong các AC giúp đỡ.(vì khi gỏ phiếu sai thì vẫn còn lại dữ liệu của phiếu đúng)
Sub Test()
Dim Rng As Range
With Sheet1
Set Rng = .Range(.[B4], .[B65536].End(xlUp)).Find(Sheet2.[C3], lookat:=xlWhole)
End With
If Rng Is Nothing Then
MsgBox "Khong tim thay!"
Application.EnableEvents = False
Sheet2.[C3].ClearContents
Sheet2.[B8:F20].ClearContents

Application.EnableEvents = True
End If

End Sub

Quang_Hải · 23/12/12

quykh đã viết:
Xin các AC giải thích code End(3) và AdvancedFilter 2 dùm em trong đoạn code dưới:

Sub Loc_co_dk()
[B8:F1000].ClearContents
With Sheet7
.Range(.[A3], .[I65536].End(3)).AdvancedFilter 2, [C2:C3], [C7:F7]
[C4] = .[B:B].Find([C3]).Offset(, -1)
[C5] = .[B:B].Find([C3]).Offset(, 1)
[C6] = .[B:B].Find([C3]).Offset(, 2)
End With
Range([C8], [C65536].End(3)).Offset(, -1) = [row(a:a)]
End Sub

Code này nhìn quen quá. Nếu không nhầm thì code này có kèm thêm 1 code để tạo validation list. Sao không xai luôn code đó cho khoẻ để tránh việc nhập sai thông tin tại C3

Code End(3) (1 người xem)

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

Chim non

Chuyên gia GPE

Chim non

File đính kèm

Members actively

Chim non

Thành viên gạo cội

Chim non

Thành viên gạo cội

Busy

Busy

Hướng tới tương lai

Busy

File đính kèm

Hướng tới tương lai

Busy

Chim non

Thành viên gạo cội

Busy

Chuyên gia GPE

Chim non

Thành viên gạo cội

Đếm ngược thời gian