Перейти к содержимому


- - - - -

Механизм Уменьшения Ключа


  • Авторизуйтесь для ответа в теме
Сообщений в теме: 13

#1 Гость_OxyGen_*

Гость_OxyGen_*
  • Гости

Отправлено 13 Март 2005 - 22:59

Огромная просьба выложить тут мануал поэтапного грамотного уменьшения ключа в Excel.

#2 Antimuh

Antimuh

    Злой админ

  • Antimuh Team
  • 1 356 сообщений

Отправлено 14 Март 2005 - 17:18

Да это же элементарно!
Приводишь ключ в состояние, как в аттаче, методом элементарных функций Экселя (вырезать, копировать, вставить и т.д.). Потом распечатываешь его в формате альбомный и 9 страниц на лист.
Тока не надо говорить, что понадобится лупа. Все прекрасно видно, даже на  гавеном лазернике при 300 dbi, просто надо поиграться с настройками качества печати.

Прикрепленные файлы



#3 Гость_Zapretniiy_plod_*

Гость_Zapretniiy_plod_*
  • Гости

Отправлено 15 Март 2005 - 00:02

что-то я недопонимаю?=) я просто печатаю в размере 75% вот шпора и готова=)

#4 Гость_JenEk_*

Гость_JenEk_*
  • Гости

Отправлено 23 Март 2005 - 21:24

Я написал макрос для уменьшения ключей... Вам надо будет нажать на кнопку и все готово ключик будет размером 7 на 9,5 см. Скоро поделюсь.

#5 Гость_JenEk_*

Гость_JenEk_*
  • Гости

Отправлено 24 Март 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


Короче вставляете эту хрень в текст макроса
Сервис -> макрос ->  мокросы -> открыть

#6 Antimuh

Antimuh

    Злой админ

  • Antimuh Team
  • 1 356 сообщений

Отправлено 24 Март 2005 - 23:12

JenEk
Спасибо за маркос, только че то он у меня ошибку выдает или я че то не понял.... Приаттачь здесь пожалуйста готовый ключ с этим маркосом, так думаю будет проще разобраться.
И еще, если кто то не в курсе, в оригинальный ключ маркос добавить просто так не получится, т.к. VBA там зашишен паролем. А создавать новый документ и копировать туда ключ как то не очень сочитается с тем что его потом будет переделовать маркос. Вообщем VBA пароль на все ключи:
Скрытый текст
27081976


#7 Antimuh

Antimuh

    Злой админ

  • Antimuh Team
  • 1 356 сообщений

Отправлено 24 Март 2005 - 23:20

И еще, если уже пошла речь о маркосах, незнаю как в остальных версиях Excel (попросту непробывал), но у меня в Excel 2003 маркос можно просто записать. Нажимаем Сервис-> Маркос-> Начать запись, вводим пароль указаный в моем посте выше и просто обычными функциями экселя в ручную приводим ключ к нужному виду, потом давим "остановить запись" и маркос готов.

#8 Гость_JenEk_*

Гость_JenEk_*
  • Гости

Отправлено 07 Апрель 2005 - 19:12

Макрос записываешь просто в Excel
Короче грузишь Excel закрываешь все закрываешь новый документ (который автоматически открываеться) . Меню Сервис ->Макрос ->Макросы-> Войти ... И вставляешь его в самый конец... Кстати он чего то попортился когда я его в форум засунул... Давай я те его на майл пришлю А ты там разберёшься. А то чет я не знаю как сюда файл засунуть.

#9 Гость_JenEk_*

Гость_JenEk_*
  • Гости

Отправлено 07 Апрель 2005 - 19:36

Кстати у тебя есть Ключи 2005 года ??? А то у нас уже попадаються.

Я те попозже логические схемы свои пришлю ещё :(

#10 Antimuh

Antimuh

    Злой админ

  • Antimuh Team
  • 1 356 сообщений

Отправлено 07 Апрель 2005 - 21:35

JenEk
Есть только 18 штук...




Количество пользователей, читающих эту тему: 0

0 пользователей, 0 гостей, 0 анонимных


Добро пожаловать!
Что бы получить полный доступ ко всем форумам, созданию тем и многому другому, пожалуйста Войдите или Зарегистрируйтесь.
Вы можете не тратить время на скучную анкету, а просто войти с помощью вашей любимой социальной сети в правом верхнем углу ;)