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

Х	Y
50	937.21
175	691.20
375	609.20

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

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


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

Доброго времени суток.  
Написал программу, которая через форму забивает в строки поставку запчастей.  
При проверке цены поставки на соответствие договорной цене сравнение производит не всегда.  
При договорной цене запчасти 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 .  
Т.е. при относительном сдвиге вниз на две строки меняется только адрес строки, но никак не переходит в следующую объединённую ячейку. Отсюда вопрос, как переходить из одной объединённой ячейки в следующую?  
Заранее благодарен.

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

Доброго времени суток.  
Не могу решить следующую проблему:  
создал 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, как выводить в ячейки не значения ячеек, а номер строки списка как с элементом формы?