نمایش نتایج: از شماره 1 تا 7 , از مجموع 7

موضوع: اعمال شرط همزمان به چند تکست باکس

  1. #1


    آخرین بازدید
    2022/02/18
    تاریخ عضویت
    October 2013
    محل سکونت
    ارومیه
    نوشته ها
    26
    امتیاز
    12
    سپاس
    21
    سپاس شده
    8 در 5 پست
    سطح اکسل
    57.00 %

    sma519 به Yahoo ارسال پیام

    اعمال شرط همزمان به چند تکست باکس

    با سلام خدمت دوستان گرامی

    فرض کنید 10 تا تکست باکس داریم که باید همه آنها مقدار دهی شوند و سپس توسط یک باتن در محدوده ای از یک شیت ثبت گردند.
    حال قصد داریم شرطی برای باتن تعریف کنیم که اگر حتی یکی از تکست باکس ها هم خالی بود، پیام تعریف شده ای را نمایش دهد.

    در این مورد به راهنمایی دوستان نیاز دارم.

    با تشکر قبلی.
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

  2.  

  3. #2


    آخرین بازدید
    2018/11/06
    تاریخ عضویت
    July 2011
    محل سکونت
    تهران
    نوشته ها
    385
    امتیاز
    905
    سپاس
    665
    سپاس شده
    1,397 در 369 پست
    تعیین سطح نشده است

    با سلام
    به لینک زیر مراجعه کنید

    http://forum.exceliran.com/showthrea...ll=1#post15274
    ************************************
    No LION's roar ruins my hut, I afraid of TERMITE's silence
    ************************************


  4. سپاس ها (1)


  5. #3


    آخرین بازدید
    2022/02/18
    تاریخ عضویت
    October 2013
    محل سکونت
    ارومیه
    نوشته ها
    26
    امتیاز
    12
    سپاس
    21
    سپاس شده
    8 در 5 پست
    سطح اکسل
    57.00 %

    sma519 به Yahoo ارسال پیام
    با سلام

    تو فایل پیوستی شرط برای تک تک تکست باکس ها جداگانه تعریف شده. اگه تعدادشون زیاد باشه، کار مشکل میشه. آیا راه حل ساده تری نیست؟

    ممنون

  6. #4


    آخرین بازدید
    2022/12/14
    تاریخ عضویت
    March 2011
    محل سکونت
    کرج
    نوشته ها
    649
    امتیاز
    1611
    سپاس
    2,233
    سپاس شده
    1,581 در 464 پست
    سطح اکسل
    80.00 %

    Alireza به Yahoo ارسال پیام
    سلام
    بهر حال تکست باکسها لازم به تعریف دارند در بعضی موارد برای کوتاه کردن ماکرو میشه از آرایه ها یا از حلقه ها استفاده کرد
    تنها راهي که به شکست مي انجامد، تلاش نکردن است



  7. #5


    آخرین بازدید
    2018/11/06
    تاریخ عضویت
    July 2011
    محل سکونت
    تهران
    نوشته ها
    385
    امتیاز
    905
    سپاس
    665
    سپاس شده
    1,397 در 369 پست
    تعیین سطح نشده است

    با سلامشما میتونید از یک حلقه استفاده کنید مثل کد زیر:


    کد:
    For Each cCont In Me.Controls
        If TypeName(cCont) = "TextBox" Then
            If cCont = "" Then
    msgBox "همه تکستباکسهارا پر کنید"
     ......
    end if
    end if
    next
    ************************************
    No LION's roar ruins my hut, I afraid of TERMITE's silence
    ************************************



  8. #6


    آخرین بازدید
    2022/12/26
    تاریخ عضویت
    November 2010
    محل سکونت
    کرج
    نوشته ها
    362
    امتیاز
    295
    سپاس
    193
    سپاس شده
    596 در 151 پست
    تعیین سطح نشده است

    MEYTI به Yahoo ارسال پیام
    با سلام و با تشکر از نیما عزیز
    یه مشکلی که کد بالا داره با توجه به اینکه مسیج باکس داخل حلقه است برای هر شمارنده حلقه یکبار پیام نمایش داده میشه
    شما دوست عزیز در این جور مواقع برای اشاره به چندین کنترل خاص بهتر از خاصیت TAG کترل استفاده کنید در قسمت PROPERTIES هر کنترل خاصیت TAG ان کنترل را میتوان مشخص کرد که من در اینجا تگ کنترلهای مورد نظر را A قرار دادم و بعد با حلقه به این گروه تگ اشاره کردم
    کد زیررا ملاحظه فرمایید
    کد:
    Dim T As Boolean
    
    For Each CTL In Me.Controls
    
     If CTL.Tag = "A" And CTL.Value = "" Then
    
    T = False
    
    Exit For
    
    Else
    T = True
        End If
    
    Next CTL
    
    If T = True Then
    MsgBox "ثبت انجام شد"
    
    Else
    
    MsgBox ("یکی از تکست باکها خالی می باشد")
    End If
    مهدی کریمی


  9. #7


    آخرین بازدید
    2022/06/26
    تاریخ عضویت
    January 2013
    محل سکونت
    شیراز
    نوشته ها
    1,198
    امتیاز
    3248
    سپاس
    1,566
    سپاس شده
    3,182 در 795 پست
    سطح اکسل
    84.00 %

    با درود
    ممنون از اقا نیما و مهدی جان

    اگر کد اقا نیما رو هم به این صورت بنویسیم فکر نکنم مشکلی پیش بیاد
    کد:
    Private Sub CommandButton1_Click()
    For Each cCont In Me.Controls
        If TypeName(cCont) = "TextBox" And cCont = "" Then
            
    MsgBox "Please fill all textbox"
     Exit Sub
     End If
    Next
    '"""""""""""""""""""""
    MsgBox "All data complete"
    End Sub
    اینو واسه یه button نوشتیم. همون کد نیما جان با یکم تغییر
    در پناه خداوندگار ایران زمین باشید و پیروز



