VBA(кнопки,массивы)

[funduk]

Вы можете выложить приблизительное решение хоть.Я совсем не знаю,что внутрь кодов писать.

[funduk]

Да попогите плз доделать.Мне завтра уже сдавать со скриншотами.

[VictorM]

Вы можете выложить приблизительное решение хоть

Приблизительное могу, см. файл
за расчеты не ручаюсь, не вникал.
Только решение с формой

[funduk]

Cпс большое!
Выручил

[funduk]

Опять вообще вернулся к этому заданию...
Тут нужно использовать .csv-файл .
Dim LMatrix() As DynamicStringArray
Dim S As String
Dim I As Integer
Set dlgOpen = Application.FileDialog(FileDialogTy pe:=msoFileDialogOpen)
dlgOpen.Title = "Открыть файл данных"
dlgOpen.Filters.Clear
dlgOpen.Filters.Add "CSV file", "*.csv"
dlgOpen.Filters.Add "Text file", "*.txt"
dlgOpen.Filters.Add "All files", "*.*"
dlgOpen.AllowMultiSelect = False
dlgOpen.InitialFileName = ActiveWorkbook.Path + "\"
If dlgOpen.Show = ‐1 Then
LFileName = Trim(dlgOpen.SelectedItems(1))
Me.Caption = LFileName
Else
LFileName = ""
End If
Set dlgOpen = Nothing
If (LFileName <> "") Then
' Здесь можно обработать файл LFileName
'
'
Open LFileName For Input As #1
I = 0
While (Not (EOF(1)))
Line Input #1, S
LBuf = Split(S, ",")
I = I + 1
ReDim Preserve LMatrix(I)
LMatrix(I).el = LBuf
Wend
Close #1
Me.Caption = LMatrix(UBound(LMatrix)).el(1)
End If
End Sub

[funduk]

Я не оч понял смысл примера, может кто-то что-нибудь откомментить плз.

это код для работы с файлом.А этот файл откуда взять( подозреваю что создастся=) )

пс. на работу кода не смотрел в универ прост иду.
псс. Так что сорь если что-то глупое спросил=)