Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
VBA Создать заголовок в ListBox Народ, объясните ПЖЛ каким образом 1. нужно заполнять заголовки в ListBox, что нужно дописать в данный код чтобы в заголовках было что нить. with listbox .additem for i=0 to 3 .list(0,i)=i next end with если кому нить интересно, выкладываю код оригинала, заполнения, Listbox https://www.cyberforum.ru/ vba/ thread655076.html VBA Перемещение прямоугольников в Visio мышью
В Visio написал макрос хочу либо с помошью drop или move переместить прямоугольники . позиции по x и y как рассчитать не понятно? Например Application.ActiveWindow.Page.Drop Application.ActiveWindow.Page.Shapes.ItemFromID(2).Characters, 0.529541, 11.0304882 переместил на ширину прямоуголькика Application.ActiveWindow.Selection.Move 0.745646, 0.0024 казалось бы 0.745646 - 0.529541 =...
VBA В опроснике (Word) при выборе определенных ответов показывать дополнительные вопросы https://www.cyberforum.ru/ vba/ thread654975.html
День добрый, В опроснике в Word формате необходимо при выборе определенных ответов вылезали доп. вопросы , а также доп поля для ответов. Например: 1) 2+2= ?  четыре  шесть
VBA Как узнать размер проекта VBA в активной книге https://www.cyberforum.ru/ vba/ thread654925.html
Доброе время суток. Подскажите, можно ли каким-то образом с помощью макроса, узнать сколько 'Весит' проект vba в активной книге. То есть не всей экселены а только самого размер проекта.
VBA Как получить дату создания папки
Подскажите, пожалуйста. Мне надо с помощью макроса VBA перейти в определенную папку (С:RTR/Type), содержащий много папок и скопировать оттуда лишь последнюю папку из всех. Имя этих папок может быть разным. Эти папки создает другая программа и помещает в этот каталог. Каким оператором скопировать можно?
VBA Восстановление пропущенных строк В таблице есть данные в виде строк, данные поступают с одинаковым временным промежутком, но иногда происходит сбой и данные за один из временных промежутков не приходят, нужно в этом случае вставить дополнительную строку пропущенным временем и данными за предыдущий временной период - см. файл. Как это можно сделать, буду признателен за помощь. https://www.cyberforum.ru/ vba/ thread654898.html
VBA Сравнение двух столбцов из разных книг https://www.cyberforum.ru/ vba/ thread654813.html
Здравствуйте глубокоуважаемые... Нужна помощь в написании VBA скрипта... Вообщем есть 2 книги Excel... Нужно сравнить два столбца из 2-х разных книг Если есть совпадение то скопировать всю строку в третью книгу.... вообщем отправлю эти два файла... нужно сравнить столбец ID_SLUCH_01-07 из книги1 со столбцом ID_TCASE из книги2... при нахождении совпадений из книги 1 скопировать всю строку в третью...
VBA Получение цвета заливки определенной ячейки из закрытой книги
И снова здравствуйте! :) Комрады, подскажите... Я использую следующую честностыренную функцию для работы программы: Function GetValue(path, file, sheet, ref) 'Функция GetValue получает в качестве параметров: ' path – путь к закрытому файлу (например, "d:\files"); ' file – название рабочей книги (например, "budget.xls"); ' sheet – название рабочего листа (например, "Лист1"); ...
VBA Подсчитать средневзвешенное значение по формуле нужно средневзвешенное подсчитать по неделям средневзвешенное считается:ср_взвешенное=(Trade Close_palm_oil1*Trade Volume_palm_oi1l+Trade Close_palm_oil2*Trade Volume_palm_oi12+...)Trade Close_palm_oil1+Trade Close_palm_oil2+... во вложении исходные данные и результирующий файл. помогите пожалуйста господа программисты я в этом ноль совсем.очень срочно надо((( заранее спасибо вложение https://www.cyberforum.ru/ vba/ thread654646.html VBA Как скопировать изображение, находящееся в копируемом диапазоне ячеек https://www.cyberforum.ru/ vba/ thread654589.html
Доброго времени суток. Проблема в следующем: макросом копируется определенный диапазон ячеек и вставляется в другой лист. В одной из ячеек находится изображение. Макросом переносятся все данные, но изображение - нет. В случае копирования ячейки вручную - все копируется и переносится. Макросом никак. Вот сам макрос Sub P_40() 'Sub copy_r() Dim lr As Long With Application
VBA Автоматизация работы в Microsoft Word: формирование таблиц, запись данных
Люди проконсультируйте, не смотрите, что вопрос может быть не очень умный. Обычно использовал VBA для Ворд для обработки и создания конечных форм, но сейчас не знаю что лучше и возможно ли это сделать средствами офиса. Суть такая юзер( очень не продвинутые умеют работать только в ворд и используют компьютер в основном как печатную машинку ) создают текстовые файлы (doc, информация в этих файлах...
VBA Run-time error '7777' неправильное использование свойства ListIndex Добрый день. Возникает вышеприведенная ошибка при попытке выделять строку listbox. Не могу понять, в чем причина. Помогите, пожалуйста. VBA Access 7.0 цикл, в котором возникает ошибка: ----------------------------------------------- Dim booFound As Boolean, intI, intValue As Integer https://www.cyberforum.ru/ vba/ thread65
es geht mir gut
11270 / 4752 / 1183
Регистрация: 27.07.2011
Сообщений: 11,439
20.09.2012, 22:20 0

Увеличить размер массива, оставив нетронутыми исходные элементы - VBA - Ответ 3471246

20.09.2012, 22:20. Показов 5677. Ответов 9
Метки (Все метки)

Ответ

GirlFriend,
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
Sub Familii()
    ReDim F(10) As Variant
    Dim i As Integer
    F = Array("f1", "f2", "f3", "f4", "f5", "f6", "f7", "f8", "f9", "f10") '  F(0)=  "f1"
    ReDim Preserve F(12) As Variant
    F(10) = "f11"
    F(11) = "f12"
    For i = LBound(F) To UBound(F) ' Нижний индекс массива - 0, верхний - 11.
         Debug.Print F(i)
    Next i
End Sub


Вернуться к обсуждению:
Увеличить размер массива, оставив нетронутыми исходные элементы VBA
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
20.09.2012, 22:20
Готовые ответы и решения:

Как увеличить максимальный размер массива?
Вопрос. Как увеличить максимальный размер массива? Команда типа DIM Y(16383) еще понимается в QB,...

Увеличить размер массива не удаляя элементы?
Приветствую, вот хотел бы просить что собственно делает array.Resize? как я понял эта функция...

Удвоить размер файла, записав в конец все его исходные элементы
Дан файл целых чисел. Удвоить его размер, записав в конец файла все его исходные элементы (в...

Упорядочить по убыванию только положительные элементы массива, оставив другие элементы в прежних ячейках
Упорядочить по убыванию только положительные элементы массива, оставив другие элементы в прежних...

9
20.09.2012, 22:20
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
20.09.2012, 22:20
Помогаю со студенческими работами здесь

Удвоить размер файла, записав в конец файла все его исходные элементы
Дан файл целых чисел. Удвоить его размер, записав в конец файла все его исходные элементы (в том же...

Удвоить размер файла, записав в конец файла все его исходные элементы
дан файл целых чисел. удвоить его размер, записав в конец файла все его исходные элементы.(в...

Увеличить размер массива
Приветствую всех. В программе создается массив байт определенного размера. В этот массив заносятся...

Файлы. Удвоить его размер, записав в конце файла все его исходные элементы
Дан файл целых чисел. Удвоить его размер, записав в конце файла все его исходные элементы ( в том...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru