جدا سازی اعداد در سند مالی

[mosaArabi]

با سلام
از دوستان کسی پیشنهادی در خصوص جدا سازی اعداد در سند مالی دارد . نمونه سند ضمیمه شده است

[fazl11]

دوست عزیز سلام
می تونید از تابع right استفاده کنید
بطور مثال 4201 رو می تونید چند تا تکس باکس درست کنید به سایز فاکتور بعد داخل هر یک از اونا شروع کنید به نوشتن تابع Right(cash,1) بعد Right(cash,2) الی آخر
بعد توی هر کدم دوباره یه تابع mid برای جدا کردن اولین عدد استفاده کن
یا می تونید تو در تو بنویسید
Mid(Right([Cash];2);1;1)

[mosaArabi]

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

[emami.sie]

سلام
نمونه رو براتون اصلاح كردم
يا علي

[sajjad_kochekian]

من از فانکشن زیر استفاده کردم
البته من نیاز داشتم سه رقم سه رقم جدا کنم.
امیدوارم مفید باشه.
Public Function number3digit(num As Currency, state As Integer) As String
Dim ln As Integer
If state = 1 Then number3digit = Right(num, 3)

If state = 2 And Len(Trim(num)) > 3 Then
ln = Len(Right(num, 6)) - 3

number3digit = Left(Right(num, 6), ln)

End If
If state = 3 And Len(Trim(num)) > 6 Then
ln = Len(Right(num, 9)) - 6
number3digit = Left(Right(num, 9), ln)
End If

End Function

[mj_bayati]

با سلام و تشکر از اساتید

بااجازه از آقای sajjad_kochekian:

فانکشن شما رو 12 رقمی کردم و توی یه نمونه پیاده کردم :چشمک:
برای آماتورهایی مثل من راحت تر قابل استفاده شد. :گیج:

باتشکر
:تشویق: