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

Страницы: 1
Ошибка в вычитании переменных Double
 
Спасибо за подсказки)
Ошибка в вычитании переменных Double
 
Цитата
vikttur написал:
IEEE 754 - стандарт такой . Его ошибка.
А выход из этого есть?
Ошибка в вычитании переменных Double
 
Добрый день.
Пример упрощенный, но суть та же...
Столкнулся с необъяснимым. Не могу понять почему не выполняется условие:
Код
Dim A, B, C as Double
A = 1.1
B = 0.9
C = 0.2
If A - B <= C then msgbox ("условие выполняется") Else msgbox ("условие НЕ выполняется")

По моим ожиданиям 1,1 - 0,9 = 0,2, что меньше (нет) или равно (да) 0,2. Стало быть условие выполняется... А нет!

Изменено: Textron - 23.01.2020 14:09:10
как сцепить текст из меняющегося диапазона?
 
Всем привет) Помогите с реализацией задания. Есть диапазон от $A$1 до С1000 (например). Начало диапазона всегда постоянно! Часть ячеек в нем пустые, часть заполнены... Надо все значения непустых ячеек собрать через запятую (или иной разделитель) в ячейку, например, $D$1.  
Через простое "=сцепить..." можно было-бы, но кто его знает сколько там строк придется вставить... поэтому уж лучше сразу до 1000 диапазон установить, чтобы наверняка, и прописать через макрос. Как это сделать? Или есть способ проще?
Масштабирование определенных листов в книге по условию
 
Вариант2:    
 
Sub Макрос1()  
Dim li As Long  
For li = 1 To Sheets.Count  
Worksheets(li).Select Replace:=False  
   ActiveWindow.Zoom = 90  
   ActiveWindow.ScrollRow = 1  
   ActiveWindow.ScrollColumn = 1  
Next li  
End Sub  
 
(скопировал 2 раза случайно)
Масштабирование определенных листов в книге по условию
 
Всем привет) Пытаюсь написать макрос, но не совсем выходит... Есть некая книга, в этой книге много листов с множеством страниц на листе. Их постоянно прокручивают и меняют масштаб при работе. В конце, определенные листы (например с ячейкой А1=qwerty) надо привести к единому виду (например масштаб 90, строки и столбцы прокрутить на начало).  
 
Вариант1:  
 
Sub test()  
For Each sh In ThisWorkbook.Worksheets  
If sh.Range("A1") = "QWERTY" Then  
   ActiveWindow.Zoom = 90  
   ActiveWindow.ScrollRow = 1  
   ActiveWindow.ScrollColumn = 1  
End If  
Next sh  
End Sub  
 
Не выходит (выделяет именно АктивноеОкно, а не все выделеные)...  
 
Вариант2:  
 
Sub test()  
For Each sh In ThisWorkbook.Worksheets  
If sh.Range("A1") = "QWERTY" Then  
   ActiveWindow.Zoom = 90  
   ActiveWindow.ScrollRow = 1  
   ActiveWindow.ScrollColumn = 1  
End If  
Next sh  
End Sub  
 
Попробовал через цикл (чтоб последовательно), всеравно не выходит...  
 
Если что-то сделано по глупому, сорри - токо учусь, все собирал из примеров...))  
 
Заранее спасибо!
Вставка строк в специальную форму с заполнением из таблицы
 
сорри, случайно в 2011 версии приложил...  
 
вот в 2003...
Вставка строк в специальную форму с заполнением из таблицы
 
Всем доброго дня) Помогите решить задачу - есть некая таблица с данными, есть форма специального бланка. Нужно данные из таблицы перенести в форму со вставкой строк. Строк вставлять необходимо столько, сколько заполненых строк в таблице.    
 
Как вставлять строки нашел, как переносить данные знаю, не понятно, как вставлять то необходимое число строк исходя из заполненности таблицы...  
 
Заранее спасибо)))
Изменение цвета кнопки на листе в книге в зависимости от ЗНАЧЕНИЯ ячейки?
 
Всем доброго вечера) Нужна помощь в следующем деле - нужно менять цвет кнопки на листе в зависимости от содержания ячейки...  
 
