Регистрация

Здравствуй, друг!
Еще не зарегистрировался?
Регистрация.
Не пришло письмо
с активацией?
Запросить активацию.
 
MS Excel - решение практических задач - Страница 3 - Компьютерный форум NoWa.cc
Компьютерный форум NoWa.cc
Правила Форума
редакция от 29.01.2013
Портал .::2Baksa.Net::. Фильмы HD Трекер BRODIM.COM
Вернуться   Компьютерный форум NoWa.cc > Андеграунд - Софт > Обсуждение программ > МOffice, Переводчики (словари), Органайзеры, Текстовые редакторы

МOffice, Переводчики (словари), Органайзеры, Текстовые редакторы OpenOffice, PROMT, TranslateIt!, Pragma, ABBYY Lingvo, QDictionary, WinOrganizer, Notepad и другие

Уважаемые пользователи nowa.cc и 2baksa.net. У нас сложилось тяжелое финансовое положение. Мы работаем для вас вот уже более 10 лет
и теперь вынуждены просить о помощи. Окажите посильную поддержку проектам. Мы очень надеемся на вас. Реквизиты для переводов ниже.
Webmoney Webmoney Z826074280762 Webmoney R087294265364 Webmoney U051530505194 Webmoney E804621616710
PayPal E-mail для связи / to Contact E-mail для связи / to Contact : E-mail для связи / to Contact
Кошелек для вашей помощи Yandex 410013204813773
Yandex Спасибо за поддержку!

Российский интернет-шлюз: контроль трафика, DLP, антивирус, fail2ban, прокси-сервер, шифрование данных, https-фильтрация. Сертификат ФСТЭК

загрузка...
Ответ
 
Опции темы Language
Старый 03.05.2005, 18:16   #1
Nija
Guest
 
Сообщений: n/a
Post MS Excel - решение практических задач

В этой теме размещаем вопросы и ответы, а также советы и рекомендации по решению конкретных задач, которые требуют создания формулы, применения макроса, написания кода VBA, т.е. Практикум.
------------------------------
Вопросы и ответы, а также советы и рекомендации по настройке MS Excel, ошибки в работе программы, решение задач по импорту/экспорту документов, ссылки и обсуждение надстроек для Excel, обучающие материалы и т.п. размещаем в теме [Только зарегистрированные пользователи могут видеть ссылки. Зарегистрироваться...].
Если решение задачи не требует применения формул и макросов (VBA), то это обсуждение будет перенесено в тему по настройкам.

Все пожелания по принципам размещения сообщений по этим темам рассматриваются - пишите в личку [Только зарегистрированные пользователи могут видеть ссылки. Зарегистрироваться...].

Последний раз редактировалось regist; 30.11.2012 в 15:04.. Причина: закрепил шапку
  Ответить с цитированием Вверх
Старый 22.08.2007, 13:10   #31
votya
Новичок
 
Пол:Женский
Регистрация: 07.12.2005
Сообщений: 5
Репутация: 0
По умолчанию Ответ: Вопросы по Excel

Можно поподробней. Сервис\параметры\общие\параметры веб документа посмотрел, но ничего, что могло навести меня на ответ там не обнаружил. Мне тут знакомый говорил что без макроса, или как там его, здесь не обойтись. А я VBA вообще ни разу в глаза не видел...Вот как тут быть?

Добавлено через 38 минут
Все. Разобрался. Никакой макрос там не нужен. Там в Сервис\Параметры\Вычисления нужно было поставить галочку итерации и количество 1 поставить.

Добавлено через 47 минут
А никто не знает как то же самое в OpenOffice Calc сделать? Че то тоже самое там не работает...

Последний раз редактировалось votya; 22.08.2007 в 13:57.. Причина: Добавлено сообщение
votya вне форума
 
Ответить с цитированием Вверх


Реклама: система хранения с ящиками ep 1455-1 ценапружины риф на уаз патриот в ульяновскефбс 600х600х2400уличные детские пластмассовые горкиподставка для стола


Старый 27.08.2007, 19:57   #32
Olegich
Неактивный пользователь
 
