نویسنده موضوع: در محدوده با فرمت text، آیا میتوان فقط عدد وارد کرد و گرنه پیغام خطا دهد؟  (دفعات بازدید: 60 بار)

MaryamSh53

  • کاربر تازه‌وارد
  • *
  • ارسال: 11
  • جمع امتیازها: +0/-0
سلام و عرض خسته نباشید

سوال داشتم لطفا راهنمایی بفرمایین
در فایل پیوست
از محدوده f4 تا u43 فرمت text هست
آیا میشود فقط عدد صحیح یا اعشاری وارد کنیم و هر چی غیر از این (مثلا حروف و ... ) به عنوان ورودی وارد کردیم پیغام خطا دهد و مقدار اشتباه را پاک کند.
از زحمات شما بسیار ممنونم

lamp

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

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


majid_mx4

  • مدیران انجمن
  • *
  • ارسال: 1827
  • جمع امتیازها: +657/-7
با سلام

خیر امکان اینکار وجود ندارد: فرمت خانه ها یا عدد است یا تکست یا تاریخ یا زمان و یا... و شما نمیتوانید عدد را بصورت تکست کنترل کنید.همانطور که شما اسلش "/"را برای اعداد خود انتخاب کرده اید اگر خواسته خودتان را که بالا مطرح کرده اید بخواهید باید با عدد شما با "." به دسیمال برود نه با اسلش. دراینصورت محدوده خود را انتخاب و از منوی اکسل لبه دیتا ، گزینه دیتاولیدیشن را انتخاب و گزیه کاستم را از لیست کشویی انتخاب کرده و فرمول زیر را وارد کنید.(شیت Formula)
=ISNUMBER(C4)
راه دوم : در قسمت ماکروی شیت خود دستورات زیر را وارد کنید.(شیت Macro)

Private Sub Worksheet_Change(ByVal Target As Range)
Dim cell As Range
    Application.EnableEvents = False
    For Each cell In Target
        If Not Application.Intersect(cell, Range("A4:U43")) Is Nothing Then
           If Not IsNumeric(cell.Value) Then
              cell.Value = vbNullString
           End If
        End If
    Next cell
    Application.EnableEvents = True
End Sub
موفق باشید میر

MaryamSh53

  • کاربر تازه‌وارد
  • *
  • ارسال: 11
  • جمع امتیازها: +0/-0
آقای میر
راهتون بی نظیره  عالیه
تشکر فراوان از لطفتون