Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 24.12.2018, 14:01   #11
Kapany3uk
Пользователь
 
Регистрация: 11.12.2018
Сообщений: 20
По умолчанию

Цитата:
Сообщение от Aleksandr H. Посмотреть сообщение
В общих словах как-то так
Код:
R = 1
s3.Cells(1, y) => s3.Cells(R, y)
y = y + 3
if y > 10 then
 y = 1:r = r + 23
end if
Прошу прощения, что то не работает(( ошибку выдает. Ругается на значек =>
Может не туда вставляю код?

Подскажите куда его нужно вставить в моем коде?
Kapany3uk вне форума Ответить с цитированием
Старый 24.12.2018, 14:04   #12
Kapany3uk
Пользователь
 
Регистрация: 11.12.2018
Сообщений: 20
По умолчанию

заранее благодарен
Kapany3uk вне форума Ответить с цитированием
Старый 24.12.2018, 14:17   #13
Aleksandr H.
2 the Nation Glory
Старожил
 
Аватар для Aleksandr H.
 
Регистрация: 27.05.2014
Сообщений: 3,289
По умолчанию

Цитата:
Сообщение от Kapany3uk Посмотреть сообщение
Прошу прощения, что то не работает((
Ааа, так это вместо Вас надо весь код написать?
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы.
Aleksandr H. вне форума Ответить с цитированием
Старый 24.12.2018, 14:52   #14
Kapany3uk
Пользователь
 
Регистрация: 11.12.2018
Сообщений: 20
По умолчанию

Цитата:
Сообщение от Aleksandr H. Посмотреть сообщение
Ааа, так это вместо Вас надо весь код написать?
не весь только код повторения
Kapany3uk вне форума Ответить с цитированием
Старый 24.12.2018, 15:23   #15
Kapany3uk
Пользователь
 
Регистрация: 11.12.2018
Сообщений: 20
По умолчанию

Цитата:
Сообщение от Aleksandr H. Посмотреть сообщение
Ааа, так это вместо Вас надо весь код написать?
спасибо, разобрался
Kapany3uk вне форума Ответить с цитированием
Старый 24.12.2018, 16:08   #16
Kapany3uk
Пользователь
 
Регистрация: 11.12.2018
Сообщений: 20
По умолчанию

Вот что получилось.

Подскажите что опять не так сделал? По идее каждая 22 строчка (то есть 22,44,66,88 и т.д.) должен меняться размер, а у меня почему то меняется только в 44 и в 110 строчке
Код:
Dim s1 As Worksheet
    Dim s2 As Worksheet
    Dim s3 As Worksheet
    Dim x As Integer
    Dim y As Integer
    Dim Z As Integer
    Dim R As Integer
    Dim iRow As Integer
    x = 1
    Set s1 = Sheets(1)
    Set s2 = Sheets(2)
    Set s3 = Sheets(3)
    x = s1.Cells(s1.Rows.Count, "A").End(xlUp).Row
    iRow = 2
    y = 1
    Z = 3
    a = 22
    R = 1
      Do While (iRow <= x)
      If y >= 10 Then
      a = a + 22
      y = 1: R = R + 22
      End If
        s2.Range("B1:B14").Value = Application.Transpose(s1.Range("A" & iRow & ":N" & iRow).Value)
        s2.Range("A1:B22").Copy
        s3.Cells(R, y).PasteSpecial Paste:=xlPasteColumnWidths
        s3.Cells(R, y).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
        s3.Cells(R, y).PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
        ActiveSheet.Paste
        Selection(a).RowHeight = 3
        Columns(Z).ColumnWidth = 0.35
        Z = Z + 3
        y = y + 3
        Application.CutCopyMode = False
        iRow = iRow + 1
    Loop
Kapany3uk вне форума Ответить с цитированием
Старый 24.12.2018, 20:42   #17
Aleksandr H.
2 the Nation Glory
Старожил
 
Аватар для Aleksandr H.
 
Регистрация: 27.05.2014
Сообщений: 3,289
По умолчанию

Код:
s3.Rows(a).RowHeight = 3
вместо
Код:
Selection(a).RowHeight = 3
пробовали?
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы.
Aleksandr H. вне форума Ответить с цитированием
Старый 25.12.2018, 10:43   #18
Kapany3uk
Пользователь
 
Регистрация: 11.12.2018
Сообщений: 20
По умолчанию

Цитата:
Сообщение от Aleksandr H. Посмотреть сообщение
Код:
s3.Rows(a).RowHeight = 3
вместо
Код:
Selection(a).RowHeight = 3
пробовали?
нет не пробовал, спасибо большое все заработало.
Не ругайте сильно, я только учусь.
Kapany3uk вне форума Ответить с цитированием
Старый 24.01.2019, 18:00   #19
Kapany3uk
Пользователь
 
Регистрация: 11.12.2018
Сообщений: 20
По умолчанию

Всем доброго дня, продолжу в своей теме, что бы не плодить новых)) Возник следующий вопрос - как отредактировать формат для печати, что бы граница печати была по низу этикеток.
где то нашел вот такой макрос, но к сожалению он больше для текста подходит((
Сейчас у меня получается что часть этикетки печатается на одном листе а часть на другом(( то есть нет разделения на листы, все идет сплошным текстом.
Код:
Application.ScreenUpdating = False  'отключаем обновление экрана для скорости

     With ActiveSheet.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
    End With
    With ActiveSheet.PageSetup
        .LeftHeader = ""
        .CenterHeader = ""
        .RightHeader = ""
        .LeftFooter = ""
        .CenterFooter = ""
        .RightFooter = ""
        .LeftMargin = Application.InchesToPoints(0.708661417322835)
        .RightMargin = Application.InchesToPoints(0.708661417322835)
        .TopMargin = Application.InchesToPoints(0.748031496062992)
        .BottomMargin = Application.InchesToPoints(0.748031496062992)
        .HeaderMargin = Application.InchesToPoints(0.31496062992126)
        .FooterMargin = Application.InchesToPoints(0.31496062992126)
        .PrintHeadings = False
        .PrintGridlines = False
        .PrintComments = xlPrintNoComments
        .PrintQuality = 600
        .CenterHorizontally = False
        .CenterVertically = False
        .Orientation = xlLandscape
        .Draft = False
        .PaperSize = xlPaperA4
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = 1000
        .PrintErrors = xlPrintErrorsDisplayed
        .OddAndEvenPagesHeaderFooter = False
        .DifferentFirstPageHeaderFooter = False
        .ScaleWithDocHeaderFooter = True
        .AlignMarginsHeaderFooter = True
        .EvenPage.LeftHeader.Text = ""
        .EvenPage.CenterHeader.Text = ""
        .EvenPage.RightHeader.Text = ""
        .EvenPage.LeftFooter.Text = ""
        .EvenPage.CenterFooter.Text = ""
        .EvenPage.RightFooter.Text = ""
        .FirstPage.LeftHeader.Text = ""
        .FirstPage.CenterHeader.Text = ""
        .FirstPage.RightHeader.Text = ""
        .FirstPage.LeftFooter.Text = ""
        .FirstPage.CenterFooter.Text = ""
        .FirstPage.RightFooter.Text = ""
    End With
    ActiveWindow.View = xlPageBreakPreview
    Application.ScreenUpdating = True
вариант файла что получается визуально в скрепке.
Помогите плиз, только поясните как что делается, что бы в дальнейшем смог разобраться что к чему
Вложения
Тип файла: xls Этикетки 24-01-2019 16-47-25.xls (59.5 Кб, 11 просмотров)
Kapany3uk вне форума Ответить с цитированием
Старый 01.02.2019, 09:58   #20
Kapany3uk
Пользователь
 
Регистрация: 11.12.2018
Сообщений: 20
По умолчанию

Всем доброго дня, готовое решение выложил в теме http://www.programmersforum.ru/showt...=326176&page=2

Но есть вопросы, кто сможет помочь , буду признателен
Kapany3uk вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
как верстать по сетке бутстрап если на макете с обох сторон сайт выходит за сетку? nikytt HTML и CSS 1 05.09.2018 09:03
Заполнение таблицы King_Of_Arthur БД в Delphi 0 10.07.2013 07:33
Макрос: заполнение таблицы данными из другой таблицы с автоматическим добавлением строк yevgeniy.demidov Microsoft Office Excel 6 06.09.2012 15:27
поиск данных и заполнение таблицы impact Microsoft Office Excel 5 26.07.2011 16:29
сводная таблица и печпть этикетки yaroslavlevc Microsoft Office Excel 0 03.06.2011 13:22