سلام
گاهی وفتا در برنامه نویسی اکسل نیاز داریم اطلاعات فقط در لیست باکس درج شود و تا در صورت نیاز بی دردسر حذف یا ویرایش سپس با تایید نهایی در شیت ها درج شود
در این نمونه کد داده ها فقط در لیست باکس درج می شوند
گاهی وفتا در برنامه نویسی اکسل نیاز داریم اطلاعات فقط در لیست باکس درج شود و تا در صورت نیاز بی دردسر حذف یا ویرایش سپس با تایید نهایی در شیت ها درج شود
در این نمونه کد داده ها فقط در لیست باکس درج می شوند
کد:
Dim x As Integerx = ListBox2.ListCount With ListBox2 .Font.Name = "B Yekan" .ColumnWidths = "40;60;240;220" .AddItem .LIST(x, 0) = Cells(ActiveCell.Row, 1) .LIST(x, 1) = Cells(ActiveCell.Row, 2) .LIST(x, 2) = Cells(ActiveCell.Row, 3) .LIST(x, 3) = Cells(ActiveCell.Row, 4) .LIST(x, 4) = Cells(ActiveCell.Row, 5) .LIST(x, 5) = Cells(ActiveCell.Row, 6) .LIST(x, 6) = Cells(ActiveCell.Row, 7) .LIST(x, 7) = Cells(ActiveCell.Row, 8) '.TopIndex = .ListCount - 1 '.Selected(ListBox2.ListCount - 1) = True End With