Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » dremastar
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
Формула с комментарием, Какой тип должен быть переменной для верного отображения
 
#
09.11.2017 09:44:50
Есть значение ячейки 34645,51
Присваиваем переменную Single, чтобы видеть дробную часть.
qПГ=34645,51
Я пытаюсь макросом прописать его в формулу следующим образом
Код
c_qПГ.FormulaR1C1 = "=" & qПГ & "+N(""объём природного газа"")"

Ругается на переменную. Если меняю переменную на Long - всё работает, только дробная часть теряется.
Подскажите пожалуйста, что я делаю не так.
 
Перейти    
Преобразование диапазона через массив, Альтернатива цикла For Each
 
#
22.12.2016 08:57:27
Коллеги, спасибо! Чтобы я без вас делал! Очередной раз выручаете. Вот тут уже пищи для размышления более, чем достаточно. Буду разбираться. Ещё раз спасибо.
 
Перейти    
Преобразование диапазона через массив, Альтернатива цикла For Each
 
#
21.12.2016 16:53:44
Не хочется спорить с модератором, но вроде тема так и звучит: Преобразование диапазона через массив, Альтернатива цикла For Each. Как с помощью инструментов работы с массивами из диапазона вида 1, сделать диапазон вида 2.
 
Перейти    
Преобразование диапазона через массив, Альтернатива цикла For Each
 
#
21.12.2016 16:03:56
Коллеги, спасибо за наводки. Как массив перебрать в памяти я понимаю. Есть массив вида 100 на 100. А нужно переформатировать в вид 2 на 500. Может кто-то может написать код, как решить задачу которая у меня в примере прикреплена? Добавил картинку для понимания.
 
Перейти    
Преобразование диапазона через массив, Альтернатива цикла For Each
 
#
21.12.2016 12:01:05
Мдя... подсказки к решению моей задачи меня не приблизили. Перед запуском цикла For Each отключаю всё, что только можно дабы ускорить процесс
Код
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Application.EnableEvents = False
Application.DisplayStatusBar = False
Application.DisplayAlerts = False
Всё равно медленно. То что нужно в массив загнать данные, я понимаю. Поэтому тема и родилась. Вопрос, как массив перебрать, дабы получить аналогичный результат циклу For Each? Как в примере, который я прикрепил. ПОМОГИТЕ!)))
 
Перейти    
Преобразование диапазона через массив, Альтернатива цикла For Each
 
#
20.12.2016 23:14:46
Добрый вечер, уважаемые форумчане.
К сожалению слабо знаком с работой массивов в vba, только начинаю осваивать.
Задача: есть диапазон значений и шапка таблицы. Необходимо преобразовать диапазон в два столбца: первый столбец название строки и колонки, второй собственно значение.
Циклом For Each прекрасно решается когда в диапазоне 100 значений, а вот когда диапазон 100 на 100, то уже всё печальней, а быстродействие штука важная.
Поэтому прошу подсказки, как развязать данную задачу по алгоритму: закинуть всё в массив, преобразовать, выкинуть на лист.
Заранее благодарен.  
 
Перейти    
Ошибка при откртии книги, runtime error 91
 
#
20.04.2016 20:14:46
Это просто какое-то волшебство!
Может поделитесь мудростью, что я делал мувитон?
 
Перейти    
Ошибка при откртии книги, runtime error 91
 
#
20.04.2016 20:05:35
Не совсем понимаю, как мне это может помочь.
Ведь в книге есть данный лист. Как может генерироваться Nothing при открытии?
Если как минимум до этого все листы запоролились и в этом фрагменте кода ошибка не генерировалась.
 
Перейти    
Ошибка при откртии книги, runtime error 91
 
#
20.04.2016 19:43:43
Добрый день, уважаемые знатоки Excel.
Надеюсь кто-то сталкивался с данной проблемой.
Ругается на строку снятия пароля с листа. Лист существует всё норм.
Если удалить строку с кодом начинает ругаться на строку активации листа.
Не могу понять в чём проблема. Помогите, пожалуйста.
Пример прикладываю. Если вместил в 100 кб.
Заранее благодарен.
 