Регистрация: 27.08.2007
Сообщений: 1
Репутация: 0
Unhappy Вопрос по MS Excel

Здравствуйте! Помогите пожалуйста разобраться с электронной таблицей. Суть задачи такова: Допустим создаю свою базу сотовых номеров. Каждый номер пишеться в одном столбце, но в своей ячейке (А1, А2....и т.д.). Как мне сделать так, чтобы если номер (значение) повторяется в данном столбце, то программа сообщала мне об ошибке или выделяла другим цветом. Раньше я неплохо разбирался в составлении формул, но это 5 лет прошло (студенческие годы). Сейчас не помню. Помогите, кто знает как это сделать, пожалуйста!
Olegich вне форума
 
Ответить с цитированием Вверх
Старый 17.09.2007, 18:35   #33
SV80
Пользователь
 
Пол:Мужской
Регистрация: 29.01.2007
Сообщений: 51
Репутация: 30
Post Ответ: Вопросы по Excel

Цитата:
Сообщение от Avenger Посмотреть сообщение
Ответ: формулу создать в экселе помоему невозможно, они существуют и их надо знать, если интересует тебя данная информация могу дать все форумулы какие есть в ПМ

Возможно – есть пользовательские функции – они пишутся в VBA. Меня не раз выручали. Посмотри в справке пользовательские функции.

Добавлено через 6 минут
Цитата:
Сообщение от votya Посмотреть сообщение
Как создать в excel рекурсивную функцию, ссылающуюся саму на себя - задача подсчет в ячейке суммы нарастающим итогом
а1=а1+а2.

Если использовать сводную таблицу там есть сумма нарастающим итогом. Если не подходит добавь еще один столбец «B» например и напиши формулу в ячейке «B2» =СУММ($A$1:A2), скопируй ее в остальные ячейки внизу (или так сказать растяни)

Добавлено через 15 минут
Цитата:
Сообщение от Olegich Посмотреть сообщение
Здравствуйте! Помогите пожалуйста разобраться с электронной таблицей. Суть задачи такова: Допустим создаю свою базу сотовых номеров. Каждый номер пишеться в одном столбце, но в своей ячейке (А1, А2....и т.д.). Как мне сделать так, чтобы если номер (значение) повторяется в данном столбце, то программа сообщала мне об ошибке или выделяла другим цветом. Раньше я неплохо разбирался в составлении формул, но это 5 лет прошло (студенческие годы). Сейчас не помню. Помогите, кто знает как это сделать, пожалуйста!

Добавь еще один контрольный столбец «B» и напиши формулу в ячейке «B2» =ЕСЛИ(ЕНД(ПОИСКПОЗ(A2;A$1:A1;0));"Значение уникально";"Значение уже есть"), скопируй ее в остальные ячейки внизу (или так сказать растяни). Потом можем воспользоваться условным форматированием.
__________________
Тот кто владеет информацией - владеет миром. Админы и программеры - самые правильные лентяи... Апогей двигателя прогресса (лени)

Последний раз редактировалось SV80; 18.09.2007 в 12:50.. Причина: Добавлено сообщение
SV80 вне форума
 
Ответить с цитированием Вверх
Старый 28.09.2007, 15:10   #34
volontoyr
Старожил
 
Аватар для volontoyr
 
Пол:Мужской
Регистрация: 18.06.2007
Адрес: Хворостянка
Сообщений: 1,285
Репутация: 6406
По умолчанию Ответ: Вопросы по Excel

Люди, помогите пожалуйста. Как в экселе сделать чтоб набираемые цифры (сумма)в ячейки отображались прописью?
пример:
1237,00
отображалась бы
Одна тысяча двести тридцать семь рублей 00 копеек
А то которая функция имеется, то она доступна на малазийском языке или на кокам-то таком.
Иож у кого есть скрипт какой-нить, а то каждый раз прописывать большие суммы надоедает.
__________________
volontoyr на форуме
 
Ответить с цитированием Вверх
Старый 04.10.2007, 09:46   #35
Grifon
Новичок
 
