Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/скопировать и вставить с изменением с сохранением формата - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » скопировать и вставить с изменением с сохранением формата (Макросы/Sub)
скопировать и вставить с изменением с сохранением формата
ovechkin1973 Дата: Четверг, 02.04.2020, 16:25 | Сообщение № 1
Группа: Проверенные
Ранг: Обитатель
Сообщений: 429
Репутация: 1 ±
Замечаний: 0% ±

Excel 2010
приветствую. Есть необходимость заполнить файл, в котором нужно вставлять текст, но в каждой последующей ячейке добавлять в место последней цифры на единицу больше. Формат текста такой - "AA1.1"
первыми две буквы Латиницей, после число одно-двухзначное и через точку еще число одно-двухзначное.
Есть нужда скопировать значение в ячейке при двойном клике на другой ячейке и вставлять в нее скопированное с форматом предыдущей ячейки, но на единицу больше (после точки или после букв, т.е видимо нужно использовать два разных макроса)
Если в ячейке есть данные, то они затираются новыми данными
К сообщению приложен файл: ______1__.xlsm (9.2 Kb)


Плохо когда не знаешь, да еще забудешь. Правильно сформулированный вопрос содержит половину ответа.

Сообщение отредактировал ovechkin1973 - Четверг, 02.04.2020, 16:27
 
Ответить
Сообщениеприветствую. Есть необходимость заполнить файл, в котором нужно вставлять текст, но в каждой последующей ячейке добавлять в место последней цифры на единицу больше. Формат текста такой - "AA1.1"
первыми две буквы Латиницей, после число одно-двухзначное и через точку еще число одно-двухзначное.
Есть нужда скопировать значение в ячейке при двойном клике на другой ячейке и вставлять в нее скопированное с форматом предыдущей ячейки, но на единицу больше (после точки или после букв, т.е видимо нужно использовать два разных макроса)
Если в ячейке есть данные, то они затираются новыми данными

Автор - ovechkin1973
Дата добавления - 02.04.2020 в 16:25
Pelena Дата: Четверг, 02.04.2020, 18:31 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 19162
Репутация: 4412 ±
Замечаний: ±

Excel 365 & Mac Excel
В первом приближении как-то так, без объединенных ячеек. И ещё непонятно, зачем столько пустых строк в ячейке, можно же просто выровнять по верхнему краю
К сообщению приложен файл: _1_.xlsm (15.5 Kb)


"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеВ первом приближении как-то так, без объединенных ячеек. И ещё непонятно, зачем столько пустых строк в ячейке, можно же просто выровнять по верхнему краю

Автор - Pelena
Дата добавления - 02.04.2020 в 18:31
nilem Дата: Четверг, 02.04.2020, 18:51 | Сообщение № 3
Группа: Авторы
Ранг: Старожил
Сообщений: 1613
Репутация: 563 ±
Замечаний: 0% ±

Excel 2013, 2016
Почти то же самое:
[vba]
Код
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Count > 1 Then Exit Sub
If Target.Column < 2 Then Exit Sub

Cancel = True
Dim i&, rw&, sp

rw = Target.Row
For i = Target.Column - 1 To 2 Step -1
    If Len(Cells(rw, i)) Then
        Cells(rw, i).MergeArea.Copy Target
        sp = Split(Cells(rw, i).Value, ".")
        Target.Value = sp(0) & "." & sp(1) + 1
        Exit For
    End If
Next i
End Sub
[/vba]


Яндекс.Деньги 4100159601573
 
Ответить
СообщениеПочти то же самое:
[vba]
Код
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Count > 1 Then Exit Sub
If Target.Column < 2 Then Exit Sub

Cancel = True
Dim i&, rw&, sp

rw = Target.Row
For i = Target.Column - 1 To 2 Step -1
    If Len(Cells(rw, i)) Then
        Cells(rw, i).MergeArea.Copy Target
        sp = Split(Cells(rw, i).Value, ".")
        Target.Value = sp(0) & "." & sp(1) + 1
        Exit For
    End If
Next i
End Sub
[/vba]

Автор - nilem
Дата добавления - 02.04.2020 в 18:51
ovechkin1973 Дата: Четверг, 02.04.2020, 19:04 | Сообщение № 4
Группа: Проверенные
Ранг: Обитатель
Сообщений: 429
Репутация: 1 ±
Замечаний: 0% ±

Excel 2010
И ещё непонятно, зачем столько пустых строк в ячейке, можно же просто выровнять по верхнему краю

Пардон, так получилось..
И лень не всегда двигатель прогресса, хотя вроде не ленился, но нужно было сразу свой файл выложить.. точнее его маленькую часть. С красной ячейки копирую вставляю в желтые.. (цвета для понимания сделал).
К сообщению приложен файл: 0399532.xlsm (72.1 Kb)


Плохо когда не знаешь, да еще забудешь. Правильно сформулированный вопрос содержит половину ответа.

Сообщение отредактировал ovechkin1973 - Четверг, 02.04.2020, 19:04
 
Ответить
Сообщение
И ещё непонятно, зачем столько пустых строк в ячейке, можно же просто выровнять по верхнему краю

Пардон, так получилось..
И лень не всегда двигатель прогресса, хотя вроде не ленился, но нужно было сразу свой файл выложить.. точнее его маленькую часть. С красной ячейки копирую вставляю в желтые.. (цвета для понимания сделал).

Автор - ovechkin1973
Дата добавления - 02.04.2020 в 19:04
ovechkin1973 Дата: Четверг, 02.04.2020, 20:29 | Сообщение № 5
Группа: Проверенные
Ранг: Обитатель
Сообщений: 429
Репутация: 1 ±
Замечаний: 0% ±

Excel 2010
Почти то же самое:

nilem, а как сделать, чтобы копировать из объединенных ячеек и вставлять не в ту же строку, а в произвольное место (те же объединенные ячейки того же размера, к сожалению правильный файл только в 4-ом посту приложил


Плохо когда не знаешь, да еще забудешь. Правильно сформулированный вопрос содержит половину ответа.
 
Ответить
Сообщение
Почти то же самое:

nilem, а как сделать, чтобы копировать из объединенных ячеек и вставлять не в ту же строку, а в произвольное место (те же объединенные ячейки того же размера, к сожалению правильный файл только в 4-ом посту приложил

Автор - ovechkin1973
Дата добавления - 02.04.2020 в 20:29
nilem Дата: Пятница, 03.04.2020, 07:27 | Сообщение № 6
Группа: Авторы
Ранг: Старожил
Сообщений: 1613
Репутация: 563 ±
Замечаний: 0% ±

Excel 2013, 2016
вот попробуйте
К сообщению приложен файл: 7422946.xlsm (76.4 Kb)


Яндекс.Деньги 4100159601573
 
Ответить
Сообщениевот попробуйте

Автор - nilem
Дата добавления - 03.04.2020 в 07:27
ovechkin1973 Дата: Пятница, 03.04.2020, 08:46 | Сообщение № 7
Группа: Проверенные
Ранг: Обитатель
Сообщений: 429
Репутация: 1 ±
Замечаний: 0% ±

Excel 2010
вот попробуйте

Отлично! Работает!


Плохо когда не знаешь, да еще забудешь. Правильно сформулированный вопрос содержит половину ответа.
 
Ответить
Сообщение
вот попробуйте

Отлично! Работает!

Автор - ovechkin1973
Дата добавления - 03.04.2020 в 08:46
Мир MS Excel » Вопросы и решения » Вопросы по VBA » скопировать и вставить с изменением с сохранением формата (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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