Перейти    
Сравнение двух фрагментов текста, По-разному отображается часть текста с датой
 
#
24.09.2015 19:29:21
Ещё раз спасибо. Взял на заметку))
 
Перейти    
Сравнение двух фрагментов текста, По-разному отображается часть текста с датой
 
#
24.09.2015 19:22:11
Sanja, огромное спасибо. Вариант устраивает. А не подскажешь как в коде сделать, чтбы дата отражалась как количество дней?
 
Перейти    
Сравнение двух фрагментов текста, По-разному отображается часть текста с датой
 
#
24.09.2015 19:13:46
Добрый день, уважаемые специалисты MS Excel
Не могу понять почему фунция Сцепить() преобразует дату в количество дней, а если объединять значения трёх ячеек макросом, то дата преобразуется в текст вида "13.09.2015".
Как сделать, чтобы значения были равнозначны? Пример прилагаю. Заранее спасибо.
 
Перейти    
Сложение даты и времени, Как с помощью vba сложить дату и время
 
#
16.09.2014 21:17:28
Добрый вечер, уважаемые знатоки.
В файле имеется TextBox с датой и ComboBox c временем. Когда пытаюсь присвоить переменной значение суммы даты и времени соединяет их как текст. Соответственно после не могу найти ячейку с таким значением. Помогите сделать так, чтобы дата отображалось равнозначно функции Date + Time.

Код
Private Sub CommandButton1_Click()
        
        If CmBxTime.Text = "" Then
              MsgBox "Время не выбрано!", vbCritical, "Ошибка"
        Else
              MsgBox "Данные успешно добавлены!", vbExclamation, "Загрузка данных в Базу Данных"
        End If


Z = Mia2.TextBox17.Value + CmBxTime.Value   'НЕ РАВНОЗНАЧНО Date + Time
MsgBox Z & vbNewLine & Date + Time


End Sub

Private Sub UserForm_Initialize()
        Dim Imena As String
        Dim a As Byte
With CmBxTime
.AddItem #1:00:00 AM#
.AddItem #2:00:00 AM#
.AddItem #3:00:00 AM#
.AddItem #4:00:00 AM#
.AddItem #5:00:00 AM#
.AddItem #6:00:00 AM#
.AddItem #7:00:00 AM#
.AddItem #8:00:00 AM#
.AddItem #9:00:00 AM#
.AddItem #10:00:00 AM#
.AddItem #11:00:00 AM#
.AddItem #12:00:00 AM#


End With


