|
Сортировка листов в книге |
  
|
| скрыть/показать скрытый текст |
|
Сортировка листов в книге |
|
| скрыть/показать скрытый текст |
Если количество листов в Вашей книге приближается к нескольким десяткам, то рано или поздно возникнет желание отсортировать листы, выстроив из по порядку. Стандартные средства Excel не позволяют сделать этого, поэтому давайте напишем простой макрос, который будет это делать. Откройте меню Сервис - Макрос - Редактор Visual Basic (Tools - Macro - Visual Basic Editor), вставьте новый модуль (меню Insert - Module) и скопируйте туда этот текст:
Sub SortSheets()
Dim I As Integer, J As Integer
For I = 1 To Sheets.Count - 1
For J = I + 1 To Sheets.Count
If UCase(Sheets(I).Name) > UCase(Sheets(J).Name) Then
Sheets(J).Move Before:=Sheets(I)
End If
Next J
Next I
End Sub
Теперь этот макрос можно запустить через меню Сервис - Макрос - Макросы (Tools - Macro - Macros), и он быстро отсортирует все листы в текущей книге.
Понятие же "физического вакуума" в релятивистской квантовой теории поля подразумевает, что во-первых, он не имеет физической природы, в нем лишь виртуальные частицы у которых нет физической системы отсчета, это "фантомы", во-вторых, "физический вакуум" - это наинизшее состояние поля, "нуль-точка", что противоречит реальным фактам, так как, на самом деле, вся энергия материи содержится в эфире и нет иной энергии и иного носителя полей и вещества кроме самого эфира.
В отличие от лукавого понятия "физический вакуум", как бы совместимого с релятивизмом, понятие "эфир" подразумевает наличие базового уровня всей физической материи, имеющего как собственную систему отсчета (обнаруживаемую экспериментально, например, через фоновое космичекое излучение, - тепловое излучение самого эфира), так и являющимся носителем 100% энергии вселенной, а не "нуль-точкой" или "остаточными", "нулевыми колебаниями пространства". Подробнее читайте в FAQ по эфирной физике.
|
|
 |
