PavelO
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Всем привет!
Помогите пожалуйста решить проблемку:
Хочу создать фаил mat.dbf с мемо полями, которые будут помещены в mat.fpt
Пол дня убил на эту заморочку. Нашел только как создать dbf и dbt, а мне необходимо dbf и fpt. Может кто знает?. Напишите пож-та пример.
Добавлено:
Цитата: еще вопросик...примерно так же нужно объединить 3 ячейки
координаты у них Ci, Di, Ei; C[i+1], D[i+1], R[i+1]. я так понимаю что через Cells не сделать..а через Range не знаю как |
Luciefer Если диапазон нужно загнать в формулу, то попробуй так:
Mysumma = ""
For each c in activesheet.range(cells(1,1),cells(9,9))
if Mysumma = "" then Mysumma = "=" & c
else Mysumma = Mysumma & "+" & c
Next
cells(10,10) = Mysumma
Добавлено:
Извиняюсь за некоторую неточность. Правильно будет так:
For Each c In ActiveSheet.Range(Cells(1, 1), Cells(9, 9))
If Mysumma = "" Then
Mysumma = "=" & c
ElseIf c <> "" Then
Mysumma = Mysumma & "+" & c
End If
Next
Cells(10, 10) = Replace(Mysumma, ",", ".")
Добавлено:
А если динамическое, то так
For Each c In ActiveSheet.Range(Cells(1, 1), Cells(9, 9))
If Mysumma = "" Then
Mysumma = "=" & c.Address
ElseIf c <> "" Then
Mysumma = Mysumma & "+" & c.Address
End If
Next
Cells(10, 10) = Replace(Mysumma, ",", ".")
|
