<?xml version="1.0" encoding="utf-8"?>
<feed xmlns="http://www.w3.org/2005/Atom">
	<title type="html"><![CDATA[Серый форум &mdash; VBA: Вставка функции персчета массива в счетчик]]></title>
	<link rel="self" href="http://forum.script-coding.com/extern.php?action=feed&amp;tid=14207&amp;type=atom" />
	<updated>2018-10-02T16:45:57Z</updated>
	<generator>PunBB</generator>
	<id>http://forum.script-coding.com/viewtopic.php?id=14207</id>
		<entry>
			<title type="html"><![CDATA[Re: VBA: Вставка функции персчета массива в счетчик]]></title>
			<link rel="alternate" href="http://forum.script-coding.com/viewtopic.php?pid=129019#p129019" />
			<content type="html"><![CDATA[<p>1. Не могу открыть приложенный файл *.xlsb в своей старой версии Office 2003.<br />2. Не могу понять, чего Вы хотите.</p>]]></content>
			<author>
				<name><![CDATA[alexii]]></name>
				<uri>http://forum.script-coding.com/profile.php?id=1844</uri>
			</author>
			<updated>2018-10-02T16:45:57Z</updated>
			<id>http://forum.script-coding.com/viewtopic.php?pid=129019#p129019</id>
		</entry>
		<entry>
			<title type="html"><![CDATA[VBA: Вставка функции персчета массива в счетчик]]></title>
			<link rel="alternate" href="http://forum.script-coding.com/viewtopic.php?pid=128999#p128999" />
			<content type="html"><![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>]]></content>
			<author>
				<name><![CDATA[alkhimovmet]]></name>
				<uri>http://forum.script-coding.com/profile.php?id=39550</uri>
			</author>
			<updated>2018-10-02T10:27:37Z</updated>
			<id>http://forum.script-coding.com/viewtopic.php?pid=128999#p128999</id>
		</entry>
</feed>
