Как в Excel сделать так, чтобы при нажатии на ячейку менялось цифровое значение?

Posted by obzor under VBA

Как в Excel сделать так, чтобы при нажатии на ячейку менялось цифровое значение? Есть пронумерованное поле из 16 ячеек (1, 2, 3…16), необходимо, чтобы при нажатии любой ячейки, например, 3, вместо значения 3 появлялось любое другое значение от 1 до 9.

Elixi

не знаю где оно у вас, у меня в ячейках «E7:E22»

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("E7:E22")) Is Nothing Then
        If IsNumeric(Target.Value) Then
            Randomize
            Target.Value = Int((9 * Rnd) + 1)
        End If
    End If
End Sub

тема на форуме

Похожие статьи

• Реакция на клик по ячейке в Excel
• Cчитывание измеренной температуры с датчика DS18B20 в Excel, используя библиотеку RSAPI.DLL
• Интерфейс между Outlook и Excel
• Как в Excel убрать панель формул с определенного окна?
• Выбрать 3 ячейки vba excel 2003 за одно действие
• Вставить картинку в excel из буфера обмена
• Разбиение данных из одной колонки на восемь
• Как программно задать общий формат одной ячейки?
• Как вывести в excel данные из массива?
• Книга — Excel 2007