<?xml version="1.0" encoding="utf-8"?>
<feed xmlns="http://www.w3.org/2005/Atom">
	<title type="html"><![CDATA[Серый форум &mdash; VBA: Три условия подряд или как оформить два оператора AND]]></title>
	<link rel="self" href="http://forum.script-coding.com/extern.php?action=feed&amp;tid=6058&amp;type=atom" />
	<updated>2011-07-27T13:30:26Z</updated>
	<generator>PunBB</generator>
	<id>http://forum.script-coding.com/viewtopic.php?id=6058</id>
		<entry>
			<title type="html"><![CDATA[Re: VBA: Три условия подряд или как оформить два оператора AND]]></title>
			<link rel="alternate" href="http://forum.script-coding.com/viewtopic.php?pid=50223#p50223" />
			<content type="html"><![CDATA[<p>Ребята, простите, я дурак!<br />Поставил j=3 и все заработало!</p>]]></content>
			<author>
				<name><![CDATA[niydiyin]]></name>
				<uri>http://forum.script-coding.com/profile.php?id=26907</uri>
			</author>
			<updated>2011-07-27T13:30:26Z</updated>
			<id>http://forum.script-coding.com/viewtopic.php?pid=50223#p50223</id>
		</entry>
		<entry>
			<title type="html"><![CDATA[VBA: Три условия подряд или как оформить два оператора AND]]></title>
			<link rel="alternate" href="http://forum.script-coding.com/viewtopic.php?pid=50222#p50222" />
			<content type="html"><![CDATA[<p>Здравствуйте!<br />Вот такой скрипт:<br /></p><div class="codebox"><pre><code>Sub corpsecleaning()
    Dim i, j, k, t, n, m As Integer
    лист2.Activate
    m = 242
    n = 666
    For i = 2 To n
    For j = 2 To m
    If Лист2.Cells(i, j).Value = Лист2.Cells(i, j - 1).Value And Лист2.Cells(i, j) &lt;&gt; &quot;#NA&quot; And Лист2.Cells(i, j).Value = лист2.Cells(i, j - 2) Then
    k = j
    For t = k To m
    ActiveSheet.Cells(i, t) = &quot;#NAA&quot;
    Next
    End If
    Next j
    Next i
End Sub</code></pre></div><p>Загвоздка в третьем условии в строчке, которая начинается с IF. Мне просто надо указать условие, что значения трех ячеек равны между собой.<br />И, пользуясь случаем, хотел бы спросить - выражения &quot;ячейки равны&quot; и &quot;значения ячеек равны&quot; это одно и то же?<br />Спасибо!</p>]]></content>
			<author>
				<name><![CDATA[niydiyin]]></name>
				<uri>http://forum.script-coding.com/profile.php?id=26907</uri>
			</author>
			<updated>2011-07-27T13:00:47Z</updated>
			<id>http://forum.script-coding.com/viewtopic.php?pid=50222#p50222</id>
		</entry>
</feed>
