Перейти из форума на сайт.

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в on-line?
Вход Забыли пароль? Первый раз на этом сайте? Регистрация
Компьютерный форум Ru.Board » Компьютеры » Программы » Microsoft Excel FAQ (Часть 1)

Модерирует : gyra, Maz

Widok (01-04-2006 15:33): лимит страниц. переезжаем сюда.  Версия для печати • ПодписатьсяДобавить в закладки
Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100

   

ymy



YourMyYour
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Просьба к посетителям топика дополнять шапку наиболее часто задаваемыми вопросами со ссылками на ответы в обязательном порядке

 
  • Смена представления имен столбцов с буквенного на цифровое и обратно
  • Надстройки "Сумма прописью"
     
    Тема Excel VBA в разделе Прикладное программирование
     
     


    Вот такой вопрос у меня, помогите хто может: Как в Exсel-e ограничить число строк и колонок отображаемых на листе, точно можно, сам видел, но как?, в непонятках.

  • Всего записей: 1339 | Зарегистр. 22-04-2002 | Отправлено: 17:00 17-09-2002 | Исправлено: Maz, 22:44 24-02-2017
    HeT BonpocoB



    Advanced Member
    Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
    подскажите, можно ли както выделить ячейки цветом, но чтоб этот цвет не выводился на печать, а только в документе?
    ну тоесть надо пометить ячейки в которые вводятся данные для дальнейших автоматических вычислений...

    Всего записей: 1342 | Зарегистр. 30-03-2003 | Отправлено: 19:09 02-06-2005
    ivas



    Silver Member
    Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
    HeT BonpocoB
    Смотря какие ячейки (числовые), смотря каким цветом (красным), смотря какие значения (отрицательные).

    Цитата:
    пометить ячейки в которые вводятся данные для дальнейших автоматических вычислений
    только макросами.
     
    Добавлено:
    knyshow2

    Цитата:
    Это реально?
    Реально. На VBA.

    Всего записей: 3175 | Зарегистр. 23-11-2004 | Отправлено: 19:25 02-06-2005
    knyshow2

    Member
    Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
    mp3exchanger, вот, это именно оно, блин!
    как же я долго промучался...
     
    Сенки вери мач!
     
     
    Добавлено:
    ivas, а можно примерчик исходя из того, что нужно спрятать столбец A, если имя компьютера не knyshow, плииииз.

    Всего записей: 273 | Зарегистр. 02-09-2004 | Отправлено: 11:41 03-06-2005
    HeT BonpocoB



    Advanced Member
    Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
    ivas
    Цитата:
    Смотря какие ячейки (числовые), смотря каким цветом (красным), смотря какие значения (отрицательные).  
    да не, пометить хотелось без какихто признаков - чисто в ручную для удобства последующего редактирования...
    думал должна быть такая функция без VBA   , не обязательно цветом кстати, просто пометить    ну раз VBA то уж лучше так...

    Всего записей: 1342 | Зарегистр. 30-03-2003 | Отправлено: 19:03 03-06-2005
    Troitsky



    Водник Водкин
    Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
    knyshow2

    Цитата:
    при открытии таблицы проверяется имя компьютера, на котором открыта эта таблица и если оно не соответвует заранее определенному значению, то определенный столбец на определенгном листе скрывается

    Ну как-то так

    Код:
     
    Private Declare Function GetComputerNameA Lib "kernel32" (ByVal lpBuffer As String, nSize As Long) As Long
     
    Private Sub Workbook_Open()
      If ComputerName <> "knyshow" Then
        Columns("D:D").EntireColumn.Hidden = True
      Else
        Columns("D:D").EntireColumn.Hidden = False
      End If
    End Sub
     
    Private Function ComputerName() As String
      Dim sBuffer As String * 255
      If GetComputerNameA(sBuffer, 255&) <> 0 Then
        ComputerName = Left$(sBuffer, InStr(sBuffer, vbNullChar) - 1)
      End If
    End Function
     

    Всего записей: 795 | Зарегистр. 13-12-2003 | Отправлено: 19:39 03-06-2005
    knyshow2

    Member
    Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
    Troitsky, сенки, это саме оно

    Всего записей: 273 | Зарегистр. 02-09-2004 | Отправлено: 15:55 04-06-2005
    eshkolit



    Full Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    подскажите, профессионалы excel,  
    как из этого
       
     
    сделать вот это
     
       
     
    бился долго, но до конца так и не дошло...
     
    взято с http://www.artlebedev.ru/portfolio/backstage/artstat/

    Всего записей: 427 | Зарегистр. 02-11-2003 | Отправлено: 16:09 04-06-2005 | Исправлено: eshkolit, 16:11 04-06-2005
    bredonosec



    Platinum Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    eshkolit  
    Всё правой клавишей для вызова субменю - и далее по указаниям:
    Клик на фоне - цвет фона убрать (или белый сделать).  
    Клик на линии разметки - убрать промежуточные линии.  
    Клик на точке - выбрать интересующий стиль.  
    Клик на поле диаграммы - вписать/убрать соответствующие заголовки/подписи. Потом кликнуть на каждую и поиграться с размером/жирностью шрифта.
    Клик на линии отсчета (оси Х, У) - и выбирай, чего там из вариантов.  
    (так не помню, а открывать офис не хочу: ща скачивание идет полным ходом,- тормоза начнутся)

    Всего записей: 16257 | Зарегистр. 13-02-2003 | Отправлено: 07:43 05-06-2005
    eshkolit



    Full Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    bredonosec
     
    все правильно, кроме  
     

    Цитата:
    Клик на линии отсчета (оси Х, У) - и выбирай, чего там из вариантов

     
    вот тут проблема. ломанные оси еще можно заделать, а вот как убрать ноль из координат и сделать вертикальные черточки на оси х - пока загадка

    Всего записей: 427 | Зарегистр. 02-11-2003 | Отправлено: 22:53 05-06-2005
    bredonosec



    Platinum Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

    Цитата:
    и сделать вертикальные черточки на оси х  
    - Эту фичу как-то находил.. Что-то вроде "отмечать значения".. но вот где именно - толь в свойствах диаграммы, толь в свойствах графика, толь свойствах оси..
    Цитата:
    а вот как убрать ноль  
    Выбрать ось координатную, указать период отображаемый. От стольки-то до стольки-то. Ноль в этот интервал может не входить (иначе как бы делались графики еденичных изменений на уровне 4-5 тыс от оси х ? )

    Всего записей: 16257 | Зарегистр. 13-02-2003 | Отправлено: 23:59 05-06-2005
    kissyr1985

    Newbie
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Помогите плиз!
    надо зделать кнопку
    генератор случайных чисел в excel
    с помощь макросов с условием  
    что преведущий столбец будет больше данного!!
    табл.примерно 8 столбцов и 6 строк!
    или хотябы как с помощью макросов посчитать сумму строки или столбца!!
    Помогите кто может!!!
    ответы мона кидать на kissyr@mail.ru

    Всего записей: 1 | Зарегистр. 06-06-2005 | Отправлено: 14:36 06-06-2005
    bredonosec



    Platinum Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

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

    Всего записей: 16257 | Зарегистр. 13-02-2003 | Отправлено: 04:30 07-06-2005
    1nasty1



    Advanced Member
    Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
    Никому не попадалось... Задача: надо, чтобы сравнивалась эталонная база (в любом формате) и excel-файл. К примеру у меня есть список (база) фильмов. Мне нужно, чтобы последовательно перебрались слова и нашлись совпадения в текущем excel-файле (совпадения по корню слова, например) и как-то пометились (цветом и т.п.)

    Всего записей: 751 | Зарегистр. 11-03-2005 | Отправлено: 02:40 08-06-2005
    Vitalik18

    Newbie
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Помогите!!!Проблема заключается в том,что есть массив данных в котором при разных условиях меняются заначения например:
           А       В       С       D      E       F       J
     
      1   9        29      5       8       1      3       4
     
      2   20       45     49     67     89    93    980
     
      3  -19     -10     -5       7      38    39     45
     
    Необходимо вычислить некоторые данные по формуле =D1-D3/D2,вопрос в том как сделать, чтобы эта формула выбирала автоматически тот столбец, в котором в третьей строке находится минимальное положительное значение.

    Всего записей: 3 | Зарегистр. 07-06-2005 | Отправлено: 13:38 08-06-2005
    Tropin



    Full Member
    Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
    Vitalik18
    Макрос тебе поможет ;)

    ----------
    Вот потому, что вы говорите то, что не думаете и думаете то, что не думаете, вот в клетках и сидите... (C) Кин-дза-дза

    Всего записей: 538 | Зарегистр. 25-11-2002 | Отправлено: 16:57 08-06-2005
    Vitalik18

    Newbie
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Спасибо, Tropin,  за совет, вот если бы еще подсказал как этот макрос написать,я был бы весьма благодарен.

    Всего записей: 3 | Зарегистр. 07-06-2005 | Отправлено: 18:04 08-06-2005
    mp3exchanger



    Full Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Vitalik18
    Может устроит такая формула?

    Код:
    =ИНДЕКС(A1:G1;0;ПОИСКПОЗ(МИН(ЕСЛИ(МИН(A3)>0;A3;МАКС(A3:D3));ЕСЛИ(МИН(B3)>0;B3;МАКС(A3:D3));ЕСЛИ(МИН(C3)>0;C3;МАКС(A3:D3));ЕСЛИ(МИН(D3)>0;D3;МАКС(A3:D3));ЕСЛИ(МИН(E3)>0;E3;МАКС(A3:D3));ЕСЛИ(МИН(F3)>0;F3;МАКС(A3:D3));ЕСЛИ(МИН(G3)>0;G3;МАКС(A3:D3)));A3:G3;0))-МИН(ЕСЛИ(МИН(A3)>0;A3;МАКС(A3:D3));ЕСЛИ(МИН(B3)>0;B3;МАКС(A3:D3));ЕСЛИ(МИН(C3)>0;C3;МАКС(A3:D3));ЕСЛИ(МИН(D3)>0;D3;МАКС(A3:D3));ЕСЛИ(МИН(E3)>0;E3;МАКС(A3:D3));ЕСЛИ(МИН(F3)>0;F3;МАКС(A3:D3));ЕСЛИ(МИН(G3)>0;G3;МАКС(A3:D3)))/ИНДЕКС(A2:G2;0;ПОИСКПОЗ(МИН(ЕСЛИ(МИН(A3)>0;A3;МАКС(A3:D3));ЕСЛИ(МИН(B3)>0;B3;МАКС(A3:D3));ЕСЛИ(МИН(C3)>0;C3;МАКС(A3:D3));ЕСЛИ(МИН(D3)>0;D3;МАКС(A3:D3));ЕСЛИ(МИН(E3)>0;E3;МАКС(A3:D3));ЕСЛИ(МИН(F3)>0;F3;МАКС(A3:D3));ЕСЛИ(МИН(G3)>0;G3;МАКС(A3:D3)));A3:G3;0))

    длинная, но работает... правда, только с такой таблицей как у тебя - 3 строки и 7 столбцов.

    Всего записей: 518 | Зарегистр. 24-02-2003 | Отправлено: 20:08 09-06-2005
    Vitalik18

    Newbie
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Cпасибо, за то, что не оставили мой вопрос без внимания, но я уже решил эту проблемку. Если кому интересно можете воспользоваться этой формулой
     
    {=СУММ(ЕСЛИ(A3:H3=МИН(ЕСЛИ(A3:H3>0;A3:H3));A1:H1-МИН(ЕСЛИ(A3:H3>0;A3:H3))/A2:H2))}
     
    Обратите внимание на то, что представленная формула, является формулой массива, а следовательно после =СУММ(ЕСЛИ(A3:H3=МИН(ЕСЛИ(A3:H3>0;A3:H3));A1:H1-МИН(ЕСЛИ(A3:H3>0;A3:H3))/A2:H2)) необходимо нажать CTRL + SHIFT + ENTER

    Всего записей: 3 | Зарегистр. 07-06-2005 | Отправлено: 17:30 10-06-2005
    mp3exchanger



    Full Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Vitalik18
    Не перестаю удивляться возможностям Excel...
    пожалуй, макрос подлиннее будет...

    Всего записей: 518 | Зарегистр. 24-02-2003 | Отправлено: 19:56 10-06-2005
    Volchek



    Advanced Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Troitsky

    Цитата:
    Volchek
    При таких же условиях
    Цитата:
    WinXP Pro Rus SP2 + Office XP
    проблем, во всяком случае с почтовым клиентом (TheBat 3...), не возникает. Думаю, проблема не в том, что тупорылый Офис не понимает, что "программой по умолчанию" могут быть не только продукты Мелкософта. Переустановить попробуй.
     

     
    Все же возникает проблема, как видишь. Что предлагаеши преустановить - Офис, Мышь или браузер?

    Всего записей: 1303 | Зарегистр. 05-01-2003 | Отправлено: 13:14 11-06-2005
       

    Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100

    Компьютерный форум Ru.Board » Компьютеры » Программы » Microsoft Excel FAQ (Часть 1)
    Widok (01-04-2006 15:33): лимит страниц. переезжаем сюда.


    Реклама на форуме Ru.Board.

    Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
    Modified by Ru.B0ard
    © Ru.B0ard 2000-2024

    BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

    Рейтинг.ru