<?xml version="1.0" encoding="utf-8"?>
<rss version="2.0" xmlns:atom="http://www.w3.org/2005/Atom">
	<channel>
		<title><![CDATA[Серый форум &mdash; VBA Excel object model: определение скрытогой ячейки]]></title>
		<link>http://forum.script-coding.com/viewtopic.php?id=15303</link>
		<atom:link href="http://forum.script-coding.com/extern.php?action=feed&amp;tid=15303&amp;type=rss" rel="self" type="application/rss+xml" />
		<description><![CDATA[Недавние сообщения в теме «VBA Excel object model: определение скрытогой ячейки».]]></description>
		<lastBuildDate>Sat, 18 Apr 2020 17:59:13 +0000</lastBuildDate>
		<generator>PunBB</generator>
		<item>
			<title><![CDATA[Re: VBA Excel object model: определение скрытогой ячейки]]></title>
			<link>http://forum.script-coding.com/viewtopic.php?pid=139067#p139067</link>
			<description><![CDATA[<p><strong>alexii</strong>, спасибо. Пошел разбираться <img src="//forum.script-coding.com/img/smilies/smile.png" width="15" height="15" /></p>]]></description>
			<author><![CDATA[null@example.com (equipment66)]]></author>
			<pubDate>Sat, 18 Apr 2020 17:59:13 +0000</pubDate>
			<guid>http://forum.script-coding.com/viewtopic.php?pid=139067#p139067</guid>
		</item>
		<item>
			<title><![CDATA[Re: VBA Excel object model: определение скрытогой ячейки]]></title>
			<link>http://forum.script-coding.com/viewtopic.php?pid=139057#p139057</link>
			<description><![CDATA[<p><strong>equipment66</strong>, для ячейки — никак нельзя, потому что скрывать можно только столбцы или строки целиком:<br /></p><div class="codebox"><pre><code>Option Explicit

Sub Sample()
    Dim objRange As Range
    
    For Each objRange In ActiveSheet.UsedRange
        Debug.Print objRange.Address, vbTab, objRange.Columns.Item(1).Hidden, objRange.Rows.Item(1).Hidden
    Next objRange
End Sub
</code></pre></div><p>Но Вы можете написать свою функцию, которая будет проверять, находится ли конкретная ячейка в скрытом столбце или строке (если в переданном диапазоне больше одной ячейки — то первая ячейка диапазона) и возвращать булево значение, например:<br /></p><div class="codebox"><pre><code>Option Explicit

Sub Sample2()
    Debug.Print IsHiddenCell(ActiveSheet.Range(&quot;$B$10&quot;))
    Debug.Print IsHiddenCell(ActiveSheet.Range(&quot;$C$10&quot;))
    Debug.Print IsHiddenCell(ActiveSheet.Range(&quot;$C$11&quot;))
    
    &#039; И даже:
    Debug.Print IsHiddenCell(ActiveSheet.Range(&quot;$C$10:$D$20&quot;))
End Sub

Function IsHiddenCell(objRange As Range)
    If Not objRange Is Nothing Then
        With objRange.Item(1)
            If .Columns.Item(1).Hidden Or .Rows.Item(1).Hidden Then
                IsHiddenCell = True
            Else
                IsHiddenCell = False
            End If
        End With
    Else
        IsHiddenCell = False
    End If
End Function
</code></pre></div>]]></description>
			<author><![CDATA[null@example.com (alexii)]]></author>
			<pubDate>Thu, 16 Apr 2020 12:50:01 +0000</pubDate>
			<guid>http://forum.script-coding.com/viewtopic.php?pid=139057#p139057</guid>
		</item>
		<item>
			<title><![CDATA[VBA Excel object model: определение скрытогой ячейки]]></title>
			<link>http://forum.script-coding.com/viewtopic.php?pid=139020#p139020</link>
			<description><![CDATA[<p>Здравствуйте,</p><p>Имеется большая таблица Excel, часть столбцов скрыта. Как средствами object model определить, скрыта конкретная ячейка или нет? Просмотрел&nbsp; Office VBA Reference Excel Object model, не нашел. Полагаю, не там искал <img src="//forum.script-coding.com/img/smilies/smile.png" width="15" height="15" /></p>]]></description>
			<author><![CDATA[null@example.com (equipment66)]]></author>
			<pubDate>Mon, 13 Apr 2020 20:25:56 +0000</pubDate>
			<guid>http://forum.script-coding.com/viewtopic.php?pid=139020#p139020</guid>
		</item>
	</channel>
</rss>
