جستجو در listbox و قرارگرفتن آیتم مورد نظر به صورت select شده

Collapse
X
Collapse
 
  • صفحه از 1
  • زمان
  • نمایش
حذف همه
new posts
قبلی template بعدی
  • matadoor
    • 2017/12/19
    • 3
    #1

    جستجو در listbox و قرارگرفتن آیتم مورد نظر به صورت select شده

    سلام
    فرمی دارم که اطلاعات وارد میکنم و داده هاش هم دریک شیت وارد می شود و هم در یک لیست باکس در زیر فرم نمایش داده میشود
    برای ویرایش این اطلاعات لازم دارم که از بین داده های وارد شده در لیست باکس کد ملی شخص رو جستجو کنم
    بدین صورت که در یک textbox کاربر کد ملی شخص رو وارد کند و با فشردن دکمه جستجو اطلاعات آن کد ملی شامل نام و ... به صورت select شده انتخاب شود تا در داخل فرم بار گذاری شود برای ویرایش
    خودم یک سری کد زدم اما عمل select کردنو نتونستم اجرا کنم
    ممنون میشم ماکروشو بهم بدید
    فایل مورد نظر پیوست میشهformm.zip
    برچسب ها: هیچ‌کدام
    • bahman_220

      • 2015/09/23
      • 72
      #2
      نوشته اصلی توسط matadoor
      سلام
      فرمی دارم که اطلاعات وارد میکنم و داده هاش هم دریک شیت وارد می شود و هم در یک لیست باکس در زیر فرم نمایش داده میشود
      برای ویرایش این اطلاعات لازم دارم که از بین داده های وارد شده در لیست باکس کد ملی شخص رو جستجو کنم
      بدین صورت که در یک textbox کاربر کد ملی شخص رو وارد کند و با فشردن دکمه جستجو اطلاعات آن کد ملی شامل نام و ... به صورت select شده انتخاب شود تا در داخل فرم بار گذاری شود برای ویرایش
      خودم یک سری کد زدم اما عمل select کردنو نتونستم اجرا کنم
      ممنون میشم ماکروشو بهم بدید
      فایل مورد نظر پیوست میشه[ATTACH]16570[/ATTACH]
      سلام دوست عزیز
      کد زیر رو ملاحظه بفرمایید مشکلتون حل میشه ( توجه بفرمایید یک باتم بسازید بنام ویرایش و کد زیر را قرار دهید )
      Private Sub CommandButton2_Click()

      Dim c As Range
      For Each c In Sheet1.Range("b3:b1000")
      If c.Offset(0, 0).Value = ComboBox1.Text Then
      c.Offset(0, -1).Value = c.Row - 2
      c.Offset(0, 0).Value = ComboBox1.Text
      c.Offset(0, 1).Value = TextBox1.Text
      c.Offset(0, 2).Value = TextBox2.Text
      c.Offset(0, 3).Value = TextBox3.Text
      c.Offset(0, 4).Value = TextBox4.Text

      Application.ThisWorkbook.Save
      MsgBox "æíÑÇíÔ ÔÏ "

      Exit For
      End If

      Next
      End Sub
      کد زیر رو هم در درون کمبوباکس که قرار است بر اساس اون که کد ملی شماست اطلاعات ویرایش شود این کد را قرار دهید
      Private Sub ComboBox1_Change()
      Dim c As Range

      TextBox1.Text = ""
      TextBox2.Text = ""
      TextBox3.Text = ""
      TextBox4.Text = ""


      For Each c In Sheet1.Range("b2:b1000")
      If c.Offset(0, 0).Value = ComboBox1.Text Then

      TextBox1.Text = c.Offset(0, 1).Value
      TextBox2.Text = c.Offset(0, 2).Value
      TextBox3.Text = c.Offset(0, 3).Value
      TextBox4.Text = c.Offset(0, 4).Value


      Exit For
      End If

      Next
      End Sub

        کامنت

        • matadoor
          • 2017/12/19
          • 3
          #3
          سپاس از شما
          ولی اون چیزی که مدنظر من هست این نیست
          نوشته اصلی توسط bahman_220
          سلام دوست عزیز
          کد زیر رو ملاحظه بفرمایید مشکلتون حل میشه ( توجه بفرمایید یک باتم بسازید بنام ویرایش و کد زیر را قرار دهید )
          Private Sub CommandButton2_Click()

          Dim c As Range
          For Each c In Sheet1.Range("b3:b1000")
          If c.Offset(0, 0).Value = ComboBox1.Text Then
          c.Offset(0, -1).Value = c.Row - 2
          c.Offset(0, 0).Value = ComboBox1.Text
          c.Offset(0, 1).Value = TextBox1.Text
          c.Offset(0, 2).Value = TextBox2.Text
          c.Offset(0, 3).Value = TextBox3.Text
          c.Offset(0, 4).Value = TextBox4.Text

          Application.ThisWorkbook.Save
          MsgBox "æíÑÇíÔ ÔÏ "

          Exit For
          End If

          Next
          End Sub
          کد زیر رو هم در درون کمبوباکس که قرار است بر اساس اون که کد ملی شماست اطلاعات ویرایش شود این کد را قرار دهید
          Private Sub ComboBox1_Change()
          Dim c As Range

          TextBox1.Text = ""
          TextBox2.Text = ""
          TextBox3.Text = ""
          TextBox4.Text = ""


          For Each c In Sheet1.Range("b2:b1000")
          If c.Offset(0, 0).Value = ComboBox1.Text Then

          TextBox1.Text = c.Offset(0, 1).Value
          TextBox2.Text = c.Offset(0, 2).Value
          TextBox3.Text = c.Offset(0, 3).Value
          TextBox4.Text = c.Offset(0, 4).Value


          Exit For
          End If

          Next
          End Sub

            کامنت

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