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

موضوع: استفاده از یک متغیر در سابروتین های دیگر

  1. #1


    آخرین بازدید
    2016/02/07
    تاریخ عضویت
    March 2014
    نوشته ها
    62
    امتیاز
    130
    سپاس
    24
    سپاس شده
    119 در 41 پست
    تعیین سطح نشده است

    استفاده از یک متغیر در سابروتین های دیگر

    سلام
    تو کد زیر میخواستم بدونم چطوری میشه از متغیر ( ()t ) ( در تکست باکس 2 ) در تکست باکس 3 استفاده کرد.
    کد PHP:
    private Sub TextBox2_AfterUpdate()
    ComboBox1.Clear
    For 1 To TextBox2.Value
    ComboBox1
    .AddItem i
    Next
    Dim t
    () As Integer
    TextBox2.Value
    ReDim Preserve t
    (i) As Integer
    End Sub 
    کد PHP:
    Private Sub TextBox3_AfterUpdate()
    Dim c As Integer
    ComboBox1.Value
    t
    (c)= TextBox3.Value
    End Sub 
    البته کد دومی خطا میده
    ممنون
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.
    پاسخ مورد نظر براي اين تاپيك ارسال شده است.
    ویرایش توسط mch2v : 2015/08/26 در ساعت 16:20

  2.  

  3. #2


    آخرین بازدید
    یک هفته پیش
    تاریخ عضویت
    June 2012
    نوشته ها
    698
    امتیاز
    4179
    سپاس
    625
    سپاس شده
    1,970 در 623 پست
    تعیین سطح نشده است

    با سلام

    احتراما بفرمایید میخواهید قسمت دوم کد چه کاری انجام دهد .

    با تشکر میر

  4. سپاس ها (1)


  5. #3


    آخرین بازدید
    2016/02/07
    تاریخ عضویت
    March 2014
    نوشته ها
    62
    امتیاز
    130
    سپاس
    24
    سپاس شده
    119 در 41 پست
    تعیین سطح نشده است

    احتراما بفرمایید میخواهید قسمت دوم کد چه کاری انجام دهد .
    با اون کد که کارای متفاوتی میخوام انجام بدم ، ولی مثلا تو فایلی که پیوست کردم تو تکست باکس 1 عدد وارد میکنم و اون عدد تعداد لیست کمبوباکسم میشه.
    بعد با تنظیم کمبو باکس ، هر عددی که تو تکست باکس 2 نوشته بشه به اون کمبو باکس نسبت داده و نمایش داده بشه.
    مثلا اگر تو تکست باکس 1 عدد 5 نوشته بشه ،تو کمبوباکس هم از 1 تا 5 لیست میشه و بعد اگر مثلا کمبو باکس رو روی 3 تنظیم کنم و عددی در تکست باکس 2 بنویسم ، تو مسیج باکس ، 2 نمایش داده بشه.
    ممنون
    فايل هاي پيوست شده فايل هاي پيوست شده
    • نوع فایل: xls test.xls اطلاعات (14.5 کیلو بایت, 17 نمایش)

  6. #4


    آخرین بازدید
    یک هفته پیش
    تاریخ عضویت
    June 2012
    نوشته ها
    698
    امتیاز
    4179
    سپاس
    625
    سپاس شده
    1,970 در 623 پست
    تعیین سطح نشده است

    با سلام

    در مورد قسمت اول کاملا متوجه شده بودم فقط قسمت دوم را باز متوجه نشدم

    اگر کمبوباکس را روی عدد سه گذاشتید و در تکست باکس 2 عددی نوشتید برای این عدد چه اتفاقی یا چه محاسباتی انجام شود که در مسج نمایش داده شود .

    این را متوجه نشدم .

    با تشکر میر

  7. سپاس ها (1)


  8. #5


    آخرین بازدید
    2016/02/07
    تاریخ عضویت
    March 2014
    نوشته ها
    62
    امتیاز
    130
    سپاس
    24
    سپاس شده
    119 در 41 پست
    تعیین سطح نشده است

    اگر کمبوباکس را روی عدد سه گذاشتید و در تکست باکس 2 عددی نوشتید برای این عدد چه اتفاقی یا چه محاسباتی انجام شود که در مسج نمایش داده شود .
    ببینید همون عددی که در تکست باکس 2 نوشته شده در مسیج باکس نمایش داده بشه.
    ممنون

  9. #6


    آخرین بازدید
    یک هفته پیش
    تاریخ عضویت
    June 2012
    نوشته ها
    698
    امتیاز
    4179
    سپاس
    625
    سپاس شده
    1,970 در 623 پست
    تعیین سطح نشده است

    با سلام

    طبق فرمایش جنابعالی میتوانید از یکی از دستورات زیر استفاده نمایید.
    کد:
    Private Sub TextBox2_AfterUpdate()
    MsgBox TextBox2.Value
    End Sub
    یا

    کد:
    Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    MsgBox TextBox2.Value
    End Sub
    با تشکر میر


  10. #7


    آخرین بازدید
    2023/08/17
    تاریخ عضویت
    March 2015
    محل سکونت
    آمل
    نوشته ها
    3,343
    امتیاز
    11575
    سپاس
    1,885
    سپاس شده
    8,165 در 3,011 پست
    تعیین سطح نشده است

    با سلام
    و تشکر از دوستان
    با تعریف متغییرها در Option Explicit ایراد فایل برطرف شد.

    کد PHP:
    Option Explicit

    Dim t
    () As IntegerAs IntegerAs Integerflag As Boolean

    Private Sub TextBox1_AfterUpdate()

    ComboBox1.Clear
    For 1 To TextBox1.Value
    ComboBox1
    .AddItem i
    Next

    TextBox1.Value
    ReDim Preserve t
    (i) As Integer

    End Sub

    Private Sub TextBox2_AfterUpdate()

    ComboBox1.Value
    t
    (c) = TextBox2.Value
    End Sub

    Private Sub UserForm_Click()

    End Sub 
    فايل هاي پيوست شده فايل هاي پيوست شده


  11. #8


    آخرین بازدید
    2016/02/07
    تاریخ عضویت
    March 2014
    نوشته ها
    62
    امتیاز
    130
    سپاس
    24
    سپاس شده
    119 در 41 پست
    تعیین سطح نشده است

    با تعریف متغییرها در Option Explicit ایراد فایل برطرف شد.
    آقا واقعا ممنون حل شد.
    فقط میشه در مورد
    Option Explicit
    یه توضیح بدید.
    تشکر.


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

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

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

موضوعات مشابه

  1. تهیه Add-In برای انجام کارهای روتین
    توسط Amin_D در انجمن add-ins
    پاسخ ها: 1
    آخرين نوشته: 2015/08/11, 14:33
  2. ثبت داده*هایی که با استفاده از scroll تغیر میکنند در یک رنج
    توسط msoori در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 1
    آخرين نوشته: 2015/06/29, 16:29
  3. خطای مقدار متغیر در فراخوانی ماکرو
    توسط hs208 در انجمن خطاها در ويژوال بيسيك - Errors in VBA
    پاسخ ها: 3
    آخرين نوشته: 2015/03/09, 00:21
  4. هزار و یک شب اکسل - شب دوازدهم - استفاده از transpose بصورت پویا ( متغیر )
    توسط امين اسماعيلي در انجمن ترفندهای اکسل Excel Tricks
    پاسخ ها: 1
    آخرين نوشته: 2014/04/14, 23:03

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

انجمن اكسل ايران , اكسل , اكسس , سوال و جواب اكسل , سوال اكسس , انجمن اكسل ايران , توابع اكسل, آموزش اكسل, آموزش اكسس, VBA, ويژوال بيسيك

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

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

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

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