یکشنبه, 12 آوریل 2020

تفکیک سه رقم سه رقم اعداد در جداول Word

تفکیک سه رقم سه رقم اعداد در جداول Word موضوعی است که امروز قصد داریم پیرامون آن مفصل صحبت کنیم. ابتدای همین آموزش خدمتتان عرض کنم که این کار توسط ابزارهای Word به تنهایی قابل انجام نیست لذا نیاز به کدهای ماکرونویسی در محیط نرم افزار ورد داریم که آن را همراه با نحوه استفاده در ادامه آموزش تقدیم حضورتان خواهم نمود. خواهشمندم بنده را تا پایان این پست همراهی کنید.

به جدول زیر در ورد دقت کنید:

در جدول فوق ما دو ستون به نام های قیمت واحد و قیمت کل داریم که نیاز به تفکیک سه رقم سه رقم اعداد دارند لذا ابتدا همانند تصویر زیر این دو فیلد را انتخاب کنید:

حال با زدن کلیدهای ترکیبی Alt + F11 به محیط VBE ورود خواهیم نمود:

همانند تصویر زیر یک Module جدید ایجاد خواهیم نمود:

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

حال کدهای ماکروی زیرا را کپی و به این ماژول منتقل کنید:

Sub NumberFormat()
Dim oCel As Cell, RngCel As Range
With Selection
If .Information(wdWithInTable) = True Then
For Each oCel In .Cells
Set RngCel = oCel.Range
RngCel.MoveEnd Unit:=wdCharacter, Count:=-1
If IsNumeric(RngCel.Text) Then
If InStr(RngCel.Text, ",") = 0 Then
If InStr(RngCel.Text, ".") = 0 Then
RngCel.Text = Format(RngCel.Text, "#,##0")
Else
RngCel.Text = Format(RngCel.Text, "#,##0.00")
End If
End If
End If
Next
Set RngCel = Nothing
End If
End With
End Sub

Sub NumberFormat()

Dim oCel As Cell, RngCel As Range

With Selection

If .Information(wdWithInTable) = True Then

For Each oCel In .Cells

Set RngCel = oCel.Range

RngCel.MoveEnd Unit:=wdCharacter, Count:=-1

If IsNumeric(RngCel.Text) Then

If InStr(RngCel.Text, ",") = 0 Then

If InStr(RngCel.Text, ".") = 0 Then

RngCel.Text = Format(RngCel.Text, "#,##0")

Else

RngCel.Text = Format(RngCel.Text, "#,##0.00")

End If

Set RngCel = Nothing

End If

End With

End Sub

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

حال با زدن کلید F5 و یا کلیک برروی دکمه RUN همانند تصویر زیر:

ماکروی خود را اجرا خواهیم نمود که خروجی آن تفکیک سه رقم سه رقم اعداد بصورت زیر خواهد بود:

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

آپدیت پست آموزشی در تاریخ (24 فروردین ماه 1399)

دوستان عزیزم بعد از انتشار آموزش فوق، هموطنی با نام کاربری Barzi پیام ارسال نمودند که ماکرونویسی تنها راه حل تفکیک سه رقم سه رقم ارقام در ورد نیست بلکه روش ساده تری برای این عمل نیز وجود دارد که در ادامه پیرامون آن صحبت خواهیم نمود.

با فرض جدول زیر همانند مثال قبل:

قصد داریم قیمت کل را محاسبه و براساس سه رقم سه رقم تفکیک کنیم. بدین منظور ابتدا سلول را انتخاب و سپس از سربرگ Layout برروی ابزار Formula همانند تصویر زیر کلیک می کنیم:

حال از فرمول PRODUCT برای ضرب قیمت واحد و تعداد فروش استفاده می کنیم و از فرمت #,##0 برای تفکیک سه رقم سه رقم خروجی این محاسبات همانند تصویر زیر استفاده خواهیم نمود:

پس از کلیک برروی OK خروجی محاسبات و تفکیک به صورت تصویر زیر خواهد بود:

بله، همانطور که در تصویر فوق نیز مشاهده می کنید روش دوم نیز پاسخگویی این سوال ما است که جا دارد از دوست و هموطن گرامی Barzi تشکر کنیم.

در پایان امیدواریم مطالب پست آموزشی تفکیک سه رقم سه رقم اعداد در جداول Word مورد رضایت و استفاده شما عزیزان و دنبال کنندگان محترم سایت آموزشی اکسل لرن قرار گرفته باشد لذا در صورت وجود هرگونه سوال می توانید آن را در قسمت نظرات برای ما ارسال نمایید. با تشکر

پیشنهاد ما به شما

منبع آموزشی: سایت اکسل لرن