Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/просчет количества ячеек с диагональной границей - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » просчет количества ячеек с диагональной границей (Формулы/Formulas)
просчет количества ячеек с диагональной границей
VDGS Дата: Вторник, 08.07.2014, 23:11 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 28
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Приветствую всех. Подскажите, возможен ли просчет количества ячеек отличающихся от таких же наличием в них диагональных границ.
К сообщению приложен файл: 11.xlsx (10.3 Kb)
 
Ответить
СообщениеПриветствую всех. Подскажите, возможен ли просчет количества ячеек отличающихся от таких же наличием в них диагональных границ.
Автор - VDGS
Дата добавления - 08.07.2014 в 23:11
Serge_007 Дата: Вторник, 08.07.2014, 23:29 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
Средствами Excel - безусловно нет

ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
СообщениеСредствами Excel - безусловно нет
Автор - Serge_007
Дата добавления - 08.07.2014 в 23:29
VDGS Дата: Вторник, 08.07.2014, 23:34 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 28
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
спасибо Serge_007)
 
Ответить
Сообщениеспасибо Serge_007)
Автор - VDGS
Дата добавления - 08.07.2014 в 23:34
ikki Дата: Вторник, 08.07.2014, 23:47 | Сообщение № 4
Группа: Друзья
Ранг: Старожил
Сообщений: 1906
Репутация: 504 ±
Замечаний: 0% ±

Excel 2003, 2010
в VBA можно

помощь по Excel и VBA
ikki@fxmail.ru, icq 592842413, skype alex.ikki
 
Ответить
Сообщениев VBA можно
Автор - ikki
Дата добавления - 08.07.2014 в 23:47
Serge_007 Дата: Среда, 09.07.2014, 00:21 | Сообщение № 5
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
Так например:[vba]
Код
Sub VDGS()
      Dim BorderCells
      Dim iCount As Long
          For Each BorderCells In [h5:ab20]
              If BorderCells.Borders(xlDiagonalUp).Weight = xlMedium Then iCount = iCount + 1
          Next BorderCells
      '[a1] = iCount
      MsgBox iCount
End Sub
[/vba]
К сообщению приложен файл: VDGS.xls (73.5 Kb)

ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
СообщениеТак например:[vba]
Код
Sub VDGS()
      Dim BorderCells
      Dim iCount As Long
          For Each BorderCells In [h5:ab20]
              If BorderCells.Borders(xlDiagonalUp).Weight = xlMedium Then iCount = iCount + 1
          Next BorderCells
      '[a1] = iCount
      MsgBox iCount
End Sub
[/vba]
Автор - Serge_007
Дата добавления - 09.07.2014 в 00:21
_Boroda_ Дата: Среда, 09.07.2014, 00:36 | Сообщение № 6
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16675
Репутация: 6481 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Или функцией
[vba]
Код
Function diag(diap As Range)
'    Application.Volatile
     Dim d_, i
     For i = 1 To diap.Count
         d_ = d_ - (diap(i).Borders(xlDiagonalUp).LineStyle <> xlNone)
     Next i
     diag = d_
End Function
[/vba]
К сообщению приложен файл: 114674_1.xlsm (18.1 Kb)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеИли функцией
[vba]
Код
Function diag(diap As Range)
'    Application.Volatile
     Dim d_, i
     For i = 1 To diap.Count
         d_ = d_ - (diap(i).Borders(xlDiagonalUp).LineStyle <> xlNone)
     Next i
     diag = d_
End Function
[/vba]
Автор - _Boroda_
Дата добавления - 09.07.2014 в 00:36
VDGS Дата: Среда, 09.07.2014, 13:47 | Сообщение № 7
Группа: Пользователи
Ранг: Новичок
Сообщений: 28
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Serge_007, ikki, Boroda большое Вам спасибо за оказанную помощь! Все замечательно работает. Искреннее спасибо от нашего абонентского отдела, собственно для которых я и просил помощи. Перевел на счет я\д Serge_007 немного средств на развитие сайта. :D


Сообщение отредактировал VDGS - Среда, 09.07.2014, 13:47
 
Ответить
СообщениеSerge_007, ikki, Boroda большое Вам спасибо за оказанную помощь! Все замечательно работает. Искреннее спасибо от нашего абонентского отдела, собственно для которых я и просил помощи. Перевел на счет я\д Serge_007 немного средств на развитие сайта. :D
Автор - VDGS
Дата добавления - 09.07.2014 в 13:47
Serge_007 Дата: Среда, 09.07.2014, 23:20 | Сообщение № 8
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
Теперь понял откуда перевод :)

Спасибо!

ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
СообщениеТеперь понял откуда перевод :)

Спасибо!
Автор - Serge_007
Дата добавления - 09.07.2014 в 23:20
Мир MS Excel » Вопросы и решения » Вопросы по Excel » просчет количества ячеек с диагональной границей (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!