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

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

  1. #1


    آخرین بازدید
    2024/02/08
    تاریخ عضویت
    April 2011
    نوشته ها
    384
    امتیاز
    245
    سپاس
    415
    سپاس شده
    225 در 123 پست
    سطح اکسل
    67.00 %

    بروز شدن اطلاعات کمبود باکس بعد از ثبت اطلاعات

    دورد به اساتید عزیز
    اطلاعات ComboBox من از یه شیت دیگه فراخوانی میشه.
    وقتی توسط فرم VBA یه دیتا در اون شیت ثبت میکنم ، اون مقداری که ثبت کردم همونجا به Combobox اضافه نمیشه مجبورم یه بار کلا فرم رو ببندم و دوباره باز کنم تا مقداری که ثبت کردم در کمبوباکس به نمایش درباید.

    (توی فرم فایل ضمیمه دکمه "تعریف جدید" رو بزنید و یه نفر رو اضافه کنید اون نفری که شما اضافه کردید باید توی Combobox آقا/خانم بیاد
    ولی نمیاد ، و باید 1 بار کلا فرم رو ببنید و دوباره فرم رو باز کنیدفرد تا اضافه بشه)
    من چند تا کد رو امتحان کردم ولی نشد انگار باید در هنگام ذخیره فرد جدید یکبار COMBOBOX ریفرش بشه
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.
    فايل هاي پيوست شده فايل هاي پيوست شده
    پاسخ مورد نظر براي اين تاپيك ارسال شده است.

  2.  

  3. #2


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

    با سلام

    دوست عزیز

    برای دکمه تعریف جدید دستور زیر را تعریف میکنید

    کد:
    UserForm1.Hide
    NewUserForm.Show vbModeless

    و برای فرم تعریف جدید دستور زیر را استفاده نمایید


    کد:
    Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
        If CloseMode = vbFormControlMenu Then
          Unload Me
    UserForm1.Show
        End If
    End Sub

    و زیر دکمه ذخیره هم این دستور را اضافه کنید .

    [CODE][
    Dim cell As Range
    For Each cell In Sheets("NameManager").Range("b2:b4000")
    With UserForm1.TextBox1
    .AddItem cell.Value
    End With
    Next
    /CODE]
    موفق باشید میر

  4. سپاس ها (4)


  5. #3


    آخرین بازدید
    2024/02/08
    تاریخ عضویت
    April 2011
    نوشته ها
    384
    امتیاز
    245
    سپاس
    415
    سپاس شده
    225 در 123 پست
    سطح اکسل
    67.00 %

    ممنون جناب میر
    طبق راهنمایی شما عمل کردم
    ولی متاسفانه درست نشد
    فایل ضمیمه کردم خدمتتون
    فايل هاي پيوست شده فايل هاي پيوست شده

  6. #4


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

    با سلام

    بله کاملا حق باشما بود تغییرات لازم در فایل ضمیمه انجام شده ( بابت بی توجهی پوزش می طلبم )

    این دستور تغییر کرد و بجای Hide دستور unload me استفاده شد
    [CODE][UserForm1.Hide
    NewUserForm.Show vbModeless/CODE]

    و یک دستور Active برای فرم اضافه شد
    پایدار باشید میر
    فايل هاي پيوست شده فايل هاي پيوست شده



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

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

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

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

  1. قیمت روز
    توسط exceliran در انجمن توابع اکسل - Excel Functions
    پاسخ ها: 5
    آخرين نوشته: 2015/06/15, 10:53
  2. [حل شده] تبدیل روز به ماه
    توسط hamid0299 در انجمن توابع اکسل - Excel Functions
    پاسخ ها: 8
    آخرين نوشته: 2013/11/11, 10:47
  3. مشخص کردن روز هفته
    توسط Amin_D در انجمن توابع اکسل - Excel Functions
    پاسخ ها: 1
    آخرين نوشته: 2013/06/02, 19:25

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

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

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

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

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

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