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

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

Часто пользуюсь операторами Gosub, Call и относительными ссылками чтобы не повторяться в написании команд. А такая вот кака даёт возможность интерактивной работы с программой, то есть любой непосвящённый может отвечать на вопросы и продвигаться к цели расчётов.
ActiveCell.FormulaR1C1 = InputBox("Текст-1" & Chr(10) & "Текст-2" & Chr(10) & "", "Текст-3", "", 5000, 2000)

 

а вставляешь спецвставкой, только значения?

 

Как обычный текст копирую, затем вставляю на прежнее место. Для интересу можно вставить в Word и тогда видно истинной размер программы.

Вот у меня в текстовом формате.

Private Sub CommandButton4_Click()
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:

 

Вы бы еще dbase вспомнили

 

и это все делает Эксель!!!!!!
и вот так может:

 

скажи лучше, почему не во всех версиях сегодняшнее число не вставляется, этоже обычно ctrl+; ??

 

если язык Windows по умолчанию русский, то CTRL + SHIFT + $ это сочетание вводит дату
если язык Windows по умолчанию вражеский, то CTRL + ";"

 

ага, работает, я шифт не применял, спс!

 

спрашивайте, что не понятно

 

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

 

(Зарегистрируйтесь или Авторизуйтесь)