Цитата |
---|
Alexey795 написал: A и D это числа как в математике блин |
Давайте как минимум без блин. Тут Вам вроде никто не обязан ничем пока, чтобы блинкать. Если Вы объясняете так, что никому не понятно - наверное, имеет смысл чутка пересмотреть свои объяснения, может пример в файлике накидать, для большей ясности? Я вот например не помню, чтобы А и D считались числами, хоть в математике, хоть в физике. Хотя, может мы разные математики изучали, не знаю. Но если к А прибавить D - вряд ли мы получим какое-то вменяемое итоговое число, не так ли? Они могут быть какими-либо обозначениями величин или точек, для их более краткого написания. Но никак не самими числами. И если это какие-то величины - то нужно и их расшифровку тоже приложить, чтобы она была не только в Вашей голове.
Цитата |
---|
Alexey795 написал: я всего лишь спросил, можно ли сделать так, чтобы отображалось то, как значение в ячейке меняется |
нет. Вы спросили что-то другое. Если надо сохранять значение ячейки и прицеплять к нему следующее введенное - то это не одно и тоже, чтобы показать процесс
Цитата |
---|
Alexey795 написал: есть цикл самый простой. он делает +1 к значению в ячейке в итоге значение в ячейке меняется от A до D |
Вот здесь Вам как минимум надо прописать, что +1 к А это В, а не что-то другое. А может и что-то другое, кто его знает? Потому что если в ячейке забито А и мы сделали +1 - то программа не поймет, что надо сделать В, т.к. А+1 = ошибка, ибо текст нельзя использовать в математических операциях.
Цитата |
---|
Alexey795 написал: в этой ячейке ПО ОЧЕРЕДИ появлялись значения число_А, число_B, |
тогда смотрите в сторону Application.OnTime. Записали что-то в ячейке и, видимо, надо вызывать некую процедуру, в которой будет циклический вызов этой же процедуры и она будет записывать в ячейку что-то от начальной величины до конечной. Не знаю уж какой там у Вас порядок "чисел" в Вашем понимании. Или использовать Wait опять же с задержкой в секунду.
Я, правда, в упор не понимаю зачем это вообще надо. Тормозить процесс, когда этого можно избежать. Обычно как раз все надо оптимизацией бьются, а не над торможением.
В общем в итоге я все равно не понял какие действия Вы проделываете - цифры записываете или буквы и что такое +1: еще один проход цикла или прибавление единицы к ранее введенным значениям. В общем, накидал код. Правая кнопка мыши на ярлыке листа - Исходный код(или "исходный текст" в разных версиях Excel может различаться). Вставляете туда код:
Код |
---|
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "A1" Then
Dim arr, s As String, lcnt As Long, i As Long, v
arr = Array("A", "B", "C", "D")
'если введенное число превышает кол-во элементов массива
v = Target.Value
lcnt = Val(v)
If lcnt - 1 > UBound(arr) Then
Exit Sub
End If
s = Target.Value
With Application
.EnableEvents = 0
Target.Value = arr(0)
.Wait Now + TimeValue("00:00:01")
For i = 1 To lcnt - 1
Target.Value = Target.Value & ", " & arr(i)
.Wait Now + TimeValue("00:00:01")
Next
Target.Value = v
.EnableEvents = 1
End With
End If
End Sub |
теперь вбиваете в ячейку А1 число не больше 4-х. Наблюдаете, как меняются значения в ячейке.