расписать формулу

@fansuper · Регистрация: 08.10.2016

Студворк — интернет-сервис помощи студентам

ПОдскажите пожалуйста а можно ли расписать формулу COUNTIF(A1

2,6), так же как я вот расписал другую формулу:

ActiveWorkbook.Worksheets(L).Range("AW" & i).Formula = "=IF(AS" & i & ">0,$L$14*AS" & i & ","""")"

( i-порядковый номер строки)

Добавлено через 2 минуты

Visual Basic
1
COUNTIF(A1:D2,6)

@Казанский · 22.11.2016, 21:52

fansuper, можно. А как именно - зависит от того, что Вы хотите менять в формуле с помощью переменной.
Кстати, "другую формулу" можно записать так

Visual Basic
1
Range("AW" & i).FormulaR1C1 = "=IF(RC[-4]>0,R14C12*RC[-4],"""")"

и ничего подставлять в формулу не надо.

@fansuper · 22.11.2016, 22:06 **[ТС]**

А менять я хочу вот что:

"ActiveWorkbook.Worksheets(L).Range( "F" & i).Formula" а дальше чтобы дипазон А1

2 шагал вниз на A3

4 дальше А5

6 и т.д.

Добавлено через 1 минуту

Visual Basic
1
A1:D2, A3:D4, A5:D6 и т.д.

@Казанский · 22.11.2016, 22:59

fansuper, понятно, диапазон меняется на 2 строки. А i при этом меняется на 1 или на 2? Лучше приложите лист с несколькими формулами, написанными вручную.

@fansuper · 22.11.2016, 23:39 **[ТС]**

i меняется на одну строку

@fansuper · 22.11.2016, 23:55 **[ТС]**

Вот так

@Казанский · 23.11.2016, 09:08

fansuper,

Visual Basic
1
2
3
4
5
6
7
8
Sub bb()
  With Range("F1:F2")
    .Merge
    .HorizontalAlignment = xlCenter
    .Formula = "=COUNTIF(A1:D2,6)"
    .AutoFill .Resize(ActiveSheet.UsedRange.Rows.Count)
  End With
End Sub

@fansuper · 23.11.2016, 11:28 **[ТС]**

а как нибудь вот так можно?

Visual Basic
1
   ActiveWorkbook.Worksheets(L).Range("F" & i).Formula = "=COUNTIF(A1:D2,6)"

Новые блоги и статьи Все статьи Все блоги /
Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .	Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизита табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита "ПричинаСписания". . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/
Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .	Программное заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .

@Казанский 15155 / 6428 / 1731 Регистрация: 24.09.2011 Сообщений: 9,999
	22.11.2016, 22:59
	fansuper, понятно, диапазон меняется на 2 строки. А i при этом меняется на 1 или на 2? Лучше приложите лист с несколькими формулами, написанными вручную. 0

@fansuper 0 / 0 / 0 Регистрация: 08.10.2016 Сообщений: 30
	22.11.2016, 23:39 [ТС]
	i меняется на одну строку 0