Огромная просьба выложить тут мануал поэтапного грамотного уменьшения ключа в Excel.
0
Механизм Уменьшения Ключа
Автор
Гость_OxyGen_*
, 13 Mar 2005 22:59
Сообщений в теме: 13
#1 Гость_OxyGen_*
Отправлено 13 March 2005 - 22:59
#2
Отправлено 14 March 2005 - 17:18
Да это же элементарно!
Приводишь ключ в состояние, как в аттаче, методом элементарных функций Экселя (вырезать, копировать, вставить и т.д.). Потом распечатываешь его в формате альбомный и 9 страниц на лист.
Тока не надо говорить, что понадобится лупа. Все прекрасно видно, даже на гавеном лазернике при 300 dbi, просто надо поиграться с настройками качества печати.
Приводишь ключ в состояние, как в аттаче, методом элементарных функций Экселя (вырезать, копировать, вставить и т.д.). Потом распечатываешь его в формате альбомный и 9 страниц на лист.
Тока не надо говорить, что понадобится лупа. Все прекрасно видно, даже на гавеном лазернике при 300 dbi, просто надо поиграться с настройками качества печати.
Прикрепленные файлы
#3 Гость_Zapretniiy_plod_*
Отправлено 15 March 2005 - 00:02
что-то я недопонимаю?=) я просто печатаю в размере 75% вот шпора и готова=)
#4 Гость_JenEk_*
Отправлено 23 March 2005 - 21:24
Я написал макрос для уменьшения ключей... Вам надо будет нажать на кнопку и все готово ключик будет размером 7 на 9,5 см. Скоро поделюсь.
#5 Гость_JenEk_*
Отправлено 24 March 2005 - 20:58
Sub Редактирование_ключей()
'
' Редактирование_ключей Макрос
' Макрос записан 10.11.2004 (СанЕк
& ЖенDOS)
'
'
ActiveSheet.PageSetup.PrintArea = ""
With ActiveSheet.PageSetup
.LeftMargin = Application.CentimetersToPoints(0.5)
.RightMargin =
Application.CentimetersToPoints(0.5)
.TopMargin = Application.CentimetersToPoints(1)
.BottomMargin = Application.CentimetersToPoints(0.7)
.HeaderMargin =
Application.InchesToPoints(0)
.FooterMargin = Application.InchesToPoints(0)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments =
xlPrintNoComments
.CenterHorizontally = True
.CenterVertically = False
.Orientation = xlPortrait
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = True
.Zoom = 100
.PrintErrors = xlPrintErrorsDisplayed
End With
For x = 0 To
9
Rows("29:29").Select
Selection.Insert Shift:=xlDown
Next x
ActiveWindow.SmallScroll Down:=-12
Range("V3:AO13").Select
Range("V13").Activate
Range("V3:AO13").Cut Destination:=Range("A28:T38")
Range("A2:T2").Select
Range("T2").Activate
Selection.Copy
Range("A39:T39").Select
Range("T39").Activate
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=9
Range("A41:T66").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.SmallScroll Down:=-33
Range("V2").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=12
Range("V42:AO52").Select
Application.CutCopyMode = False
Range("V42:AO52").Cut
Destination:=Range("V28:AO38")
Range("V41:AO41").Select
Selection.Cut
Destination:=Range("V39:AO39")
Range("V39:AO39").Select
ActiveWindow.SmallScroll
Down:=-15
Range("A40:AO67").Select
Selection.ClearContents
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle
= xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle =
xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
Columns("A:A").Select
Selection.Insert Shift:=xlToRight
Range("A3").Select
ActiveCell.FormulaR1C1 = "1"
Range("A4").Select
ActiveCell.FormulaR1C1 = "=R[-1]C+1"
Range("A4").Select
Selection.AutoFill Destination:=Range("A4:A38"), Type:=xlFillDefault
Range("A4:A38").Select
Range("A3:A38").Select
Selection.Copy
Range("V3:V38").Select
Range("V38").Activate
ActiveSheet.Paste
Range("AQ3:AQ38").Select
Range("AQ38").Activate
ActiveSheet.Paste
Range("B1:U1").Select
Application.CutCopyMode = False
With
Selection
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlBottom
.MergeCells = True
End With
Range("W1:AP1").Select
With Selection
.HorizontalAlignment = xlRight
.VerticalAlignment = xlBottom
.MergeCells = True
End With
Range("V1").Select
Selection.ClearContents
Cells.Select
With
Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.ReadingOrder = xlContext
End With
With Selection.Font
.Name = "Courier"
.Size = 5.5
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End
With
Selection.ColumnWidth = 0.65
Selection.RowHeight = 5
Range("B2:U2,W2:AP2,A3:A38,B39:U39,W39:AP39,V3:V38,AQ3:AQ38").Select
Range("AQ3").Activate
With Selection.Font
.Name = "Times New Roman"
.Size = 4.5
.Bold =
False
End With
With Selection.Borders(xlEdgeLeft)
.LineStyle =
xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With
Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End
With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight =
xlThin
.ColorIndex = xlAutomatic
End With
End Sub
Короче вставляете эту хрень в текст макроса
Сервис -> макрос -> мокросы -> открыть
'
' Редактирование_ключей Макрос
' Макрос записан 10.11.2004 (СанЕк
& ЖенDOS)
'
'
ActiveSheet.PageSetup.PrintArea = ""
With ActiveSheet.PageSetup
.LeftMargin = Application.CentimetersToPoints(0.5)
.RightMargin =
Application.CentimetersToPoints(0.5)
.TopMargin = Application.CentimetersToPoints(1)
.BottomMargin = Application.CentimetersToPoints(0.7)
.HeaderMargin =
Application.InchesToPoints(0)
.FooterMargin = Application.InchesToPoints(0)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments =
xlPrintNoComments
.CenterHorizontally = True
.CenterVertically = False
.Orientation = xlPortrait
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = True
.Zoom = 100
.PrintErrors = xlPrintErrorsDisplayed
End With
For x = 0 To
9
Rows("29:29").Select
Selection.Insert Shift:=xlDown
Next x
ActiveWindow.SmallScroll Down:=-12
Range("V3:AO13").Select
Range("V13").Activate
Range("V3:AO13").Cut Destination:=Range("A28:T38")
Range("A2:T2").Select
Range("T2").Activate
Selection.Copy
Range("A39:T39").Select
Range("T39").Activate
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=9
Range("A41:T66").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.SmallScroll Down:=-33
Range("V2").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=12
Range("V42:AO52").Select
Application.CutCopyMode = False
Range("V42:AO52").Cut
Destination:=Range("V28:AO38")
Range("V41:AO41").Select
Selection.Cut
Destination:=Range("V39:AO39")
Range("V39:AO39").Select
ActiveWindow.SmallScroll
Down:=-15
Range("A40:AO67").Select
Selection.ClearContents
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle
= xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle =
xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
Columns("A:A").Select
Selection.Insert Shift:=xlToRight
Range("A3").Select
ActiveCell.FormulaR1C1 = "1"
Range("A4").Select
ActiveCell.FormulaR1C1 = "=R[-1]C+1"
Range("A4").Select
Selection.AutoFill Destination:=Range("A4:A38"), Type:=xlFillDefault
Range("A4:A38").Select
Range("A3:A38").Select
Selection.Copy
Range("V3:V38").Select
Range("V38").Activate
ActiveSheet.Paste
Range("AQ3:AQ38").Select
Range("AQ38").Activate
ActiveSheet.Paste
Range("B1:U1").Select
Application.CutCopyMode = False
With
Selection
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlBottom
.MergeCells = True
End With
Range("W1:AP1").Select
With Selection
.HorizontalAlignment = xlRight
.VerticalAlignment = xlBottom
.MergeCells = True
End With
Range("V1").Select
Selection.ClearContents
Cells.Select
With
Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.ReadingOrder = xlContext
End With
With Selection.Font
.Name = "Courier"
.Size = 5.5
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End
With
Selection.ColumnWidth = 0.65
Selection.RowHeight = 5
Range("B2:U2,W2:AP2,A3:A38,B39:U39,W39:AP39,V3:V38,AQ3:AQ38").Select
Range("AQ3").Activate
With Selection.Font
.Name = "Times New Roman"
.Size = 4.5
.Bold =
False
End With
With Selection.Borders(xlEdgeLeft)
.LineStyle =
xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With
Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End
With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight =
xlThin
.ColorIndex = xlAutomatic
End With
End Sub
Короче вставляете эту хрень в текст макроса
Сервис -> макрос -> мокросы -> открыть
#6
Отправлено 24 March 2005 - 23:12
JenEk
Спасибо за маркос, только че то он у меня ошибку выдает или я че то не понял.... Приаттачь здесь пожалуйста готовый ключ с этим маркосом, так думаю будет проще разобраться.
И еще, если кто то не в курсе, в оригинальный ключ маркос добавить просто так не получится, т.к. VBA там зашишен паролем. А создавать новый документ и копировать туда ключ как то не очень сочитается с тем что его потом будет переделовать маркос. Вообщем VBA пароль на все ключи:
Спасибо за маркос, только че то он у меня ошибку выдает или я че то не понял.... Приаттачь здесь пожалуйста готовый ключ с этим маркосом, так думаю будет проще разобраться.
И еще, если кто то не в курсе, в оригинальный ключ маркос добавить просто так не получится, т.к. VBA там зашишен паролем. А создавать новый документ и копировать туда ключ как то не очень сочитается с тем что его потом будет переделовать маркос. Вообщем VBA пароль на все ключи:
Скрытый текст |
27081976 |
#7
Отправлено 24 March 2005 - 23:20
И еще, если уже пошла речь о маркосах, незнаю как в остальных версиях Excel (попросту непробывал), но у меня в Excel 2003 маркос можно просто записать. Нажимаем Сервис-> Маркос-> Начать запись, вводим пароль указаный в моем посте выше и просто обычными функциями экселя в ручную приводим ключ к нужному виду, потом давим "остановить запись" и маркос готов.
#8 Гость_JenEk_*
Отправлено 07 April 2005 - 19:12
Макрос записываешь просто в Excel
Короче грузишь Excel закрываешь все закрываешь новый документ (который автоматически открываеться) . Меню Сервис ->Макрос ->Макросы-> Войти ... И вставляешь его в самый конец... Кстати он чего то попортился когда я его в форум засунул... Давай я те его на майл пришлю А ты там разберёшься. А то чет я не знаю как сюда файл засунуть.
Короче грузишь Excel закрываешь все закрываешь новый документ (который автоматически открываеться) . Меню Сервис ->Макрос ->Макросы-> Войти ... И вставляешь его в самый конец... Кстати он чего то попортился когда я его в форум засунул... Давай я те его на майл пришлю А ты там разберёшься. А то чет я не знаю как сюда файл засунуть.
#9 Гость_JenEk_*
Отправлено 07 April 2005 - 19:36
Кстати у тебя есть Ключи 2005 года ??? А то у нас уже попадаються.
Я те попозже логические схемы свои пришлю ещё
Я те попозже логические схемы свои пришлю ещё
#10
Отправлено 07 April 2005 - 21:35
JenEk
Есть только 18 штук...
Есть только 18 штук...
Количество пользователей, читающих эту тему: 0
0 пользователей, 0 гостей, 0 анонимных