{quote}{login=}{date=01.12.2011 01:17}{thema=}{post}=Round([a1].value, 1){/post}{/quote}
В данном случае я знаю, как число отформатированно.  
Но если юзер отформатирует число с двумя знаками, то предложенный код будет работать неправильно.

Здравствуйте.  
Извините за примитивный вопрос. И все же:  
Суть вопроса:  число в ячейке "A1" выглядит так: 2046.8 поскольку ячейка отформатирована  с 1 знаком после «запятой».  
Программный код Tmp = Range("A1")Value  записывает в переменную Tmp    
число в неотформатированной форме  т.е. Tmp = 2046.84547994354  
Как организовать код, чтобы в переменную Tmp считывалось  число в том виде, в каком его видит пользователь?

Спасибо, Юрий! Получилось.

{quote}{login=Юрий М}{date=04.10.2011 12:09}{thema=}{post}Какая у Вас версия Офиса? 2003 пишет:  
Sub Макрос1()  
   ActiveSheet.Shapes("Диагр. 1").IncrementLeft -64.5  
   ActiveSheet.Shapes("Диагр. 1").IncrementTop -45#  
   ActiveSheet.Shapes("Диагр. 1").ScaleWidth 0.89, msoFalse, msoScaleFromTopLeft  
   ActiveSheet.Shapes("Диагр. 1").ScaleHeight 0.77, msoFalse, msoScaleFromTopLeft  
End Sub{/post}{/quote}  
 
У меня муксия 2007 но файл я записал в фрмате 2003

Добрый день.  
Я столкнулся с проблемой: как программно задать место расположения диаграммы,  
а также ее размеров.  
Вручную эти действия выполнятся без проблем.  
Пытался записать макросы действий.  
Но в коде макросов нет информации о выполненных действиях.  
И, естественно, запуск макросов не выполняет эти дейтвия.  
В чем заключается моя ошибка?  
Спасибо.

{quote}{login=nerv}{date=05.07.2011 01:55}{thema=Re: Как заставить кнопку всегда реагировать на клик?}{post}{quote}{login=yefim}{date=05.07.2011 01:20}{thema=Как заставить кнопку всегда реагировать на клик?}{post}Я установил кнопку на листе. В ячейку "А1" вводится строка - параметр для процедуры, которая начинает работать после клика по кнопке. Если Юзер активизирует другую ячейку, а затем кликает по кнопке, то кнопка принимает клик и все ОК. Но если неопытный юзер после окончания ввода строки сразу кликает по кнопке (фокус остается в ячеке), то кнопка не принимает клик.    
Вопрос: Возможно ли заставить кнопку реагироватьи и в этой ситуации?  
Спасибо.{/post}{/quote}Наконец, я прочитал внимательно (и что не мнее важно, до конца)  
 
 
Спасибо ВСЕМ!  
НЕТ{/post}{/quote}

{quote}{login=Юрий М}{date=05.07.2011 01:44}{thema=}{post}Я же в самом конце процедуры предлагаю активировать ячейку. Если это не подходит - покажите нам эту процедуру.{/post}{/quote}  
 
Это не зависит от содержания процедуры. Даже на такой простой процедуре та же ситуация.  
 
Private Sub CommandButton1_Click()  
CommandButton1.Caption = Range("A1").Value  
End Sub  
 
По-видимому, это идеалогия EXCEL. И без Textbox не обойтись.

{quote}{login=Юрий М}{date=05.07.2011 01:30}{thema=}{post}sub Ваша_процедура()  
...    
cells(1,2).activate  
end sub{/post}{/quote}  
 
Чтобы строка    
cells(1,2).activate  
выполнилась прцедура должна начать работать.

{quote}{login=Юрий М}{date=05.07.2011 01:23}{thema=}{post}Добавьте в процедуру активацию СОСЕДНЕЙ ячейки.{/post}{/quote}  
Процедура не начнет работать пока не будет астивирована другая ячейка.

Я установил кнопку на листе. В ячейку "А1" вводится строка - параметр для процедуры, которая начинает работать после клика по кнопке. Если Юзер активизирует другую ячейку, а затем кликает по кнопке, то кнопка принимает клик и все ОК. Но если неопытный юзер после окончания ввода строки сразу кликает по кнопке (фокус остается в ячеке), то кнопка не принимает клик.    
Вопрос: Возможно ли заставить кнопку реагироватьи и в этой ситуации?  
Спасибо.

Спасибо!!!

Существуют ли готовые программы, позволяющие сравнивать два excel файла?  
Спасибо!!!

Существует ли готовая функция, возвращающая буквенное выражение столбца по его номеру:  
например: F(3)-> "С", F(26)->Z, F(27)->"AA".

{quote}{login=Казанский}{date=11.05.2011 02:56}{thema=}{post}Переделал алгоритм, теперь работает с любым шрифтом:{/post}{/quote}  
 
