Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
Нахождение минимального значения в диапазоне между первым и максимальным значением в столбце
 
Использую функцию определения содержимого в ячейке удовлетворяющей условию. Сама функция имеет вид
Код
=ИНДЕКС(B5:ДВССЫЛ(L96);ПОИСКПОЗ(МИН(ABS(I95-G5:ДВССЫЛ(L97)));ABS(I95-G5:ДВССЫЛ(L97));0))

Под I95 - подразумевается число из ячейки I95. В таком виде функция не работает, она работает если в формулу вместо I95 подставить численное значение.
Мне же нужно использовать число из ячейки I95.
Подскажите пожалуйста как это правильно записывается.
 
Поиск координат глобального максимума и локальных максимумов в двумерном массиве
 
Найти координаты глобального максимума и локальных максимумов в двумерном массиве.
Результаты в 367 строке. Для проверки 365 строка - что должно быть в 367.
Подскажите можно ли решить эту задачу?
Можно как встроенными функциями, так и обработкой с помощью макроса.
Определение соседних минимумов глобального максимума двумерного массива, В заданных ячейках определить координаты соседних минимумов около глобального максимума двумерного массива
 
  Помогите пожалуйста решить задачку:
В заданных ячейках определить координаты соседних минимумов около глобального максимума двумерного массива. Файл с массивом и рисунками и комментариями прикладываю.
Использование переменной цикла в создании формулы для расчета
 
Формирую обработку ячеек.
Код
For K = 1 To 101
Cells(7, 19 + K - 1).Select
ActiveCell.FormulaR1C1 = "=('0'!R[-5+3*(K-1)]C[-12+K-1]^2+'0'!R[-4+3*(K-1)]C[-12+K-1]^2)^0,5"
Next

Выдает ошибку, полагаю некорректно использую переменную цикла, подскажите пожалуйста как правильно.
Я начинающий пользователь в отношении использования макросов.
Фильтрация данных (не учитывать нулевые значения)
 
Не могу сообразить как сделать, помогите пожалуйста советом.    
   Реализуется выбор значения из столбца L для строки минимального значения из столбца V.
Код
=ИНДЕКС(L116:L215;ПОИСКПОЗ(МИН($V$116:$V$215);$V$116:$V$215;0))

Проблема в том, что в столбце V есть нулевые элементы, а их надо пропускать, то есть выбирать из
столбца V значения элементов больше 1.
Выделение диапазона ячеек в стиле R1C1
 
Здравствуйте!
Подскажите пожалуйста как реализовать
Range("S7:S106" ;) .Select в стиле R1C1.
В этой области я знаю только выделение одной ячейки
Cells(7 , 18 + I).Select - то есть в обычном это эквивалентно Range("S7" ;) .Select
Работа с двумерными массивами
 
Здравствуйте!
Подскажите пожалуйста как решить вопрос. Имеется массив F1, у которого прописаны значения X1 по горизонтали и Y1 по вертикали. Надо найти максимальное значение из этого массива F1 и определить X1(F1max) и Y1(F1max). Затем во втором массиве такой же размерности приравниваем X2=X1(F1max) и Y2=Y1(F1max) и найти F2(X2;Y2).
Работал только с одномерными массивами, попытался через команду
ИНДЕКС(E9:E30;ПОИСКПОЗ(МАКС(F9:Q30);F9:Q30;0)) но она конечно же не работает.
Файл прикладываю. Excel 1997.
Закрытие файла без сохранения при работе макроса
 
Можно ли закрывать файл без сохранения при работе макроса? То есть много файлов из которых копируется часть информации в один основной файл 777.xlsm, после обработки одного файла 1.xlsm по команде в макросе
Windows("" & Format(I) & ".xlsm" ;) .Activate
ActiveWorkbook.Close
выходит окно, которое запрашивает надо ли сохранять файл. А таких файлов порядка 50 шт.
сама программа, примерно выглядит
Код
Dim I As Long
For I = 1 To 50
 Workbooks.Open Filename:="C:\5\" & Format(I) & ".xlsm"
 Windows("" & Format(I) & ".xlsm" ;) .Activate
 Range("V179:V228" ;) .Select
 Selection.Copy
 Windows("777.xlsm" ;) .Activate
 Cells(66, 182 + I).Select
 Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
 :=False, Transpose:=False
 Application.CutCopyMode = False
 Selection.NumberFormat = "0.00"
 Windows("" & Format(I) & ".xlsm" ;) .Activate
 ActiveWorkbook.Close