اطلاعات موضوع

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

در حال حاضر 1 کاربر در حال مشاهده این موضوع است. (0 کاربران و 1 مهمان ها)

بازدید کنندگان با جستجو های زیر این صفحه را پیدا کرده اند

استفاده از حلقه for براي مقدار دهي به تكست باكس

چند شرط در اکسل

استفاده از تکست باکس در اکسل

پر بودن باکس استاد

مقدار دهی یه تکست باکس در ویژال بیسیک

پر شدن همزمان دو textbox

پر شدن دو textbox به صورت همزمان

پر شدن همزمان دو textbox به صورت همزمان در wpf

ورود همزمان تکست در textbox ها

شرط کنترل پر بودن تکست باکس در سی شارپ

خالی کردن همزمان محتوای چند textbox در سی شارپ

حلقه خالی کردن تکست باکس

تکست باکس شرطی

مقدار دهی به تکست باکس‌ها در اکسل

شرط خالی بودن تکست باکس اکسس

فراخوانی تکست باکس ها در آرایه

تگ کنترل اکسس#

استفاده از تکس باکس اکسل در vba

تغیر دادن چند تکست باکس اکسس

اگر تکست باکس در ویژوال بیسیک خالی بود پیغام خطا بدهد

افزودن تکست باکس در اکسل

اعمال چند شرط

پیغام خطا جهت پر کردن تکست باکس ها

خواندن متن چند شرط اکسل

استفاده از تکست باکس در اکسیل

کلمات کلیدی این موضوع

علاقه مندی ها (Bookmarks)

مجوز های ارسال و ویرایش

  • شما نمیتوانید موضوع جدیدی ارسال کنید
  • شما امکان ارسال پاسخ را ندارید
  • شما نمیتوانید فایل پیوست کنید.
  • شما نمیتوانید پست های خود را ویرایش کنید
  •  
  • BB code ها فعال هستند
  • شکلک ها فعال هستند
  • کد [IMG] فعال است
  • کد [VIDEO] فعال است
  • کد HTML غیر فعال است
با ما در تماس باشيد