پرسش انتخاب یک سطر از یک لیست باکس

[malek230]

سلام بچه ها.
من یه لیست باکس که دارای کد کالا و قیمت و غیره و چنتا تکست باکس کنار لیست باکسه دارم.
میخوام وقتی تو تکست باکس یه ثبت ورود کالای جدید بزنم اگه کد کالا تکراری بود اون سطر از لیست باکس که دارای همون کد کالای تکراری هست اتومات به حالت انتخاب در بیاد تا بتونم اصلاح یا حذف کنم

[malek230]

سلام بچه ها.
من یه لیست باکس که دارای کد کالا و قیمت و غیره و چنتا تکست باکس کنار لیست باکسه دارم.
میخوام وقتی تو تکست باکس یه ثبت ورود کالای جدید بزنم اگه کد کالا تکراری بود اون سطر از لیست باکس که دارای همون کد کالای تکراری هست اتومات به حالت انتخاب در بیاد تا بتونم اصلاح یا حذف کنم

بچه ها خواهش میکنم یه نفر جواب من بده.

[malek230]

بچه ها خواهش میکنم یه نفر جواب من بده.

لطفا فایل پیوست رو چک کنید.
میخوام وقتی تو تکست باکس کد کالا یا شرح کالا کد تکراری یا شرح تکراری وارد کنم سطر مربوطه در لیست باکس به حالت انتخاب در بیاد تآ بشه حذف یا اصلاحش کرد
در ضمن با پسورد یه کاربر ارشد قابل حذف یا تایید باشه نام کاربری و رمز عبور هم به ترتیب 1111 و 2222 هست.

[M_ExceL]

لطفا فایل پیوست رو چک کنید.
میخوام وقتی تو تکست باکس کد کالا یا شرح کالا کد تکراری یا شرح تکراری وارد کنم سطر مربوطه در لیست باکس به حالت انتخاب در بیاد تآ بشه حذف یا اصلاحش کرد
در ضمن با پسورد یه کاربر ارشد قابل حذف یا تایید باشه نام کاربری و رمز عبور هم به ترتیب 1111 و 2222 هست.

سلام،
داخل فایلی که پیوست کردید خبری از لیست باکس و تکست باکس نیست.
لطفا فایلتون رو بررسی کرده و مجددا پیوست کنید.

[malek230]

سلام،
داخل فایلی که پیوست کردید خبری از لیست باکس و تکست باکس نیست.
لطفا فایلتون رو بررسی کرده و مجددا پیوست کنید.

ببخشید ماکروهاش بهم ریخته بود. بفرمایید

[malek230]

ببخشید ماکروهاش بهم ریخته بود. بفرمایید

بچه ها جسارتا اگه امکان داره ج بدید. خیلی حیاتی هست. مرسی

[ali.b]

ببخشید ماکروهاش بهم ریخته بود. بفرمایید

سلام در فایل نمونه شما هم فرم هاو کد نویسی ها نیاز به بررسی مجدد و بهینه سازی داره
مثلادر لیست باکس به جای اینکه فقط رنج های مورد استفاده رو نشون بده همه سلول های خالی رو هم در لیست باکس تعریف کردین
برای مشکل نمایش داده های تکراری و نمایش در لیست باکس کد زیر رو در تکست باکس قرار بدین و منظور از عدد 1 شماره ستون لیست باکس هست که می خواین بررسی شه

Private Sub TextBox1_Change()

Dim i As Long
    Dim n As Long
    Dim Str As String
    Str = TextBox1.Text
    n = Me.ListBox1.ListCount
    For i = 0 To n - 1
        If Left(Me.ListBox1.List(i, [B][COLOR=#ff0000]4[/COLOR][/B]), Len(Str)) = Str Then
            Me.ListBox1.ListIndex = i
            Exit Sub
        End If
    Next i

- - - Updated - - -

ببخشید ماکروهاش بهم ریخته بود. بفرمایید

برای درخواست رمز هم از این کد استفاده کنید در بخش سبز هم کد مورد نظر که بعد از درج پسورد صحیح انجام میشه رو قرار بدین

Dim pword As String        pword = InputBox("Please enter the password", "Password Required")
        
        If pword <> "bigdog" Then
            MsgBox "Yo...You aren't allowed to do that!"
            Exit Sub
        Else
            MsgBox "proceed"
[B][COLOR=#00ff00]            '   Your code here[/COLOR][/B]
        End If
End Sub

[malek230]

سلام در فایل نمونه شما هم فرم هاو کد نویسی ها نیاز به بررسی مجدد و بهینه سازی داره
مثلادر لیست باکس به جای اینکه فقط رنج های مورد استفاده رو نشون بده همه سلول های خالی رو هم در لیست باکس تعریف کردین
برای مشکل نمایش داده های تکراری و نمایش در لیست باکس کد زیر رو در تکست باکس قرار بدین و منظور از عدد 1 شماره ستون لیست باکس هست که می خواین بررسی شه

Private Sub TextBox1_Change()

Dim i As Long
    Dim n As Long
    Dim Str As String
    Str = TextBox1.Text
    n = Me.ListBox1.ListCount
    For i = 0 To n - 1
        If Left(Me.ListBox1.List(i, [B][COLOR=#ff0000]4[/COLOR][/B]), Len(Str)) = Str Then
            Me.ListBox1.ListIndex = i
            Exit Sub
        End If
    Next i

- - - Updated - - -



برای درخواست رمز هم از این کد استفاده کنید در بخش سبز هم کد مورد نظر که بعد از درج پسورد صحیح انجام میشه رو قرار بدین

Dim pword As String        pword = InputBox("Please enter the password", "Password Required")
        
        If pword <> "bigdog" Then
            MsgBox "Yo...You aren't allowed to do that!"
            Exit Sub
        Else
            MsgBox "proceed"
[B][COLOR=#00ff00]            '   Your code here[/COLOR][/B]
        End If
End Sub

آقا ممنون خط مورد نظر در لیست باکس انتخاب میشه ولی مشکل اینه که با وارد کرد رقم اول در تکست باکس ۱ کد کامل کالای قبلی که ثبت کردم خودش در تکست باکس ثبت میشه و اجازه ثبت کد کالای بعدی رو نمیده.

[malek230]

اینم فایل جدید