02.04.2011, 15:12 | #1 (permalink) |
Member
Регистрация: 15.11.2010
Сообщений: 34
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Excel
Код:
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 |
02.04.2011, 15:12 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Рекомендую вам пролистать данные темы, в них наверняка много полезного Макрос на Excel Excel, Pdf, Doc + Php Excel |
08.04.2011, 10:30 | #2 (permalink) |
一步一步地会到目的
Регистрация: 09.05.2009
Адрес: Черноземье
Сообщений: 10,939
Записей в дневнике: 10
Сказал(а) спасибо: 140
Поблагодарили 80 раз(а) в 33 сообщениях
Репутация: 28362
|
А в чем тут вопрос-то, я не понимаю?
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|