просчет количества ячеек с диагональной границей

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

просчет количества ячеек с диагональной границей (Формулы/Formulas)

VDGS

Дата: Вторник, 08.07.2014, 23:11 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 28

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

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

К сообщению приложен файл: 11.xlsx (10.3 Kb)

Ответить

Serge_007

Дата: Вторник, 08.07.2014, 23:29 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

Репутация: 2749 ±

Замечаний: ±

Excel 2016

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

ЮMoney:41001419691823 | WMR:126292472390

Ответить

VDGS

Дата: Вторник, 08.07.2014, 23:34 | Сообщение № 3

Группа: Пользователи

Ранг: Новичок

Сообщений: 28

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

спасибо Serge_007)

Ответить

ikki

Дата: Вторник, 08.07.2014, 23:47 | Сообщение № 4

Группа: Друзья

Ранг: Старожил

Сообщений: 1906

Репутация: 504 ±

Замечаний: 0% ±

Excel 2003, 2010

в VBA можно

помощь по Excel и VBA
ikki@fxmail.ru, icq 592842413, skype alex.ikki

Ответить

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

Ответить

_Boroda_

Дата: Среда, 09.07.2014, 00:36 | Сообщение № 6

Группа: Админы

Ранг: Местный житель

Сообщений: 16895

Репутация: 6613 ±

Замечаний: ±

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

Ответить

VDGS

Дата: Среда, 09.07.2014, 13:47 | Сообщение № 7

Группа: Пользователи

Ранг: Новичок

Сообщений: 28

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

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