VBA Bir dizginin son geçtiği yeri bul

Question

Bu sorunu birkaç günlüğüne denemeye çalışıyorum ve başım ağrıyor. Birden fazla web sitesi aradım (Birkaç kez burada bile), birçok kişinin bu soruyu sorduğunu gördüm ama çözümler benim için çalışmıyor.

Bir dizinin son oluşumunu bir aralıkta bulmak ve adresi bir değişkende saklamak ve nerede olduğunu söyleyen bir ileti görüntülemek istiyorum.

Şimdiye kadar bu

Private Sub CmdBtnClockIt_Click() 
    Dim job As String 
    Dim searchTerm as Range 

    job = CmbBoxJob.Value 
    searchTerm = Range("A1:A999").find(what:=job, searchorder:=xlByColumns, searchdirection:=xlPrevious).Column 
    MsgBox "last cell is " & searchTerm.Address 
End Sub 

ben ya "geçersiz niteleyici" veya almak gibi tüm

Herhangi bir yardım takdir "nesne değişkeni veya bloğu değişkeni ile ayarlanmamış" var

Answer 1

İlk sorun, searchTerm'un Range nesnesi olarak tanımlanmış olmasıdır. Nesne atamalarını Set keyword kullanarak ayarlamanız gerekir. atama İkincisi Set searchTerm = Range("A1:A999")...

olur Yani searchTerm bulunmazsa searchTermNothing değeri atanacaktır çünkü, sen hata mesajlarını vuracaktır. Bu sorunu, job'un bulunup bulunmadığını kontrol etmek için basit bir koşul kullanarak önleyebiliriz.

nedenle senin böyle bir şey görünebilir Sub güncelleme:

Private Sub CmdBtnClockIt_Click() 
    Dim job As String 
    Dim searchTerm As Range 

    job = CmbBoxJob.Value 
    Set searchTerm = Range("A1:A999").Find(what:=job, searchorder:=xlByColumns, searchdirection:=xlPrevious) 
    If searchTerm Is Nothing Then 
    MsgBox "Text was not found" 
    Else 
    MsgBox "Last cell is " & searchTerm.Address 
    End If 
End Sub 

Answer 2

Nasıl hakkında:

Sub dural() 
    Dim job As String 
    Dim searchTerm As Range 
    job = "Happiness" 
    Set searchTerm = Range("A1:A999").Find(what:=job, after:=Range("A1"), searchorder:=xlByColumns, searchdirection:=xlPrevious) 
    MsgBox "last cell is " & searchTerm.Address 
End Sub 

Not Set ürününü kullanıyorum.