2003/XP/2000 - [архив] Microsoft Excel

Ответить
 • Просмотры: 8
Аватара пользователя
a_axe

Re: 2003/XP/2000 - [архив] Microsoft Excel

Сообщение a_axe »

Так, разобрались - диаграмма правильная.

Если вы посмотрите мой первый пост, то там ввыложен архив с экселевским файлом, а в посте указано, на что именно обратить внимание при вставке диаграммы. Ряд в данном случае не одна цифра, а весь столбик исходных данных (см. скрин 7, в поле значение у вас д.б. "=Лист!A1:A5", то есть сразу все цифры ряда), у них название одно - имя ряда. А категории выставляются уже в нижнем окне (скрин 5 - обведено красным, скрин 6 - тоже).
Аватара пользователя
united

Re: 2003/XP/2000 - [архив] Microsoft Excel

Сообщение united »

Очередной файл прикреплён к первомму сообщению. Диаграмма с цифрами, с заголовком
Аватара пользователя
united

Re: 2003/XP/2000 - [архив] Microsoft Excel

Сообщение united »

В EXEL иногда буквенные названия столбцов сами меняются на цифровые. Почему не знаю, но бывает. Первый раз справился как-то. Уже не помню как. Сейчас не получается. Все настройки облазил. Не нашёл.

Может кто встречался с такой проблемой? Как сменить названия столбцов?
Аватара пользователя
SergOst

Re: 2003/XP/2000 - [архив] Microsoft Excel

Сообщение SergOst »

Сервис - Параметры - Общие - галка Стиль ссылок R1C1
Аватара пользователя
zhunko

Re: 2003/XP/2000 - [архив] Microsoft Excel

Сообщение zhunko »

СПАСИБО!!! Много времени съэкономили.
Аватара пользователя
zhunko

Re: 2003/XP/2000 - [архив] Microsoft Excel

Сообщение zhunko »

Всем добрый день!

Помогите решить проблему.

Имеется табличка в exel. Некоторый столбец в ней содержит повторяющиеся значения.

Надо - получить новую табличку, в которой из всех строк с повторяющимися значениями в этом столбце осталась только одна.

Например (сортируем по столбцу 2)

вход:

1, 2, 3, 4, 5

2, 2, 4, 5, 6

3, 3, 4, 5, 6

выход:

1, 2, 3, 4, 5

1, 3, 4, 5, 6



Т.е. строку 2 отбросили, т.к. A1=A2, хотя можно отбросить и строку1, а строку 2 оставить.

Можно такое в exel'е сделать?
Аватара пользователя
a_axe

Re: 2003/XP/2000 - [архив] Microsoft Excel

Сообщение a_axe »

в таком случае пишется прога на ВБА, в принципе - могу накидать, непонятно следующее, пример:

1, 2, 3, 4, 5

2, 2, 4, 5, 6

3, 3, 4, 5, 5

1, 2, 3, 4, 9

допустим, 2 строку прога удалит, должна она удалить строку 3 или нет (совпадают числа последнего столбца строк 1 и 3). Ну, и в вашем примере - что все-таки нужно удалить, строку 2 или строку 1?
Аватара пользователя
Michael

Re: 2003/XP/2000 - [архив] Microsoft Excel

Сообщение Michael »

При сортировке по столбцу 2 - отбросить либо столбец 1, либо 2, либо 4. Оставить лишь одну любую из дубликатов. Проблема в том, что решение на ВБА не надо Изображение, т.к. сам не знаю ВБА. Силами самого exel такое организовать нельзя? Но в любом случае - спасибо
Аватара пользователя
Pliomera

Re: 2003/XP/2000 - [архив] Microsoft Excel

Сообщение Pliomera »

Подразумеваем что левый верхний угол исходной таблицы находится в ячейке А1.



Тогда вешай на любую кнопку нижеследующий макрос и наслаждайся результатом.



Если в другой ячейке - придется малость подкорректировать.



Текст макроса (скопировать в стандартный модуль):



Sub Duplicate_delete()

NN = InputBox("Enter column number") 'Здесь вводи номер столбца по которому сравниваются значения

N = CInt(NN)

ColumnsCount = Cells(1, 1).End(xlToRight).Column

RowsCount = Cells(1, 1).End(xlDown).Row



Cells(1, ColumnsCount + 1).Value = 1

Cells(1, ColumnsCount + 1).AutoFill Destination:=Range(Cells(1, ColumnsCount + 1), _

Cells(RowsCount, ColumnsCount + 1)), Type:=xlFillSeries

Range(Cells(1, 1), Cells(RowsCount, ColumnsCount + 1)).Sort Key1:=Cells(1, N), Order1:=xlAscending

RowStart = 2

1

For iCount = RowStart To Cells(1, N).End(xlDown).Row

If Cells(iCount, N).Value = Cells(iCount - 1, N).Value Then

Rows(iCount).Delete shift:=xlUp

If iCount > 3 Then RowStart = iCount - 1

Exit For

End If

Next iCount

If RowStart < Cells(1, N).End(xlDown).Row Then GoTo 1

Range(Cells(1, 1), Cells(Cells(1, N).End(xlDown).Row, ColumnsCount + 1)).Sort _

Key1:=Columns(ColumnsCount + 1), Order1:=xlAscending

Columns(ColumnsCount + 1).Delete shift:=xlLeft

End Sub
Аватара пользователя
xden777

Re: 2003/XP/2000 - [архив] Microsoft Excel

Сообщение xden777 »

Здравствуйте!!!!Есть файл exel,ячейки на нем не выделялись.Файл был защищен,открыл его паролем.Обратно защитил тоже паролем,но ячейки стало возможным выделять....

Как отключить выделение ячеек???
Ответить

Вернуться в «Microsoft Office (Word, Excel, Outlook и т.д.)»