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

[Elman]

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

[saed.rasa]

برای یک شیت : مرحله 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

این عملیات برای یک شیت بود شما می توانید ماکرو ضبط کنید و تکرار کنید برای شیت های بعدی

[M_ExceL]

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

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

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

یا حق.