1
як генерувати серійний номер для кожного виділення у списку в excel vba
Private Sub CommandButton1_Click() With ComboBox1.Value Dim a, b As String Dim i, j, k, l, x, q, m, temp As Long a = ComboBox1.Text i = Application.WorksheetFunction.Match(a, Range("A1:A1000"), 0) j = Cells(i, 2) l = j * 1000 For q = 2 To 100 For m = 2 To 100 …