یافتن شماره حذف شده

Collapse
این تاپیک قفل است.
X
X
 
  • زمان
  • نمایش
حذف همه
new posts
  • sunstar

    • 2013/12/29
    • 132

    [حل شده] یافتن شماره حذف شده

    فرض کنید که دریک فایل اکسل در ستون a تعدادی شماره به صورت صعودی درست شده و در ستون b نیز کلمات زن یا مرد درج شده است وقتی ستون bرا فیلترمیکنیم و یکی از گزینه‌های زن یا مرد را انتخاب می کنیم متوجه می شویم که در ستون a بعضی از شماره ها حذف شده است مثلا وقتی در ستون b گزینه زن را انتخاب می کنیم متوجه می شویم که در ستون aشماره اول ردیف زن( 1) و دومین رديف زن (3)می باشد. وردیف شماره (2) زن حذف شده است. آیا کدی هست که اولین شماره حذف شده مربوط به ستون مرد یا زن را نشان دهد؟
  • mrhartsclube

    • 2017/11/15
    • 130
    • 81.00

    #2
    سلام دوست عزیز
    اگه یه مثال بزنید که ببینیم عددها چی هستن و ارتباطشون با زن و مرد رو کاربر چجوری تشخیص میده شاید بشه به برنامه هم چنین مطلبی رو فهموند.
    [CENTER][COLOR=#696969][FONT=lucida console]... [B]Programming [/B]C# - VB.Net - VC++ - ASP.Net - HTML - CSS - JS - AS2 - AutoIt - Pascal - Delphi - PHP - Python - VBA - Etc
    [/FONT][/COLOR][SIZE=2][FONT=lucida console][COLOR=#808080]... 2D & 3D [B]Graphic Designer[/B][/COLOR][COLOR=#ff0000][B]|[/B][/COLOR][COLOR=#808080] 2D & 3D [B]Animator [/B][/COLOR][COLOR=#ff0000][B]|[/B][/COLOR][COLOR=#808080] [B]Game [/B]Designer & [B]Hacker [/B][/COLOR][COLOR=#ff0000][B]|[/B][/COLOR][COLOR=#808080] Data [B]Forensic [/B]Expert [/COLOR][COLOR=#ff0000][B]|[/B][/COLOR][COLOR=#808080] [B]Ethical [/B]Hacker [/COLOR][COLOR=#ff0000][B]|[/B][/COLOR][COLOR=#808080] [B]Pen[/B] Tester

    [/COLOR][/FONT][/SIZE][COLOR=#ff0000][FONT=courier new][SIZE=4][B].: Expert in doing what nobody else can :.[/B][/SIZE][/FONT][/COLOR][/CENTER]

    کامنت

    • sunstar

      • 2013/12/29
      • 132

      #3
      از اساتيد بزرگوار کسی نیست به سوال بنده پاسخ بده؟سوال واقعا اشکار وواضح بیان شده.
      Last edited by sunstar; 2019/08/15, 20:10.

      کامنت

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

        • 2014/04/04
        • 892
        • 64.00

        #4
        نوشته اصلی توسط sunstar
        از اساتيد بزرگوار کسی نیست به سوال بنده پاسخ بده؟سوال واقعا اشکار وواضح بیان شده.
        سلام
        اتفاقا سوالتون کاملا نامفهومه ،
        اصلا تو فیلتر کردن چیزی حذف نمیشه فقط بقیه گزینه ها نسبت به فیلتر شما هاید میشن .
        فکر کنم در واقع شما شماره اولین زن یا مردو میخواید ، حالا چه با فیلتر چه بدون فیلتر.
        مثل این :
        فایل های پیوست شده
        [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]

        کامنت

        • sunstar

          • 2013/12/29
          • 132

          #5
          سلام
          از پاسخ جنابعالی ممنونم.ولی منظور من اصلاً این نبود.فایل نمونه رو به پیوست میذارم اگه به فایل توجه کنید هر وقت ردیف جنسیت مرد رو انتخاب می کنیم متوجه میشیم شماره3 حذف شده و هر وقت جنسیت زن رو انتخاب می کنیم متوجه میشیم شماره4 حذف شده ، وقتی اطلاعات یک شیت اکسل ، کم باشه پیدا کردن اولین شماره حذف شده خیلی راحته مثل نمونه فایل اکسلی که من گذاشتم ، ولی وقتی که اطلاعات شما فرضاً 800ردیف باشه و شماره هایی مربوط به هر دو جنس ، حذف شده باشه ؛ پیدا کردنشون واقعاً زمانبره.حالا من کدی میخواستم که با اجرای اون اولین شماره حذف شده هردو جنس رو نشون بده فرضاً در msgbox پیغام بده مرد=3 ،زن=4
          امیدوارم توضیحات من واضح باشه
          با تشکر
          فایل های پیوست شده

          کامنت

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

            • 2014/04/04
            • 892
            • 64.00

            #6
            سلام
            خوب تو فایلی که الان گذاشتید بطور کلی مرد شماره 3 و زن شماره 4 وجود نداره بنابراین تو فیلترم معلومه نشونش نمیده .
            الان من متوجه نشدم این فایلتون مثلا نتیجه بعد از فیلتره یا دیتابیس اولیتونه که قراره تازه فیلتر بشه .
            اصلا قضیه اصلی سوالتون چیه که به چنین چیزی احتیاج دارید ؟ اونو بگید احتمالا بهتر به نتیجه میرسید .
            [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]

            کامنت

            • sunstar

              • 2013/12/29
              • 132

              #7
              سلام
              خواهش میکنم قضیه فیلتر رو فراموش کنید.مسله رو جور دیگری مطرح میکنم فرض کنید ما در محل کارمان 5 نفر مرد و 5 نفر زن داریم و اطلاعات انها را در یک شیت اکسل وارد می کنیم به طوریکه در ستون اول شماره فرد (از یک تا 5 برای مردان و همچنین از یک تا 5 برای زنان) و ستون دوم جنسیت فرد را درج میکنیم.اگر به فرض یکی از شماره ها مربوط به هریک از جنسیتها سهواً درج نشده باشد(مثل فایل قبلی).آیا کدی وجود دارد که شماره ای که درج نشده را نشان دهد؟

              کامنت

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

                • 2014/04/04
                • 892
                • 64.00

                #8
                سلام
                چیزی که بنظرم میرسه با VB هست :

                کد PHP:
                Private Sub CommandButton1_Click()
                Range("H5:H6").ClearContents

                SerchMan 
                Range("E5").Value
                SerchWoman 
                Range("E6").Value
                StartMan 
                Range("F5").Value
                StartWoman 
                Range("F6").Value
                LastRow 
                Sheet4.Range("A:B").Cells.Find("*"SearchOrder:=xlByRowsSearchDirection:=xlPreviousLookAt:=xlWhole).Row

                For 2 To LastRow
                If (Range("B" i).Value SerchManThen
                If (Range("A" i).Value <> StartManThen
                Range
                ("H5").Value StartMan
                Exit For
                Else
                StartMan StartMan 1
                End 
                If
                End If
                Next i

                For 2 To LastRow
                If (Range("B" j).Value SerchWomanThen
                If (Range("A" j).Value <> StartWomanThen

                Range
                ("H6").Value StartWoman
                Exit For
                Else
                StartWoman StartWoman 1
                End 
                If
                End If
                Next j

                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]

                کامنت

                • sunstar

                  • 2013/12/29
                  • 132

                  #9
                  هزاران سپاس

                  کامنت

                  چند لحظه..