[حل شده] پیدا کردن ارزش ascii بزرگتر یا کوچکتر از 126 در یک سل

[najm]

با سلام و خسته نیاشید
با توجه به موضوع جستجوی داده پرسشی داشتم
من اطلاعاتی دارم بشرح زیر

Press the brake pedal لطفاً پدال ترمز را فشار دهید

Do you want to resume the maneuver? آیا مایل هستید حرکت از سر گرفته شود؟

Confirm تأیید

Presence of an obstacle وجود مانع در مسیر خودرو

Keep the control pressed to resume برای از سرگیری، کنترل را فشار دهید و نگه دارید

کنترل را به دست بگیرید! Retake control!

رنگ Color

شدت نور محفظه سرنشین Interior intensity چطور میتوانم برای هر رشته نقطه شروع که ارزش ascii ان بیشتر یا کمتر از 126 پیدا کنم با سپاس

[iranweld]

با سلام

خواسته خود را در یک نمونه فایل مشخص کرده و ضمیمه سایت کنید

[najm]

پیرو درخواست شما نمونه فایل ارسل میگردد

[iranweld]

با سلام

در فایل پیوست تا حدودی کار انجام شد ولی در بعضی جملات یکسری مشکلات وجود دارد

Sub test()

Columns("B:C").ClearContents

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


For j = 1 To z1

For i = 1 To Len(Range("a" & j))

If AscW(Mid(Range("a" & j), i, 1)) >= 125 Then

xx = i - 2


Exit For

End If

Next

If xx > 0 Then

Range("b" & j) = Left(Range("a" & j), xx)

Range("c" & j) = Right(Range("a" & j), Len(Range("a" & j)) - xx)

Else



For i = Len(Range("a" & j)) To 1 Step -1

If AscW(Mid(Range("a" & j), i, 1)) >= 125 Then

xx = i - 2


Exit For

End If

Next

If xx > 0 Then

Range("b" & j) = Right(Range("a" & j), Len(Range("a" & j)) - xx)

Range("c" & j) = Left(Range("a" & j), xx)

End If


End If

Next

End Sub