Next
End Sub

здесь все работает без проблем, кроме описанного появления запроса при закрытии.
Как это можно сделать, подскажите пожалуйста.
Формирование в макросе выделения диапазона ячеек в формате R1C1
 
Необходима работа по столбцам. Поэтому пришлось использовать стиль ссылок R1C1.  
Как правильно выделить диапазон ячеек в этом формате?  
Я пишу    
      Range("R2C1:R102C1").Select  
выдает ошибку.  
При создании макроса со стилем ссылок R1C1 Excel формирует  
      Range("A2:A102").Select  
хотя вроде включен режим работы с формулами стиль ссылок R1C1.  
Помогите, в чем может быть дело?
Выбор из одного столбца по условию выполняющемуся во втором столбце
 
Подскажите пожалуйста как разрешить задачу.  
Имеется 2 столбца числовых значений. В ячейку необходимо записать значение из первого    
столбца по адресу определяющемуся при выполнении условия, что во втором столбце:  
1) значение наиболее близкое, например, к числу 2;  
2) для минимальное значения из всех.
Запуск макроса из макроса
 
Возникла небольшая проблема - макрос получился большой и был разбит на два.  
Можно ли по окончании первого макроса из нег же запустить второй?  
Подскажите пожалуйста, кто знает.
Закрытие файла без сохранения
 
В процессе обработки открывается файл *.xls делается кое-какая обработка, копирование в другой файл,возврат в первоначальному и его закрытие. При этом выходит окно сохранить файл или нет. При формировании макроса на закрытие прописывается    
ActiveWorkbook.Close без всяких парметров типа без сохранения.    
  Очень мешает всплывающее окно при закрытии файла.    
  Подскажите пожалуйста как от этого избавиться, так как обрабатывается большое количество файлов.
Организация цикла в цикле
 
Подскажите пожалуйста как организовать цикл в цикле в макросе EXCEL или где можно посмотреть!
Отключение команды отмены последних операций
 
В результате работы макроса тормозится работа Excel. Есть подозрение что тормозит формирование списка отмены последний операций.  
Как в макросе отключается функция отмены последних операций подскажите пожалуйста!
Использование вставки из буфера обмена
 
Написал макрос  
 
Dim MyData As DataObject  
Private Sub UserForm_Initialize()  
Set MyData = New DataObject  
Windows("1.txt").Activate  
Selection.MoveLeft Unit:=wdCharacter, Count:=1  
Selection.EndKey Unit:=wdLine, Extend:=wdExtend  
Selection.Copy  
Windows("0,01 m.docx").Activate  
ActiveWindow.ActivePane.VerticalPercentScrolled = 0  
Selection.Find.ClearFormatting  
Selection.Find.Replacement.ClearFormatting  
MyData.GetFromClipboard  
With Selection.Find  
.Text = "31000"  
.Replacement.Text = MyData.GetText(1)  
.Forward = True  
.Wrap = wdFindContinue  
.Format = False  
.MatchCase = False  
.MatchWholeWord = False  
.MatchWildcards = False  
.MatchSoundsLike = False  
.MatchAllWordForms = False  
End With  
Selection.Find.Execute Replace:=wdReplaceAll  
 
Здесь из документа "1.txt" копируем информацию, а затем в документе "0,01 m.docx" меняем число "31000" на то, что скопировано в буфер. При запуске выделяется ошибка на первой строке. Compile error: User-defined type not defined. Не подскажете в чем проблема?    
  Прошу извинения за то, что макрос Word. Но может кто подскажет? Ведь вроде обе офисные пргораммы.
