جستجوی کلمه و امکان درج در سلول

Collapse
X
Collapse
 
  • صفحه از 1
  • زمان
  • نمایش
حذف همه
new posts
قبلی template بعدی
  • ناصر خان خان

    • 2015/12/22
    • 118
    • 54.00
    #1

    پرسش جستجوی کلمه و امکان درج در سلول

    با سلام خدمت دوستان و اساتید محترم
    تو فایل نمونه اسالی مشخصه که میتونیم کار جستجو رو کلمه به کلمه انجام بدیم فقط میخواستم امکان انتخاب و درج در سلول رو هم فراهم کنه (البته بیشتر نظر بنده فقط قسمت اسامی اشخاصه) حالا یک سلول باشه یا چندین سلول. زحمتش گردن شما خوبان. حالا اگر نظر بهتری هم دارید که خیلی هم خوب فقط نحوه جستجو همینطور باشه. یعنی با نوشتن حرف مورد نظر کلمات و یا عبارات مشابه رو لیست کنه.

    ممنون و متشکرم
    فایل های پیوست شده
    هر گاه خدا تو را به لبه پرتگاه برد باز به او اعتماد کن چون يا تو را از پشت خواهد گرفت يا پرواز را به تو خواهد آموخت
    برچسب ها: کلمه, امکان, جستجوی, در, درج, سلول
    • iranweld

      • 2015/03/29
      • 3341
      #2
      با سلام


      توضیحات شما کامل نیست

      در کدوم سلول درج بشه؟
      یکی از اسمها درج بشه یا تمام اسمی تکراری مشابه درج بشه

        کامنت

        • ناصر خان خان

          • 2015/12/22
          • 118
          • 54.00
          #3
          نوشته اصلی توسط ناصر خان خان
          با سلام خدمت دوستان و اساتید محترم
          تو فایل نمونه اسالی مشخصه که میتونیم کار جستجو رو کلمه به کلمه انجام بدیم فقط میخواستم امکان انتخاب و درج در سلول رو هم فراهم کنه (البته بیشتر نظر بنده فقط قسمت اسامی اشخاصه) حالا یک سلول باشه یا چندین سلول. زحمتش گردن شما خوبان. حالا اگر نظر بهتری هم دارید که خیلی هم خوب فقط نحوه جستجو همینطور باشه. یعنی با نوشتن حرف مورد نظر کلمات و یا عبارات مشابه رو لیست کنه.

          ممنون و متشکرم


          با سلام خدمت اساتید و دوستان بزرگوار
          کسی نیست که جواب و بده زمان زیادی گذشت. خواهشا اگه میتونید کمک کنید.
          هر گاه خدا تو را به لبه پرتگاه برد باز به او اعتماد کن چون يا تو را از پشت خواهد گرفت يا پرواز را به تو خواهد آموخت

            کامنت

            • misammisam
              مدير تالار حسابداری و اکسل

              • 2014/04/04
              • 892
              • 64.00
              #4
              با سلام
              البته شما همه کارو انجام دادید ، فکر کنم فقط تو قسمت ثبتش درون سلول مشکل دارید .
              یک فایل میزارم که تقریبا شبیه کاری که خودتون کردید ، فقط به قسمت ListBox1_DblClick که کدشو براتون میزارم بیستر دقت کنید تا نتیجه بهتری بگیرید .
              کد PHP:
              Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
              a = find_roznameh.ListBox1.ListCount - find_roznameh.ListBox1.ListIndex
              ActiveCell              .Value = find_roznameh.ListBox1.List(find_roznameh.ListBox1.ListCount - a, 1)
              Unload Me
              End Sub 
              توجه : برای باز شدن یوزر فرم جستجو در قسمت سبز رنگ دابل کلیک کنید .

              موفق باشید
              فایل های پیوست شده
              [CENTER][SIGPIC][/SIGPIC]
              [/CENTER]
              [CENTER][FONT=Tahoma][FONT=Tahoma][FONT=Tahoma][FONT=Tahoma][FONT=Tahoma][INDENT]
              [CENTER][SIZE=3][URL="https://affstat.adro.co/click/adf04053-f8a6-439a-9ac4-e6a7e6f4b455"][B]اينجا كليك نكنيا ![/B][/URL][/SIZE]
              [/CENTER]
              [/INDENT]

              [/FONT][/FONT][/FONT][/FONT][/FONT]
              [/CENTER]

                کامنت

                • Javid Mokhtari
                  مدير تالار ويژوال بيسيك

                  • 2012/01/16
                  • 1212
                  • 73.00
                  #5
                  نوشته اصلی توسط ناصر خان خان
                  با سلام خدمت اساتید و دوستان بزرگوار
                  کسی نیست که جواب و بده زمان زیادی گذشت. خواهشا اگه میتونید کمک کنید.
                  ینی 3 هفته س که سئوال شما بدون پاسخ مونده...!!!!؟

                  ضمن تشکر از برادر گرامی misammisam که واقعا جوووور مارو کشیدن.... ممنون برادر

                  البته از برادر دیگرمون iranweld هم تشکر میشه قبلا پیگیر بودن.

                  آقای ناصر اگر هنوز به جوابتان نرسیدین بگین تا پاسخهای مدنظر شما داده شود
                  [FONT=Tahoma][INDENT][CENTER][SIZE=3][FONT=courier new][B][FONT=comic sans ms][SIZE=3][FONT=arial]دوره های آموزش رایگان اکسل از صفر تا پیشرفته بصورت تصویری
                  بیش از [COLOR=#008000]60[/COLOR] جلسه آموزش ویدئویی رایگان

                  شرکت در دوره:
                  [/FONT][/SIZE]
                  [SIZE=5] [FONT=Tahoma][FONT=courier new][B][URL]https://javidsoft.ir/courses/[/URL][/B][/FONT][/FONT][/SIZE][/FONT]
                  [/B][/FONT][/SIZE]
                  [/CENTER]
                  [/INDENT]
                  [/FONT]

                    کامنت

                    • amirghadiri

                      • 2015/03/03
                      • 55
                      #6
                      با سلام خدمت همه دوستان خصوصآ اساتید محترم
                      در پست 4 فایل پیوست دوست عزیز اقای misammisam چنانچه در شیت دیتابیس تکراری بود در لیست باکس بدون تکراری نشان بده
                      و در لیست باکس هم فقط نام مورد جستجو باشد یعنی شماره ردیف نام جستجو نباشد.
                      با تشکر از دوستانی که جواب میدن.

                        کامنت

                        • Javid Mokhtari
                          مدير تالار ويژوال بيسيك

                          • 2012/01/16
                          • 1212
                          • 73.00
                          #7
                          نوشته اصلی توسط amirghadiri
                          با سلام خدمت همه دوستان خصوصآ اساتید محترم
                          در پست 4 فایل پیوست دوست عزیز اقای misammisam چنانچه در شیت دیتابیس تکراری بود در لیست باکس بدون تکراری نشان بده
                          و در لیست باکس هم فقط نام مورد جستجو باشد یعنی شماره ردیف نام جستجو نباشد.
                          با تشکر از دوستانی که جواب میدن.
                          با سلام.

                          شما میتوانید کد مربوط به حلقه DO را با کد زیر جایگزین کنید:

                          کد PHP:

                                                            Do
                                  If                           WorksheetFunction.CountIf(Sheet2.Range("a2", C.Address), C.Value) = 1 Then
                                     find_roznameh                          .ListBox1.AddItem C
                                      find_roznameh                          .ListBox1.List(find_roznameh.ListBox1.ListCount - 1, 0) = C.Value
                                  End                           If
                                                            Set C = .FindNext(C)
                                                            Loop While Not C Is Nothing And C.Address <> firstAddress 
                          البته من نمیدانم دقیقا خواسته شما چیست فقط برای حذف تکراری ها تغییر دادم و ممکنه تو فایل پیوستی مشکل ایجاد کند.
                          [FONT=Tahoma][INDENT][CENTER][SIZE=3][FONT=courier new][B][FONT=comic sans ms][SIZE=3][FONT=arial]دوره های آموزش رایگان اکسل از صفر تا پیشرفته بصورت تصویری
                          بیش از [COLOR=#008000]60[/COLOR] جلسه آموزش ویدئویی رایگان

                          شرکت در دوره:
                          [/FONT][/SIZE]
                          [SIZE=5] [FONT=Tahoma][FONT=courier new][B][URL]https://javidsoft.ir/courses/[/URL][/B][/FONT][/FONT][/SIZE][/FONT]
                          [/B][/FONT][/SIZE]
                          [/CENTER]
                          [/INDENT]
                          [/FONT]

                            کامنت

                            • amirghadiri

                              • 2015/03/03
                              • 55
                              #8
                              تشکر از دوست عزیز jansiz hayat خواسته من در یه فرمی بزرگ جهت ثبت نام مشتری در لیست پیدا کرده حالا اسامی تکراری زیاد هستن ولی شماره همراه هم با اسا

                                کامنت

                                • Javid Mokhtari
                                  مدير تالار ويژوال بيسيك

                                  • 2012/01/16
                                  • 1212
                                  • 73.00
                                  #9
                                  نوشته اصلی توسط amirghadiri
                                  تشکر از دوست عزیز jansiz hayat خواسته من در یه فرمی بزرگ جهت ثبت نام مشتری در لیست پیدا کرده حالا اسامی تکراری زیاد هستن ولی شماره همراه هم با اسا
                                  خب برادر فایل خودتون رو پیوست کنین...
                                  [FONT=Tahoma][INDENT][CENTER][SIZE=3][FONT=courier new][B][FONT=comic sans ms][SIZE=3][FONT=arial]دوره های آموزش رایگان اکسل از صفر تا پیشرفته بصورت تصویری
                                  بیش از [COLOR=#008000]60[/COLOR] جلسه آموزش ویدئویی رایگان

                                  شرکت در دوره:
                                  [/FONT][/SIZE]
                                  [SIZE=5] [FONT=Tahoma][FONT=courier new][B][URL]https://javidsoft.ir/courses/[/URL][/B][/FONT][/FONT][/SIZE][/FONT]
                                  [/B][/FONT][/SIZE]
                                  [/CENTER]
                                  [/INDENT]
                                  [/FONT]

                                    کامنت

                                    • ناصر خان خان

                                      • 2015/12/22
                                      • 118
                                      • 54.00
                                      #10
                                      نوشته اصلی توسط misammisam
                                      با سلام
                                      البته شما همه کارو انجام دادید ، فکر کنم فقط تو قسمت ثبتش درون سلول مشکل دارید .
                                      یک فایل میزارم که تقریبا شبیه کاری که خودتون کردید ، فقط به قسمت ListBox1_DblClick که کدشو براتون میزارم بیستر دقت کنید تا نتیجه بهتری بگیرید .
                                      کد PHP:
                                      Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
                                      a = find_roznameh.ListBox1.ListCount - find_roznameh.ListBox1.ListIndex
                                      ActiveCell                                      .Value = find_roznameh.ListBox1.List(find_roznameh.ListBox1.ListCount - a, 1)
                                      Unload Me
                                      End Sub 
                                      توجه : برای باز شدن یوزر فرم جستجو در قسمت سبز رنگ دابل کلیک کنید .

                                      موفق باشید

                                      با درود فراوان
                                      متشکر این همان چیزیه که میخواستم.
                                      ممنون و متشکر
                                      هر گاه خدا تو را به لبه پرتگاه برد باز به او اعتماد کن چون يا تو را از پشت خواهد گرفت يا پرواز را به تو خواهد آموخت

                                        کامنت

                                        قبلی template بعدی
                                        چند لحظه..