Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Basic


Ответ
 
Опции темы Опции просмотра
Старый 02.04.2011, 15:12   #1 (permalink)
Svetlanka
Member
 
Регистрация: 15.11.2010
Сообщений: 34
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Excel

Разрботать подпрограмму, которая для выделенного диапазона рабочей таблицы вычисляет сумму всех элементов, которые без остатка делятся на число 6. Элементы массива задать самостоятельно через функцию Inputbox.
Код:
Sub Z1()
Dim n As Integer, m As Integer, j As Integer, i As Integer
n = InputBox("введите количество столбцов")
m = InputBox("введите количество строк")
For i = 1 To n
For j = 1 To m
Sheets("Лист1").Cells(i, j) = InputBox("введите" & j & "элемент" & i & "строки")
Next j
Next i
End Sub
Код:
Sub Z2()
Dim a1 As Range, max As Double, s As Double
With ActiveSheet
Set a1 = Selection
a1.Activate
max = Application.max(a1)
s = 0
For x = 1 To a1.Rows.Count
For y = 1 To a1.Columns.Count
If a1(x, y) Mod 6 Then
s = s + a1(x, y)
End If
Next y
Next x
MsgBox " s=" & s, , "Результат"
End With
End Sub
Svetlanka вне форума   Ответить с цитированием

Старый 02.04.2011, 15:12
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Рекомендую вам пролистать данные темы, в них наверняка много полезного

Макрос на Excel
Excel, Pdf, Doc + Php
Excel

Старый 08.04.2011, 10:30   #2 (permalink)
MrSTEP
一步一步地会到目的
 
Аватар для MrSTEP
 
Регистрация: 09.05.2009
Адрес: Черноземье
Сообщений: 10,939
Записей в дневнике: 10
Сказал(а) спасибо: 140
Поблагодарили 80 раз(а) в 33 сообщениях
Репутация: 28362
По умолчанию

А в чем тут вопрос-то, я не понимаю?
MrSTEP вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 13:36.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.