پرفروش ترين
برترين
آخرين محصولات فروشگاه
فایل الکترونیکی آموزش اکسل پیشرفته ۲۰۱۰
آموزش ایجاد فایل چندکاربره با سطح دسترسی مشخص
صفحه 1 از 2 12 آخرینآخرین
نمایش نتایج: از شماره 1 تا 10 , از مجموع 15

موضوع: find اطلاعات از کامبو باکس

  1. #1


    آخرین بازدید
    3 روز پیش
    تاریخ عضویت
    February 2014
    محل سکونت
    تهران
    نوشته ها
    524
    امتیاز
    1130
    سپاس
    2,844
    سپاس شده
    1,050 در 348 پست
    سطح اکسل
    51.00 %

    علی فاطمی به Yahoo ارسال پیام

    find اطلاعات از کامبو باکس

    با سلام ،
    اگر دوستان فایل پیوست رو ملاحظه بفرمایند در شیت1 دو ستون وجود داره ( ردیف و عدد ) که در ستون ردیف اطلاعات تکراری وجود دارده ولی در ستون عدد خیر . اگر کامن باتن رو بزنید در یوزرفرم دوتا کامبو باکس هست که اطلاعات کامبو ردیف از ستون ردیف گرفته می شه :
    - حالا می خوام وقتی مثلا در کامبو ردیف عدد 1 قرار گرفت ، در کامبو عدد ، فقط اعدادی که روبروی عدد 1 در ستون عدد قرار دارند مشاهده بشه ( یعنی RowSource کامبو عدد در اینجا اعداد 20 تا 32 بشه ) واگر در کامبو ردیف عدد 3 قرار گرفت در کامبو عدد ، فقط اعدادی که روبروی عدد 3 در ستون عدد قرار دارند مشاهده بشه ( یعنی RowSource کامبو عدد در اینجا اعداد 40 تا 46 بشه )
    - حالا وقتی کامبو عدد اطلاعاتش انتخاب شد مثلا عدد 21 ، توسط کامن باتن find ، در شیت2 سلولی که عدد 21 در اون قرار داره مشاهده بشه.
    ممنون از توجه شما.
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.
    فايل هاي پيوست شده فايل هاي پيوست شده
    پاسخ مورد نظر براي اين تاپيك ارسال شده است.
    در دنیا فقط یک نفر وجود دارد که باید از او بهتر باشید و آن کسی نیست جز گذشته خودتان




  2.  

  3. #2


    آخرین بازدید
    2023/04/24
    تاریخ عضویت
    April 2014
    محل سکونت
    كرج
    نوشته ها
    893
    امتیاز
    4535
    سپاس
    2,336
    سپاس شده
    2,919 در 802 پست
    سطح اکسل
    64.00 %

    سلام

    کد HTML:
    Private Sub ComboBox1_Change()
    If ComboBox1.Text = "1" Then
    ComboBox2.RowSource = Range("code_1").Name
    ElseIf ComboBox1.Text = "3" Then
    ComboBox2.RowSource = Range("code_3").Name
    End If
    End Sub
    code_1 و code_3 محدوده هايي هست كه نامگذاري شده تا اگر رديفي insert شد ، شامل محدوده بشه .
    فايل هاي پيوست شده فايل هاي پيوست شده


  4. #3


    آخرین بازدید
    3 روز پیش
    تاریخ عضویت
    February 2014
    محل سکونت
    تهران
    نوشته ها
    524
    امتیاز
    1130
    سپاس
    2,844
    سپاس شده
    1,050 در 348 پست
    سطح اکسل
    51.00 %

    علی فاطمی به Yahoo ارسال پیام
    نقل قول نوشته اصلی توسط misammisam نمایش پست ها
    سلام

    کد HTML:
    Private Sub ComboBox1_Change()
    If ComboBox1.Text = "1" Then
    ComboBox2.RowSource = Range("code_1").Name
    ElseIf ComboBox1.Text = "3" Then
    ComboBox2.RowSource = Range("code_3").Name
    End If
    End Sub
    code_1 و code_3 محدوده هايي هست كه نامگذاري شده تا اگر رديفي insert شد ، شامل محدوده بشه .
    با سلام و ممنون از توجه شما ،
    ستون های ردیف و عدد دائما در حال افزایش و یا کاهش خواهند بود با تعریف محدوده ، تغییرات لحاظ نمی شوند.

    لطفا در مورد کامن باتن find هم یه کمکی بفرمائید.
    ویرایش توسط علی فاطمی : 2014/07/09 در ساعت 10:31
    در دنیا فقط یک نفر وجود دارد که باید از او بهتر باشید و آن کسی نیست جز گذشته خودتان




  5. #4


    آخرین بازدید
    3 روز پیش
    تاریخ عضویت
    February 2014
    محل سکونت
    تهران
    نوشته ها
    524
    امتیاز
    1130
    سپاس
    2,844
    سپاس شده
    1,050 در 348 پست
    سطح اکسل
    51.00 %

    علی فاطمی به Yahoo ارسال پیام
    با سلام
    دوستان این تاپیک رو ملاحظه کردین؟
    در دنیا فقط یک نفر وجود دارد که باید از او بهتر باشید و آن کسی نیست جز گذشته خودتان




  6. #5


    آخرین بازدید
    3 روز پیش
    تاریخ عضویت
    February 2014
    محل سکونت
    تهران
    نوشته ها
    524
    امتیاز
    1130
    سپاس
    2,844
    سپاس شده
    1,050 در 348 پست
    سطح اکسل
    51.00 %

    علی فاطمی به Yahoo ارسال پیام
    با سلام ،
    من با سعی و خطا به یه جاهایی رسیدم ، اساتید و مدیران محترم یه لطف کنن راه آماتوری بنده ( فایل پیوست ) رو ملاحظه کنن و نظر حرفه ای بدن.
    البته مشکل find همچنان پابرجاست و نتونستم کاری براش انجام بدم اگر راهنمایی بفرمائید ممنون میشم.
    فايل هاي پيوست شده فايل هاي پيوست شده
    در دنیا فقط یک نفر وجود دارد که باید از او بهتر باشید و آن کسی نیست جز گذشته خودتان




  7. #6


    آخرین بازدید
    2023/05/03
    تاریخ عضویت
    January 2012
    محل سکونت
    استان اردبیل / شهرستان پارس آباد (مغان)
    نوشته ها
    1,222
    امتیاز
    2665
    سپاس
    1,411
    سپاس شده
    2,121 در 671 پست
    سطح اکسل
    73.00 %

    Javid Mokhtari به Yahoo ارسال پیام
    با سلام.
    در شیت2 اعداد با متن درهم هستن ؟
    ولی برای پیدا کردن میتونید از کد زیر استفاده منید...
    کد PHP:
    On Error Resume Next
    Sheet2
    .Select
    Cells
    .Find(What:=ComboBox2.TextLookIn:=xlFormulasLookAt:=xlPartSearchOrder:=xlByRows).Select 
    دوره های آموزش رایگان اکسل از صفر تا پیشرفته بصورت تصویری
    بیش از 60 جلسه آموزش ویدئویی رایگان

    شرکت در دوره:

    https://javidsoft.ir/courses/




  8. #7


    آخرین بازدید
    3 روز پیش
    تاریخ عضویت
    February 2014
    محل سکونت
    تهران
    نوشته ها
    524
    امتیاز
    1130
    سپاس
    2,844
    سپاس شده
    1,050 در 348 پست
    سطح اکسل
    51.00 %

    علی فاطمی به Yahoo ارسال پیام
    نقل قول نوشته اصلی توسط jansiz hayat نمایش پست ها
    با سلام.
    در شیت2 اعداد با متن درهم هستن ؟
    ولی برای پیدا کردن میتونید از کد زیر استفاده منید...
    کد PHP:
    On Error Resume Next
    Sheet2
    .Select
    Cells
    .Find(What:=ComboBox2.TextLookIn:=xlFormulasLookAt:=xlPartSearchOrder:=xlByRows).Select 
    با سلام و ممنون از توجه شما،
    بله اعداد با متن درهم هستن . کدی که نوشتین بسیار عالی بود ، با این کد اولین عدد پیدا میشه ، سوال من اینه اگر اعداد تکراری وجود داشته باشد به چه صورت خواهد بود مثلا عدد 21 دو یا سه بار تکرار شده باشد تکرار آن نیز قابل پیدا شدن است؟
    در دنیا فقط یک نفر وجود دارد که باید از او بهتر باشید و آن کسی نیست جز گذشته خودتان




  9. #8


    آخرین بازدید
    2023/05/03
    تاریخ عضویت
    January 2012
    محل سکونت
    استان اردبیل / شهرستان پارس آباد (مغان)
    نوشته ها
    1,222
    امتیاز
    2665
    سپاس
    1,411
    سپاس شده
    2,121 در 671 پست
    سطح اکسل
    73.00 %

    Javid Mokhtari به Yahoo ارسال پیام
    نقل قول نوشته اصلی توسط علی فاطمی نمایش پست ها
    با سلام و ممنون از توجه شما،
    بله اعداد با متن درهم هستن . کدی که نوشتین بسیار عالی بود ، با این کد اولین عدد پیدا میشه ، سوال من اینه اگر اعداد تکراری وجود داشته باشد به چه صورت خواهد بود مثلا عدد 21 دو یا سه بار تکرار شده باشد تکرار آن نیز قابل پیدا شدن است؟
    با سلام.
    شما هم از طریق یوزرفرم می توانید مقدار را در شیت2 جست و جو کنید و هم بصورت دستی مقدار را در شیت 2 در قسمت "مورد جست و جو" وارد کنید.
    درضمن فرقی نمیکند که مقدار سلول شما فقط عدد(متنی) باشد یا ترکیبی از عدد و متن.
    فايل هاي پيوست شده فايل هاي پيوست شده
    دوره های آموزش رایگان اکسل از صفر تا پیشرفته بصورت تصویری
    بیش از 60 جلسه آموزش ویدئویی رایگان

    شرکت در دوره:

    https://javidsoft.ir/courses/




  10. #9


    آخرین بازدید
    3 روز پیش
    تاریخ عضویت
    February 2014
    محل سکونت
    تهران
    نوشته ها
    524
    امتیاز
    1130
    سپاس
    2,844
    سپاس شده
    1,050 در 348 پست
    سطح اکسل
    51.00 %

    علی فاطمی به Yahoo ارسال پیام
    نقل قول نوشته اصلی توسط jansiz hayat نمایش پست ها
    با سلام.
    شما هم از طریق یوزرفرم می توانید مقدار را در شیت2 جست و جو کنید و هم بصورت دستی مقدار را در شیت 2 در قسمت "مورد جست و جو" وارد کنید.
    درضمن فرقی نمیکند که مقدار سلول شما فقط عدد(متنی) باشد یا ترکیبی از عدد و متن.
    با سلام و تشکر از اینکه روی این موضوع وقت گداشتین و پاسخ نیز بسیار عالی بود.
    اگر به ابتدای تاپیک برگردیم در مورد مشکل کامبو باکس ها، من با یه راه آماتتوری اینکارو انجام دادم(پست 5) حالا که دارم کدها تو برنامه اصلی وارد می کنم جواب نمیده چراکه اطلاعات فایل مثال عددی بودن در صورتی که اطلاعات اصلی به صورت رشته (حرفی ) هستش و عملا برای کامبوباکسها مشکل ایجاد میکنه . لطفا فایل پیوست رو ملاحظه بفرمائید.
    ممنون از توجه شما
    فايل هاي پيوست شده فايل هاي پيوست شده
    در دنیا فقط یک نفر وجود دارد که باید از او بهتر باشید و آن کسی نیست جز گذشته خودتان




  11. سپاس ها (1)


  12. #10


    آخرین بازدید
    2023/04/24
    تاریخ عضویت
    April 2014
    محل سکونت
    كرج
    نوشته ها
    893
    امتیاز
    4535
    سپاس
    2,336
    سپاس شده
    2,919 در 802 پست
    سطح اکسل
    64.00 %

    نقل قول نوشته اصلی توسط علی فاطمی نمایش پست ها
    با سلام و تشکر از اینکه روی این موضوع وقت گداشتین و پاسخ نیز بسیار عالی بود.
    اگر به ابتدای تاپیک برگردیم در مورد مشکل کامبو باکس ها، من با یه راه آماتتوری اینکارو انجام دادم(پست 5) حالا که دارم کدها تو برنامه اصلی وارد می کنم جواب نمیده چراکه اطلاعات فایل مثال عددی بودن در صورتی که اطلاعات اصلی به صورت رشته (حرفی ) هستش و عملا برای کامبوباکسها مشکل ایجاد میکنه . لطفا فایل پیوست رو ملاحظه بفرمائید.
    ممنون از توجه شما
    کد PHP:
    Private Sub ComboBox1_Change()
    ActiveSheet.Range("$b$4:$c$4").AutoFilter field:=1Criteria1:=ComboBox1
    ComboBox2
    .Text ""
    Dim x
    Dim y
    Dim z
    Dim t 
    As Integer
    ComboBox1.Text
    ActiveSheet.Cells(Rows.Count"c").End(xlUp).Address
    Application.WorksheetFunction.Match(tRange("sss"), 0)
    ComboBox2.RowSource "Sheet1!" & ("C" z) & ":" x
    End Sub 
    شما متغيرتو Integer معرفي كردي ، اگه تبديل به String بكنيش اين مشكلت حله
    کد PHP:
    Dim t As String 



صفحه 1 از 2 12 آخرینآخرین

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

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

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

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

  1. find and replace
    توسط mahsa shayesteh در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 15
    آخرين نوشته: 2014/09/16, 08:37
  2. آموزشی تابع find
    توسط mr.mahlouji در انجمن آموزش توابع اكسل
    پاسخ ها: 3
    آخرين نوشته: 2014/09/15, 09:04
  3. Find and Replace
    توسط hamedehsanzadeh در انجمن گرافیک، نمودار و تنظیمات - Graphics, Charts and Settings
    پاسخ ها: 3
    آخرين نوشته: 2011/10/18, 16:08
  4. mid & find
    توسط arimas در انجمن آموزش توابع اكسل
    پاسخ ها: 5
    آخرين نوشته: 2011/04/07, 13:08

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

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

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

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

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

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