Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Построение интервала в зависимости от значения в ячейке, Буду рад помощи в решении задачи
 
#1
04.04.2016 16:17:18
Добрый день!

Каким образом сделать так, чтобы в зависимости от значения в ячейке А, происходило автоматическое построение диапазона следующим образом:
Если А=10, то строится диапазон В1=1, В2=2, В3=3 ........ В10=10
Если А=18, то В1=1, В2=2, В3=3 ........ В10=10..... В18=18

Спасибо
Изменено: Iserp - 04.04.2016 16:19:08
 
 
 
#2
04.04.2016 16:49:43
Код
=если(строка(А1)<=$A$1;строка(А1);"")

файл не смотрел.
Изменено: V - 04.04.2016 16:50:17
 
 
 
#3
04.04.2016 16:58:52
Я балуюсь с макросами, можете посмотреть такое
 
 
 
#4
04.04.2016 16:59:34
Ответ от уважаемого V, положил в таблицу.
MS Office 2007,2010

ЛЕНЬ-двигатель прогресса!
 
 
 
#5
04.04.2016 17:06:30
У Вас ячейка, в которой лежит число количества квартир неизменна? или лучше будет если выбирать ячейку (активировать) и потом кнопку жать?
MS Office 2007,2010

ЛЕНЬ-двигатель прогресса!
 
 
 
#6
04.04.2016 18:28:12
Как раз проблема в том, что ячейка изменяется и нужно в автоматическом режиме выстраивать каждый раз столбец.
Большое спасибо!
 
 
 
#7
04.04.2016 18:33:00
В статично варианте работает, но автоматом - пока нет)
 
 
 
#8
04.04.2016 18:35:14
Iserp, В таком виде прежде чем запустить макрос, нужно встать на ячейку где указано количество квартир.
Код
Sub test2()
    Dim Ch, i%, firstRow%, iInt()
    firstRow = 11
    Const firstColumn = 6
    
    Ch = Selection.Value
    If Not IsNumeric(Ch) Or Len(Ch) < 1 Then
        MsgBox "Не бывает такого количества квартир": Exit Sub
    Else
        If Ch <> Fix(Ch) Then MsgBox "Не бывает такого количества квартир": Exit Sub
    End If
    
    ReDim iInt(1 To Ch, 1 To 1)
    
    For i = 1 To Ch
        iInt(i, 1) = i
    Next i
    
    Range(Cells(firstRow, firstColumn), Cells(Cells(Rows.Count, firstColumn).End(xlUp).Row, firstColumn)).ClearContents
    Range(Cells(firstRow, firstColumn), Cells(firstRow + Ch - 1, firstColumn)).Value = iInt
    
End Sub
Что касается Столбца В КОТОРЫЙ вставлять значения: этот столбец как определить? Например, Вставлять ниже того где указано кол-во квартир? Или куда?
MS Office 2007,2010

ЛЕНЬ-двигатель прогресса!
 
 
 
#9
04.04.2016 18:43:03
Я поменял строки и заработала формула. Все супер! Спасибо!
 
 
 
Страницы: 1
Наверх