Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > VB6 > Значение ячейки в MS Exel

Автор: Guest_Коп 26.1.2003, 22:29

Как в VBA (MS Exel) присвоить ячейки значение переменной?
Мне нужно свойству Formula ячейки присвоить значение некоторой переменной. Но когда я пытаюсь сделать это следующим путем:

Код


 Range("A2").Formula = form$

вылазит ошибка.

Автор: cardinal 27.1.2003, 07:00

Цитата

Range("A2").Formula = form$

Лично я по одной строке ничего сказать не могу. Например полезно было бы знать, что ты переменной своей приписываешь. Если "это самое" не соответствует тому, что от тебя ожидает свойства Formula, то это один из возможных причин той самой ошибки и скорее всего так оно и есть.

Цитата

вылазит ошибка.

Ошибки бывают разные, обычно у них есть "имя" и номер, по которому можно что-то про них сказать, а так кто тебе что может ответить.

Автор: Guest_Коп 27.1.2003, 22:40

Сначала, я запсываю в эту переменную саму формулу из ячейки, затем меняю определенное слово на новое (например, "Структура" на "Материал"), затем хочу присвоить формуле значение этой переменной (она типа String, при Debug посмотрел).
Текст ошибки:

Код

Run-time error '1004':
  Application-defined or object-defined error

Автор: cardinal 28.1.2003, 01:05

Код

Sub x()
Dim form$
form$ = ' напиши сюда то, что ты переменной приписываешь
' тут ты меняешь слово например, "Структура" на "Материал"
' вопрос как ты это делаешь
Range("A2").Formula = form$
End Sub

Дополни в исходнике то, чего не хватает. Предполагаю, что дело в syntax, но так как ты его стесняешься писать

, то сказать тут больше ничего нельзя...

Автор: Step 28.1.2003, 01:28

Товарищи, есть довольно неплохие элементы для работы с Екселем, могу выслать, пишите кому надо. Они самопальные, по этому кое чего не делают, но с я чейками работают на ура и без всяких А2 а просто 1 2

Автор: Guest_Коп 31.1.2003, 00:21

Вот исходный код:

Код

nam = ListBox1.Column(0, 0) & TextBox1.Text
lc = ListBox1.ListCount
ReDim lnew(lc) As String
For i = 0 To ListBox1.ListCount - 1
'Заносим в массивы названия листов
lnew(i) = ListBox1.Column(0, i) & TextBox2.Text
Next i

For i = 0 To ListBox1.ListCount - 1
'Копирование листа и его переименование
namei = ListBox1.Column(0, i) & TextBox1.Text
namep = ListBox1.Column(0, i) & TextBox2.Text
Worksheets(namei).Copy before:=Worksheets(Sheets(nam).Index)
Worksheets(namei & " (2)").Name = namep
'Просмотр формул в ячейках на наличие ссылок на копируемые листы и
'замена их на новые
    For n = 1 To 50
        For j = Asc("A") To Asc("Q")
        form$ = Worksheets(namep).Range(Chr(j) & n).Formula 'Заносим в form формулу из ячейки
        k = 0 'Зануляем счетчик
            While (k <= Len(form$))
                md = 0
                k = k + 1
                If (Mid$(form$, k, 1) = "!") Then
                m = k - 1
                If (Mid$(form$, m, 1) = "'") Then
                num = 1
                m = m - 1
                Else
                num = 2
                End If
                news$ = "" 'В переменную заносим имя листа
                While ((stopr(num, m, form$)) And (m >= 1))
                    news$ = Mid$(form$, m, 1) + news$
                    m = m - 1
                Wend
                ind = Look(news$) 'Функция сверяет ссылку со скопир-ми листами, если она совпадает,
'то возвр-ся ее номер, иначе возвр-ся -1
                If (ind <> -1) Then
                md = Len(lnew(ind)) - Len(news$)
                news$ = Mid$(form$, 1, m) & lnew(ind) & Mid$(form$, k, Len(form$) - k + 1)
                form$ = news$
                End If
                k = k + md
                End If
            Wend
        If (Worksheets(namep).Range(Chr(j) & n).Formula <> form$) Then
            Worksheets(namep).Range(Chr(j) & n).Activate
            ActiveCell.Formula = form$
        End If
        Next j
    Next n
Next i

Не присваивает!

Автор: cardinal 31.1.2003, 01:46

В конце поменяй свой код вот на такой:

Код


' ...
If (Worksheets("Лист2").Range(Chr(j) & n).Formula <> form$) Then
     Worksheets("Лист2").Range(Chr(j) & n).Formula = form$
End If
'...

Теперь диагноз такой:
1. если срабатывает (как у меня), то все решено

(я надеюсь

)
2. если не срабатывает, то у тебя формула в процессе корявится

2.1. ты мне присылаешь формулу (в смысле обе) и процесс идет дальше

p.s. но возможно конечно еще и то, что ты в цикле слишком долго сидишь
или что нибудь такое (присваиваешь тому, чего у тебя нет

), с понятными последствиями.

Успехов!

Автор: Коп 2.2.2003, 21:44

Я так уже делал, но не срабатывает. И с циклом все в порядке - при Debug'е строка form типа String и с нужным значением. Я не понял, что тебе прислать надо?

Автор: cardinal 3.2.2003, 04:19

Ну формулы ты же меняешь у себя в цикле или я это не правильно понял. Ты берешь формулу одной ячейки и присваиваешь эту формулу другой при этом меняя ее если надо. Так вот эту формулу, на которой прога вылетает напиши.

Цитата

с нужным значением

так вот я и хотел еще раз посмотреть с нужным или нет.

Автор: Коп 3.2.2003, 21:48

Нет. Я беру формулу из определенной ячейки, изменяю ее и записываю в ту же ячейку. Т. е. мне нужно только изменить формулу в конкретной ячейки.

Автор: Guest 27.10.2004, 13:29

Подскажите пжалста значения ошибок в Exel :qstn

Автор: ~FoX~ 27.10.2004, 14:46

Цитата(Guest @ 27.10.2004, 13:29)

Подскажите пжалста значения ошибок в Exel

Конкртней - тебе нужниы ошибки екселя или ВБА?
Напиши код ошибки.
Посмотри хелп в конце концов!