حذف سه صفر آخر یا به عبارتی تقسیم نمودن اعداد سلولها به ۱۰۰۰

Collapse
X
Collapse
 
  • صفحه از 1
  • زمان
  • نمایش
حذف همه
new posts
قبلی template بعدی
  • Elman

    • 2017/05/26
    • 8
    • 52.00
    #1

    پرسش حذف سه صفر آخر یا به عبارتی تقسیم نمودن اعداد سلولها به ۱۰۰۰

    با سلام خدمت دوستان و اساتید محترم
    من یه فایلی دارم که تقریبا ۲۰ تا شیت داره میخوام در کلیه شیتها، تمام سلولهایی که عدد داره و فاقد فرمول هست به هزار تقسیم بشه.
    لطفا در این مورد به بنده کمک کنید .با تشکر
    برچسب ها: هیچ‌کدام
    • saed.rasa

      • 2014/11/02
      • 1054
      #2
      برای یک شیت : مرحله 1) یک سلول مثلا A1 عدد 1000 وارد کن آن را کپی کن محدوده مورد نظر (مرحله 2) انتخاب کن مرحله 3) بعد paste special کلید کنترلی Ctrl + Alt + V بعد Divide بعد Ok
      مرحله 2) کلید F5 بزن Numbers -Constants- Go to special سه تیک را بردار(Text-logical- errors)با این کار فقط اعدد بدون فرمول انتخاب می شود یک نکته مهم: بعد انتخاب عدد 1000 را هم انتخاب می کند که شما باید کلید کنترل را پایین نگه داشته و سلول عدد 1000 را کلیک کنید تا آن سلول از انتخاب خارج گردد نهایتا برو مرحله 3

      این عملیات برای یک شیت بود شما می توانید ماکرو ضبط کنید و تکرار کنید برای شیت های بعدی
      [FONT=arial][SIZE=3]اگر کسی به شما کمک کرد، سمت راست پایین هر موضوع تیک [COLOR=#0000cd][B]«3پاس»[/B][/COLOR] یادتان نرود لطفا
      اگر مشکل تان حل شد، حتما تیک سبز رنگ [B][COLOR=#00cc00]«حل شد»[/COLOR][/B] در پست اول را بزنید
      [/SIZE][/FONT][SIZE=3][CENTER][FONT=arial]
      [/FONT][/CENTER]
      [/SIZE][FONT=arial][SIZE=3] اگر میخواهید بهتر و دقیق تر و سریع تر به شما کمک شود، یک [COLOR=#ee82ee][B]«فایل نمونه»[/B][/COLOR] قرار دهید
      فایل نمونه: حداکثر [U][COLOR=#ff0000]50 [/COLOR][/U]کیلوبایت - کوتاه، تقریبا [U][COLOR=#ff0000]10 [/COLOR][/U]سطری - به همراه جواب یا خروجی یا نتیجه مورد انتظار[/SIZE][/FONT][CENTER][FONT=arial][COLOR=#0000ff][SIZE=3][SIZE=3][SIZE=3][SIZE=3]مسیر ارسال فایل : پایین سمت چپ - تنظیمات اضافی - فایل پیوست[/SIZE][/SIZE][/SIZE] [/SIZE][/COLOR]
      [/FONT][/CENTER]

        کامنت

        • M_ExceL

          • 2018/04/23
          • 677
          #3
          نوشته اصلی توسط Elman
          با سلام خدمت دوستان و اساتید محترم
          من یه فایلی دارم که تقریبا ۲۰ تا شیت داره میخوام در کلیه شیتها، تمام سلولهایی که عدد داره و فاقد فرمول هست به هزار تقسیم بشه.
          لطفا در این مورد به بنده کمک کنید .با تشکر
          سلام
          ابتدا از فایلتون کپی تهیه کنید سپس کد زیر رو اجرا کنید :
          کد:
          Sub M_excel()
Dim cel, rng As Range
Application.ScreenUpdating = False
For i = 1 To Sheets.Count
Set rng = Sheets(i).Cells.SpecialCells(xlCellTypeConstants)
For Each cel In rng
If IsNumeric(cel.Value) = True Then
cel.Value = cel.Value / 1000
End If
Next cel
Next i
Application.ScreenUpdating = True
End Sub
          یا حق.
          [CENTER]Telegram Channel : [url]https://t.me/UltraOfficeSkills[/url]
          [/CENTER]

            کامنت

            قبلی template بعدی
            چند لحظه..