مرحوم محمد محمدی

🖤 پیام تسلیت

با نهایت تأسف و تأثر، باخبر شدیم جناب آقای محمد محمدی با نام کاربری smartman ، از مدیران ارزشمند انجمن اکسل ایران، دار فانی را وداع گفته‌اند.

ایشان سال‌ها با دانش، تجربه، اخلاق نیکو و روحیه کمک به دیگران، سهم بزرگی در رشد و پویایی انجمن داشتند و خاطره حضور ارزشمندشان همواره در ذهن اعضای انجمن باقی خواهد ماند.

مدیریت و اعضای انجمن ExcelIran این ضایعه را به خانواده محترم ایشان، دوستان و تمامی اعضای انجمن تسلیت عرض نموده و از خداوند متعال برای آن مرحوم، رحمت و مغفرت الهی و برای بازماندگان صبر و شکیبایی مسئلت دارند.


انا لله و انا الیه راجعون

تنظیم ورود تعداد ارقام مشخص در یک سلول در اکسل

Collapse
X
 
  • زمان
  • نمایش
حذف همه
new posts
  • kosar69

    • 2018/05/20
    • 11
    • 83.00

    تنظیم ورود تعداد ارقام مشخص در یک سلول در اکسل

    سلام.میخوام در یک فایل اکسل سلول ها زا طوری تنظیم کنم که بیشتر از یک رقم داخل انها وارد نشه.از data validation استفاده کردم ولی این روش اجازه میده ارقام نوشته بشن بعد خطا میده.من کلا نمیخوام مثلا اگ عدد 12 قرار بود توی سلول نوشته بشه دیگ بعد از 1 به هیچ عنوان تایپ نشه.اگ راهنمایی کنین ممنون میشم
  • hamedghasemi58
    • 2014/07/17
    • 3
    • 69.00

    #2
    سلام
    متاسفانه راهی وجود نداره
    تا زمانی که در اکسل در وضعیت Enter یا ورود اطلاعات هستین یعنی هنوز دکمه Enter رو نزدین یا سلول رو ترک نکردین اطلاعات وارد شده پردازش نمیشن

    کامنت

    • M_ExceL

      • 2018/04/23
      • 677

      #3
      نوشته اصلی توسط kosar69
      سلام.میخوام در یک فایل اکسل سلول ها زا طوری تنظیم کنم که بیشتر از یک رقم داخل انها وارد نشه.از data validation استفاده کردم ولی این روش اجازه میده ارقام نوشته بشن بعد خطا میده.من کلا نمیخوام مثلا اگ عدد 12 قرار بود توی سلول نوشته بشه دیگ بعد از 1 به هیچ عنوان تایپ نشه.اگ راهنمایی کنین ممنون میشم
      سلام
      با فرض این که مقدار مورد نظر را در سلول a1 وارد میکنید :
      کد:
      Private Sub Worksheet_Change(ByVal Target As Range)
      If IsNumeric(Range("a1")) = False Then
      Msgbox "مقدار وارد شده مجاز نیست"
      Range("a1").Value = ""
      ElseIf Len(Range("a1").Value) >= 2 Then
      Msgbox "مقدار وارد شده بیش از یک رقم مجاز نیست"
      Range("a1").Value = ""
      End If
      End Sub
      دانلود فایل اکسل
      [CENTER]Telegram Channel : [url]https://t.me/UltraOfficeSkills[/url]
      [/CENTER]

      کامنت

      چند لحظه..