Сравнение содержимого двух ячеек
 
Рассчитывается среднее число в диапазоне ячеек. Надо отобрать ячейки, в которых числа больше среднего уровня. Как организовать сравнение чисел в ячейках?  
 
If "С3" > "С68"  
...  
End If  
 
И как использовать сравнение  содержимого ячейки с чилом, например -3:  
 
If "С3" > -3  
...  
End If  
Помогите, пожалуйста кто знает.
Использование в условии значения из ячейки
 
В ячейке рассчитывается среднее значение. Подсчитывается кол-во значений меньше этого среднего значения. В условии на подсчет задается обычно "<-3" в кавычках мнньше минус трех. Можно ли в качестве числа -3 использовать в условии значение сославшись на расчитанную ячейку?  
ЕСЛИ(СУММ(E1:E808201)=0;0;СЧЁТЕСЛИ((E1:E808201);"<-3"))  
Вместо минус 3 нужна ссылка на адрес ячейки. Кто знает подскажите пожалуйста. Разные варианты перебрал, не считает.
Использование в качестве замены информации из буфера
 
Можно ли в окошке "Найти и заменить" в макросе в качестве строки замены использовать то, что предварительно скопировано в буфер обмена? Проблема в том, что копирование в буфер будет различным в процессе работы макроса, только эту информацию надо заменить вместо определнных символов. Прмер ниже.  
Cells.Replace What:="001", Replacement:="399", LookAt:=xlPart, _  
       SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _  
       ReplaceFormat:=False  
Только вместо "399" встаить информацию из буфера обмена?  
Это возможно или нет. Поделитесь пожалуйста, кто знает.
Копирование результатов расчета в числовом виде
 
Проводится расчет по заданной формуле. Необходимо в другую книгу Excel скопировать результаты расчетов, но только в чистом численном виде (без ссылки на книгу из которой берутся данные). Можно ли это сделать.  
 
Один из способов скопировать ячейки, вставлять их в MS Word, затем выделить в MS Word и снова копировать в буфер, а затем вставлять уже в нужное место в новой книге. Тут проблема можно ли как-то в макросе Excel сделать запуск MS Word и проделать описанные операции.
Переполнение памяти
 
Производится смена знаков: "," на ";" и "." на ",". Файлы порядка 500 кБ каждый. Организован цикл, при котором такой файл открывается, производятся замены и файл сохранаятся и закрывается, далее открывается второй - замены - сохранение. Обрабатывает максимально около 300 файлов, а далее выдается сообщение о том, что память переполнена или нет типа места на диске и макрос прерывается. В чем дело и как выйти из этой ситуации. Оперативной памяти до 1 Гб (проходит около 240 файлов) (пробовал на 3 Гб - около 300 файлов и стопор), места на жестком диске десятки ГБ.
Tronan MacroMachine
 
Работал кто-нибудь в этой программе?  
Как организовать цикл и задержку для выполнения расчетов в какой-либо используемой программе?  
KeySequence("0,[BACK],0") - первая цифра задержка по времени вроде?
а здесь - MouseButton(0, 0), тоже или нет?
Организация цикла в макросе
 
Периодически открываюся файлы и проводится обработка. Имена файлов соответственно  
01.txt, 02.txt и т. д.    
Как организовать цикл с шагом 1, используя его в качестве автовыбора имени файла.  
А то решил задачу в лоб, но число строк в макросе ограничено. В принципе конечно можно организовать множество макросов с автозапуском друг за другом, но хочется узнать лаконичное решение с циклом.  
Помогите или подскажите где посмотреть!!  
Спасибо заранее.
Запуск макроса из макроса
 
Необходимо запустить марос из макроса.  
Использована команда    
Application.Run MacroName:="Имя_Макроса"  
В MS Word 2007 работает без проблем.  
В MS Excel 2007 не работает, выдает сообщение  
"Named argument not found"  
Вроде как не воспринимает имя и необходимо полное имя макроса. Но как его узнать???  
Помогите пожалуйста!!!!
Страницы: 1
Наверх