помогите переделать макрос для екселя

[abracadabra]

Данный макрос выполняет следующее:
На листе Ексель есть несколько строк со значениями.
Если в 13 столбце какой-нибудь строки присутствует "++", то всю строку нужно выделить красным цветом
Если в 13 столбце какой-нибудь строки присутствует "--", то всю строку нужно выделить синим цветом.
Как переделать макрос, чтобы там не было конструкций GoTo?
Или написать заново?

Sub красный_синий()

a = "++"
c = 3
GoTo 6

5
a = "--"
c = 5

6
Cells(65536, 256) = a
Cells(1, 1).Activate


10
If ActiveCell.Row = 65536 Then GoTo 20
Cells.Find(What:=a, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate
Rows(ActiveCell.Row).Interior.ColorIndex = c
GoTo 10

20
If c = 3 Then GoTo 5
Cells(65536, 256) = ""
Cells(1, 1).Activate
End Sub

[alibek]

Или написать заново?

Да.

Любые GoTo можно реализовать с помощью Select Case и циклов (Do...Loop, For...Next).
А данный код, похоже, составлял какой-то приколист.

[Maks the best]

приколист я, школу просто вспоминал и только VBA осваивал

[abracadabra]

Alibek
Спасибо. Переделал, слава Богу, с помощью фор-некст.
Есть ещё одна задачка. Нужно прочитать *.ini файл из VBA в Екселе.
Я уже задавал этот вопрос здесь на форуме и получил список 5 апи-функций, а как их использовать в процедуре ВБА так и не докопался. Не могли бы Вы хотя бы приблизительно написать, как это должно выглядеть в виде процедуры ВБА, т.е. использование функции Вин-апи.

[Maks the best]

а если просто этот файл ini открыть в Excel а потом уже сравнивать его пересравнивать?

[abracadabra]

я за, а как так можно. у тебя есть код?

[Maks the best]

просто надо понять, у тебя есть файл ini а с чем тебе его сравнивать надо, с другим ини или с чем?

[abracadabra]

Значит, задача такая.
Есть ини такой, к примеру:
[BLUTBILD]
GOT=1
GGT=2
[URIN]
HJJ=3
LKJH=4

В скобках - название группы параметров
дальше - параметры, цифры - это номер строки в екселе,
чтоб их выводить последовательно.
1.Нужно посмотреть в ини файл, прочесть первый параметр, номер строки,
2.потом заглянуть в некую программу (с базой данных), посмотреть, есть ли
там параметр и вывести его вопределённую строку Екселя.
Но второй пункт мне пока не нужен.
Для простоты, представим, что эти параметры находятся не в другой программе, а на другом листе ексель.
Главное - это как прочесть номер параметра и номер строки в ини-файле, и хотя бы вывести его в Debug.Print.

[abracadabra]

У меня есть апишные функции.

1.Public Declare Function WriteProfileSection Lib "kernel32" Alias "WriteProfileSectionA" (ByVal lpAppName As String, ByVal lpString As String) As Long
2.Public Declare Function WriteProfileString Lib "kernel32" Alias "WriteProfileStringA" (ByVal lpszSection As String, ByVal lpszKeyName As String, ByVal lpszString As String) As Long
3.Public Declare Function GetProfileInt Lib "kernel32" Alias "GetProfileIntA" (ByVal lpAppName As String, ByVal lpKeyName As String, ByVal nDefault As Long) As Long
4.Public Declare Function GetProfileSection Lib "kernel32" Alias "GetProfileSectionA" (ByVal lpAppName As String, ByVal lpReturnedString As String, ByVal nSize As Long) As Long
5.Public Declare Function GetProfileString Lib "kernel32" Alias "GetProfileStringA" (ByVal lpAppName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long) As Long

Как теперь открыть из Екселя ини-файл и прочитать первую строчку
GOT=1

[Maks the best]

ну ты его открой просто сначала, типо:

Workbooks.OpenText Filename:= _
"C:\Documents and Settings\1\XXX.INI", Origin:=1251, StartRow _
:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False _
, Space:=False, Other:=False, FieldInfo:=Array(1, 1), _
TrailingMinusNumbers:=True

потом, если он у тебя во второй строчке, то

y = Cells(2, 1)
x = Right$(y, Len(y) - InStrRev(y, "="))

а если не во второй, то сначала найди его и кинь в игрик, икс и будет твое значение GOT

[abracadabra]

На TrailingMinusNumbers:= написало "Именованный аргумент не найден"

[abracadabra]

Правда, удалось открыть без аргументов и прочитать, но на InStrRev ругается "Процедура саб или фанкшн не определена".
Строчка x = Right$(y, Len(y) - InStrRev(y, "=")) не работает.
Хотя спасибо конечно что уже открывается, и то хорошо.

[abracadabra]

А как ещё сделать, чтоб на листе Ексель содержимое ини-файла не визуально не отображалось?

[Maks the best]

запиши макрос открытия это инишки и возьми его, это я так написал в привесок, вообще мы считали что он уже открыт

[Maks the best]

почему не работает то, должна работать, просто на x и игрик может ругается?

[abracadabra]

запиши макрос открытия это инишки и возьми его, это я так написал в привесок, вообще мы считали что он уже открыт

это как?

[abracadabra]

почему не работает то, должна работать, просто на x и игрик может ругается?

на игрик не ругается.
ругается на х, почему-то на InStrRev

[Maks the best]

это как?

это как макросы записываются, ты же знаешь, включаешь запись и делаешь что надо, в данном случае открываешь свой файл, потом стом, мотор, снято!

а по поводу

на игрик не ругается.
ругается на х, почему-то на InStrRev

не знаю, должно работать если он у тебя ее как функцию не понимает, тогда не знаю проверь
попробуй вместо игриков ячейку сразу прописать типо:

Код: Выделить всё

Right$(Cells(2, 1), Len(Cells(2, 1)) - InStrRev(Cells(2, 1), "="))

[abracadabra]

не, я имею в виду, чтоб єтот ини на листе ексель не отображался, т.к. у меня на листе ексель другая фигня должна присутствовать.

[Maks the best]

ну ты открой файл и скрой сразу этот лист или даже открой, забей массив данными оттуда и закрой сразу

[abracadabra]

А можешь код подкинуть?

[Maks the best]

вообще если у тебя один всего там параметр GOT и при открытии файла ini все параметры ложатся в первый столбец с первой по 10-ю строчку допустим то:

объявляешь перед кодом переменные:
Public r, got As Integer

далее твоя sub xxx ()

открываешь файл ini (как хочешь)
потом:

For r=1 to 10
If Left$(Cells(r,1), 4)="GOT=" then
got=Right$(Cells(r,1), Len(Cells(r,1)) - 4)
End if
next r

закрываешь файл ini (как хочешь)

переменная got и будет значением твоего параметра

[abracadabra]

Макс, можешь конкретно написать код закрытия файла и всё.

[Maks the best]

если он открыт и его окно активно:
ActiveWorkbook.Close

если активно другое то:
Workbooks("XXX.INI").Close

p.s. я тебе все писал про открытие и закрытие файла INI как книги из Excel, а не способ достачи информации из INI через апишные функции... поэтому ты наверное не так понял...

[abracadabra]

то что это не апишные функции - это понятно, что делать - извращаюсь, как могу. Судьба чайника

[abracadabra]

Последний вопрос:
Как из GGT=1 запузырить в одну переменную GGT, в другую 1?

[abracadabra]

GGT=1 в данном случае находится в ячейке А2

[Maks the best]

Left$(Cells(2,1), 3) - это твой GOT
Right$(Cells(2,1), Len(Cells(2,1)) - 4) - это твоя единица