Вывод с формы на лист Экселя

[Tomoa]

Здравствуйте, господа программисты!

Подскажите пожалуйста как по нажатию кнопки на форме вывести результат расчетов на лист Экселя?

[Dophin]

Вы бы сами поняли что нибудь из своего сообщения?

[Tomoa]

Сообщение от Dophin

Вы бы сами поняли что нибудь из своего сообщения?

Да, поняла.

[Dophin]

то есть Вам было бы понятно откуда эти результаты надо вывести?

ну раз так то
Private Sub CommandButton1_Click()
[место на листе]=[место где находятся результаты]
End Sub

[Tomoa]

мда, ладно попробую объяснить подробнее:
есть небольшая программка для расчета значения некоторой функции у(х). Значение х вводиться с помощью ползунка, значение у рассчитывается по нажатию кнопки "Рассчитать" и выводиться в Текстбокс. Вопрос: как сделать так, чтобы значение у было выведено на лист Экселя а не в текстбокс после того, как пользователь нажмет кнопку "Рассчитать"?

так понятней?

[Dophin]

ну у Вас в коде по видимому есть кусок похожий на
textbox1=[тут расчет]

замените его на
[место на листе] = [тут расчет]

а если бы Вы догадались выложить пример - вопрос был бы уже снят

[Tomoa]

Public Sub CB1_Click()
x = L4.Caption
y = 3 * Sin(Application.Pi() * x) / (1 - x)
TB1.Text = y
End Sub

[Dophin]

Public Sub CB1_Click()
x = L4.Caption
y = 3 * Sin(Application.Pi() * x) / (1 - x)
[a1] = y
End Sub

[Tomoa]

А если поставить задачу так:
есть программа, с помощью которой считаються суммы элементов находящихся выше, ниже и на главной диагонали квадратной матрицы. Как в этом случае понажатию кнопки вывести на экран массив из трех чисел?
Dim i As Integer, j As Integer, n As Integer, q As Integer, w As Integer, d As Integer ‘объявление переменных, которые будут использованы в программном коде: i, j—порядковые номера членов массив; n—размерность массива; q, w, d—переменны, в которых будут записываться суммы элементов массива.
n = A.Rows.Count ‘считывание количества строк в веденной квадратной матрице
For i = 1 To n ‘создание цикла
For j = 1 To n
Select Case:
Select Case i
Case Is > j
q = q + A(i, j)
Case Is = j
w = w + A(i, j)
Case Is < j
d = d + A(i, j)
End Select

Next j
Next i

[Dophin]

да каких чисел то? куда на экран?

приложите файл примера с листами "есть вот" и "хочу так"

на ум приходит только

    For i = 1 To n   
        For j = 1 To n
            'Select Case:
            Select Case i
            Case Is > j
                q = q + a(i, j)
            Case Is = j
                w = w + a(i, j)
            Case Is < j
                d = d + a(i, j)
            End Select
        Next j
    Next i
    [a1] = q
    [b1] = w
    [c1] = d