Поочередная вставка и массовая печать - Мир MS Excel

Версия для слабовидящих

= Мир MS Excel/Поочередная вставка и массовая печать - Мир MS Excel

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Поочередная вставка и массовая печать (Макросы/Sub)

Поочередная вставка и массовая печать

Дата: Среда, 27.02.2019, 20:38 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 28

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Добрый вечер!
Прошу помощи так как в макросах не силен:
для вставки данных использовал макрос который был написан одним из участников форума
Проблема в том что при вставке на в нужное поле ячейка А2 и с последующим преобразованием в штрих код
пропадают нули перед число. Например 00102030423 штрих код считается как 102030423

К сообщению приложен файл: 12334.xlsm (43.3 Kb)

Ответить

_Boroda_ Дата: Среда, 27.02.2019, 21:00 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 16901

Репутация: 6613 ±

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Попробуйте так

Sub PrintVse() Cells(2, 1).NumberFormat = "@" With Sheets(1).Range("Table1") For i = 1 To .Count Cells(2, 1) = .Cells(i).Text ' Me.PrintOut Next i End With End Sub

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

Дата: Среда, 27.02.2019, 22:30 | Сообщение № 3

Группа: Пользователи

Ранг: Новичок

Сообщений: 28

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

_Boroda_, Спасибо за быстрый ответ!
Завтра на работе про тестирую

Ответить

rty Дата: Среда, 27.02.2019, 23:07 | Сообщение № 4

Группа: Пользователи

Ранг: Новичок

Сообщений: 28

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

_Boroda_, подскажите пожалуйста вставляю в макрос

Sub Paste() Dim shSrc As Worksheet, shRes As Worksheet Dim lr As Long Application.ScreenUpdating = False Set shSrc = Worksheets("Database") Set shRes = Worksheets("Pasport") Cells(26, 6).NumberFormat = "@" lr = shSrc.Cells(shSrc.Rows.Count, "A").End(xlUp).Row shRes.Range("F26").Value = shSrc.Cells(lr, "B").Value shRes.Range("F8").Value = shSrc.Cells(lr, "C").Value shRes.Range("F9").Value = shSrc.Cells(lr, "D").Value shRes.Range("F11").Value = shSrc.Cells(lr, "M").Value MsgBox "Ok", vbInformation Application.ScreenUpdating = True ActiveSheet.PrintOut End Sub

строчку

Cells(26, 6).NumberFormat = "@"

в ячейке F26 такая же фигня с номером и не помогает если 00102030423 то 102030423

Ответить

Дата: Среда, 27.02.2019, 23:20 | Сообщение № 5

Группа: Друзья

Ранг: Участник клуба

Сообщений: 4147

Репутация: 772 ±

Замечаний: 0% ±

Excel 2013/2016

а что у вас там shSrc.Cells(lr, "B").Value? Если есть уверенность что всегда 9 символов, то лучше

=Right("000000000"&shSrc.Cells(lr, "B").Value,11)

или подобное.

~~Замечательный~~ Временно просто медведь ~~, процентов на 20~~.

Сообщение отредактировал bmv98rus - Четверг, 28.02.2019, 11:08

Ответить

Дата: Среда, 27.02.2019, 23:32 | Сообщение № 6

Группа: Пользователи

Ранг: Новичок

Сообщений: 28

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

bmv98rus, неа, не помогло

Ответить

_Boroda_ Дата: Четверг, 28.02.2019, 00:00 | Сообщение № 7

Группа: Админы

Ранг: Местный житель

Сообщений: 16901

Репутация: 6613 ±

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Вы у меня где увидели Value?

Цитата _Boroda_, 27.02.2019 в 21:00, в сообщении № 2 ( писал(а)):

Text

.Text дает не реальное значение из ячейки, а видимое. Например, реально в ячейке 1 и стоит формат 00000. Тогда Value даст 1, а Text даст 00001. А у Вас в исходной таблице нолики вначале сделаны с помощью формата

shRes.Range("F26").Value = shSrc.Cells(lr, "B").Text

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

Дата: Четверг, 28.02.2019, 11:12 | Сообщение № 8

Группа: Друзья

Ранг: Участник клуба

