3 года назад

Помогите с написанием кода в VBA

Вычислить y=корень(x), x  принадлежит [1, 5]  с шагом 0.5. Значения переменной х и функции y (результаты расчетов) должны быть выведены в виде столбцов на рабочий лист

Werkzeug (Гость) Excel
3

Excel: Помогите с написанием кода в VBA

1 год назад помогите с vba

Трудная ситуация!В одномерном массиве найти разность первого и последнего нечетных элементов.Если вас не затруднит,помогите!
Вот код программыi=1 'номер первого элемента массива Do While (A(i) mod 2)<>1 'ищем первый нечетный i=i+1 loop D=A(i) 'сохраняем значение первого нечетного Fo s=i to '-количество членов массива if A(i) mod 2=1 the m= A(s) 'ищем последний нечетный и сохраняем его в m ext s D=D-m 'из первого вычитаем последний нечетный

HS-KoA (Гость) 2 ответа
3
1 год назад Как организовать экспорт из Excel в XML с помощью XmlDocument на С#

Как организовать экспорт из Excel в XML с помощью XmlDocumet на С#???Я до этого не заворачивался с      XmlDocumet.., а просто присваивал переменной типа stig все значения age а потом сохранял в файл с прописанными вручную откр. и закр. тегами xml., но насяйника сказал нужно это делать через XmlDocumet и я долблюсь уже 2 день и ничего не получается.ВОТ ПРИМЕР КОДА://fName путь к файлу  public void xlsToXml(stig fName, it distibCode)        {     ...

andrei 1993 (Гость) 3 ответа
3
1 год назад Worksheet_Calculate(). Помогите исправить код VBA Excel

Pivate Sub Woksheet_Calculate()    Applicatio.EableEvets = False    If [g28] = "1" The    If bIset = False The Макрос1: bIset = Tue    If [g28] <> "1" The    If bIset = False The Макрос2: bIset = Tue    Ed If    Ed If    If [g29] = "1" The    If bIset = False The Макрос3: bIset = Tue    If [g29] <> "1" The    If bIset = False The Макрос...

squiddy (Гость) 2 ответа
3
Ответы (1)
Mitoshi (Гость) 3 года назад
3

Sub func_y()
Dim off As Integer
Dim X As Range
Dim Y As Range
Dim Addr As String
Set X \u003d Range("A1")
Set Y \u003d Range("A2")
X \u003d "x"
Y \u003d "y"
off \u003d 1
For i \u003d 1 To 5 Step 0.5
X.Offset(0, off) \u003d i
Y.Offset(0, off).FormulaR1C1 \u003d "\u003dSQRT(R[-1]C)"
off \u003d off + 1
Next i
End Sub

Пожаловаться
Помогите с написанием кода в VBA (Excel) - вопросы и ответы на все случаи жизни - справочник Excel i-vopros.ru