Например: кнопке присвоен простой макрос копирования    
 
Sub КОПИРОВАНИЕ()  
   Range("A1").Select  
   Selection.Copy  
   Range("A2").Select  
   Selection.PasteSpecial Paste:=xlPasteValues  
   Application.CutCopyMode = False  
End Sub  
 
Если значение А1=0 - цвет кнопки серый (например)  
если А1=1 - красный  
если А1=2 - зеленый  
 
Както это можно реализовать?
Данные одной ячейки в колонтитуле листов книги
 
Еще один момент - как-то можно сделать макрос работающим постоянно, чтобы вручную макрос не запускать?
Данные одной ячейки в колонтитуле листов книги
 
{quote}{login=GIG_ant}{date=12.12.2011 01:53}{thema=}{post}Ваш макрос проставляет колонтитулы по всем листам книги.  
что бы вставить внизу воспользуйтесь вместо LeftHeader =    
LeftFooter ={/post}{/quote}  
 
Спасибо)
Данные одной ячейки в колонтитуле листов книги
 
Sub КОЛОНТИТУЛ()  
Dim ws As Worksheet  
For Each ws In Worksheets  
ws.PageSetup.LeftHeader = [Титул!D12]
Next  
End Sub  
 
Нашел такое... но проставляет только на одном листе и в верхнем колонтитуле... Как сделать во всей книге? и на что поменять Header (я так понимаю верхний..), чтоб проставлялся нижний колонтитул?
Данные одной ячейки в колонтитуле листов книги
 
Всем доброго времени суток! Подскажите пожалуйста, можно ли проставлять в нижнем колонтитуле слева всех листов книги данные из одной ячейки, например, А1 первого листа?  
 
Если знаете способ через макросы, то изложите его более подробно - я в них не силен... ))  
 
Заранее спасибо
Даты в формулах...
 
все, нашел ошибку - в excel 2010 такой формат <=ТЕКСТ(А1;"ДД.ММ.ГГГГ;@")>, а не <=ТЕКСТ(А1;"ДД.ММ.ГГГГ")>  
 
Всем спасибо за помощь!!!
Даты в формулах...
 
Всем доброй ночи. Не могу избавиться от ошибки, которая выскакивает, например в таком случае:  
 
ячейка A1 содержит дату 01.01.2011  
формула в другой ячейке <=сцепить("сегодня";А1)> выдает не <сегодня 01.01.2011>, а <сегодня 40544>.... Как сделать, чтобы все работало правильно?  
 
P.S. - перед датой ставить апостроф не получится, т.к. есть другие формулы, работающие именно с форматом ячейки "дата", а не "текстовый"...
Создание таблицы с именами всех страниц и данными определенных ячеек через макрос
 
Всем привет) Помогите решить задачу с макросом - в книге есть определенное число страниц. Нужно заполнить таблицу (допустим, на последнем листе, назовем его общий итог), в которой в одном столбце будут отражаться имена существующих листов, а в другом столбце данные из определенной ячейки каждого листа
Макрос на создание страниц
 
{quote}{login=Казанский}{date=13.10.2011 04:18}{thema=}{post}Sub bb()  
Dim c  
For Each c In [A:A].SpecialCells(xlCellTypeConstants)
   Sheets.Add(after:=Sheets(Sheets.Count)).Name = c  
Next  
End Sub{/post}{/quote}  
 
Получилось, спасибо!!! Но это не все - можно сделать так, чтобы добавлялись листы определенного шаблона (какого-то одного), но с именами из заданного массива (столбца)?
Макрос на создание страниц
 
Всем доброго времени суток) Осваиваю EXCEL, но наткнулся на необходимость следующего: есть определенная таблица:  
  1а обьект1  
  2а обьект2  
  3а обьект3  
  ...  
 
Необходимо чтобы в книге строились листы с именем 1а, 2а, 3а.... Я так понимаю, что в помощь надо брать макрос? Если да, то хотябы натолкните на мысль, как реализовать))) Заранее благодарен.
Страницы: 1
Loading...