Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 5.00/9: Рейтинг темы: голосов - 9, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 27.11.2019
Сообщений: 1

Как вывести числа в строку через цикл for в VBA ?

27.11.2019, 22:08. Показов 1901. Ответов 5
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Нужно вывести числа в строку через цикл for в VBA
Чтобы допустим это выглядело вот так :
20 20 20 20 20 20 20 20 20 20
Заранее спасибо ) сам в этом полный 0
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
27.11.2019, 22:08
Ответы с готовыми решениями:

Как вывести через цикл с FOR строку, например, из 61-ной точки?
Как записать циклом FOR строку из, например, 61 точки? На выходе нужно, чтобы была строка из 61 точки и больше никакой информации......

через цикл вывести 10 элементов массива в одну строку.
Нужно через цикл вывести 10 элементов массива в одну строку.

Как заполнить 100 TextBox через цикл VBA в Word
Есть 100 текстбоксов в ворде. Нужно через цикл изменить параметр TextBox.Text, но я не знаю как обратиться к нему.

5
 Аватар для Narimanych
2751 / 1725 / 779
Регистрация: 23.03.2015
Сообщений: 5,449
28.11.2019, 08:51
savage_leo,

Сделайте сумму арифметической прогрессии
Цитата Сообщение от savage_leo Посмотреть сообщение
через цикл for в VBA
Цитата Сообщение от savage_leo Посмотреть сообщение
сам в этом полный 0
- это можно исправить почитав кое-что про циклы .. и про прогрессию...
0
4 / 4 / 0
Регистрация: 24.12.2015
Сообщений: 17
30.11.2019, 00:08
Ну не знаю что вы имели в виду, но вот как я понял:
Visual Basic
1
2
3
4
5
6
7
Sub chisla()
  Range("A1").Value = ""
  For i = 1 To 10
    Range("A1").Value = Range("A1").Value & "20_"
  Next i
  Range("A1").Value = WorksheetFunction.Substitute(Range("A1").Value, "_", " ")
End Sub
0
Заблокирован
30.11.2019, 00:18
Talker6, зачем было вводить подчёркивания, а потом их заменять?
0
4 / 4 / 0
Регистрация: 24.12.2015
Сообщений: 17
30.11.2019, 00:24
Остап Бонд, Потому, что при добавлении к value числа с пробелом сразу, пробел исчезал и число становилось большим.
2,02020202020202E+1520 20
Это же просто как вариант. Скорее всего существуют более оптимальные коды.
0
Заблокирован
30.11.2019, 00:30
Visual Basic
1
2
3
4
  Range("A1").NumberFormat = "@"
  For I = 1 To 10
    Range("A1") = Range("A1") & "20 "
  Next I
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
30.11.2019, 00:30
Помогаю со студенческими работами здесь

Как в VBA передать строку через интерфейс ?
Имеется интерфейс на МС++ реализованный HRESULT Encipher(BSTR *bstrText, long *lLen, BOOL bEncipher); в Ворде вызываем Dim Obj...

Вывести в строку 2 числа через пробел
дано n1=A , n2 меньше n1 на B раз, n1+n3 >n2 в С раз больше.Определить n общие и n2. входные данные: через пробел 3 натуральных числа...

Вывести квадраты чисел от А до В (числа получить через командную строку)
Описать программу, которая выводит на экран квадраты чисел от А до В. (А и В получить с помощью командной строки).

Как можно вывести задачу через цикл for
Как вывести задачу через цикл for: S= 0.18x + (0.20x)^2 + (0.22x)^3 +...+ (0.36x)^10; (x=1, s=0.236)

Цикл по папкам через VBA
Добрый день! Помогите придумать решение: Необходимо сделать сравнение файлов в 2х папках по именам (они с одинаковыми названием, но...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Новые блоги и статьи
SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++
8Observer8 10.03.2026
Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:
Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE
8Observer8 10.03.2026
Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .
Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки
Neotwalker 08.03.2026
Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .
Модульная разработка через nuget packages
DevAlt 07.03.2026
Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .
Модульный подход на примере F#
DevAlt 06.03.2026
В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .
Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование
8Observer8 05.03.2026
Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .
SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D
8Observer8 04.03.2026
Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .
SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий
8Observer8 02.03.2026
Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru