сумма
|
pashulka |
Отправлено: Суббота, 11 Ноября 2017, 21:37 |
Участник
Группа: Участник
Сообщений: 216
Регистрация: 13.07.2003
Пользователь №: 5551
|
=A1+A5+B1 =СУММ(A1;A5;B1)
Можно сразу указать диапазон ячеек, т.е. :
=СУММ(A1:A100)
Если же результат суммирования будет 0, при этом визуально суммируемые ячейки содержат числа, то, скорее всего, эти числа excel воспринимает как текст. В этом случае, лучше видеть небольшой пример Вашей таблицы (разумеется в виде xls файла), чтобы подсказать как лучше с этим бороться.
|
|
Форум: Microsoft/Office Excel
· Просмотр сообщения: #96081
· Ответов: 2
· Просмотров: 8761
|
Условное форматирование по дн. недель
|
pashulka |
Отправлено: Воскресенье, 02 Декабря 2012, 20:18 |
Участник
Группа: Участник
Сообщений: 216
Регистрация: 13.07.2003
Пользователь №: 5551
|
Используйте в качестве условия формулу, где B2 это первая ячейка Вашей таблицы, например :
=ДЕНЬНЕД(B2;2)=1
или
=ДЕНЬНЕД(B2)=2
|
|
Форум: Microsoft/Office Excel
· Просмотр сообщения: #95795
· Ответов: 1
· Просмотров: 9929
|
Подчет значений при условии. Большая таблица
|
pashulka |
Отправлено: Понедельник, 25 Июля 2011, 22:35 |
Участник
Группа: Участник
Сообщений: 216
Регистрация: 13.07.2003
Пользователь №: 5551
|
На самом деле, мой вариант - это всего лишь попытка оптимизации Вашего кода, за счёт уменьшения используемых диапазонов, поэтому их результаты, должны быть идентичными. Что касается решения, то повторюсь, лучше видеть таблицы в виде xls файла (а свой e-mail я Вам выслал, так что ждём-с) |
|
Форум: Microsoft/Office Excel
· Просмотр сообщения: #95634
· Ответов: 15
· Просмотров: 97400
|
Подчет значений при условии. Большая таблица
|
pashulka |
Отправлено: Понедельник, 25 Июля 2011, 20:57 |
Участник
Группа: Участник
Сообщений: 216
Регистрация: 13.07.2003
Пользователь №: 5551
|
А если так ... Код Private Sub MyCountIfs() Dim iTarget As Range, iColumnA As Range, iColumnC As Range, iColumnCode As Range, iRow& Set iTarget = Range([Лист2!B4], [Лист2!B65536].End(xlUp)) Set iColumnCode = Range([Лист3!A1], [Лист3!A65536].End(xlUp)) 'Необходимо, чтобы количество ячеек в столбцах A и C было одинаково, поэтому : iRow = Application.Max([Лист1!A65536].End(xlUp).Row, [Лист1!C65536].End(xlUp).Row) Set iColumnA = [Лист1!A1].Resize(iRow) Set iColumnC = [Лист1!C1].Resize(iRow) iTarget.Offset(0, 4).Value = Application.CountIfs(iColumnA, iTarget, iColumnC, iColumnCode) End Sub |
|
Форум: Microsoft/Office Excel
· Просмотр сообщения: #95629
· Ответов: 15
· Просмотров: 97400
|
Подчет значений при условии. Большая таблица
|
pashulka |
Отправлено: Воскресенье, 29 Августа 2010, 16:00 |
Участник
Группа: Участник
Сообщений: 216
Регистрация: 13.07.2003
Пользователь №: 5551
|
Код Private Sub Test() With Range([A2], [A65536].End(xlUp)) '[A1] .Offset(, 1).Value = Application.SumIf([Лист1!A:A], .Cells, [Лист1!B:B]) End With End Sub |
|
Форум: Microsoft/Office Excel
· Просмотр сообщения: #94218
· Ответов: 15
· Просмотров: 97400
|
Из xls в txt
|
pashulka |
Отправлено: Пятница, 21 Мая 2010, 0:19 |
Участник
Группа: Участник
Сообщений: 216
Регистрация: 13.07.2003
Пользователь №: 5551
|
Если не вдаваться в детали, то можно использовать что-то вроде этого варианта. |
|
Форум: Microsoft/Office Excel
· Просмотр сообщения: #93965
· Ответов: 8
· Просмотров: 23681
|
Из xls в txt
|
pashulka |
Отправлено: Пятница, 07 Мая 2010, 4:18 |
Участник
Группа: Участник
Сообщений: 216
Регистрация: 13.07.2003
Пользователь №: 5551
|
Если у Вас установлен Microsoft Excel 2000 или более старшая версия, то в таком случае, можно воспользоваться следующим макросом (перед выполнением убедитесь, что в списке ссылок Tools - References установлена ссылка Microsoft Forms x.0 Object Library, как правило, она подключается автоматически при создании самой первой пользовательской формы) Код Private Sub Test() Open "C:\Archive.txt" For Output As #1 Range("A1:H10").Copy With New DataObject .GetFromClipboard Print #1, Replace(.GetText(1), vbTab, "#") End With Application.CutCopyMode = False Close #1 End Sub |
|
Форум: Microsoft/Office Excel
· Просмотр сообщения: #93876
· Ответов: 8
· Просмотров: 23681
|
защита картинки
|
pashulka |
Отправлено: Понедельник, 11 Мая 2009, 1:19 |
Участник
Группа: Участник
Сообщений: 216
Регистрация: 13.07.2003
Пользователь №: 5551
|
Уточнение : Если речь идёт о Microsoft Excel XP, то Sellf прав и там действительно нужно предварительно снять защиту ячеек, впрочем, Excel можно и "обмануть". Для этого достаточно всего лишь защитить графику в более ранней версии (ибо, как говорилось ранее, там нет необходимости в снятии защиты ячеек) |
|
Форум: Microsoft/Office Excel
· Просмотр сообщения: #91848
· Ответов: 5
· Просмотров: 17241
|
Как НЕ преобразовать текст в дату (при вводе)?
|
pashulka |
Отправлено: Пятница, 01 Мая 2009, 20:54 |
Участник
Группа: Участник
Сообщений: 216
Регистрация: 13.07.2003
Пользователь №: 5551
|
При программном заполнении ячеек Excel также проявляет свою интеллектуальность, но, как Вы уже поняли, никто особо не мешает перед заполнением(или непосредственно при импорте данных) установить(указать) формат ячеек как "Текстовый", а затем изменить его на "Общий", причём подобный "обман" можно произвести не только программно, но и вручную. |
|
Форум: Microsoft/Office Excel
· Просмотр сообщения: #91791
· Ответов: 5
· Просмотров: 17223
|
Как НЕ преобразовать текст в дату (при вводе)?
|
pashulka |
Отправлено: Пятница, 01 Мая 2009, 10:38 |
Участник
Группа: Участник
Сообщений: 216
Регистрация: 13.07.2003
Пользователь №: 5551
|
Для того, чтобы избежать подобного безобразия можно предварительно установить формат ячейки(ячеек) как "Текстовый", да и 0.416666667 это не "хрен знает что", а всего лишь кол-во дней (для примера 12:00:00 = 0.5 , 24:00:00 = 1 , 36:00:00 = 1.5) |
|
Форум: Microsoft/Office Excel
· Просмотр сообщения: #91788
· Ответов: 5
· Просмотров: 17223
|
защита картинки
|
pashulka |
Отправлено: Среда, 25 Февраля 2009, 20:40 |
Участник
Группа: Участник
Сообщений: 216
Регистрация: 13.07.2003
Пользователь №: 5551
|
Если в точности следовать моим рекомендациям, то в снятии защиты ячеек - нет никакой необходимости. |
|
Форум: Microsoft/Office Excel
· Просмотр сообщения: #91009
· Ответов: 5
· Просмотров: 17241
|
защита картинки
|
pashulka |
Отправлено: Четверг, 19 Февраля 2009, 22:41 |
Участник
Группа: Участник
Сообщений: 216
Регистрация: 13.07.2003
Пользователь №: 5551
|
Выделите необходимый графический об'ект, затем в меню Формат выберите команду Рисунок, после чего выделите закладку Защита и обязательно установите "флажок" напротив Защищаемый объект. Теперь, в меню Сервис выберите пункт Защита и команду Защитить лист и появившемся стандартном диалоговом окне : Excel 97, 2000 - оставьте только один флажок, а именно напротив Объекты, введите пароль, кликните кнопку OK, подтвердите пароль и т.д. Excel XP, 2003 - наоборот, разрешите все необходимые действия, кроме работы с об'ектами, и защитите лист … |
|
Форум: Microsoft/Office Excel
· Просмотр сообщения: #90950
· Ответов: 5
· Просмотров: 17241
|
Смещение колонок
|
pashulka |
Отправлено: Вторник, 10 Февраля 2009, 23:37 |
Участник
Группа: Участник
Сообщений: 216
Регистрация: 13.07.2003
Пользователь №: 5551
|
Адресация, после добавления нового столбца, изменится в том случае, если рабочие книги «Б», «В», «Г», «Д» и т.д. будут открыты. Впрочем, возможно, что изменение одной адресации и не даст нужного эффекта, например, если номер столбца, из которого следует получить данные, будет представлять собой константу. В этом случае можно будет заменить номер столбца (используя обычную замену CTRL + H), только, на мой взгляд, менять лучше не Номер_столбца на Номер_столбца+1, (т.е. к примеру 4 на 5), а ;Номер_столбца; на ;Номер_столбца+1; (т.е. ;4; на ;5; где ; разделитель аргументов) Если же вакханалия с добавлением/удалением столбцов в книге-источнике может иметь продолжение, то возможно имеет смысл подумать над тем, чтобы заменить номер_столбца=константу на номер_столбца=формулу
|
|
Форум: Microsoft/Office Excel
· Просмотр сообщения: #90858
· Ответов: 1
· Просмотров: 11633
|
Перенос данных из Word в Excel
|
pashulka |
Отправлено: Воскресенье, 07 Декабря 2008, 22:22 |
Участник
Группа: Участник
Сообщений: 216
Регистрация: 13.07.2003
Пользователь №: 5551
|
Увы, лично я не нашёл возможности присваивать отдельным ячейкам таблицы Word - имя () |
|
Форум: Microsoft/Office Excel
· Просмотр сообщения: #90276
· Ответов: 16
· Просмотров: 39886
|
Перенос данных из Word в Excel
|
pashulka |
Отправлено: Суббота, 22 Ноября 2008, 2:36 |
Участник
Группа: Участник
Сообщений: 216
Регистрация: 13.07.2003
Пользователь №: 5551
|
Я ведь не зря задал свой вопрос, ибо есть принципиальная разница между работой с файлом, который мы сами и открыли и неким абстрактным документом, который может быть и не открыт. Что же касается решения, то см.ниже (MsgBox's используются только для наглядности) Код Private Sub GetActiveDocument() On Error GoTo ErrHandler
Dim iWordApp As Object ' Set iWordApp = GetObject(, "Word.Application") If iWordApp.Documents > 0 Then With iWordApp.ActiveDocument If .Bookmarks.Count = 0 Then MsgBox "В открытом документе нет закладок", , "" Else MsgBox "В открытом документе есть закладки", , "" End If End With: Exit Sub End If ErrHandler: Select Case Err.Number Case 429: MsgBox "Нет открытых документов", , "" 'Case ... Case Else: MsgBox "Непредвиденная ошибка", , "" End Select End Sub |
|
Форум: Microsoft/Office Excel
· Просмотр сообщения: #90207
· Ответов: 16
· Просмотров: 39886
|
Перенос данных из Word в Excel
|
pashulka |
Отправлено: Пятница, 21 Ноября 2008, 22:51 |
Участник
Группа: Участник
Сообщений: 216
Регистрация: 13.07.2003
Пользователь №: 5551
|
Скажите, а где Вы видели в моём примере инструкцию With Documents.Application.ActiveDocument ... |
|
Форум: Microsoft/Office Excel
· Просмотр сообщения: #90205
· Ответов: 16
· Просмотров: 39886
|
Перенос данных из Word в Excel
|
pashulka |
Отправлено: Вторник, 28 Октября 2008, 22:07 |
Участник
Группа: Участник
Сообщений: 216
Регистрация: 13.07.2003
Пользователь №: 5551
|
Если Вы сами открыли и не закрыли этот документ, а затем Вам потребовалось получить к нему доступ, то в таком случае, можно просто использовать об'ектную переменную() |
|
Форум: Microsoft/Office Excel
· Просмотр сообщения: #90057
· Ответов: 16
· Просмотров: 39886
|
auto macroc
|
pashulka |
Отправлено: Вторник, 28 Октября 2008, 21:57 |
Участник
Группа: Участник
Сообщений: 216
Регистрация: 13.07.2003
Пользователь №: 5551
|
AutoOpen() и AutoExec() относятся к MS Word, а в MS Excel используется либо уже вышеупомянутый макрос Auto_Open() который, кстати, можно разместить в любом стандартном модуле, либо событие Workbook_Open() которое должно непременно находится в модуле ThisWorkbook(ЭтаКнига)
Примечание : Но, несмотря на общность двух макросов, ставить знак равенства между ними, нельзя. |
|
Форум: Microsoft/Office Excel
· Просмотр сообщения: #90054
· Ответов: 2
· Просмотров: 6575
|
Эксель 2003
|
pashulka |
Отправлено: Суббота, 25 Октября 2008, 10:17 |
Участник
Группа: Участник
Сообщений: 216
Регистрация: 13.07.2003
Пользователь №: 5551
|
Нужно просто внимательно читать сообщения, ибо 9 это и есть первый аргумент (номер функции), а второй необходимый диапазон, т.е.
=ПРОМЕЖУТОЧНЫЕ.ИТОГИ(9;A2:A1000)
Кроме того, весьма пользительно читать справку. |
|
Форум: Microsoft/Office Excel
· Просмотр сообщения: #90036
· Ответов: 4
· Просмотров: 10832
|
Эксель 2003
|
pashulka |
Отправлено: Суббота, 25 Октября 2008, 9:16 |
Участник
Группа: Участник
Сообщений: 216
Регистрация: 13.07.2003
Пользователь №: 5551
|
Просто замените =СУММ(...) на =ПРОМЕЖУТОЧНЫЕ.ИТОГИ(9;...) |
|
Форум: Microsoft/Office Excel
· Просмотр сообщения: #90034
· Ответов: 4
· Просмотров: 10832
|
Применение фильтра
|
pashulka |
Отправлено: Среда, 22 Октября 2008, 0:49 |
Участник
Группа: Участник
Сообщений: 216
Регистрация: 13.07.2003
Пользователь №: 5551
|
Т.к. в наше время довольно редко встретишь студента, который сам решает свои задачи, то в качестве поощрения можно "намекнуть", что можно(хотя и наверное не нужно) использовать дополнительный столбец с формулами, естественно вкупе с автофильтром, а можно вспомнить, что при использовании расширенного фильтра, в качестве критерия отбора, допускается применение формул : Хотя, лично я, возможно, воспользовался бы следующей формулой : |
|
Форум: Microsoft/Office Excel
· Просмотр сообщения: #90018
· Ответов: 1
· Просмотров: 5764
|
Перенос данных из Word в Excel
|
pashulka |
Отправлено: Четверг, 16 Октября 2008, 21:38 |
Участник
Группа: Участник
Сообщений: 216
Регистрация: 13.07.2003
Пользователь №: 5551
|
Функция CreateObject создаёт и возвращает ссылку на Word.Application и это позволяет нам получить доступ к свойствам и методам этого объекта, а стало быть : Код Private Sub Test() iFileName$ = "C:\Мои документы\PriceCD.doc" 'Укажите имя документа, содержащего закладки If Dir(iFileName$) = "" Then MsgBox "Указанного документа, видимо, не существует", , "" Exit Sub End If With CreateObject("Word.Application") '.Visible = True With .Documents.Open(FileName:=iFileName$) ThisWorkbook.Worksheets("1").Range("A1").Value = .Bookmarks("VAL1_1").Range.Text
'Рабочий лист с указанным именем должен существовать '(вместо имени можно использовать индекс[номер] листа или 'кодовое, иначе называемое, программное имя рабочего листа)
'Ячейка+лист не должны быть защищены
'А в документа должна наличествовать закладка "VAL1_1" '(для проверки наличия нужной закладки можно использовать 'метод Exists об'екта Bookmarks)
'.Close saveChanges:=0 'wdDoNotSaveChanges End With .Quit saveChanges:=0 'wdDoNotSaveChanges End With End Sub |
|
Форум: Microsoft/Office Excel
· Просмотр сообщения: #89982
· Ответов: 16
· Просмотров: 39886
|
Перенос данных из Word в Excel
|
pashulka |
Отправлено: Среда, 15 Октября 2008, 21:46 |
Участник
Группа: Участник
Сообщений: 216
Регистрация: 13.07.2003
Пользователь №: 5551
|
Ежели самое простое присвоение вызывает подобную ошибку, то для начала рекомендую протестировать сей пример. |
|
Форум: Microsoft/Office Excel
· Просмотр сообщения: #89964
· Ответов: 16
· Просмотров: 39886
|
Новые ответы Нет новых ответов Горячая тема (Есть ответы) Горячая тема (Нет ответов) |
Опрос (Есть ответы) Опрос (Нет ответов) Закрытая тема Тема перемещена |
|
|
© Copyright by WinCity.Ru 2001 - 2008 | Обратная связьУслуги веб-хостинга предоставлены компанией MTW.RU
|
|