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

Вход

Регистрация

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

 

= Мир MS Excel/Несоответствие типов - Мир MS Excel

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

365
ОЧЕНЬ СРОЧНО! Написал вот такой вот скрипт для Exel, но ему не нравиться строчка. Прошу помощи и внесения корректировки в код, ОЧ СРОЧНО

[vba]
Код
Sub Проба2()

Dim lastRow As Long

Dim i As Long

lastRow = Cells(Rows.Count, "A").End(xlUp).Row

For i = lastRow To 1 Step -1
If Not IsEmpty(Cells(i, "A")) Then
Range("A" & i + 1 & ":A" & i + 8).EntireRow.Insert
Range("A" & i + 1 & ":A" & i + 8).Value = "C" & Application.Transpose(Evaluate("ROW(1:8)"))
End If
Next i

End Sub
[/vba]

Нужно что бы после каждой строки, где есть символы макрос вставлял 8 строк в которых будет нумерация от C1 до С8


Сообщение отредактировал elvinalex228 - Вторник, 16.05.2023, 19:53
 
Ответить
СообщениеОЧЕНЬ СРОЧНО! Написал вот такой вот скрипт для Exel, но ему не нравиться строчка. Прошу помощи и внесения корректировки в код, ОЧ СРОЧНО

[vba]
Код
Sub Проба2()

Dim lastRow As Long

Dim i As Long

lastRow = Cells(Rows.Count, "A").End(xlUp).Row

For i = lastRow To 1 Step -1
If Not IsEmpty(Cells(i, "A")) Then
Range("A" & i + 1 & ":A" & i + 8).EntireRow.Insert
Range("A" & i + 1 & ":A" & i + 8).Value = "C" & Application.Transpose(Evaluate("ROW(1:8)"))
End If
Next i

End Sub
[/vba]

Нужно что бы после каждой строки, где есть символы макрос вставлял 8 строк в которых будет нумерация от C1 до С8

Автор - elvinalex228
Дата добавления - 15.05.2023 в 21:03
Gustav Дата: Вторник, 16.05.2023, 00:42 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2701
Репутация: 1123 ±
Замечаний: 0% ±

начинал с Excel 4.0, видел 2.1
Если только правильно понял задуманное, то должно быть как-то так:
[vba]
Код
Sub Проба2()
    Dim lastRow As Long
    Dim i As Long

    lastRow = Cells(Rows.Count, "A").End(xlUp).Row

    For i = lastRow To 1 Step -1
        If Not IsEmpty(Cells(i, "A")) Then
            Range("A" & i + 1 & ":A" & i + 8).EntireRow.Insert
            'Range("A" & i + 1 & ":A" & i + 8).Value = "C" & Application.Transpose(Evaluate("ROW(1:8)"))
            Range("A" & i + 1 & ":A" & i + 8).Value = Application.Transpose(Split("C" & Join(Application.Transpose(Evaluate("ROW(1:8)")), ",C"), ","))
        End If
    Next i
End Sub
[/vba]
Ну, и топик надо бы в раздел VBA перенести, а то налицо "несоответствие типа" раздела :)


МОИ: Ник, Tip box: 41001663842605
 
Ответить
СообщениеЕсли только правильно понял задуманное, то должно быть как-то так:
[vba]
Код
Sub Проба2()
    Dim lastRow As Long
    Dim i As Long

    lastRow = Cells(Rows.Count, "A").End(xlUp).Row

    For i = lastRow To 1 Step -1
        If Not IsEmpty(Cells(i, "A")) Then
            Range("A" & i + 1 & ":A" & i + 8).EntireRow.Insert
            'Range("A" & i + 1 & ":A" & i + 8).Value = "C" & Application.Transpose(Evaluate("ROW(1:8)"))
            Range("A" & i + 1 & ":A" & i + 8).Value = Application.Transpose(Split("C" & Join(Application.Transpose(Evaluate("ROW(1:8)")), ",C"), ","))
        End If
    Next i
End Sub
[/vba]
Ну, и топик надо бы в раздел VBA перенести, а то налицо "несоответствие типа" раздела :)

Автор - Gustav
Дата добавления - 16.05.2023 в 00:42
Karataev Дата: Вторник, 16.05.2023, 09:51 | Сообщение № 3
Группа: Проверенные
Ранг: Старожил
Сообщений: 1334
Репутация: 533 ±
Замечаний: 0% ±

Excel
elvinalex228, напишите словесное описание задания.
 
Ответить
Сообщениеelvinalex228, напишите словесное описание задания.

Автор - Karataev
Дата добавления - 16.05.2023 в 09:51
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Несоответствие типов (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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