Mia2.CmBxTime.ListIndex = 2 'отвечает за выбор сотрудника
CmBxTime.Style = fmStyleDropDownList 'Запрет ввода данных
TextBox17.Value = Date
Mia2.TextBox17.Value = Format(Mia2.TextBox17, "dd/mm/yyyy"

End Sub
 
Перейти    
Последовательная вставка значений
 
#
29.08.2014 15:36:10
вместо 4-х крестиков 4 значения и так 10 рядов
 
Перейти    
Последовательная вставка значений
 
#
29.08.2014 15:07:19
Добрый день, уважаемые знатоки.
Подскажите как организовать цикл переноса значений, чтобы вместо крестиков в таблице справа переносились значения из таблицы слева.
 
Перейти    
VBA_Можно ли скопировать UserForm картинкой
 
#
11.08.2014 16:29:07
Уважаемые знатоки,
подскажите пожалуйста можно ли скопировать UserForm в буфер и затем вставить картинкой в электронное письмо?
Если да, то как реализовать с помощью кода VBA?
 
Перейти    
VBA Не получается открыть файл с разрешением jpg
 
#
11.08.2014 09:44:57
Prist, Спасибо за варианты решения, но не получается пока таким способом сделать.

Код
'ActiveSheet.Pictures.Insert(CStr(strG)).Select
ActiveSheet.Pictures.Insert("\\fs1\Shares\utr\ÎÊÊÐ\îáùàÿ\FLIR\Òåìïåðàòóðà_êîíâåðòåðà\IR_" & strR & ".jpg").Select
Посоветуйте пожалуйста как лучше всего реализовать просмотр нужного изображения
 
Перейти    
VBA Не получается открыть файл с разрешением jpg
 
#
11.08.2014 09:26:17
Добрый день, уважаемые знатоки.
Не могу понять почему не работает последняя строка макроса.
Задача следующая: при клике на ячейку, где будет прописан номер снимка, он должен открываться средствами просмотра фотографий Windows.
Пока не получается даже вставить снимок в Excel.
Пробовал следующую конструкцию, тоже ничего не получается.

Код
Shell "mspaint.exe  strG", vbNormalFocus


Код
Sub OpenFile1()

  Dim strG As String
  Dim strR As String
  Dim strDirect As String
  
strDirect = "\\fs1\Shares\utr\ОККР\общая\FLIR\Температура конвертера\IR_"
strR = ActiveCell.Value

  If Len(strR) <> 4 Then
   MsgBox "Что-то тут не то..."
  Exit Sub
     End If
strG = strDirect & strR & ".jpg"

ActiveSheet.Pictures.Insert("\\fs1\Shares\utr\ОККР\общая\FLIR\Температура_конвертера\IR_6383.jpg").Select    'работает 
ActiveSheet.Pictures.Insert(strG).Select 'не работает
 
Перейти    
Надстройка "Поиск решения" не находит минимум функции, Solver не находит оптимальное решение
 
#
16.05.2014 08:11:30
Попытался сократить задачу до 4 переборов, но результата нет. Подскажите пожалуйста. что я не так делаю?
 
Перейти    
Надстройка "Поиск решения" не находит минимум функции, Solver не находит оптимальное решение
 
#
16.05.2014 07:41:41
Целевая функция - минимизация стандартного отклонения среднего рядов.
А как организовать простым перебором решение данной задачи?
 
Перейти    
Надстройка "Поиск решения" не находит минимум функции, Solver не находит оптимальное решение
 
#
15.05.2014 21:30:18
Добрый вечер, уважаемые знатоки. Помогите разобраться.
С помощью Solver необходимо минимизировать функцию, расположив 9 значений в три ряда таким образом, чтобы среднее отклонение рядов было минимальным.
Пример во вложении. Поиск решения срабатывает, но не находит минимум функции почем-то?
Заранее благодарен...
 
Перейти    
макрос - копирование и вставка ячеек, Копирование заданного количества строк с хвоста таблицы
 
#
13.12.2013 17:17:40
Огромное спасибо. Здорово. что есть люди готовые помочь!
 
Перейти    
макрос - копирование и вставка ячеек, Копирование заданного количества строк с хвоста таблицы
 
#
13.12.2013 17:04:38
Сорри)))
 
Перейти    
макрос - копирование и вставка ячеек, Копирование заданного количества строк с хвоста таблицы
 
#
13.12.2013 16:47:14
Добрый день, уважаемые специалисты.
Прошу откорректировать код макроса таким образом, чтобы при нажатии на кнопку происходило копирование 12 строк с хвоста таблицы, а не с головы как в примере во вложении. Заранее благодарен.

Файл см. ниже (здесь удален) [МОДЕРАТОР]
 
Перейти    
Поиск решения - использование бинарных значений
 
#
07.11.2013 14:10:43
Добрый день, уважаемые знатоки.
Столкнулся с трудностью которую самостоятельно не могу решить.
Во вложении задача по поиску минимальной стоимости Гигакалории в зависимости от включённого оборудования.
Поиск решения минимизирует стоимость, однако работает только в том случае, если я в ручном режиме указываю какое оборудование включено, а какое выключено.
Как изменить постановку задачи, чтобы инструмент Поиск решения сам находил оптимальные сочетания оборудования при необходимой производительности??
Заранее благодарен...
 
Перейти    
Страницы: 1
Наверх