Пол:Мужской
Регистрация: 20.09.2007
Сообщений: 11
Репутация: 0
Exclamation МOffice 2003 (Excel) выгрузка данных в txt помогите решить проблему с кавычками...

В таблице разнотипные данные, текст (русский и англиЦкий), цыферы и всяческие символы (<, “, ; и т.д.). Формат всех ячеек текстовый. Сохраняю в текстовый документ - ‘Сохранить как’ если текст Юникод - русский читабельный, но расставляет кучи кавычек по непонятному принципу, если форматированный текст (разделители пробелы) в итоге вместо русского иероглифы, но нет кавычек.
Макросом также

Sub TXT()
ActiveWorkbook.SaveAs Filename:="C:\txt.txt", FileFormat:= _
xlUnicodeText, CreateBackup:=False
End Sub

НО! Есть параметр TextCodepage (по ходу не работает).

Помогите избавиться от кавычек и сохранить русскую кодировку.


З.Ы.
"Спасибо модератору"... Теперь я точно от кавычек не избавлюсь 8(

Последний раз редактировалось Grifon; 05.10.2007 в 01:07..
Grifon вне форума
 
Ответить с цитированием Вверх
Старый 05.10.2007, 20:39   #36
kosLLL
Новичок
 
Пол:Мужской
Регистрация: 07.11.2005
Сообщений: 17
Репутация: 0
По умолчанию Ответ: Вопросы по Excel

Кто знает как в екселе к ячейке привязать отбор из другой ячейки при выполнении условия
__________________
Кострома
kosLLL вне форума
 
Ответить с цитированием Вверх
Старый 09.10.2007, 22:15   #37
Enfriz
Неактивный пользователь
 
Аватар для Enfriz
 
Регистрация: 31.07.2007
Адрес: Санкт-Петербург
Сообщений: 37
Репутация: 92
По умолчанию Ответ: Вопросы по Excel

kosLLL, то есть отбор? чтобы данные подставлялись?
тогда
Код:
=ЕСЛИ(<условие>;<имя ячейки, из которой беруться данные>;<значение при невыполнениии условия>)
Например =ЕСЛИ(A1>1;A2;B1). Или это не то, что вам надо?
Enfriz вне форума
 
Ответить с цитированием Вверх
Старый 11.10.2007, 21:00   #38
SV80
Пользователь
 
Пол:Мужской
Регистрация: 29.01.2007
Сообщений: 51
Репутация: 30
По умолчанию Ответ: МOffice 2003 (Excel) выгрузка данных в txt помогите решить проблему с кавычка

Цитата:
Сообщение от Grifon Посмотреть сообщение
В таблице разнотипные данные, текст (русский и англиЦкий), цыферы и всяческие символы (<, “, ; и т.д.). Формат всех ячеек текстовый. Сохраняю в текстовый документ - ‘Сохранить как’ если текст Юникод - русский читабельный, но расставляет кучи кавычек по непонятному принципу, если форматированный текст (разделители пробелы) в итоге вместо русского иероглифы, но нет кавычек.
Макросом также

Sub TXT()
ActiveWorkbook.SaveAs Filename:="C:\txt.txt", FileFormat:= _
xlUnicodeText, CreateBackup:=False
End Sub

НО! Есть параметр TextCodepage (по ходу не работает).

Помогите избавиться от кавычек и сохранить русскую кодировку.


З.Ы.
"Спасибо модератору"... Теперь я точно от кавычек не избавлюсь 8(

Не понятна причина сохранения... Если скажешь может другие пути - более удобные подскажам
Но сохраняя в текст, ексель как раз пользуется запятыми для разделения данных. Поэтому или уточняй задачу или пиши макрос сохранения в текстовый файл, где идет перебор диапазона ячеек, вытаскивание значения каждой ячейки и добавление значения в строку и запись всех строк в текстовый файл. А тот макрос что ты привел он просто делает теже действия что и ты через меню - только нажатием одной кнопки - так что иного результата зря ожидаешь...
__________________
Тот кто владеет информацией - владеет миром. Админы и программеры - самые правильные лентяи... Апогей двигателя прогресса (лени)
SV80 вне форума
 
Ответить с цитированием Вверх
Старый 27.10.2007, 15:23   #39
roland76
Неактивный пользователь
 
Аватар для roland76
 
Регистрация: 27.10.2007
Сообщений: 9
Репутация: 1
По умолчанию Ответ: МOffice 2003 (Excel) выгрузка данных в txt помогите решить проблему с кавычка

Цитата:
Сообщение от SV80 Посмотреть сообщение
Не понятна причина сохранения... Если скажешь может другие пути - более удобные подскажам
Но сохраняя в текст, ексель как раз пользуется запятыми для разделения данных. Поэтому или уточняй задачу или пиши макрос сохранения в текстовый файл, где идет перебор диапазона ячеек, вытаскивание значения каждой ячейки и добавление значения в строку и запись всех строк в текстовый файл. А тот макрос что ты привел он просто делает теже действия что и ты через меню - только нажатием одной кнопки - так что иного результата зря ожидаешь...

Вот тебе макрос, который сохраняет sheet в csv файл. Откорректировав его, думаю с легкостью решишь свою задачу.

Код:
Sub SaveAsCSV()

Dim ws As Worksheet
Dim fname As String
Dim fs
Dim WholeLine As String
Dim FNum As Integer
Dim RowNdx As Long
Dim ColNdx As Integer
Dim StartRow As Long
Dim EndRow As Long
Dim StartCol As Integer
Dim EndCol As Integer
Dim CellValue As String
Dim Sep As String

Application.ScreenUpdating = False

'On Error GoTo EndMacro:

Set ws = ActiveSheet
FNum = FreeFile

Sep = ";"

fname = "C:\temp\cat.csv"

'Determine if the same CSV file aready exists 'If it does, DELETE it and create a new one from 'scratch Set fs = CreateObject("Scripting.FileSystemObject")
'If fs.FileExists(fname) Then
'Kill fname
'End If
   If FileExists(fname) Then
       Set fs = CreateObject("Scripting.FileSystemObject")
       fs.DeleteFile (fname)
   End If

ws.Range(Cells(1, 1), Cells(LastRow(ws), LastCol(ws))).Select

With Selection
StartRow = .Cells(1).Row
StartCol = .Cells(1).Column
EndRow = .Cells(.Cells.Count).Row
EndCol = .Cells(.Cells.Count).Column
End With

Open fname For Output Access Write As #FNum

For RowNdx = StartRow To EndRow
WholeLine = ""
For ColNdx = StartCol To EndCol
If Cells(RowNdx, ColNdx).Value = "" Then
CellValue = ""
Else
CellValue = (Cells(RowNdx, ColNdx).Value)
'Application.WorksheetFunction.Text _
'(Cells(RowNdx, ColNdx).Value, _
'Cells(RowNdx, ColNdx).NumberFormat)
End If
WholeLine = WholeLine & CellValue & Sep
Next ColNdx
WholeLine = Left(WholeLine, Len(WholeLine) - Len(Sep))
Print #FNum, WholeLine
Next RowNdx

EndMacro:
'On Error GoTo 0

Application.ScreenUpdating = True

Close #FNum

Range("A1").Select

End Sub
Добавлено через 1 минуту
Цитата:
Сообщение от SV80 Посмотреть сообщение
Не понятна причина сохранения... Если скажешь может другие пути - более удобные подскажам
Но сохраняя в текст, ексель как раз пользуется запятыми для разделения данных. Поэтому или уточняй задачу или пиши макрос сохранения в текстовый файл, где идет перебор диапазона ячеек, вытаскивание значения каждой ячейки и добавление значения в строку и запись всех строк в текстовый файл. А тот макрос что ты привел он просто делает теже действия что и ты через меню - только нажатием одной кнопки - так что иного результата зря ожидаешь...

Вот тебе макрос, который сохраняет sheet в csv файл.

Откорректировав его, думаю с легкостью решишь свою задачу.

Код:
Sub SaveAsCSV()

Dim ws As Worksheet
Dim fname As String
Dim fs
Dim WholeLine As String
Dim FNum As Integer
Dim RowNdx As Long
Dim ColNdx As Integer
Dim StartRow As Long
Dim EndRow As Long
Dim StartCol As Integer
Dim EndCol As Integer
Dim CellValue As String
Dim Sep As String

Application.ScreenUpdating = False

'On Error GoTo EndMacro:

Set ws = ActiveSheet
FNum = FreeFile

Sep = ";"

fname = "C:\temp\cat.csv"

'Determine if the same CSV file aready exists 'If it does, DELETE it and create a new one from 'scratch Set fs = CreateObject("Scripting.FileSystemObject")
'If fs.FileExists(fname) Then
'Kill fname
'End If
   If FileExists(fname) Then
       Set fs = CreateObject("Scripting.FileSystemObject")
       fs.DeleteFile (fname)
   End If

ws.Range(Cells(1, 1), Cells(LastRow(ws), LastCol(ws))).Select

With Selection
StartRow = .Cells(1).Row
StartCol = .Cells(1).Column
EndRow = .Cells(.Cells.Count).Row
EndCol = .Cells(.Cells.Count).Column
End With

Open fname For Output Access Write As #FNum

For RowNdx = StartRow To EndRow
WholeLine = ""
For ColNdx = StartCol To EndCol
If Cells(RowNdx, ColNdx).Value = "" Then
CellValue = ""
Else
CellValue = (Cells(RowNdx, ColNdx).Value)
'Application.WorksheetFunction.Text _
'(Cells(RowNdx, ColNdx).Value, _
'Cells(RowNdx, ColNdx).NumberFormat)
End If
WholeLine = WholeLine & CellValue & Sep
Next ColNdx
WholeLine = Left(WholeLine, Len(WholeLine) - Len(Sep))
Print #FNum, WholeLine
Next RowNdx

EndMacro:
'On Error GoTo 0

Application.ScreenUpdating = True

Close #FNum

Range("A1").Select

End Sub

Последний раз редактировалось roland76; 27.10.2007 в 15:25.. Причина: Добавлено сообщение
roland76 вне форума
 
Ответить с цитированием Вверх
Старый 27.10.2007, 16:18   #40
diuk
Неактивный пользователь
 
Пол:Мужской
Регистрация: 27.10.2007
Сообщений: 5
Репутация: 1
По умолчанию Ответ: Вопросы по Excel

Цитата:
Сообщение от volontoyr Посмотреть сообщение
Люди, помогите пожалуйста. Как в экселе сделать чтоб набираемые цифры (сумма)в ячейки отображались прописью?
пример:
1237,00
отображалась бы
Одна тысяча двести тридцать семь рублей 00 копеек
А то которая функция имеется, то она доступна на малазийском языке или на кокам-то таком.
Иож у кого есть скрипт какой-нить, а то каждый раз прописывать большие суммы надоедает.

закачай надстройку и пользуйся _http://softsearch.ru/programs/51-504-summa-propis-ju-download.shtml

Добавлено через 6 минут
Цитата:
Сообщение от Alexis78 Посмотреть сообщение
Потому что в шаблонах нет "пустого" шаблона, типа "книга".xls

не пойму зачем? но если нужно, сохрани пустую книгу как шаблон....

Последний раз редактировалось diuk; 27.10.2007 в 16:24.. Причина: Добавлено сообщение
diuk вне форума
 
Ответить с цитированием Вверх
Старый 12.12.2007, 16:35   #41
plk_ua
Неактивный пользователь
 
Регистрация: 07.05.2007
Сообщений: 7
Репутация: 3
По умолчанию Ответ: Вопросы по Excel

2 volontoyr
Люди, помогите пожалуйста. Как в экселе сделать чтоб набираемые цифры (сумма)в ячейки отображались прописью?
пример:
1237,00
отображалась бы
Одна тысяча двести тридцать семь рублей 00 копеек


Есть такая штука - UDF.XLS называется - во всяком случае я ее под таким именем нашел сто лет назад.
Не найдешь - стучи.

Последний раз редактировалось plk_ua; 12.12.2007 в 16:37..
plk_ua вне форума
 
Ответить с цитированием Вверх
Старый 13.12.2007, 10:51   #42
Nerses
Пользователь
 
Аватар для Nerses
 
Пол:Мужской
Регистрация: 30.05.2007
Адрес: Armenia, Yerevan
Сообщений: 45
Репутация: 41
По умолчанию Ответ: Вопросы по Excel

Цитата:
Сообщение от volontoyr Посмотреть сообщение
Люди, помогите пожалуйста. Как в экселе сделать чтоб набираемые цифры (сумма)в ячейки отображались прописью?
пример:
1237,00
отображалась бы
Одна тысяча двести тридцать семь рублей 00 копеек
А то которая функция имеется, то она доступна на малазийском языке или на кокам-то таком.
Иож у кого есть скрипт какой-нить, а то каждый раз прописывать большие суммы надоедает.

Нашел интересную статью на эту тему, хотя сам не пробовал.
http://msexcel.ru/content/view/97/2/
[Только зарегистрированные пользователи могут видеть ссылки. Зарегистрироваться...]
Nerses вне форума
 
Ответить с цитированием Вверх
Старый 15.12.2007, 08:15   #43
Tin
Старожил
 
Пол:Мужской
Регистрация: 20.02.2007
Сообщений: 1,917
Репутация: 1491
По умолчанию Ответ: Вопросы по Excel

Используя функцию СЧЁТЕСЛИ при совпадении чисел в столбце,
прога считает за одно. Как исправить?
Пример: 1, 2, 3, 4, 4, 5

=СЧЁТЕСЛИ(A1:A6;">3")
Должно получиться 3, но пишет 2, т.е. (4) считает за один.

2007 EX
Tin вне форума
 
Ответить с цитированием Вверх
Старый 15.12.2007, 10:32   #44
valeransk1
Пользователь
 
Пол:Мужской
Регистрация: 04.10.2007
Адрес: Россия, Новосибирск
Сообщений: 51
Репутация: 29
По умолчанию Ответ: Вопросы по Excel

Цитата:
Сообщение от Tin Посмотреть сообщение
Используя функцию СЧЁТЕСЛИ при совпадении чисел в столбце,
прога считает за одно. Как исправить?
Пример: 1, 2, 3, 4, 4, 5

=СЧЁТЕСЛИ(A1:A6;">3")
Должно получиться 3, но пишет 2, т.е. (4) считает за один.

2007 EX

встроенными средствами экселя никак. в visual basic который встроен это можно сделать. при помощи массивоф
valeransk1 вне форума
 
Ответить с цитированием Вверх
Старый 15.12.2007, 15:27   #45
Tin
Старожил
 
Пол:Мужской
Регистрация: 20.02.2007
Сообщений: 1,917
Репутация: 1491
По умолчанию Ответ: Вопросы по Excel

valeransk1,
Цитата:
встроенными средствами экселя никак. в visual basic который встроен это можно сделать. при помощи массивоф

Не подскажете, поступенчато, как это сделать?
Или где почитать про это.
Tin вне форума
 
Ответить с цитированием Вверх
Ответ
 Уважаемые пользователи портала 2BakSa.NeT и форума NoWa.cc !

  Рады Вам сообщить, что у нас открылся Torrent трекер >> BRODIM.COM

  Приглашаем вас принять участие в обмене полезной информацией,

  и ждем от вас поддержки в создании новых раздач.

Опции темы

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
ЛовиОтвет (Лови ответ) - решение задач и примеров по математике Евгений92752 Freeware софт 7 27.05.2015 08:29
конвертер PDF to Excel master05 Скорая помощь 4 12.08.2011 15:37
EXCEL в Delph 7. Toxa07 Delphi 5 18.05.2009 20:49
Как разблокировать диспетчер задач «Диспетчер задач отключен Администратором». Rench1k Microsoft Windows 20 30.01.2009 10:18
VCL для Excel Embolus Delphi 26 13.11.2008 23:25

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход


Текущее время: 14:58. Часовой пояс GMT +3.


Rambler's Top100
Copyright © 2004 - 2016 2BakSa.Net

Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2017, vBulletin Solutions, Inc. Перевод: zCarot
Время генерации страницы 0.19527 секунды с 10 запросами