Увы, масштаб оси не изменяется.  

V, благодарю за ответ. Можно поподробнее? Прикладываю снимок экрана. Где галки расставить?

Доброго времени суток.
Имеется таблица с данными:

Х	Y
50	937.21
175	691.20
375	609.20

Необходимо построить график Y(X). Но значения Х выводятся как отдельный ряд данных, а значения по оси Х - 1, 2, 3.
Смог изменить подписи на оси Х, (1, 2, 3 заменил на 50, 175, 375), но масштаб при этом не меняется, т.е. заменяются только названия.
Как отобразить график в масштабе?

Всем спасибо.

Доброго времени суток.
Уважаемые господа, если последняя строка диапазона определяется как


и во время выполнения макроса при выполнении определённого условия происходит удаление строк из диапазона,
как сделать так, чтобы переменная rwTotal пересчитывалась сразу после удаления строки?

Функция ВБА Replace(). Синтаксис смотрите в хелпе.

{quote}{login=Казанский}{date=26.06.2012 01:11}{thema=}{post}Да и защита листа снимается довольно легко.{/post}{/quote}  
Не поделитесь, как именно это сделать?

А как к нему обращаться по кодовому имени?  
У меня он называется сейчас Sheet12. Пробую:  
Thisworkbook.Sheets("Sheet12") - Ошибка (Subscript out of range. Debug)  
.Sheets(Sheet12) - то же  
.Sheets(12) - то же  
.Worksheets("Sheet12") - то же  
.Worksheets(12) - то же.

{quote}{login=The_Prist}{date=17.06.2012 07:50}{thema=}{post}А Вы не используйте в кодовом имени пробелы, тире и прочие знаки препинания.{/post}{/quote}  
Хм...  
а сейчас внезапно получилось, хотя и до этого без пробелов и прочих знаков пробовал.

p.Range("C" & iLast + 1) = EnterData.NomenNom  
 p.Range("D" & iLast + 1) = EnterData.Naim  
 p.Range("E" & iLast + 1) = EnterData.Kol  
 EnterData.Price_NDS = Replace(EnterData.Price_NDS, ".", ",")  
 EnterData.Price_NDS = Format(EnterData.Price_NDS, "fixed")  
 p.Range("F" & iLast + 1) = CDbl(EnterData.Price_NDS)  
 p.Range("G" & iLast + 1) = "=E" & (iLast + 1) & "*F" & iLast + 1  
 p.Range("H" & iLast + 1) = CDbl(EnterData.Label11)  
 p.Range("I" & iLast + 1) = EnterData.SFaktura  
 p.Range("J" & iLast + 1) = Format(EnterData.SFDate, "short date")  
 p.Range("K" & iLast + 1) = EnterData.TTN  
 p.Range("L" & iLast + 1) = Format(EnterData.TTNDate, "short date")  
 p.Range("M" & iLast + 1) = EnterData.Postav  
 
вот так выглядит фрагмент кода сейчас. вроде всё работает (тьфу-тьфу-тьфу).

{quote}{login=Ярги}{date=17.06.2012 05:03}{thema=}{post}ещё бы мне не помешал совет, как сделать числа в ЯЧЕЙКЕ листа именно числами?{/post}{/quote}  
Разобрался:)  
Всё та же функция CDbl.  
 
Ещё раз спасибо.

всё, помогло:)  
большое спасибо:)  
ещё бы мне не помешал совет, как сделать числа в ЯЧЕЙКЕ листа именно числами?  
а то какой-то дискомфорт от того, что вроде всё вычисляется, а присутствует предупреждение, что число в ячейке отформатировано как текст.

{quote}{login=Hugo}{date=17.06.2012 03:40}{thema=}{post}ну и там вероятно ещё нужно позаботиться, чтоб разделитель был соответствующий, у меня например нужна обязательно запятая.{/post}{/quote}  
EnterData.Price_NDS=Replace(EnterData.Price_NDS,".",",") например..

Производится сравнение данных в ТекстБоксах:  
 
If EnterData.Price_NDS > EnterData.Label11 Then  
      p.Range("F" & iLast + 1).Font.Bold = True  
      p.Range("F" & iLast + 1).Font.Color = RGB(255, 0, 0)  
End If

Доброго времени суток.  
Написал программу, которая через форму забивает в строки поставку запчастей.  
При проверке цены поставки на соответствие договорной цене сравнение производит не всегда.  
При договорной цене запчасти 13,40 корректно сравнивает значения, лишь если цена поставки до 99,00 рублей и более 300 рублей, далее, если вбить "Цену с НДС" 10 000 руб.,опять отказывается сравнивать, т.к. видит другой тип данных. Файл прикладываю. На вопросы отвечаю.  
Список запчастей открывается из формы по кнопке "Список", далее двойной клик на позиции и ОК.

Файл большой.  
При активации одного из листов книги происходит суммирование данных из других листов этой же книги (сведение в одну таблицу).

Доброго времени суток.  
Написал макрос в файле Excel. Проверил, всё работает. Сохраняю как книгу с поддержкой макросов (*.xlsm). Опять проверяю, всё работает. Закрываю книгу.    
Затем, при следующем открытии, пытаясь просмотреть код в редакторе ВБА, вижу пустой лист, т.е. код отсутствует. Макрос так же не выполняется (событие- активация рабочего листа).  
 
