نویسنده موضوع: جدا کردن اعداد به صورت سه رقم سه رقم در Word  (دفعات بازدید: 24081 بار)

behzad95

  • کاربر تازه‌وارد
  • *
  • ارسال: 2
  • جمع امتیازها: +1/-0
با سلام خدمت  دوستان،خواستم بدونم در ورد چگونه میتوان اعداد را سه رقم سه رقم جدا کرد؟ مثلا به صورت زیر
123,456,452

lamp

دانلود فهرست + فصل اول کتاب توابع و فرمول نویسی اکسل

خبر: کامل ترین کتاب توابع و فرمول نویسی در اکسل ترجمه تیم فرساران


فرشید میدانی

  • مدیر سایت
  • *****
  • ارسال: 756
  • جمع امتیازها: +228/-14
    • فرساران
دوستی زمانی به من گفت که برای اینکار یک ماکرو word را یافته بود.
من بلد نیستم ، اما یک نگاهی به لینک زیر بیاندازید، اگر توانستید روش آنرا بیابید، لطفا در اینجا با ما هم به اشتراک بگذارید:

http://www.pcmag.com/article2/0,2817,2227816,00.asp


و اما چند دقیقه دیگر در اینترنت گشتم و خوشبختانه ماکروی زیر را یافتم و به نظر می آید که اینکار را انجام می دهد. (جدا کردن اعداد در Word به صورت سه رقم سه رقم با ماکرو)

Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
Dim oRng As Word.Range
  Set oRng = ActiveDocument.Range
  With oRng.Find
    .Text = "[0-9]{3,}"
    .MatchWildcards = True
    While .Execute
      oRng.Select
      If MsgBox("Do you want to format this instance", vbQuestion + vbYesNo, "FORMAT") = vbYes Then
        oRng = Format(oRng, "#,##0")
      End If
      oRng.Collapse wdCollapseEnd
    Wend
  End With
End Sub

توجه: در مورد آخرین عدد در یک سطر نمی دانم که ممکن است در 2 سطر شود و یا نه، لطفا بررسی کنید.

naser100

  • کاربر انجمن
  • **
  • ارسال: 67
  • جمع امتیازها: +9/-0
با سلام خدمت استاد میدانی
من ماکرو رو امتحان کردم ارور داد و کد متوقف شد
عکس اخطار رو ضمیمه کردم لطف کنید راهنمایی کنید.

barrai

  • کاربر فعال
  • ***
  • ارسال: 121
  • جمع امتیازها: +11/-1
با کد زیر می تونید اعداد انتخابی در یک جدول را به صورت سه رقم سه رقم جدا کنید

(کد حذف شد زیر مربوط به Word نبود و در اکسل کار می کرد)

barrai

  • کاربر فعال
  • ***
  • ارسال: 121
  • جمع امتیازها: +11/-1
با سلام خدمت استاد میدانی
من ماکرو رو امتحان کردم ارور داد و کد متوقف شد
عکس اخطار رو ضمیمه کردم لطف کنید راهنمایی کنید.

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

lamp

دانلود فهرست + فصل اول کتاب توابع و فرمول نویسی اکسل

خبر: کامل ترین کتاب توابع و فرمول نویسی در اکسل ترجمه تیم فرساران


فرشید میدانی

  • مدیر سایت
  • *****
  • ارسال: 756
  • جمع امتیازها: +228/-14
    • فرساران
کاربر گرامی  barrai توجه داشته باشید که این سوال در اکسل پرسیده نشده است و جدا کردن اعداد در Word است و برای جلوگیری از اشتباه سایرین کد شما را حذف می کنم.

در ضمن اگر این کد با خطا مواجه می شود ، احتمال می دهم که از تنظیمات Region در control panel است ، لطفا region را English Unite State انتخاب کنید و مجدد تست نمایید، شاید کد درست عمل کند.

در ضمن اگر نمی خواهد که این کد برای هر عدد سوال را بپرسد، کافی است که دو سطر زیر را حذف کنید :

      If MsgBox("Do you want to format this instance", vbQuestion + vbYesNo, "FORMAT") = vbYes Then
و

      End If

naser100

  • کاربر انجمن
  • **
  • ارسال: 67
  • جمع امتیازها: +9/-0
  جناب آقای میدانی تنظیمات region را English Unite State انتخاب کردم و کد جواب داد.
تشکر می کنم از راهنمایی شما.
ضمناً در مورد آخرین عدد در یک سطر تست کردم و اگر سطر به اندازه کافی فضا نداشته باشد عدد به سطر دوم انتقال پیدا می کند.

فرشید میدانی

  • مدیر سایت
  • *****
  • ارسال: 756
  • جمع امتیازها: +228/-14
    • فرساران
ممنون که تست کردید و نتیجه رو هم نوشتید.

barrai

  • کاربر فعال
  • ***
  • ارسال: 121
  • جمع امتیازها: +11/-1
کاربر گرامی  barrai توجه داشته باشید که این سوال در اکسل پرسیده نشده است و جدا کردن اعداد در Word است و برای جلوگیری از اشتباه سایرین کد شما را حذف می کنم.


جناب میدانی ، کد نوشته شده تو محیط word بود و بنده با تست اون تو ورد به نتیجه هم رسیده بودم . حواسم بود که سوال در حیطه اکسل نیست

behzad95

  • کاربر تازه‌وارد
  • *
  • ارسال: 2
  • جمع امتیازها: +1/-0
دوستی زمانی به من گفت که برای اینکار یک ماکرو word را یافته بود.
من بلد نیستم ، اما یک نگاهی به لینک زیر بیاندازید، اگر توانستید روش آنرا بیابید، لطفا در اینجا با ما هم به اشتراک بگذارید:

http://www.pcmag.com/article2/0,2817,2227816,00.asp


و اما چند دقیقه دیگر در اینترنت گشتم و خوشبختانه ماکروی زیر را یافتم و به نظر می آید که اینکار را انجام می دهد. (جدا کردن اعداد در Word به صورت سه رقم سه رقم با ماکرو)

Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
Dim oRng As Word.Range
  Set oRng = ActiveDocument.Range
  With oRng.Find
    .Text = "[0-9]{3,}"
    .MatchWildcards = True
    While .Execute
      oRng.Select
      If MsgBox("Do you want to format this instance", vbQuestion + vbYesNo, "FORMAT") = vbYes Then
        oRng = Format(oRng, "#,##0")
      End If
      oRng.Collapse wdCollapseEnd
    Wend
  End With
End Sub

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

lamp

دانلود فهرست + فصل اول کتاب توابع و فرمول نویسی اکسل

خبر: کامل ترین کتاب توابع و فرمول نویسی در اکسل ترجمه تیم فرساران


علی رستگاری

  • کاربر تازه‌وارد
  • *
  • ارسال: 1
  • جمع امتیازها: +0/-0
با سلام
چگونه می توان اعدادی را که از اکسل به ورد ارسال می کنیم به صورت جداکننده سه رقم سه رقم تبدیل کرد؟

naser100

  • کاربر انجمن
  • **
  • ارسال: 67
  • جمع امتیازها: +9/-0
دوست عزیز ضمن خوش آمد گویی به شما لطفا لینک زیر را بررسی کنید.
http://forum.farsaran.com/index.php?topic=460.0