Здорово!!!  
Большое спасибо, Казанский!

{quote}{login=ikki}{date=11.05.2011 12:44}{thema=}{post}что значит "минимально необходимая ширина"? чтобы уместился весь текст в каждой ячейке заголовка в одну строку?    
тогда Range(диапазон_с_заголовками).AutoFit{/post}{/quote}  
Разрешается переносить слова (не разрывая их) на следующую строчку.

У иеня F1 вызывает помощь

Я формирую таблицу, в которой заголовки столбцов имеют разную длину и могут состоять из нескольких слов. Задача заключается в том, чтобы разместить на экране как можно больше столбцов. Т. е. использовать минимально необходимую ширину для каждого столбца. Вручную это сделать несложно. Существует ли способ делать это автоматически?  
Спасибо!

Спасибо Большое!

Я записал макрос, который выполняет нужную мне работу.  
 
   Sheets("UNUSED").Select  
   Columns("I:I").Select  
   Selection.Cut  
   Sheets("REPORT").Select  
   Columns("M:M").Select  
   Selection.Insert Shift:=xlToRight  
   ActiveWindow.SmallScroll Down:=-21  
   Sheets("UNUSED").Select  
   Columns("I:I").Select  
   Selection.Delete Shift:=xlToLeft  
 
 
Затем вставил этот макрос в качестве процедуры в мой проект.  
Однако во время обращения к процедуре в  строке  
Columns("M:M").Select  
выдается сообщение:  
   
Run time error '1004':  
Метод Select из класса Range завершен неверно.  
 
Вопрос: Где моя ошибка?    
Спасибо.

Мое VBA приложение работает при условии, что параметр безопасности для макро отлючен.  
Т. е. в установках Macro Settings: указано:  
(*) Enable all macros (not recommended;...)  
У Юзера установлена опция:  
Disable all macros...  
Я вынужден вручную менять этот параметр у Юзера, а по завершении работы приложения  
восстанавливать начальный параметр.  
Записать макрос для этой процедуры не удалось.  
Вопрос 1: Как автоматически переключать состояние этого параметра?  
Вопрос 2: Возможен ли другой способ решения этой проблемы?  
         Если да, то как?

{quote}{login=Михаил С.}{date=26.04.2011 10:23}{thema=}{post}Оба вопроса - да.{/post}{/quote}  
Спасибо, Михаил.  
 
А если файл более 100 кБ?

Известно, что приложение, созданное в поздних версиях(2007) не всегда корректно работает (а иногда вообще не работает) в ранних Excel (2003, 97). У меня установлен Excel-2007, а у Юзера - Excel-2003.    
Вопрос - 1. Существует ли возможность путем установления параметров в Е-2007 работать как бы в Е-2003?  
Вопрос - 2. Допускает ли Windows-XP устанавливать одновременно несколько версий Excel?  
Спасибо!

Спасибо!  
Встроенной готовой функции не сущестует?

Я формирую исходный  EXS-файл. На определенном этапе программно создается диапозон с именем LAST_STD. Место диапазона не постоянно, а зависит от ряда условий.  
Как программно узнать существует ли диапазон с указанным именем?

С помощью главного EXCEL файла Я создаю программно для разных Юзеров    
несколько новых однотипных файлов для заполнения ими исходных данных.  
В этих файлах необходимо использовать процедуры контроля ввода.  
Вопрос: Имеется ли возможность формирование этих процедур из главного файла?

Спасибо! Получилось!:)

Я создал список с помощью ComboBox. Все работает почти нормально.  
Огорчают только 2 момента:  
1. Список отображается прямоугольной областью с шириной большего,  
чем необходимо размера (см. скриншот: желтым фоном - то, что есть, голубым фоном то, что хотелось бы).  
Вопрос: Каким образом можно уменьшить ширину области списка?  
   
2.После того как выбирается числовой элемент из списка и помещается в ячейку,  
верхний угол ячейки помечается маленьким треугольничком,    
говорящим о том, что число сохранено как текст.    
После выбора варианта коррекции треугольник исчезает.  
Вопрос: Как избавиться от треугольника автоматически?

В новом листе я пытаюсь сформировать список дат месяца по собственному формату  
спомощью макроса Do_Date_List()(см прилагаемый файл).  
В результате получаю не совсем тот  список, который предполагал:  
Первые 12 дней записаны в формате "D/M/YYYY",  
Остальные как предполагал "DD-MM-YYYY".  
Где моя ошибка?

Спасибо! Работает!

При работе с Excel файлом Юзер переходит от одного листа к другому и закрывает файл, когда пожелает, например находясь в 5 листе. При слежующем открытии книги она открывается на 5 листе.  
Вопрос: Как заставить книгу открываться всегда на конкретном листе (например на 1-м)?    
Спасибо!