Проблема только с этим файлом. Что мог - давно всё перепробовал, потому и прошу помощи.    
Помогите найти причину.  
Заранее благодарен.

Доброго времени суток.  
Описание проблемы:  
имеются объединённые ячейки, все в одном столбце, например, в столбце А объединены с 1 по 4 ячейки, с 5 по 6, с 7 по 11.  
1. Хотелось бы научиться определять по сколько ячеек (строк) объединены (в примере выше - 4, 2, 5).  
2. При переходе из одной объединённой в следующую (та что ниже):  
 
  Worksheets(1).Range("A1").Offset(1,0).Address - выдаёт $A$5, т.е. выдаёт следующую объединённую ячейку, что меня вполне устраивает, однако:  
  Worksheets(1).Range("A1").Offset(2,0).Address  - выдаёт $A$6 .  
Т.е. при относительном сдвиге вниз на две строки меняется только адрес строки, но никак не переходит в следующую объединённую ячейку. Отсюда вопрос, как переходить из одной объединённой ячейки в следующую?  
Заранее благодарен.

{quote}{login=The_Prist}{date=15.01.2012 12:16}  
 
OnAction{/post}{/quote}  
Благодарю.

{quote}{login=Юрий М}{date=15.01.2012 12:05}{thema=}{post}Ярги, а с какой целью Вы прикрепляете скрины пустых листов?{/post}{/quote}  
Они не такие уж и пустые. Там же видны изменения в ленте:)  
Извините, обрезать лишнее не в чем.

Всё, получилось.  
Теперь надо присвоить этой кнопке макрос.  
 
ПРЕДУПРЕЖДЕНИЕ:  
Ярги, желтая карточка!  
Понятно, что файлы не больше 100 Кб, так давайте еще десяток неинформативных объемных картинок!  
Вы не против удаления первой (post_297017.png)?

Что-то не работает. Ничего не вставляет.  
Создал вкладку меню "Личная", скопировал код в редактор, "Имя своей панели" заменил на "Личная". Выдаёт ошибку при компиляции (Invalid procedure call or argument).

{quote}{login=Кот}{date=02.02.2011 02:23}{thema=Добавление кнопки на панель инфтрументов. Excel 2007.}{post}Ставте Excel 2010 там вообще все просто!{/post}{/quote}  
 
Чтобы не плодить лишнюю тему:  
Возможно я такой тупой...  
Но нельзя ли ответ со скриншотами и поподробней? (Excel 2010)  
Данная тема популярна, потому не я один буду благодарен за подробную инструкцию   по созданию своей кнопки для запуска макроса на панели в Excel 2007/2010.

Доброго времени суток.  
Устанавливаю границы ячеек в определённом диапазоне.  
Код:  
With ThisWorkbook.Worksheets("ïîäñ÷¸ò çàòðàò").Range("A7:M7")  
   .Font.Size = 10  
   .BorderAround LineStyle:=xlContinuous, Weight:=xlThin  
До этого момента всё работает. Но если вставить ещё вот это:  
     
   .Border(xlInsideVertical).LineStyle = xlDot  
End With  
 
то выдаёт ошибку 438 (Объект не поддерживает данное свойство или метод.  
Почему внешние границы диапазона устанавливаются без проблем, а с внутренними такая засада?  
 
Заранее благодарен.

{quote}{login=Юрий М}{date=31.01.2011 08:57}{thema=}{post}  
[A1] = Sheets("Лист1").ComboBox1.ListIndex + 1{/post}{/quote}
А что есть [A1] ?
Я новичок в ВБА.  
За ответ спасибо.

Доброго времени суток.  
Не могу решить следующую проблему:  
создал 2 выпадающих списка (элементы формы), привязал их к 2-м диапазонам на другом листе, обозначил  
ячейки, куда будут выводиться номера элементов из списка.  
Также имеется кнопка на листе с выпадающими списками, при нажатии на которую выполняется макрос:  
 
Sub Кнопка3_Щелчок()  
   'объявление двух переменных  
   Dim engine As Integer  
   Dim diam As Integer  
     ' Инициализация. Переменным присваиваются значения из ячеек А2 и В2,    
     ' которые соответствуют строкам списков.    
     engine = ThisWorkbook.Worksheets("maintab").Range("A2").Value  
     diam = ThisWorkbook.Worksheets("maintab").Range("B2").Value  
       ' Добавление диапазона ячеек, в которые будут вставлены значения    
       ' переменных.  
       ThisWorkbook.Worksheets("maintab").Range("A4:B4").Insert (-4121)    
       'вставка значений переменных во вставленные ячейки  
       ThisWorkbook.Worksheets("maintab").Range("a4") = engine  
       ThisWorkbook.Worksheets("maintab").Range("b4") = diam  
   
End Sub  
 
Дело в том, что после нажатия на кнопку сохраняются значения в выпадающих списках, которые были выбраны в последний раз. Если же мне нужно использовать только 1 список, т.е. из другого списка ничего не должно копироваться во вставленные ячейки, то, как Вы поняли, всё равно копируются данные, которые были выбраны в прошлый раз.  
1.Как после нажатия кнопки очищать значения в списках?  
Или как добавить в список пустую строку, которая будет автоматически выбираться в списке после нажатия кнопки?  
2. Если придётся выполнить это с помощью элементов ActiveX, как выводить в ячейки не значения ячеек, а номер строки списка как с элементом формы?