Создать макрос

[vikttur]

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

<макрос я так понимаю то что в таблице эксель записаны цифры>
<я не понимаю в этом ничего, даж незнаю что такое макрос и массив>

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

[kukli]

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

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

а я не программер-))

у меня профессия сервис в ЖКХ
вот накой хрен мне эта информатика и электронника

[motorway]

21 век - век компьютеров

[Казанский]

Хотите поразить препода?
Выведет сумму нечетных, которые больше 3, из выделенного диапазона:

MsgBox Evaluate("SUMPRODUCT(" & Selection.Address & ",(" & Selection.Address & ">3)*MOD(" & Selection.Address & ",2))")

[WizarD.89]

Sub main()
Dim ra As Range
Dim имя_листа As String
имя_листа = "лист3" 'имя листа куда будет вписываться ответ
Const граница As Integer = 100

Set ra = Range("a1:a2") 'диапозон который обратывается
Dim i, i2 As Integer
i2 = 1
For Each cel In ra.Cells
If cel Mod 2 <> 0 And cel > 3 Then
i = i + 1
Sheets(имя_листа).Cells(i, i2) = cel
If i = граница Then
i2 = i2 + 1
i = 0
End If
End If

Next
End Sub

[kukli]

Сообщение от Казанский

Хотите поразить препода?
Выведет сумму нечетных, которые больше 3, из выделенного диапазона:

MsgBox Evaluate("SUMPRODUCT(" & Selection.Address & ",(" & Selection.Address & ">3)*MOD(" & Selection.Address & ",2))")

нет, это меня поражают, такими задачами(((

[kukli]

Сообщение от WizarD.89

Sub main()
Dim ra As Range
Dim имя_листа As String
имя_листа = "лист3" 'имя листа куда будет вписываться ответ
Const граница As Integer = 100

Set ra = Range("a1:a2") 'диапозон который обратывается
Dim i, i2 As Integer
i2 = 1
For Each cel In ra.Cells
If cel Mod 2 <> 0 And cel > 3 Then
i = i + 1
Sheets(имя_листа).Cells(i, i2) = cel
If i = граница Then
i2 = i2 + 1
i = 0
End If
End If

Next
End Sub

ууухты

спасибо огромное, а куда этот код вставить нужно? -))


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

[Hugo121]

сервис в ЖКХ - вот вероятно кому потом массово будем адреса извлекать, уникальные суммировать, сводные составлять...

[kukli]

ну так что, куда этот код вставлять то нужно?

[motorway]

Alt+F11 -> Insert -> Module
Потом его можно запустить с помощью F5.