VBA. Решение формулы - Помощь студентам

Mnsh · 06.03.2012, 19:25

Пожалуйста, помогите решить задачу

counter · 06.03.2012, 19:49

Код:

Dim N As Integer
Dim S As Variant
Dim T As Variant

N = InputBox("Enter N", "Input")

For i = 1 To N

   T = 1 / i
   S = S + T
 
Next i

MsgBox ("Result = " & S)

06.03.2012, 19:25	#1
Mnsh Пользователь Регистрация: 26.12.2011 Сообщений: 16	VBA. Решение формулы Пожалуйста, помогите решить задачу

06.03.2012, 19:49	#2
counter Участник клуба Регистрация: 18.10.2008 Сообщений: 1,409	Код: `Dim N As Integer Dim S As Variant Dim T As Variant N = InputBox("Enter N", "Input") For i = 1 To N T = 1 / i S = S + T Next i MsgBox ("Result = " & S)`

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Аналог формулы СУММЕСЛИ на VBA	bud-dy	Microsoft Office Excel	7	03.02.2014 06:01
Преобразовать формулы в выражение на языке VBA	Wika	Помощь студентам	0	27.09.2010 21:16
вставка формулы в ячейку (vba)	pride	Microsoft Office Excel	5	13.07.2009 09:26
Написать в VBA аналог формулы екселя.	tae1980	Microsoft Office Excel	8	13.04.2009 00:08
Глюк Excel-2007??? Формулы в ячейку из VBA	Rafik	Microsoft Office Excel	7	24.03.2009 13:59