Автор DEN задал вопрос в разделе Другие языки и технологии
Как создать эти макросы в VBA (Excel)? и получил лучший ответ
Ответ от Makfromkz[гуру]
первый макрос:
Sub makros1()
iii = 1
For Each ttt In Selection.Cells
ttt.Value = iii
iii = iii + 1
If iii = 11 Then
Exit For
End If
Next
End Sub
выделяем столбец, запускаем, вот результат его работы:
этим же макросом решается 2) сначала выделяем столбец, запускаем макрос1, потом выделяем строку и снова запускаем макрос
а з-й макрос сделаем запись макроса)) )
Sub makros3()
Range("A3").Select
ActiveCell.FormulaR1C1 = "0"
Range("A3").Select
Selection.AutoFill Destination:=Range("A3:A7"), Type:=xlFillDefault
Range("A3:A7").Select
Range("A8").Select
End Sub
Ответ от Medium63 God[новичек]
Исходя из условия можно обойтись стандартными формулами встроенными в ексель. Или изложите задачу более конкретно.
Исходя из условия можно обойтись стандартными формулами встроенными в ексель. Или изложите задачу более конкретно.
Ответ от 22 ответа[гуру]
Привет! Вот подборка тем с похожими вопросами и ответами на Ваш вопрос: Как создать эти макросы в VBA (Excel)?