А любите ли вы excel как люблю его я ? | страница 5

А если прибавить N секунд, то результат будет правильным в любое время года ?

 

Да....

 

это как? УФ не умеет разбивать по ячейкам. или имеется в виду какая то формула?

 

вкладка - Данные
кнопочка- Текст по столбцам
Дальше все просто

 

Формулами можно разбивать через функции (Зарегистрируйтесь или Авторизуйтесь) и (Зарегистрируйтесь или Авторизуйтесь), но я уже давно все это в Аксесе делаю. Там как то проще))))

 

Ну УФ и текст по столбцам разные вещи но это вопрос терминологии.
а проще можно сделать Ctrl+F найти "," заменить на ничего и вуаля( это с данным видом выгрузки)

 

или =--ПОДСТАВИТЬ(A2;",";"")

 

Век живи, век учись
Спасибо
Обязательно попробую

 

Никитин, на днях составил своему ребёнку программку в Экселе на уровне пенса. Вот часть текста программы. Сможешь прочитать, о чём речь?

q = MsgBox("4 лучших результата девочек и" & Chr(10) & "4 лучших результата мальчиков" & Chr(10) & "отдельно по каждой школе." & Chr(10) & Chr(10) & "Формирование сводной таблицы результатов" & Chr(10) & "всех школ и удаление пустых строк." & Chr(10) & Chr(10) & " П Р О Д О Л Ж И М ?", 4, " О Б Р А Т И Т Е В Н И М А Н И Е !")
If q = vbYes Then GoTo fg
If q = vbNo Then
Range("f2").Select
End
End If
fg:
Rem ======================Подсчёт нумерации школ
Range("d111").Select
Dim d10d As Integer
ddd:
ActiveCell.Offset(-1, 0).Range("A1").Select
If ActiveCell > 0 Then
d10d = ActiveCell
GoTo xxx
End If
GoTo ddd
xxx:
Dim girls As Integer
girls = 250
Dim boys As Integer
boys = 255
Range("d10").Select
Range("d10") = 1
GoSub qwerty01
aaa:
Rem =================Количество школ
If Range("d10") = d10d Then
Range("a250").Select
GoTo jk
End If
Range("d10").Select
Range("d10") = Range("d10") + 1
GoSub qwerty01
GoTo aaa
qwerty01:
Rem =================Девочки
w:
ActiveCell.Offset(1, 0).Range("A1").Select
If ActiveCell = 0 Then
Range("a250").Select
GoTo sd
End If
If ActiveCell = Range("d10") Then
ActiveCell.Offset(0, -3).Range("A1:E4").Select
Selection.Copy
ActiveSheet.Cells(girls, 1).Select
ActiveCell.Offset(0, 0).Range("A1").Select
ActiveSheet.Paste
girls = girls + 13
GoTo f
End If
GoTo w
f:
Rem =====================Мальчики
Range("d115").Select
w1:
ActiveCell.Offset(1, 0).Range("A1").Select
If ActiveCell = Range("d10") Then
ActiveCell.Offset(0, -3).Range("A1:E4").Select
Selection.Copy
ActiveSheet.Cells(boys, 1).Select
ActiveCell.Offset(0, 0).Range("A1").Select
ActiveSheet.Paste
boys = boys + 13
GoTo sd
End If
GoTo w1
sd:
Return
jk:

 

тем более по куску кода без начала и конца??????

 

Какое то дьявольское заклинание с гендерным неравенством.....
Мужицкая переменная на 5 больше чем бапская.....и всех их увеличивают на чертову дюжину
Свят
Свят
Свят

 

Private Sub CommandButton24_Click() - Вот начало.
....
End Sub - Вот конец.

 

Вкратце.

В таблицу заносятся участники соревнования, номер школы и пр. А эта процедура (модуль) объявляет массив )Dim ... as Integer). ищет и определяет в столбце последний номер школы, чтобы не искать, к примеру, школу №150, когда её там нет, потом выбирает 4 лучших результата девочек и 4 лучших результата мальчиков из школы, копирует их и переносит (ActiveSheet.Paste) в определённое место.

Затем определяет следующую по номеру школу (+1), копирует участников, меняет переменные (+13) и вставляет на 13 строк ниже следующих участников. И так, пока не закончатся все школы участники.

Rem - это ремарка, то есть пояснения, она в работе не участвует.

А в целом, ты был на правильном пути.

 

Почему мальчики 255, а девачки - 250?
Все остальное мне примерно понятно)))

 

Это всего лишь номера строк, разница между девочками и мальчиками - точка вставки 5 строк, расстояние между блоками 13 строк. Так мне захотелось, а можно и другие было ввести.

 

Фух....значит я еще не совсем отупел))))
Примерно так и подумал.....

 

Раньше Я программировал на 3-х языках, потом подумал, а нахера огород городить, если есть объектно-ориентированный язык. Там одной фразой можно сделать то, что в других языках нужно долго и нужно описывать для компьютера алгоритм действия.

Это программирование использует готовые логические конструкции объектов, а не алгоритмы. Просто составляешь программу, как кубики. Главное понять смысл этого действа, а там пойдёт, как по маслу.

К примеру, если не лень, создай КНОПКОЙ пустую процедуру и между уже готовым началом и концом вставь это.

q = MsgBox("Привет, Сигизмунд" & Chr(10) & "Хороши ли дела?" & Chr(10) & Chr(10) & "", 4, "О Б Р А Т И Т Е В Н И М А Н И Е !")
If q = vbYes Then GoTo s
If q = vbNo Then
Range("f2").Select
End
End If
s:

 

Я так от нечего делать, лет 8 назад, написал прогу для скорой. Считала склад, расход лекарств, почасовую зарплату бригад. Если коротко описывать. Года 3 работала..

 

Да, у меня тоже было. Уже 16 лет десятки лесхозов пользуются программой материально-денежной оценки лесосеки.

 

да я уже понял, что формулы в Эксель могут очень много но не все Поэтому вот сел за изучение VBA