Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
VBA: заполнить столбец значениями 1+, 2+...
 
#1
10.03.2016 18:28:01
Добрый вечер всем!
Возник один, казалось бы легкий, вопрос, никак не могу решить.
Книга эксель состоит из нескольких листов, на одном листе нужно автоматически заполнять столбцы: то есть столбцу А присвоить значение "1+", столбцу B - "2+" и тд. (с первой ячейки и вниз до конца)
Пыталась сделать через range и value, но эксель выдает ошибку, мол "1+"  - это не число, на кавычки тоже ругается.
Не могли бы вы подсказать, как можно это реализовать?
Заранее огромное спасибо!
 
 
 
#2
10.03.2016 18:30:22
Цитата
на кавычки тоже ругается
""1+""
 
 
 
#3
10.03.2016 18:38:41
или нечто наподобе
Код
Public Sub test()
Dim i As Integer

For i = 1 To 10
Cells(i, 1).Value = i & "+"
Next i
End Sub
Арфы - нет, возьмите бубен.
 
 
 
#4
10.03.2016 19:00:09
Udik, в таком случае он заполняет ячейки последовательно, как 1+, 2+ и тд (на первом листе)
а мне нужно, чтобы значение 1+ заполнялось от первой ячейки и вниз до конца. так же в другом столбце 30+ (например), 60+, 90+ и тд (лист 2)
в Макрос 2 я попробовала выполнить заполнение ячеек значением 30+, но эксель выдает ошибку.
Изменено: Jey13 - 10.03.2016 19:03:41
 
 
 
#5
10.03.2016 19:10:03
Код
Sub Макрос2()
    With Worksheets("Лист1")
        .Range("A1:A600").Value = "30+"
    End With
End Sub
 
 
 
#6
10.03.2016 19:26:28
vikttur,спасибо большое! все оказалось куда проще, чем я думала :)
 
 
 
#7
10.03.2016 19:48:51
Цитата
Jey13 написал:
в Макрос 2 я попробовала выполнить заполнение ячеек значением 30+, но эксель выдает ошибку.
Удивительно, если бы эксель не ругался  8)

а если надо
Цитата
Jey13 написал:
столбцу А присвоить значение "1+", столбцу B - "2+" и тд. (с первой ячейки и вниз до конца)
Код
Public Sub test()
Dim i As Integer, j%
Dim strBuff As String
For j = 1 To 20
For i = 1 To 10
Cells(i, j).Value = j & "+"
Next i
Next j
End Sub
Арфы - нет, возьмите бубен.
 
 
 
#8
10.03.2016 21:41:59
Udik,спасибо вам :)
 
 
 
Страницы: 1
Читают тему
Наверх