﻿<?xml version='1.0' encoding='UTF-8'?><rss version="2.0" xmlns:dc="http://purl.org/dc/elements/1.1/"><channel><title>Релиб / Программирование / VBA  / Почему ошибка в коде с условием? / Latest Posts</title><generator>InstantForum.NET v4.1.4</generator><description>Релиб</description><link>http://relib.com/forums/</link><webMaster>robot@relib.com</webMaster><lastBuildDate>Wed, 19 Nov 2008 19:50:25 GMT</lastBuildDate><ttl>20</ttl><item><title>RE: Почему ошибка в коде с условием?</title><link>http://relib.com/forums/Topic914579-11-1.aspx</link><description>Спасибо огромное.</description><pubDate>Sun, 08 Jul 2007 17:22:46 GMT</pubDate><dc:creator>akokin</dc:creator></item><item><title>RE: Почему ошибка в коде с условием?</title><link>http://relib.com/forums/Topic914579-11-1.aspx</link><description>Попробуйте так &lt;P&gt;[code]Sub Макрос1()&lt;BR&gt;    With Application.CommandBars("Status Bar")&lt;BR&gt;        If .Visible = False Then&lt;BR&gt;            .Visible = True&lt;BR&gt;        Else&lt;BR&gt;            .Visible = False&lt;BR&gt;        End If&lt;BR&gt;    End With&lt;BR&gt;End Sub[/code]&lt;/P&gt;&lt;P&gt;Вы просто в одной строке написали If .Visible = False &lt;STRONG&gt;Then&lt;/STRONG&gt; .Visible = True  - а это означает для компилятора, что Else у вас в этом if уже не будет. Т.е. после слова Then надо переводить каретку вниз.&lt;BR&gt;</description><pubDate>Sun, 08 Jul 2007 17:13:05 GMT</pubDate><dc:creator>Pavel55</dc:creator></item><item><title>Почему ошибка в коде с условием?</title><link>http://relib.com/forums/Topic914579-11-1.aspx</link><description>В Word 2007 пытаюсь писать макрос, скрывающий строку состояния. Код наипростейший, но при выполнении дает ошибку: "Compile error: Else without If".&lt;P&gt;Вот код:&lt;BR&gt;[code]&lt;BR&gt;With Application.CommandBars("Status Bar")&lt;BR&gt;          If .Visible = False Then .Visible = True&lt;BR&gt;          Else&lt;BR&gt;          .Visible = False&lt;BR&gt;          End If&lt;BR&gt;End With&lt;BR&gt;[/code]&lt;BR&gt;В чем может быть проблема?&lt;/P&gt;&lt;P&gt;Спасибо.</description><pubDate>Sun, 08 Jul 2007 13:56:00 GMT</pubDate><dc:creator>akokin</dc:creator></item></channel></rss>