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

موضوع: فراخوانی آخرین کد ثبت شده(منظورم آخرین رکورد ثبت شده نیست!)

  1. #1


    آخرین بازدید
    2016/03/31
    تاریخ عضویت
    December 2013
    محل سکونت
    کلاچای
    نوشته ها
    25
    امتیاز
    27
    سپاس
    121
    سپاس شده
    28 در 12 پست
    تعیین سطح نشده است

    Nuclear فراخوانی آخرین کد ثبت شده(منظورم آخرین رکورد ثبت شده نیست!)

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

    من به یه مشکلی بر خوردم و اونم اینه که: فرض کنید در شیتی اطلاعاتی رو ثبت میکنید و در مرحله بعد میخواید اون اطلاعات رو با توجه به شرایطی فراخوانی کنید. در فایل نمونه پیوست شده در ستون b عنوان های سازمانی ثبت شده اند.در ستون c کد شغل و در ستون d عنوان شغل.
    همانطور که ملاحضه میکنید در ستون b عناوین تکراری وجود دارند. حالا من میخوام در فرم مورد نظر با انتخاب مثلا مدیر مالی آخرین کد شغلی که برای این پست ثبت شده(33) در تکست باکس 1 بیاد.
    هر کاری کردم نتونستم. امیدوارم تونسته باشم منظورم رو برسونم. از دوستانی که میتونن در این زمینه کمکم کنن خواهش میکنم دریغ نفرمایید. سپاسگذارم
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.
    فايل هاي پيوست شده فايل هاي پيوست شده
    • نوع فایل: xlsm Book1.xlsm اطلاعات (21.8 کیلو بایت, 16 نمایش)
    ویرایش توسط kamyar : 2014/05/19 در ساعت 16:48
    با هم پشت ما کوهه

  2. سپاس ها (1)


  3.  

  4. #2
    mokaram آنلاین نیست.
    مدير تالار اکسل و بانک اطلاعاتی


    محصولات کاربر

    ويدئوي ايجاد سطح دسترسي
    آخرین بازدید
    2023/04/20
    تاریخ عضویت
    February 2011
    محل سکونت
    ســــاوه
    نوشته ها
    1,805
    امتیاز
    6409
    سپاس
    8,099
    سپاس شده
    5,163 در 1,502 پست
    سطح اکسل
    74.00 %

    mokaram به Yahoo ارسال پیام
    دوست عزیز تو change کمبو باکست کد زیر را وارد کن
    کد PHP:
    Private Sub ComboBox1_Change()
        
    ActiveSheet.ListObjects("Table4").Range.AutoFilter Field:=2Criteria1:=ComboBox1.Text
        TextBox1
    .Text Application.WorksheetFunction.Subtotal(104Sheet1.Range("c:c"))
        
    ActiveSheet.ListObjects("Table4").Range.AutoFilter Field:=2


    End Sub 



  5. #3


    آخرین بازدید
    2016/03/31
    تاریخ عضویت
    December 2013
    محل سکونت
    کلاچای
    نوشته ها
    25
    امتیاز
    27
    سپاس
    121
    سپاس شده
    28 در 12 پست
    تعیین سطح نشده است

    نقل قول نوشته اصلی توسط M_R_M نمایش پست ها
    دوست عزیز تو change کمبو باکست کد زیر را وارد کن
    کد PHP:
    Private Sub ComboBox1_Change()
        
    ActiveSheet.ListObjects("Table4").Range.AutoFilter Field:=2Criteria1:=ComboBox1.Text
        TextBox1
    .Text Application.WorksheetFunction.Subtotal(104Sheet1.Range("c:c"))
        
    ActiveSheet.ListObjects("Table4").Range.AutoFilter Field:=2


    End Sub 
    ممنونم دوست عزیز. کاملا درست بود.شاد باشی و سلامت
    با هم پشت ما کوهه

  6. سپاس ها (1)


  7. #4


    آخرین بازدید
    2 هفته پیش
    تاریخ عضویت
    November 2013
    محل سکونت
    تهران
    نوشته ها
    1,518
    امتیاز
    6118
    سپاس
    2,884
    سپاس شده
    4,886 در 1,380 پست
    سطح اکسل
    71.67 %

    نقل قول نوشته اصلی توسط M_R_M نمایش پست ها
    دوست عزیز تو change کمبو باکست کد زیر را وارد کن
    کد PHP:
    Private Sub ComboBox1_Change()
        
    ActiveSheet.ListObjects("Table4").Range.AutoFilter Field:=2Criteria1:=ComboBox1.Text
        TextBox1
    .Text Application.WorksheetFunction.Subtotal(104Sheet1.Range("c:c"))
        
    ActiveSheet.ListObjects("Table4").Range.AutoFilter Field:=2


    End Sub 
    البته با اين روش شماره آخرين کد اختصاص داده شده هميشه از کدهاي قبلي بايد بيشتر باشد


  8. #5
    mokaram آنلاین نیست.
    مدير تالار اکسل و بانک اطلاعاتی


    محصولات کاربر

    ويدئوي ايجاد سطح دسترسي
    آخرین بازدید
    2023/04/20
    تاریخ عضویت
    February 2011
    محل سکونت
    ســــاوه
    نوشته ها
    1,805
    امتیاز
    6409
    سپاس
    8,099
    سپاس شده
    5,163 در 1,502 پست
    سطح اکسل
    74.00 %

    mokaram به Yahoo ارسال پیام
    نقل قول نوشته اصلی توسط علي پارسا نمایش پست ها
    البته با اين روش شماره آخرين کد اختصاص داده شده هميشه از کدهاي قبلي بايد بيشتر باشد
    بله علی جان باید بیشتر باشه که قاعدتاً هم اینجوری هست تو کمتر جایی شاید دیده بشه که کدها از زیاد به کم بیاد
    ویرایش توسط mokaram : 2014/05/20 در ساعت 10:10




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

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

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

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

  1. پرسش جستجوی اطلاعات در لیست باکس و نمایش آن در لیست باکس یا...
    توسط kamyar در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 11
    آخرين نوشته: 2019/02/27, 10:11
  2. جستجوی اسامی یک لیست در لیست مرجع
    توسط reshehri در انجمن توابع اکسل - Excel Functions
    پاسخ ها: 1
    آخرين نوشته: 2014/01/13, 19:22

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

فراخوانی site:exceliran.com

کد ثبت ویژوال بیسیک

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

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

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

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