Процедура копирующая отрицательные или положительные числа на другие листы

@pockes · Регистрация: 09.06.2009

Author24 — интернет-сервис помощи студентам

Доброе утро всем форумчанам, сижу на экзамене. дали вот такую задачу, помогите пожалуйста. С меня причитается!

На листе1 в столбце А находятся 10 целых чисел. Написать процедуру, копирующую отрицательные числа этого столбца в столбец А листа2, а положительные значения в столбец А листа3 ( между числами на листах 2,3 пробелов быть не должно)

@ikki · 15.01.2013, 10:22

Visual Basic

sub t()
  dim i as integer, j as integer, k as integer, v as long
  for i=1 to 10
    v=sheets("лист1").cells(i,1).value
    if v<0 then
      j=j+1
      sheets("лист2").cells(j,1).value=v
    elseif v>0 then
      k=k+1
      sheets("лист3").cells(k,1).value=v
    end if
  next
end sub

@pockes · 15.01.2013, 10:24 **[ТС]**

Visual Basic

Function pr()
M = 1
N = 1
For I = 1 To 10
If Sheets("Eeno1").Cells(I, 1).Value < 0 Then
Sheets("Лист2").Cells(M, 1).Value = Sheets("Лист1").Cells(1, 1).Value
M = M + 1
End If
If Sheets("Eeno1").Cells(I, 1).Value > 0 Then
Sheets("Лист3").Cells(N, 1).Value = Sheets("Лист1").Cells(1, 1).Value
N = N + 1
End If
Next
End Sub

пришел к данному коду, не воркает

@~~Апострофф~~ · 15.01.2013, 10:28

Eeno1 - это что?

@pockes · 15.01.2013, 10:29 **[ТС]**

Лист1 и т.д.
кодировка сменилась видимо)

@ikki · 15.01.2013, 10:30

ну так надо брать из i-й строки
а вы берете всегда из 1-й
... = Sheets("Лист1").Cells(1, 1).Value

@pockes · 15.01.2013, 10:31 **[ТС]**

Большое всем спасибо, всё работает.

@pockes 27 / 1 / 1 Регистрация: 09.06.2009 Сообщений: 23
		1
	Процедура копирующая отрицательные или положительные числа на другие листы 15.01.2013, 10:16. Показов 915. Ответов 6 Метки нет (Все метки) Доброе утро всем форумчанам, сижу на экзамене. дали вот такую задачу, помогите пожалуйста. С меня причитается! На листе1 в столбце А находятся 10 целых чисел. Написать процедуру, копирующую отрицательные числа этого столбца в столбец А листа2, а положительные значения в столбец А листа3 ( между числами на листах 2,3 пробелов быть не должно) 0

@~~Апострофф~~ Заблокирован
	15.01.2013, 10:28	4
	Eeno1 - это что? 0

@pockes 27 / 1 / 1 Регистрация: 09.06.2009 Сообщений: 23
	15.01.2013, 10:29 [ТС]	5
	Лист1 и т.д. кодировка сменилась видимо) 0

@ikki призрак 3262 / 890 / 119 Регистрация: 11.05.2012 Сообщений: 1,702 Записей в блоге: 2
	15.01.2013, 10:30	6
	ну так надо брать из i-й строки а вы берете всегда из 1-й ... = Sheets("Лист1").Cells(1, 1).Value 0

@pockes 27 / 1 / 1 Регистрация: 09.06.2009 Сообщений: 23
	15.01.2013, 10:31 [ТС]	7
	Большое всем спасибо, всё работает. 0

Опции темы