مشکل در کار با Instr

[iranweld]

آیا اسامی شهرها در آخر جمله های شما قرار دارد؟

اگر اسم شهرها در آخر باشد از کد ذیل استفاده کنید

Sub test()

Z = Sheet1.Cells(Sheet1.Rows.Count, "A").End(xlUp).Row

For J = 1 To Z
x = 0
For i = 1 To Len(Range("A" & J))
If Mid(Range("A" & J), i, 1) = " " Then
x = i
End If
Next
Range("b" & J) = Right(Range("A" & J), Len(Range("A" & J)) - x)

Next

End Sub 

[Masih60]

آیا اسامی شهرها در آخر جمله های شما قرار دارد؟

اگر اسمی شهرها در آخر باشد از کد ذیل استفاده کنید

Sub test()

Z = Sheet1.Cells(Sheet1.Rows.Count, "A").End(xlUp).Row

For J = 1 To Z
x = 0
For i = 1 To Len(Range("A" & J))
If Mid(Range("A" & J), i, 1) = " " Then
x = i
End If
Next
Range("b" & J) = Right(Range("A" & J), Len(Range("A" & J)) - x)

Next

End Sub 

ممنون استاد ولی اسم شهرها الزاماً در انتهای عبارت نیست.

[iranweld]

نمونه فایل قرار بدید بهتر میشه تصمیم گیری کرد

[Amir Ghasemiyan]

اونوقت اگر اسم شهر در انتهای عبارت باشه، نشون داده نمیشه. مثلاً همون "پرشین شیراز". آخر "شیراز" که فاصله نیست. پس قاعدتاً نباید توی جواب بیاره. درست میگم؟

بله دوست عزیز حق با شماست
من بررسی کردم و یک کد براتون نوشتم. این کد رو میشه کوتاه تر هم نوشت اما یکم پیچیده میشه. بنابراین همینطوری بهتون میدم که بتونین راحت تر متوجه شید

Sub CityFinder()
Dim farscity(3) As Variant
Dim azarbayjancity(4) As Variant
fars = Array("shiraz", "abade", "fars", "lar")
azarbayjan = Array("orumie", "miandoab", "boukan", "khoy", "mahabad")
For i = 2 To 1000
    provience = ""
    With Range("B" & i)
        ' search for fars cities
        For j = LBound(fars) To UBound(fars)
            Set farscity(j) = .Find(fars(j), , , xlWhole)
            If Not farscity(j) Is Nothing Then
                provience = "Fars"
                GoTo continuefor
            End If
        Next j
        ' search for azarbayjan cities
        For j = LBound(azarbayjan) To UBound(azarbayjan)
            Set azarbayjancity(j) = .Find(azarbayjan(j), , , xlWhole)
            If Not azarbayjancity(j) Is Nothing Then
                provience = "Azarbayjan"
                GoTo continuefor
            End If
        Next j
    End With
continuefor:
Next i
End Sub

[Amir Ghasemiyan]

پستی که گذاشتم جواب شما رو نمیده متاسفانه
این کد رو امتحان کنید

Sub CityFinder()
fars = Array("shiraz", "abade", "fars", "lar")
azarbayjan = Array("orumie", "miandoab", "boukan", "khoy", "mahabad")
For i = 2 To 1000
    provience = ""
    If checkcity(fars, Range("B" & i)) Then provience = "Fars"
Next i
End Sub

Function checkcity(cities As Variant, rng As Range) As Boolean
checkcity = False
cel = Split(rng.Value, " ")
For i = LBound(cel) To UBound(cel)
    For j = LBound(cities) To UBound(cities)
        If cel(i) = cities(j) Then
            checkcity = True
            Exit Function
        End If
    Next j
Next i
End Function