|
Синтаксис Ексель>Access
|
|||
---|---|---|---|
#18+
Привет всем! Подскажите, кто знает. Если я в Excele пишу формулу 1) =СУММЕСЛИ(B211:B218;"=*Всего*";C211:C219) Если мне надо копировать ее, а ссылка B211:B218 не менялась автоматически на с211:с218, и т.д. я делаю так: 2) =СУММЕСЛИ($B211:$B218;"=*Всего*";C211:C219), В модуле Аccess первоначальная формула выглядит так: = "=SUMIF(R[1]C[-1]:R[8]C[-1],""=*Всего*"",R[1]C:R[9]C)" как мне ее привести во второй вид? ... |
|||
:
Нравится:
Не нравится:
|
|||
13.05.2004, 14:28 |
|
Синтаксис Ексель>Access
|
|||
---|---|---|---|
#18+
Насколько я помню, в экселе у объекта Range есть св-ва Formula, FormulaLocal, FormulaR1C1, FormulaR1C1Local Вот с этими св-вами и попробуй поиграть ... |
|||
:
Нравится:
Не нравится:
|
|||
13.05.2004, 14:48 |
|
Синтаксис Ексель>Access
|
|||
---|---|---|---|
#18+
Большое спасибо, а можно еще!! Почему такая конструкция работает нестабильно, через 2-3 вывода отчета выдает ошибку Dim WB As Excel.Workbook Dim ws As Dim WB As Excel.Workbook Dim ws As Excel.Worksheet ws.Cells(10, 3).Select Selection.AutoFill Destination:=ws.Range("C10:AH10"), Type:=xlFillDefault ws.Range("C10:AH10").Select ws это Worksheet ... |
|||
:
Нравится:
Не нравится:
|
|||
13.05.2004, 14:53 |
|
Синтаксис Ексель>Access
|
|||
---|---|---|---|
#18+
А что за ошибка? И в какой строке? ... |
|||
:
Нравится:
Не нравится:
|
|||
13.05.2004, 15:00 |
|
Синтаксис Ексель>Access
|
|||
---|---|---|---|
#18+
Сообщение: Run-time error '91': Object variable or With block variable not set ругается на строку Selection.AutoFill Destination:=ws.Range("C10:AH10"), Type:=xlFillDefault ... |
|||
:
Нравится:
Не нравится:
|
|||
13.05.2004, 15:12 |
|
Синтаксис Ексель>Access
|
|||
---|---|---|---|
#18+
У тебя или Selection отсутствует, что маловероятно (после явного вызова Select), или ws куда-то потерялся (а куда потерялся - непонятно, ибо не видно откуда он взялся) ... |
|||
:
Нравится:
Не нравится:
|
|||
13.05.2004, 15:21 |
|
Синтаксис Ексель>Access
|
|||
---|---|---|---|
#18+
ws взялся отсюда Set WB = xl.Workbooks.Add("D:\Шаблон.xlt") Set ws = WB.Worksheets(1) ... |
|||
:
Нравится:
Не нравится:
|
|||
13.05.2004, 15:26 |
|
Синтаксис Ексель>Access
|
|||
---|---|---|---|
#18+
У тебя испольуется 3 объекта: Selection (типа Range) ws (типа Worksheet) ws.Range("C10:AH10") (типа Range) Вот когда в ошибку сваливаешься - смотри отладчике, кто же из них nothing ... |
|||
:
Нравится:
Не нравится:
|
|||
13.05.2004, 15:30 |
|
Синтаксис Ексель>Access
|
|||
---|---|---|---|
#18+
Отвечаю на 1 вопрос, вдруг кому-то надо Второй вариант записи делается так: = "=SUMIF(R[1]C2:R[8]C2,""=*Всего*"",R[1]C:R[9]C)" ... |
|||
:
Нравится:
Не нравится:
|
|||
13.05.2004, 15:33 |
|
Синтаксис Ексель>Access
|
|||
---|---|---|---|
#18+
авторВот когда в ошибку сваливаешься - смотри отладчике, кто же из них nothing Смешной вопрос, а как это делается. при наведении курсора ничего не показывает, а по другому я не умею... ... |
|||
:
Нравится:
Не нравится:
|
|||
13.05.2004, 15:39 |
|
Синтаксис Ексель>Access
|
|||
---|---|---|---|
#18+
Выделяешь мышкой - жмешь Shift-F9 - жмешь "добавить" - и просматриваешь объект (если он есть) либо любуешься на слово "Nothing" (если его нет) ... |
|||
:
Нравится:
Не нравится:
|
|||
13.05.2004, 16:08 |
|
Синтаксис Ексель>Access
|
|||
---|---|---|---|
#18+
Selektion - nothing Ровно через раз ... |
|||
:
Нравится:
Не нравится:
|
|||
14.05.2004, 06:53 |
|
Синтаксис Ексель>Access
|
|||
---|---|---|---|
#18+
Попробуй явно ExcelObject.Selection, где ExcelObject ссылка на Excel.Application. ... |
|||
:
Нравится:
Не нравится:
|
|||
14.05.2004, 09:18 |
|
|
start [/forum/topic.php?fid=61&fpage=378&tid=2186793]: |
0ms |
get settings: |
11ms |
get forum list: |
16ms |
check forum access: |
4ms |
check topic access: |
4ms |
track hit: |
38ms |
get topic data: |
12ms |
get forum data: |
3ms |
get page messages: |
51ms |
get tp. blocked users: |
2ms |
others: | 13ms |
total: | 154ms |
0 / 0 |