تغییر متن سلول ها با کمک لیست باکس

[ali.b]

سلام خدمت استاید
م ی فایلی درست کردم که متن مورد نظر تو textbox رو جایگزین ایتمی که تو یست باکس انتخاب میکنیم میشه
اما مشکلم در حالت multi select هست
ممنونم میشم دوستان کمک کنن

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[Ali Parsaei]

سلام،
فکر کنم فايل ضميمه خراب است درست آپلود نکرده ايد، من که نتونستم بازش کنم!

[ali.b]

سلام،
فکر کنم فايل ضميمه خراب است درست آپلود نکرده ايد، من که نتونستم بازش کنم!

سلام فایل سالمه

[Amir Ghasemiyan]

سلام
ببخشید دیر شد

از این کد استفاده کنید

Private Sub CommandButton1_Click()
Dim cell As Range, Rng As Range
If ListBox1.ListIndex <> -1 Then
    For i = 0 To Me.ListBox1.ListCount - 1
        If Me.ListBox1.Selected(i) Then
            list_item_row = Me.ListBox1.List(i, 0)
            class = Me.TextBox1.Text
            Range("C" & list_item_row + 1) = class
        End If
    Next i
End If
End Sub

[ali.b]

سلام
ببخشید دیر شد

از این کد استفاده کنید

Private Sub CommandButton1_Click()
Dim cell As Range, Rng As Range
If ListBox1.ListIndex <> -1 Then
    For i = 0 To Me.ListBox1.ListCount - 1
        If Me.ListBox1.Selected(i) Then
            list_item_row = Me.ListBox1.List(i, 0)
            class = Me.TextBox1.Text
            Range("C" & list_item_row + 1) = class
        End If
    Next i
End If
End Sub

سلام جوابنداد همون حالت عادی هست