تعیین separator برای اعداد

Collapse
X
 
  • زمان
  • Show
Clear All
new posts
  • maziardm

    • May 2013
    • 450

    تعیین separator برای اعداد

    اکسل برای جداد کردن اعشار (decimal separator ) علامت . و برای جدا کردن سه رقم سه رقم (thousands separator) علامت , را به صورت پیش فرض در نظر دارد.

    حالا ما می خواهیم این علامت ها عوض کنیم. به قسمت اکسل آپشن و بعد از آن ادونسد می رویم و تیک use system separators را بر می داریم و علامت دلخواه (برای مثال / و غیره) را میزاریم و تغییر می دهیم.
    اما اینجا یه مشکلی هست و اونم اینه که این تغییرات برای کل شیت ها و کل فایل های اکسل ایجاد میشه. در حالی که ما فقط می خواهیم این تغییرات برای یک شیت یا یک فایل مشخص اعمال بشه و در بقیه فایل ها تغییرات ایجاد نشه.
    آیا راهی برای اینکار هست یا خیر؟
    با تشکر از تمامی دوستان
  • ~M*E*H*D*I~

    • October 2011
    • 4374

    #2
    در همون مسیری که گفتید به نظرم امکان انتخاب وجود داشته باشه که تغییرات در در چه سطحی اعمال بشه

    sigpic

    Comment

    • maziardm

      • May 2013
      • 450

      #3
      نوشته اصلی توسط vatanparast
      در همون مسیری که گفتید به نظرم امکان انتخاب وجود داشته باشه که تغییرات در در چه سطحی اعمال بشه
      با سلام و روز خوش
      ممنونم. ولی میشه دقیق تر بگید. من خودم پیدا نکردم .با تشکر از شما

      Comment

      • MEYTI

        • November 2010
        • 362

        #4
        با سلام و با اجازه استاد وطن پرست
        دوست عزیز این تنظیمات عمومی هستش و برای یک فایل خاص انجام نمیشود
        برای این کار شما میتوانید از ماکرو نویسی کمک بگیرید و از نمونه کدهای زیر استفاد کنید تا هنگام باز شدن فایل تنظیمات دلخواه اعمال بشه و بعد از بسته شدن تنظیمات پیشفرض فعال شود

        کد باز شدن فایل
        کد:
        Private Sub Workbook_Open()
        With Application
                .DecimalSeparator = "/"
                .ThousandsSeparator = "."
                .UseSystemSeparators = False
            End With
        End Sub
        کد بسته شدن
        کد:
        Private Sub Workbook_BeforeClose(Cancel As Boolean)
        With Application
               
                .UseSystemSeparators = True
                
            End With
        End Sub
        مهدی کریمی

        Comment

        Working...