VBNet - Форум - Вывести список координат в Excel

Вопрос: Вывести список координат в Excel Добавлено: 21.03.09 18:26

Автор вопроса: Incognito

На парах проходили, как найти > элемент и задать его каким-то цветом и в табличку вывести этот элемент(его имя). делали на примерх Фамилиях и оценках. А рядом было : Сдал и Не Сдал...
Вот сама процедура думаю поймёте сами...

Public Sub New_Mas()
Dim A(10) As String, B(10) As String
Dim i As Integer, N As Integer, j As Integer, k As Integer
Dim NumRow As Integer, NumColumn As Integer
N = ActiveCell.CurrentRegion.Rows.Count - 1
NumRow = ActiveCell.Row
NumColumn = ActiveCell.Column
For i = NumRow To N + NumRow - 1
Cells(i, NumColumn).Interior.Color = vbWhite
Cells(i, NumColumn).Borders.ColorIndex = 1
Next i
j = 0
k = o
For i = NumRow To N + NumRow - 1
If Cells(i, NumColumn + 1).Value > 3 Then
j = j + 1
A(j) = Cells(i, NumColumn).Value
Else
k = k + 1
B(k) = Cells(i, NumColumn).Value
Cells(i, NumColumn).Interior.Color = vbRed
End If
Next i
For i = 1 To j
ActiveCell.Offset(i - 1, 3).Value = A(i)
Next i
For i = 1 To k
ActiveCell.Offset(i - 1, 4).Value = B(i)
Next i
End Sub

и вот 2 процедура такая же...только всё проще:

Public Sub New_Max()
Dim A(10) As String, B(10) As String
Dim i As Integer, j As Integer, k As Integer
j = 0
k = 0
For i = 4 To 10
Cells(i, 1).Interior.Color = vbWhite
Next i
For i = 4 To 10
If Cells(i, 2).Value > 3 Then
j = j + 1
A(j) = Cells(i, 1).Value
Else
k = k + 1
B(k) = Cells(i, 1).Value
Cells(i, 1).Interior.Color = vbRed
End If
Next i
For i = 1 To j
Cells(i + 3, 4).Value = A(i)
Next i
For i = 1 To k
Cells(i + 3, 5).Value = B(i)
Next i
End Sub

И дали такое задание: Заданы 10 пар имёт и координат точек : M1(X1,Y1), N1(X1,Y1)...Mn(Xn,Yn),Nn(Xn,Yn)
Определить какая из 2 точек пары расположена к началу координат? Вывести их в отдельный список...

п.с. Народ умеляю помогите, для меня это просто тёмный лес и просто не понимаю, что вначале делать и как ... помогите пожалуйста
Ответить

Ответы Всего ответов: 8

Номер ответа: 1 Автор ответа: fAndOrIn Вопросов: 5 Ответов: 344	Профиль \| \| #1	Добавлено: 21.03.09 22:29
	1: ошибка не изменилась 0-о Дружок, с тобой трудно общаться. Объяснешь на пальцах, сам в итоге начинаешь понимать в чём суть - а итог один -> GoTO 1 Текущий вопрос - что-то опять из ряда вон (если кто-то что-то понял - отклинитесь(не исключаю, что я один такой тупой)) Заданы 10 пар имёт и координат точек : M1(X1,Y1), N1(X1,Y1)...Mn(Xn,Yn),Nn(Xn,Yn) Определить какая из 2 точек пары расположена к началу координат? Вывести их в отдельный список... О чём это? И как связано с выложенными выше кодами? Ответить

Номер ответа: 2 Автор ответа: Incognito Вопросов: 5 Ответов: 25	Профиль \| \| #2	Добавлено: 22.03.09 00:08
	ну связано с тем, что так мы делали и это как бы пример, как и должны решить задачу... но или чтобы функции были похожие, а не сверх заумные))) Ответить

Номер ответа: 3 Автор ответа: Incognito Вопросов: 5 Ответов: 25	Профиль \| \| #3	Добавлено: 23.03.09 19:24
	помогите пожалуйста(((( Ответить

Номер ответа: 4 Автор ответа: GDK Вопросов: 13 Ответов: 348	Профиль \| \| #4	Добавлено: 24.03.09 12:39
	Почитай геометрию. В смысле как найти длину отрезка по координатам его начала и конца. Длина от (0,0) до точки М1. Длина от (0,0) до точки N1. Если 0-М1 < или равно 0-N1, то добавляем в список М1, иначе добавляем N1(что добавлять в список если координаты M1 & N1 одинаковые - ты не сказал(а). Если нужна формула могу поискать (пользовался ей, но уже не помню). Если совсем ТУПОЙ сделаю за тебя. Только уточнить задачу придётся. А вобщем ничего сложного. Лучше сам делай. Ответить

Номер ответа: 5 Автор ответа: Incognito Вопросов: 5 Ответов: 25	Профиль \| \| #5	Добавлено: 24.03.09 20:16
	Я отношусь к группе со всей ТУПОЙ ((( не моё это информатика... Ммм..Ну то что я знаю, я всё в 1 посте написал, по поводы задачи больше ничего не знаю пожалуйста, если можешь помоги... Ответить

Номер ответа: 6 Автор ответа: GDK Вопросов: 13 Ответов: 348	Профиль \| \| #6	Добавлено: 25.03.09 14:42
	Ладно. Только уточни откуда брать точки. Из списка на листе? Тогда как пользователь будет указывать программе этот список напр.: можно выделить начальную ячейку, модно весь диапазон и т.п. И уточни в какой список надо вывести результат. На лист ексель или в листбокс. Примерно в 16.00 посмтрю сюда ещё разок. Если ответов не будет сделаю как вздумается. PS А чёж "твоё" тогда? Ответить

Номер ответа: 7 Автор ответа: GDK Вопросов: 13 Ответов: 348	Профиль \| \| #7	Добавлено: 25.03.09 18:49
	Готово. В виде ф-ла ексель. Исходные данные на листе, а также пояснения. Давай адрес почты. Зашлю файлик. gdk80@mail.ru Ответить

Номер ответа: 8 Автор ответа: Incognito Вопросов: 5 Ответов: 25	Профиль \| \| #8	Добавлено: 25.03.09 21:25
	bartukman@mail.ru мне надо, чтобы имена и координаты были на листе Excel п.с. ну англ это более-менее моё и автокаД)))) Ответить

Страница: 1 |