Сообщений: 4147

Репутация: 772 ±

Замечаний: 0% ±

Excel 2013/2016

Если честно, то лучше в ячейке со штрихкодом использовать

=Code_128(ПРАВСИМВ(ПОВТОР(0;11)&A2;11))

тогда отпадет надобность в что-то мудрить в коде.

Александр _Boroda_, прав, что можно использовать .Text, а не .Value, но я б предпочел не опираться на формат ячейки.

~~Замечательный~~ Временно просто медведь ~~, процентов на 20~~.

Ответить

RAN Дата: Четверг, 28.02.2019, 12:14 | Сообщение № 9

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

Не нравится красным, мазни зеленым

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$2" Then Application.EnableEvents = 0 Target.NumberFormat = "@" Target.Value = Format(Target.Value, "000000000") Application.EnableEvents = -1 End If End Sub

Быть или не быть, вот в чем загвоздка!

Ответить

Дата: Четверг, 28.02.2019, 21:48 | Сообщение № 10

Группа: Пользователи

Ранг: Новичок

Сообщений: 28

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

_Boroda_, RAN, bmv98rus, Спасибо огромное за помощь

Ответить

boa Дата: Пятница, 01.03.2019, 16:00 | Сообщение № 11

Группа: Друзья

Ранг: Ветеран

Сообщений: 563

Репутация: 167 ±

Замечаний: 0% ±

365

rty,
один из способов, что бы не обрезало нули, передать переменную как строку, т.е.

shRes.Range("F26").Value = cstr(shSrc.Cells(lr, "B").Text)

Ответить

Дата: Пятница, 01.03.2019, 16:08 | Сообщение № 12

Группа: Админы

Ранг: Местный житель

Сообщений: 16901

Репутация: 6613 ±

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Цитата boa, 01.03.2019 в 16:00, в сообщении № 11 ( писал(а)):

передать переменную как строку, т.е.

Какую переменную? И что, вот так

Цитата _Boroda_, 28.02.2019 в 00:00, в сообщении № 7 ( писал(а)):

shRes.Range("F26").Value = shSrc.Cells(lr, "B").Text

кусок shSrc.Cells(lr, "B").Text - не строка будет?

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

Дата: Пятница, 01.03.2019, 17:10 | Сообщение № 13

Группа: Друзья

Ранг: Ветеран

Сообщений: 563

Репутация: 167 ±

Замечаний: 0% ±

365

_Boroda_,
исправлюсь
передать *значение как строку
значение shSrc.Cells(lr, "B").Text может быть любым и автоформатирование может его преобразовать на свое усмотрение.
Так вот, если передавать значение обработав cstr, даже если формат ячейки куда вставляется значение = "0", будет вставлено как текст, со всеми нулями в начале.

Сообщение отредактировал boa - Пятница, 01.03.2019, 17:12

Ответить

Дата: Пятница, 01.03.2019, 18:02 | Сообщение № 14

Группа: Друзья

Ранг: Участник клуба

Сообщений: 4147

Репутация: 772 ±

Замечаний: 0% ±

Excel 2013/2016

Цитата boa, 01.03.2019 в 17:10, в сообщении № 13 ( писал(а)):

вставлено как текст, со всеми нулями в начале.

Уверены на 100%? Я лично убежден что это не так .
Это совсем не правильно, но только "'"&shSrc.Cells(lr, "B").Text поможет если не трогать формат ячейки.

~~Замечательный~~ Временно просто медведь ~~, процентов на 20~~.

Сообщение отредактировал bmv98rus - Пятница, 01.03.2019, 18:28

Ответить

Дата: Пятница, 01.03.2019, 18:22 | Сообщение № 15

Группа: Друзья

Ранг: Ветеран

Сообщений: 563

Репутация: 167 ±

Замечаний: 0% ±

365

bmv98rus,

Цитата bmv98rus, 01.03.2019 в 18:02, в сообщении № 14 ( писал(а)):

Я лично убежден что это не так .

проверил, согласен.
с SQL-запросами попутал

Ответить

Поочередная вставка и массовая печать (Макросы/Sub)

Страница 1 из 1
1

© 2010-2025 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!