<?xml version="1.0" encoding="utf-8"?>
<rss version="2.0" xmlns:atom="http://www.w3.org/2005/Atom">
	<channel>
		<title><![CDATA[Серый форум &mdash; VBA: Вставка функции персчета массива в счетчик]]></title>
		<link>http://forum.script-coding.com/viewtopic.php?id=14207</link>
		<atom:link href="http://forum.script-coding.com/extern.php?action=feed&amp;tid=14207&amp;type=rss" rel="self" type="application/rss+xml" />
		<description><![CDATA[Недавние сообщения в теме «VBA: Вставка функции персчета массива в счетчик».]]></description>
		<lastBuildDate>Tue, 02 Oct 2018 16:45:57 +0000</lastBuildDate>
		<generator>PunBB</generator>
		<item>
			<title><![CDATA[Re: VBA: Вставка функции персчета массива в счетчик]]></title>
			<link>http://forum.script-coding.com/viewtopic.php?pid=129019#p129019</link>
			<description><![CDATA[<p>1. Не могу открыть приложенный файл *.xlsb в своей старой версии Office 2003.<br />2. Не могу понять, чего Вы хотите.</p>]]></description>
			<author><![CDATA[null@example.com (alexii)]]></author>
			<pubDate>Tue, 02 Oct 2018 16:45:57 +0000</pubDate>
			<guid>http://forum.script-coding.com/viewtopic.php?pid=129019#p129019</guid>
		</item>
		<item>
			<title><![CDATA[VBA: Вставка функции персчета массива в счетчик]]></title>
			<link>http://forum.script-coding.com/viewtopic.php?pid=128999#p128999</link>
			<description><![CDATA[<p>Уважаемые форумчане!<br />У меня имеется массив, который изменяется при помощи формул, записанных в ячейках, счетчиком. В приведенном примере в ячейке А1 работает счетчик, а в ячейках С6:С16 производится вычисление, то есть умножение ячеек F6:F16 с округлением до 0 на показания счетчика. Как можно записать эту формулу</p><br /><p> =ОКРУГЛ($A$1*F6;0)</p><p>в макрос счетчика:</p><br /><div class="codebox"><pre><code>Public Sub Counter()

Dim CounterCell As Range, i As Long
     Set CounterCell = ActiveSheet.Range(&quot;A1&quot;)
                     CounterCell.Value = 0
Application.ScreenUpdating = False

Do While CounterCell.Value &lt; 1000000#
    CounterCell.Value = CounterCell.Value + 0.01
        
Loop

Application.ScreenUpdating = True

End Sub</code></pre></div><p>чтобы персчет призводился при каждом изменении счетчика?</p>]]></description>
			<author><![CDATA[null@example.com (alkhimovmet)]]></author>
			<pubDate>Tue, 02 Oct 2018 10:27:37 +0000</pubDate>
			<guid>http://forum.script-coding.com/viewtopic.php?pid=128999#p128999</guid>
		</item>
	</channel>
</rss>
