Компьютерный форум
Правила
Вернуться   Компьютерный форум > Форум программистов > Программирование под Windows > Visual Basic
Перезагрузить страницу макросы в Excel
Ответ
 
Опции темы Опции просмотра
  (#1 (permalink)) Старый
студентка студентка вне форума
Новичок
 
Сообщений: 2
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 15.01.2016
Cool макросы в Excel - 15.01.2016, 00:20

Помогите доделать
Дана матрица С с элемtнтами С(i,j) где i=1,2,3..5, j=1,2.3..5
Найти все положительные С(i,j)
Я ввела элементы в ячейки
нажимаю Выполнить, но программа неправильно работает.
в чем ошибка?

Sub zad4_1()

Dim C(5, 5)
Cells(7, 1) = " Полож.эл-ты:"

For i = 1 To 5
For j = 1 To 5
C(i, j) = Cells(i, j)
Next j
Next i

For i = 1 To 5
For j = 1 To 5
If C(i, j) >= 0 Then Cells(7, j + 1) = C(i, j)
Next j
Next i

End Sub
Ответить с цитированием
  (#2 (permalink)) Старый
pashulka pashulka вне форума
Member
 
Сообщений: 1,872
Сказал(а) спасибо: 2
Поблагодарили 57 раз(а) в 53 сообщениях
Регистрация: 11.03.2005
По умолчанию 15.01.2016, 19:01

Если оставить первоначальный замысел без изменений, то :

Код:
Sub zad4_1()
    Dim C(1 To 5, 1 To 5) As Double
    Dim i As Integer, j As Integer, r As Integer: r = 7

    Cells(r, 1) = " Полож.эл-ты:"

    For i = 1 To 5
        For j = 1 To 5
            C(i, j) = Cells(i, j)
        Next j
    Next i

    For i = 1 To 5
        For j = 1 To 5
            If C(i, j) > 0 Then r = r + 1: Cells(r, 1) = C(i, j)
        Next j
    Next i
End Sub
Ответить с цитированием
  (#3 (permalink)) Старый
студентка студентка вне форума
Новичок
 
Сообщений: 2
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 15.01.2016
По умолчанию 15.01.2016, 22:11

Спасибо большое!) а в строчку как можно вывести?
Ответить с цитированием
  (#4 (permalink)) Старый
pashulka pashulka вне форума
Member
 
Сообщений: 1,872
Сказал(а) спасибо: 2
Поблагодарили 57 раз(а) в 53 сообщениях
Регистрация: 11.03.2005
По умолчанию 15.01.2016, 22:28

Cells(Строка, Столбец)
Ответить с цитированием
Ads
Ответ

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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Функционалы и макросы. Skull_Psyhothic Lisp 6 11.01.2015 19:32
макросы в Excel muzon45 Вопросы начинающих программистов 0 13.12.2011 11:47
Макросы VBA Excel как с ними работать Z@R(!)N@ Visual Basic 0 23.03.2011 02:26
NOD32 блокирует макросы в Excel. jiamo Разное 0 15.01.2009 16:50
Макросы в Excel imported_Егорка Visual Basic 2 30.12.2006 10:25
пропали все макросы Excel чайник Visual Basic 1 29.03.2006 14:55
VBA + Excel Как запретить отключать макросы на VBA Gnomius Visual Basic 1 20.02.2006 14:16
Встроенные макросы в gcc wowec С/С++ 4 19.02.2006 11:52
Надо сохранить данные Excel (через VBA макросы) в DBF. Paul_B Visual Basic 5 29.09.2005 02:36
Скопирование макросы в Word и Excel xusinboy Visual Basic 8 01.09.2005 19:52
Макросы что это такое cadrules WinAPI 2 15.06.2005 16:31
как правильно писать макросы для Excel yaro Visual Basic 1 22.06.2004 16:03



Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Нardforum.ru - компьютерный форум и программирование, форум программистов