جستجوی متن با استفاده از کد اسکی

[khorasan66]

با سلام
یک دفتر اندیکاتور ( فایل پیوست ) بر حسب سلیقه خودم طراحی کرده ام که نیاز های من را پاسخگو می باشد
یک ماکرو هم جهت جستجوی در موضوع نامه نوشته ام و البته با مشکل حرف ( ی ، ي ) مواجه هستم
برای مشکلم در سایت جستجو کردم فایلی که کد اسکی را تولید می کرد را مشاهده کردم ولی آن فایل را نمی توانم با فایل خودم تلفیق کنم چون نمی خواهم از فرم استفاده نمایم
ممنون می شوم در این خصوص راهنمایی نمائید و یا فایل من را اصلاح و تکمیل نمائید .

[Ali Parsaei]

سلام،
اينجا را ديده ايد؟: اصلاح حرف ي (http://forum.exceliran.com/showthread.php/3624-%D8%A7%D8%B5%D9%84%D8%A7%D8%AD-%D8%AD%D8%B1%D9%81-%D9%8A-%D9%81%D8%A7%D8%B1%D8%B3%D9%8A)
فکر کنم بتواند کمکتان کند

[Ali Parsaei]

با توجه به اينکه فايلتان يک صفحه دارد مي توانيد از اين کد استفاده کنيد که در هنگام باز شدن همه "ي" ها و همچنين "ک" ها را يکسان سازي کند، البته مشکل اون "ي" نوع سوم که در لينک بالا اشاره کرده ام همچنان لاينحل باقي خواهد ماند:


Private Sub WORKBOOK_OPEN()
ActiveSheet.Cells.Replace What:=Chr(236), Replacement:=Chr(237)
ActiveSheet.Cells.Replace What:=Chr(223), Replacement:=Chr(152)
End Sub

ضمنا" اگر فايل در چند کامپيوتر استفاده مي گردد مي توانيد يک سري کد نويسي نماييد تا اجبارا" صفحه کليد کاربر در ابتداي باز شدن فايل بررسي شود و اگر بر حسب حروف نا متعارف تنظيم شده به کاربر هشدار دهيد که تنظيم صفحه کليدش را با نرم افزارهاي مربوطه اصلاح کند

[khorasan66]

با سلام و تشکر از راهنمای دوست عزیز
در پیوست زیر کد های ذکر شده را اعمال نمودم ولی مشکل جای دیگری می باشد .
لازم به ذکر است متن موجود در فایل با همین صفحه کلید و با همین ویندوز و آفیس درج و ثبت شده است .
اگر شما به صورت دستی Filters را فعال و متنی را که شامل ی و یا ي می باشد وارد نمائید بدون مشکل فیلتر انجام می شود
اما در دو ماکرو که نوشته شده متن مورد نظر توسط InputBox از کاربر اخذ و بر اساس آن فیلتر انجام می شود . اگر متن مورد نظر حاوی حرف ی باشد را بزنیم فیلتر انجام نمی شود
به عنوان مثال کلمه تامین را مورد فیلتر قرار دهید اگر حروف تام را بزنید فلیتر انجام میشود و اگر تمام کلمه را بزنید نه
مشکل باید در نا مفهوم بودن حرف ی در InputBox برای vba باشد . اگر کسی از دوستان راه حلی به نظرش رسید راهنمایی نماید . باتشکر

[Ali Parsaei]

بله، اين حرف "ی" که روي صفحه کليد شما تعريف شده فقط در سيستم
unicode تعريف شده و قسمت vba اکسل unicode را پشتيباني نمي کند، اگر شما اين حرف را کپي کرده و داخل InputBox پيست کنيد خواهيد ديد که به صورت علامت سوال ظاهر خواهد شد، اين بدين معني است که اين حرف براي vba نامفهوم است.
هيچ راهي ندارد، شما بايد حرف "ی" روي صفحه کليد خود را تعويض کنيد. البته ظاهرا" سيستم جستجوي عادي اکسل (يعني ctrl+f) سيستم
unicode را پشتيباني مي کند ولي خوب اينجور مواقع به کارتان نمي آيد!

[khorasan66]

با سلام و تشکر
با عنایت به توضیحات حضرتعالی ، من نیاز دارم برای حل مشکل از کد اسکی استفاده کنم البته اگر شدنی باشد !
به گونه ای که متن توسط InputBox از کاربر اخذ و تبدیل به کد اسکی شود سپس بر اساس آن کد اسکی فیلتر انجام شود .