آموزش کار با اکسل مقدماتی تا پیشرفتهعمومی

ساده ترین روش فعال کردن Spell checker در اکسل عیب یاب املایی

C:UsersPCDesktopimg3.jpg

اگر نمی دانید که چطور در نرم افزار اکسل غلط گیر املایی را فعال کنید این مقاله را بخوانید. در این قسمت یاد میگیرید که چطور با استفاده از VBA غلط گیر املایی را فعال کنید.

بیایید با یک مثال شروع کنیم:

در تصویر زیر مشاهده می کنید که ستون A شامل متن است.

C:UsersPCDesktopimg11.jpg

در تصویر بالا؛ در سلول A5 و A11 غلط املایی وجود دارد.

می خواهیم کاری کنیم که غلط های املایی با رنگ قرمز نشان داده شوند.

بر روی سربرگ Developer کلیک کنید.

از گروه Code، Visual Basic را انتخاب کنید.

C:UsersPCDesktopimg2.jpg

یا کلید میانبر ALT F11 را فشار دهید تا صفحه VB Editor اجرا شود.

کد زیر را در کاربرگ فعلی وارد کنید.

Private Sub Worksheet_Change(ByVal Target As Range)

Dim Myrange As Range

If Not Intersect(Target, Range(“A1″).CurrentRegion) Is Nothing Then

For Each Myrange In Range(“A1″).CurrentRegion

If Application.CheckSpelling(Myrange) = False Then

Myrange.Font.Color = vbRed

Else: Myrange.Font.Color = vbBlack

End If

Next

End If

End Sub

پس از نوشتن کد بالا، سلول های 5A و 11 A به رنگ قرمز در می آیند.

C:UsersPCDesktopimg4.jpg

کد در ناحیه فعلی کار می کند. اگر متن در منطقه فعلی باشد، کد VBA بالا به کاربر کمک می کند تا خطا را شناسایی کند.

در صورتی که بخواهیم خطایی را روی سلولهای خاصی نشان دهیم، از کد زیر استفاده خواهیم کرد:

(در خط سوم و چهارم نام سلول های خاصی که می خواهیم بررسی شوند را وارد میکنیم)

Private Sub Worksheet_Change(ByVal Target As Range)

Dim Myrange As Range

If Not Intersect(Target, Range(“A1,B3,C5″)) Is Nothing Then

For Each Myrange In Union([A1], [B3], [C5])

If Application.CheckSpelling(Myrange) = False Then

Myrange.Font.Color = vbRed

Else: Myrange.Font.Color = vbBlack

End If

Next

End If

End Sub

C:UsersPCDesktopimg5.jpg

همان طور که در تصویر بالا می بینید، این کد خطاها را در سلول B3 و C5 شناسایی کرد. نه در سلول C1 و C7. این امر به این دلیل است که می خواهیم این کد سلولهای A1 ، B3 و C5 را بررسی کند. در این روش می توانید خطاها را با استفاده از کد VBA شناسایی کنید.

طرز کپی کردن محتوای یک سلول به هزاران سلول دیگر در اکسل

منبع : Sari Asan

برچسب ها

دیدگاهتان را بنویسید

نشانی ایمیل شما منتشر نخواهد شد. بخش‌های موردنیاز علامت‌گذاری شده‌اند *

هفت + 7 =

دکمه بازگشت به بالا
بستن