Создать макрос!!!!!))) - Microsoft Office Excel - Страница 2

IgorGO · 23.12.2010, 19:55

Код:

Function PlMnUg(xy As Range) As Single
  Dim r As Long, s As Single
  s = 0
  With xy
    For r = 1 To .Rows.Count - 1
      s = s + (.Cells(r + 1, 1) - .Cells(r, 1)) * (.Cells(r + 1, 2) + .Cells(r, 2)) / 2
    Next
  End With
  PlMnUg = Abs(s)
End Function

ComeOn · 24.12.2010, 00:58

спасибо всем))сдала)

23.12.2010, 19:55	#11
IgorGO Новичок СтарожилДжуниор Регистрация: 05.02.2008 Сообщений: 9,487	Код: `Function PlMnUg(xy As Range) As Single Dim r As Long, s As Single s = 0 With xy For r = 1 To .Rows.Count - 1 s = s + (.Cells(r + 1, 1) - .Cells(r, 1)) * (.Cells(r + 1, 2) + .Cells(r, 2)) / 2 Next End With PlMnUg = Abs(s) End Function` Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
создать макрос	MCLotos	Microsoft Office Excel	5	09.12.2010 08:17
Создать макрос через маакрос)	Kuraj	Microsoft Office Excel	4	15.01.2010 21:04
Нужно создать макрос	avtopark	Microsoft Office Excel	4	28.02.2009 22:00
Помогите создать макрос	Светлана632	Microsoft Office Excel	9	10.02.2009 06:18

24.12.2010, 00:58	#12
ComeOn Новичок Джуниор Регистрация: 21.12.2010 Сообщений: 6	спасибо всем))сдала)