Как создать строку, повторяющую текст заданное число раз не используя цикл?
Категория: Basic
2012-09-14 16:29:30
code: #vba
iText = "Добро пожаловать на сайт " iCount = 5 ' количество повторений iReptText = Application.Rept(iText, iCount) iReptText = WorksheetFunction.Rept(iText, iCount) iReptText = Excel.Application.Rept(iText, iCount) iReptText = Excel.WorksheetFunction.Rept(iText, iCount) iReptText = Application.WorksheetFunction.Rept(iText, iCount)
Если нет необходимости в использовании переменных, то :
code: #vba
iReptText = Application.Rept("Повторяющийся текст" & vbCrLf, 5)
MsgBox iReptText
Максимально допустимое количество символов в новой строке не может превышать 32767
Для генерации строки, содержащей указанное число пробелов используйте функцию Basic - Space, а для генерации строки, содержащей указанное число повторяющегося символа - String
Поделиться: