Vba excel как заполнить выделенные ячейки

 

Доброго всем вечера!  
Подскажите пожалуйста.  

  Нужен макрос, чтобы: выделяю ячейки, запускаю его и он перед данными в каждой выделенной ячейке подставляет значение из ячейки (например D9) с добавлением знака плюс и присваивает Общий формат ячейкам.  
Макрорекордером не получается.  

  Пример прилагаю.
 

ikki

Пользователь

Сообщений: 9709
Регистрация: 22.12.2012

.

фрилансер Excel, VBA — контакты в профиле
«Совершенствоваться не обязательно. Выживание — дело добровольное.» Э.Деминг

 

Спасибо большое!  
Выручили. То, что нужно.  
Ну не умею я макросы писать.  
Тема исчерпана.
 

Без цикла  

  selection=evaluate(«D9&»»+»»&» & selection.address)
 

{quote}{login=Казанский}{date=04.05.2011 08:48}{thema=}{post}Без цикла  

  selection=evaluate(«D9&»»+»»&» & selection.address){/post}{/quote}  
Скажите пожалуйста, куда вставить эту строчку?  
selection=evaluate(«D9&»»+»»&» & selection.address)  

  Sub Макрос()  
 For Each c In Selection.Cells  
   c.Value = ActiveSheet.[D9].Text & «+» & c.Text
 Next c  
 Selection.NumberFormat = «General»  
End Sub
 

KuklP

Пользователь

Сообщений: 14868
Регистрация: 21.12.2012

E-mail и реквизиты в профиле.

Влад, ты что ли? Тогда почему аноним?  
Sub Макрос()  
selection=evaluate(«D9&»»+»»&» & selection.address)  
Selection.NumberFormat = «General»  
End Sub

Я сам — дурнее всякого примера! …

 

Да, я, просто не залогинился.  
Спасибо, Сергей! У тебя работает быстрее, чем был с циклом.  

  Только прежний макрос мог подставлять в несмежные диапазоны, а как твой макрос изменить, чтобы тоже  в несмежные выделенные диапазоны подставлял?
 

KuklP

Пользователь

Сообщений: 14868
Регистрация: 21.12.2012

E-mail и реквизиты в профиле.

{quote}{login=Vlad}{date=05.05.2011 12:10}{thema=}{post}  
Спасибо, Сергей! У тебя работает быстрее, чем был с циклом.  
{/post}{/quote}  
Это не у меня, это у Алексея:-)  
Sub Макрос()  
Dim a As Range  
For Each a In Selection.Areas  
a = Evaluate(«D9&»»+»»&» & a.Address)  
Selection.NumberFormat = «General»  
Next  
End Sub

Я сам — дурнее всякого примера! …

 

KuklP

Пользователь

Сообщений: 14868
Регистрация: 21.12.2012

E-mail и реквизиты в профиле.

Прозевал:  
Sub Макрос()  
Dim a As Range  
For Each a In Selection.Areas  
a = Evaluate(«D9&»»+»»&» & a.Address)  
Next  
Selection.NumberFormat = «General»  
End Sub

Я сам — дурнее всякого примера! …

 

Огромное спасибо, Сергей!  

  Всё идеально подходит.  
Выручил меня в очередной раз.  
И что бы я делал без форума?  
(это не вопрос, это мысли вслух, точнее — не вслух, но как-то так…)
 

Здравствуйте.  
Хотел применить данный код для изменения ячеек с датами.  

  Sub Макрос()  
Dim a As Range  
For Each a In Selection.Areas  
a = Evaluate(«D9&»»+»»&» & a.Address)  
Next  
Selection.NumberFormat = «General»  
End Sub  

  Все хорошо, только дата в окончательном варианте представляется в числовом формате. Хотелось бы сохранить формат даты.  
Это возможно?  
Спасибо.
 

ikki

Пользователь

Сообщений: 9709
Регистрация: 22.12.2012

возможно.  

  вместо строчки  
Selection.NumberFormat = «General»  

  пишем  
Selection.NumberFormat = «dd/mm/yyyy»  

  ну или тот, который вам нужен.  

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

фрилансер Excel, VBA — контакты в профиле
«Совершенствоваться не обязательно. Выживание — дело добровольное.» Э.Деминг

 

Здравствуйте, ikki.  
Попробовал следовать Вашим советам, но ни один не помог.  
Вот пример.  
<EM><STRONG>Файл удален</STRONG> — велик размер — [<STRONG>МОДЕРАТОРЫ</STRONG>]</EM>
 
 

Знаете, ikki, а вот Ваш вариант сохраняет корректно.  

  Sub Кнопка1_Щелкнуть()  
 For Each c In Selection.Cells  
   c.Value = ActiveSheet.[d9].Text & «+» & c.Text
 Next c  
 Selection.NumberFormat = «General»  
End Sub  

  … только хотелось бы убрать ссылку на d9, и оставить только «+»  
Спасибо.
 

ikki

Пользователь

Сообщений: 9709
Регистрация: 22.12.2012

у меня в вашем файле сработал такой вариант:  

  Sub Макрос11слепить()  
Dim a As Range  
For Each a In Selection.Areas  
a = Evaluate(«»»п»»&text(» & a.Address & «,»»dd.MM.yyyy»»)»)  
Next  
Selection.NumberFormat = «General»  
End Sub  

  но, насколько я понимаю, он зависит от системных настроек — в частности, символов-разделителей для даты.    
если у вас иные настройки, поменяйте точку в строке dd.MM.yyyy на свой разделитель.

фрилансер Excel, VBA — контакты в профиле
«Совершенствоваться не обязательно. Выживание — дело добровольное.» Э.Деминг

 

KuklP

Пользователь

Сообщений: 14868
Регистрация: 21.12.2012

E-mail и реквизиты в профиле.

Sub Макрос11слепить()  
   Dim a As Range  
   For Each a In Selection.Cells  
       a = «n» & a.Text  
   Next  
End Sub

Я сам — дурнее всякого примера! …

 

ikki, KukLP, спасибо.  
Оба варианта работают.
 

Так, для справки:  
Вариант ikki весь выделенный диапазон заполняет значением из первой ячейки этого диапазона, т.е. изменяемый диапазон должен содержать одну и ту же дату.  
Вариант KukLP работает с разными датами(но медленнее).  
Спасибо.
 

ikki

Пользователь

Сообщений: 9709
Регистрация: 22.12.2012

гм… действительно.  
спасибо, Пирогов, за замечание.  
тогда, думаю, вариант KukLP остается единственно правильным.  

  хотя…если в выделенном диапазоне мало маленьких по размеру несмежных областей (или область вообще одна),.. то по скорости может оказаться более быстрым такой вариант  

  Sub Макрос11слепить()  
 Dim a As Range, arr(), i&, j%  
 For Each a In Selection.Areas  
 arr = a.Value  
 For i = 1 To UBound(arr)  
   For j = 1 To UBound(arr, 2)  
     arr(i, j) = «п» & Format(arr(i, j), «dd.MM.yyyy»)  
 Next j, i  
 a.Value = arr  
 Next  
 Selection.NumberFormat = «General»  
End Sub

фрилансер Excel, VBA — контакты в профиле
«Совершенствоваться не обязательно. Выживание — дело добровольное.» Э.Деминг

 

Пирогов

Пользователь

Сообщений: 17
Регистрация: 17.01.2013

#21

23.10.2012 17:20:50

Ну, теперь, идеально.  
Спасибо.
Источник

здравствуйте

excel 2010
есть несколько вопросов

вопрос 1:
есть таблица: строки — часы, столбцы — дни.
необходимо визуально выделять ячейки (часы) работы
т.к. я не умею анализировать цвет заливки (да и она может отличаться по оттенкам, если не использовать для заливки кнопку-команду заполнения определенным цветом)
то я использую пробел для заполнения (через условное форматирование (анализ непустой ячейки) она закрашивается определенным цветом)
и потом считаю кол-во непустых (следовательно, окрашенных) ячеек за день

как заполнить константой (или закрасить) заранее выделенные ячейки?
я нашел на форуме следующий макрос
[vba]

Код

Sub Заполнить
n = Selection.Address
On Error GoTo A
g = 1 / (Range(n).Cells.Count — 1)
Selection.SpecialCells(xlCellTypeBlanks).FormulaR1C1 = «.»
Range(n) = Range(n).Value
Exit Sub
A: Value.Cells = «4»
End Sub

[/vba]
но он не закрашивает/не заполняет выделенную область, если там всего одна ячейка
самостоятельно модифицировать код не получилось — какие ошибки возникают

опять же, он не очещает ячейки выделенного диапазона

вопрос 2:
где прочитать про логику организации работы ОПП в excele
где объек ячейка, обект диапазон, как найти выделенный диапазон и как с ним работать
на дельфи все понятно, а тут какая-то иная, трудно постижимая логика

Источник

Автозаполнение ячеек в заданном диапазоне с помощью метода Range.AutoFill. Синтаксис, параметры, примеры автозаполнения из кода VBA Excel.

Определение

Определение метода Range.AutoFill:

AutoFill — это метод объекта Range, который выполняет автозаполнение ячеек в указанном диапазоне.

Синтаксис

Синтаксис метода Range.AutoFill:

Expression.AutoFill (Destination, Type)

Expression — выражение (переменная), возвращающее объект Range.

Параметры

Параметры метода Range.AutoFill:

Параметр Описание
Destination Диапазон ячеек, который необходимо заполнить. В него должен быть включен исходный диапазон (Expression). Обязательный параметр.
Type Константа из коллекции XlAutoFillType, задающая тип автозаполнения. Необязательный параметр.

Константа из коллекции XlAutoFillType указывает, как должен быть заполнен целевой диапазон (Destination) в зависимости от содержимого диапазона исходных данных (Expression). По умолчанию используется константа xlFillDefault (0), когда приложение Excel само определяет значения и форматы, используемые для заполнения целевого диапазона.

Примеры с Range.AutoFill

Примеры автозаполнения целевых диапазонов из кода VBA Excel с помощью метода AutoFill объекта Range.

Пример 1

Автозаполнение указанного диапазона (Destination), состоящего из нескольких строк и столбцов, данными одной ячейки (Expression) в зависимости от ее расположения в целевом диапазоне:

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

Sub Primer1()

    ‘Удаляем границы ячеек, если уже были запуски кода

    Range(«A1:E20»).Borders.LineStyle = xlNone

    ‘Ячейка Expression в верхнем левом углу Destination

    Range(«A1») = 111

    Range(«A1»).AutoFill Range(«A1:E5»)

    Range(«A1:E5»).Borders(xlEdgeBottom).LineStyle = True

    ‘Ячейка Expression в нижнем левом углу Destination

    Range(«A10») = 222

    Range(«A10»).AutoFill Range(«A6:E10»)

    Range(«A6:E10»).Borders(xlEdgeBottom).LineStyle = True

    ‘Ячейка Expression в верхнем правом углу Destination

    Range(«E11») = 333

    Range(«E11»).AutoFill Range(«A11:E15»)

    Range(«A11:E15»).Borders(xlEdgeBottom).LineStyle = True

    ‘Ячейка Expression в нижнем правом углу Destination

    Range(«E20») = «444»

    Range(«E20»).AutoFill Range(«A16:E20»)

End Sub

Целевые диапазоны для наглядности разделены горизонтальными линиями. Ячейка (Expression) может находиться только по углам целевого диапазона (Destination), иначе будет сгенерирована ошибка.

Пример 2

Горизонтальное автозаполнение указанного диапазона (Destination) последовательностью чисел, месяцев и дней недели:

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

Sub Primer2()

    ‘Удаляем границы ячеек, если уже были запуски кода

    Range(«A1:L4»).Borders.LineStyle = xlNone

    ‘Автозаполнение строки единицами

    Range(«A1») = 1

    Range(«A1»).AutoFill Range(«A1:L1»)

    Range(«A1:L1»).Borders(xlEdgeBottom).LineStyle = True

    ‘Автозаполнение строки последовательностью натуральных чисел

    Range(«A2») = 1

    Range(«B2») = 2

    Range(«A2:B2»).AutoFill Range(«A2:L2»)

    Range(«A2:L2»).Borders(xlEdgeBottom).LineStyle = True

    ‘Одновременное заполнение одной строки последовательностью

    ‘месяцев и второй строки — днями недели

    Range(«A3») = «Январь»

    Range(«A4») = «Понедельник»

    Range(«A3:A4»).AutoFill Range(«A3:L4»)

End Sub

Пример 3

Вертикальное автозаполнение указанного диапазона (Destination) последовательностью дат:

Sub Primer3()

    ‘Автозаполнение столбца датами, начиная с текущей

    Range(«A1») = Date

    Range(«A1»).NumberFormat = «DD.MM.YYYY»

    Range(«A1»).AutoFill Range(«A1:A20»)

    ‘Автозаполнение столбца датами в обратном порядке

    Range(«B20») = Date

    Range(«B20»).NumberFormat = «DD.MM.YYYY»

    Range(«B20»).AutoFill Range(«B1:B20»)

End Sub
Источник

Всё о работе с ячейками в Excel-VBA: обращение, перебор, удаление, вставка, скрытие, смена имени.

Содержание:

Table of Contents:

  • Что такое ячейка Excel?
  • Способы обращения к ячейкам
    • Выбор и активация
    • Получение и изменение значений ячеек
      • Ячейки открытой книги
      • Ячейки закрытой книги 
    • Перебор ячеек
    • Перебор в произвольном диапазоне
  • Свойства и методы ячеек
    • Имя ячейки
    • Адрес ячейки
    • Размеры ячейки
  • Запуск макроса активацией ячейки

2 нюанса:

  1. Я почти везде стараюсь использовать ThisWorkbook (а не, например, ActiveWorkbook) для обращения к текущей книге, в которой написан этот код (считаю это наиболее безопасным для новичков способом обращения к книгам, чтобы случайно не внести изменения в другие книги). Для экспериментов можете вставлять этот код в модули, коды книги, либо листа, и он будет работать только в пределах этой книги. 
  2. Я использую английский эксель и у меня по стандарту листы называются Sheet1, Sheet2 и т.д. Если вы работаете в русском экселе, то замените Thisworkbook.Sheets(«Sheet1») на Thisworkbook.Sheets(«Лист1»). Если этого не сделать, то вы получите ошибку в связи с тем, что пытаетесь обратиться к несуществующему объекту. Можно также заменить на Thisworkbook.Sheets(1), но это менее безопасно.

Что такое ячейка Excel?

В большинстве мест пишут: «элемент, образованный пересечением столбца и строки». Это определение полезно для людей, которые не знакомы с понятием «таблица». Для того, чтобы понять чем на самом деле является ячейка Excel, необходимо заглянуть в объектную модель Excel. При этом определения объектов «ряд», «столбец» и «ячейка» будут отличаться в зависимости от того, как мы работаем с файлом.

Объекты в Excel-VBA. Пока мы работаем в Excel без углубления в VBA определение ячейки как «пересечения» строк и столбцов нам вполне хватает, но если мы решаем как-то автоматизировать процесс в VBA, то о нём лучше забыть и просто воспринимать лист как «мешок» ячеек, с каждой из которых VBA позволяет работать как минимум тремя способами:

  1. по цифровым координатам (ряд, столбец),
  2. по адресам формата А1, B2 и т.д. (сценарий целесообразности данного способа обращения в VBA мне сложно представить)
  3. по уникальному имени (во втором и третьем вариантах мы будем иметь дело не совсем с ячейкой, а с объектом VBA range, который может состоять из одной или нескольких ячеек). Функции и методы объектов Cells и Range отличаются. Новичкам я бы порекомендовал работать с ячейками VBA только с помощью Cells и по их цифровым координатам и использовать Range только по необходимости.

Все три способа обращения описаны далее

Как это хранится на диске и как с этим работать вне Excel? С точки зрения хранения и обработки вне Excel и VBA. Сделать это можно, например, сменив расширение файла с .xls(x) на .zip и открыв этот архив.

Пример содержимого файла Excel:

Далее xl -> worksheets и мы видим файл листа

Содержимое файла:

 То же, но более наглядно:

<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<worksheet xmlns="http://schemas.openxmlformats.org/spreadsheetml/2006/main" xmlns:r="http://schemas.openxmlformats.org/officeDocument/2006/relationships" xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006" mc:Ignorable="x14ac xr xr2 xr3" xmlns:x14ac="http://schemas.microsoft.com/office/spreadsheetml/2009/9/ac" xmlns:xr="http://schemas.microsoft.com/office/spreadsheetml/2014/revision" xmlns:xr2="http://schemas.microsoft.com/office/spreadsheetml/2015/revision2" xmlns:xr3="http://schemas.microsoft.com/office/spreadsheetml/2016/revision3" xr:uid="{00000000-0001-0000-0000-000000000000}">
	<dimension ref="B2:F6"/>
	<sheetViews>
		<sheetView tabSelected="1" workbookViewId="0">
			<selection activeCell="D12" sqref="D12"/>
		</sheetView>
	</sheetViews>
	<sheetFormatPr defaultRowHeight="14.4" x14ac:dyDescent="0.3"/>
	<sheetData>
		<row r="2" spans="2:6" x14ac:dyDescent="0.3">
			<c r="B2" t="s">
				<v>0</v>
			</c>
		</row>
		<row r="3" spans="2:6" x14ac:dyDescent="0.3">
			<c r="C3" t="s">
				<v>1</v>
			</c>
		</row>
		<row r="4" spans="2:6" x14ac:dyDescent="0.3">
			<c r="D4" t="s">
				<v>2</v>
			</c>
		</row>
		<row r="5" spans="2:6" x14ac:dyDescent="0.3">
			<c r="E5" t="s">
				<v>0</v></c>
		</row>
		<row r="6" spans="2:6" x14ac:dyDescent="0.3">
			<c r="F6" t="s"><v>3</v>
		</c></row>
	</sheetData>
	<pageMargins left="0.7" right="0.7" top="0.75" bottom="0.75" header="0.3" footer="0.3"/>
</worksheet>

Как мы видим, в структуре объектной модели нет никаких «пересечений». Строго говоря рабочая книга — это архив структурированных данных в формате XML. При этом в каждую «строку» входит «столбец», и в нём в свою очередь прописан номер значения данного столбца, по которому оно подтягивается из другого XML файла при открытии книги для экономии места за счёт отсутствия повторяющихся значений. Почему это важно. Если мы захотим написать какой-то обработчик таких файлов, который будет напрямую редактировать данные в этих XML, то ориентироваться надо на такую модель и структуру данных. И правильное определение будет примерно таким: ячейка — это объект внутри столбца, который в свою очередь находится внутри строки в файле xml, в котором хранятся данные о содержимом листа.

Способы обращения к ячейкам

Выбор и активация

Почти во всех случаях можно и стоит избегать использования методов Select и Activate. На это есть две причины:

  1. Это лишь имитация действий пользователя, которая замедляет выполнение программы. Работать с объектами книги можно напрямую без использования методов Select и Activate.
  2. Это усложняет код и может приводить к неожиданным последствиям. Каждый раз перед использованием Select необходимо помнить, какие ещё объекты были выбраны до этого и не забывать при необходимости снимать выбор. Либо, например, в случае использования метода Select в самом начале программы может быть выбрано два листа вместо одного потому что пользователь запустил программу, выбрав другой лист.

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

Отменить выбор  ячеек можно методом Unselect:

Selection.Unselect

Отличие выбора от активации — активировать можно только один объект из раннее выбранных. Выбрать можно несколько объектов.

Если вы записали и редактируете код макроса, то лучше всего заменить Select и Activate на конструкцию With … End With. Например, предположим, что мы записали вот такой макрос:

Sub Macro1()
' Macro1 Macro
    Range("F4:F10,H6:H10").Select 'выбрали два несмежных диапазона зажав ctrl
    Range("H6").Activate          'показывает только то, что я начал выбирать второй диапазон с этой ячейки (она осталась белой). Это действие ни на что не влияет
    With Selection.Interior       
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 65535            'залили желтым цветом, нажав на кнопку заливки на верхней панели
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
End Sub

Почему макрос записался таким неэффективным образом? Потому что в каждый момент времени (в каждой строке) программа не знает, что вы будете делать дальше. Поэтому в записи выбор ячеек и действия с ними — это два отдельных действия. Этот код лучше всего оптимизировать (особенно если вы хотите скопировать его внутрь какого-нибудь цикла, который должен будет исполняться много раз и перебирать много объектов). Например, так:

Sub Macro11()
'
' Macro1 Macro
    Range("F4:F10,H6:H10").Select '1. смотрим, что за объект выбран (что идёт до .Select)
    Range("H6").Activate
    With Selection.Interior       '2. понимаем, что у выбранного объекта есть свойство interior, с которым далее идёт работа
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 65535
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
End Sub



Sub Optimized_Macro()
    With Range("F4:F10,H6:H10").Interior '3. переносим объект напрямую в конструкцию With вместо Selection
' ////// Здесь я для надёжности прописал бы ещё Thisworkbook.Sheet("ИмяЛиста") перед Range,
' ////// чтобы минимизировать риск любых случайных изменений других листов и книг
' ////// With Thisworkbook.Sheet("ИмяЛиста").Range("F4:F10,H6:H10").Interior
        .Pattern = xlSolid               '4. полностью копируем всё, что было записано рекордером внутрь блока with
        .PatternColorIndex = xlAutomatic
        .Color = 55555                   '5. здесь я поменял цвет на зеленый, чтобы было видно, работает ли код при поочерёдном запуске двух макросов
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
End Sub

Пример сценария, когда использование Select и Activate оправдано:

Допустим, мы хотим, чтобы во время исполнения программы мы одновременно изменяли несколько листов одним действием и пользователь видел какой-то определённый лист. Это можно сделать примерно так:

Sub Select_Activate_is_OK()
Thisworkbook.Worksheets(Array("Sheet1", "Sheet3")).Select 'Выбираем несколько листов по именам
Thisworkbook.Worksheets("Sheet3").Activate 'Показываем пользователю третий лист
'Далее все действия с выбранными ячейками через Select будут одновременно вносить изменения в оба выбранных листа

'Допустим, что тут мы решили покрасить те же два диапазона:
Range("F4:F10,H6:H10").Select
    Range("H6").Activate
    With Selection.Interior       
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 65535
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With

End Sub

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

Получение и изменение значений ячеек

Значение ячеек можно получать/изменять с помощью свойства value. 

'Если нужно прочитать / записать значение ячейки, то используется свойство Value
a = ThisWorkbook.Sheets("Sheet1").Cells (1,1).Value 'записать значение ячейки А1 листа "Sheet1" в переменную "a"
ThisWorkbook.Sheets("Sheet1").Cells (1,1).Value = 1  'задать значение ячейки А1 (первый ряд, первый столбец) листа "Sheet1"

'Если нужно прочитать текст как есть (с форматированием), то можно использовать свойство .text:
ThisWorkbook.Sheets("Sheet1").Cells (1,1).Text = "1" 
a = ThisWorkbook.Sheets("Sheet1").Cells (1,1).Text

'Когда проявится разница:
'Например, если мы считываем дату в формате "31 декабря 2021 г.", хранящуюся как дата
a = ThisWorkbook.Sheets("Sheet1").Cells (1,1).Value 'эапишет как "31.12.2021"
a = ThisWorkbook.Sheets("Sheet1").Cells (1,1).Text  'запишет как "31 декабря 2021 г."

Ячейки открытой книги

К ячейкам можно обращаться:

'В книге, в которой хранится макрос (на каком-то из листов, либо в отдельном модуле или форме)
ThisWorkbook.Sheets("Sheet1").Cells(1,1).Value        'По номерам строки и столбца
ThisWorkbook.Sheets("Sheet1").Cells(1,"A").Value      'По номерам строки и букве столбца
ThisWorkbook.Sheets("Sheet1").Range("A1").Value       'По адресу - вариант 1
ThisWorkbook.Sheets("Sheet1").[A1].Value              'По адресу - вариант 2
ThisWorkbook.Sheets("Sheet1").Range("CellName").Value 'По имени ячейки (для этого ей предварительно нужно его присвоить)

'Те же действия, но с использованием полного названия рабочей книги (книга должна быть открыта)
Workbooks("workbook.xlsm").Sheets("Sheet1").Cells(1,1).Value 'По номерам строки и столбца
Workbooks("workbook.xlsm").Sheets("Sheet1").Cells(1,"A").Value                'По номерам строки и букве столбца
Workbooks("workbook.xlsm").Sheets("Sheet1").Range("A1").Value                 'По адресу - вариант 1
Workbooks("workbook.xlsm").Sheets("Sheet1").[A1].Value                        'По адресу - вариант 2
Workbooks("workbook.xlsm").Sheets("Sheet1").Range("CellName").Value           'По имени ячейки (для этого ей предварительно нужно его присвоить)

Ячейки закрытой книги

Если нужно достать или изменить данные в другой закрытой книге, то необходимо прописать открытие и закрытие книги. Непосредственно работать с закрытой книгой не получится, потому что данные в ней хранятся отдельно от структуры и при открытии Excel каждый раз производит расстановку значений по соответствующим «слотам» в структуре. Подробнее о том, как хранятся данные в xlsx см выше.

Workbooks.Open Filename:="С:closed_workbook.xlsx"    'открыть книгу (она становится активной)
a = ActiveWorkbook.Sheets("Sheet1").Cells(1,1).Value  'достать значение ячейки 1,1
ActiveWorkbook.Close False                            'закрыть книгу (False => без сохранения)

Скачать пример, в котором можно посмотреть, как доставать и как записывать значения в закрытую книгу. 

Код из файла:

Option Explicit
Sub get_value_from_closed_wb() 'достать значение из закрытой книги
Dim a, wb_path, wsh As String
wb_path = ThisWorkbook.Sheets("Sheet1").Cells(2, 3).Value 'get path to workbook from sheet1
wsh = ThisWorkbook.Sheets("Sheet1").Cells(3, 3).Value
Workbooks.Open Filename:=wb_path
a = ActiveWorkbook.Sheets(wsh).Cells(3, 3).Value
ActiveWorkbook.Close False
ThisWorkbook.Sheets("Sheet1").Cells(4, 3).Value = a
End Sub

Sub record_value_to_closed_wb() 'записать значение в закрытую книгу
Dim wb_path, b, wsh As String
wsh = ThisWorkbook.Sheets("Sheet1").Cells(3, 3).Value
wb_path = ThisWorkbook.Sheets("Sheet1").Cells(2, 3).Value 'get path to workbook from sheet1
b = ThisWorkbook.Sheets("Sheet1").Cells(5, 3).Value 'get value to record in the target workbook
Workbooks.Open Filename:=wb_path
ActiveWorkbook.Sheets(wsh).Cells(4, 4).Value = b 'add new value to cell D4 of the target workbook
ActiveWorkbook.Close True
End Sub

Перебор ячеек

Перебор в произвольном диапазоне

Скачать файл со всеми примерами

Пройтись по всем ячейкам в нужном диапазоне можно разными способами. Основные:

  1. Цикл For Each. Пример: 
    Sub iterate_over_cells()

For Each c In ThisWorkbook.Sheets("Sheet1").Range("B2:D4").Cells
MsgBox (c)
Next c

End Sub​

    Этот цикл выведет в виде сообщений значения ячеек в диапазоне B2:D4 по порядку по строкам слева направо и по столбцам — сверху вниз. Данный способ можно использовать для действий, в который вам не важны номера ячеек (закрашивание, изменение форматирования, пересчёт чего-то и т.д.).

  2. Ту же задачу можно решить с помощью двух вложенных циклов — внешний будет перебирать ряды, а вложенный — ячейки в рядах. Этот способ я использую чаще всего, потому что он позволяет получить больше контроля над исполнением: на каждой итерации цикла нам доступны координаты ячеек. Для перебора всех ячеек на листе этим методом потребуется найти последнюю заполненную ячейку. Пример кода: 
    Sub iterate_over_cells()

Dim cl, rw As Integer
Dim x As Variant

'перебор области 3x3
For rw = 1 To 3 ' цикл для перебора рядов 1-3

    For cl = 1 To 3 'цикл для перебора столбцов 1-3
        x = ThisWorkbook.Sheets("Sheet1").Cells(rw + 1, cl + 1).Value
        MsgBox (x)
    Next cl
Next rw



'перебор всех ячеек на листе. Последняя ячейка определена с помощью UsedRange
'LastRow = ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count - 1
'LastCol = ActiveSheet.UsedRange.Column + ActiveSheet.UsedRange.Columns.Count - 1
'For rw = 1 To LastRow 'цикл перебора всех рядов
'    For cl = 1 To LastCol 'цикл для перебора всех столбцов
'        Действия 
'    Next cl
'Next rw


End Sub​
  3. Если нужно перебрать все ячейки в выделенном диапазоне на активном листе, то код будет выглядеть так: 
    Sub iterate_cell_by_cell_over_selection()
    Dim ActSheet As Worksheet
    Dim SelRange As Range
    Dim cell As Range
    
 
    Set ActSheet = ActiveSheet
    Set SelRange = Selection
    
    'if we want to do it in every cell of the selected range
    For Each cell In Selection
    MsgBox (cell.Value)
    
    Next cell

End Sub​

    Данный метод подходит для интерактивных макросов, которые выполняют действия над выбранными пользователем областями.

  4. Перебор ячеек в ряду 
    Sub iterate_cells_in_row()
    Dim i, RowNum, StartCell As Long
    
    RowNum = 3 'какой ряд
    StartCell = 0 ' номер начальной ячейки (минус 1, т.к. в цикле мы прибавляем i)
    
    For i = 1 To 10 ' 10 ячеек в выбранном ряду
    ThisWorkbook.Sheets("Sheet1").Cells(RowNum, i + StartCell).Value = i '(i + StartCell) добавляет 1 к номеру столбца при каждом повторении
    Next i

End Sub
  5. Перебор ячеек в столбце 
    Sub iterate_cells_in_column()
    Dim i, ColNum, StartCell As Long
    
    ColNum = 3 'какой столбец
    StartCell = 0 ' номер начальной ячейки (минус 1, т.к. в цикле мы прибавляем i)
    
    For i = 1 To 10 ' 10 ячеек
    ThisWorkbook.Sheets("Sheet1").Cells(i + StartCell, ColNum).Value = i ' (i + StartCell) добавляет 1 к номеру ряда при каждом повторении
    Next i

End Sub​

Свойства и методы ячеек

Имя ячейки

Присвоить новое имя можно так:

Thisworkbook.Sheets(1).Cells(1,1).name = "Новое_Имя"

Для того, чтобы сменить имя ячейки нужно сначала удалить существующее имя, а затем присвоить новое. Удалить имя можно так:

ActiveWorkbook.Names("Старое_Имя").Delete

Пример кода для переименования ячеек:

Sub rename_cell()

old_name = "Cell_Old_Name"
new_name = "Cell_New_Name"

ActiveWorkbook.Names(old_name).Delete
ThisWorkbook.Sheets(1).Cells(2, 1).Name = new_name
End Sub

Sub rename_cell_reverse()

old_name = "Cell_New_Name"
new_name = "Cell_Old_Name"

ActiveWorkbook.Names(old_name).Delete
ThisWorkbook.Sheets(1).Cells(2, 1).Name = new_name
End Sub

Адрес ячейки

Sub get_cell_address() ' вывести адрес ячейки в формате буква столбца, номер ряда
  '$A$1 style
  txt_address = ThisWorkbook.Sheets(1).Cells(3, 2).Address
  MsgBox (txt_address)
End Sub

Sub get_cell_address_R1C1()' получить адрес столбца в формате номер ряда, номер столбца
  'R1C1 style
  txt_address = ThisWorkbook.Sheets(1).Cells(3, 2).Address(ReferenceStyle:=xlR1C1)
  MsgBox (txt_address)
End Sub

  'пример функции, которая принимает 2 аргумента: название именованного диапазона и тип желаемого адреса 
  '(1- тип $A$1 2- R1C1 - номер ряда, столбца)
Function get_cell_address_by_name(str As String, address_type As Integer)
  '$A$1 style
  Select Case address_type
    Case 1
      txt_address = Range(str).Address
    Case 2
      txt_address = Range(str).Address(ReferenceStyle:=xlR1C1)
    Case Else
      txt_address = "Wrong address type selected. 1,2 available"
    End Select
  get_cell_address_by_name = txt_address
End Function

'перед запуском нужно убедиться, что в книге есть диапазон с названием, 
'адрес которого мы хотим получить, иначе будет ошибка
Sub test_function() 'запустите эту программу, чтобы увидеть, как работает функция
  x = get_cell_address_by_name("MyValue", 2)
  MsgBox (x)
End Sub

Размеры ячейки

Ширина и длина ячейки в VBA меняется, например, так:

Sub change_size()
Dim x, y As Integer
Dim w, h As Double

'получить координаты целевой ячейки
x = ThisWorkbook.Sheets("Sheet1").Cells(2, 2).Value
y = ThisWorkbook.Sheets("Sheet1").Cells(3, 2).Value

'получить желаемую ширину и высоту ячейки
w = ThisWorkbook.Sheets("Sheet1").Cells(6, 2).Value
h = ThisWorkbook.Sheets("Sheet1").Cells(7, 2).Value

'сменить высоту и ширину ячейки с координатами x,y
ThisWorkbook.Sheets("Sheet1").Cells(x, y).RowHeight = h
ThisWorkbook.Sheets("Sheet1").Cells(x, y).ColumnWidth = w


End Sub

Прочитать значения ширины и высоты ячеек можно двумя способами (однако результаты будут в разных единицах измерения). Если написать просто Cells(x,y).Width или Cells(x,y).Height, то будет получен результат в pt (привязка к размеру шрифта). 

Sub get_size()
Dim x, y As Integer
'получить координаты ячейки, с которой мы будем работать
x = ThisWorkbook.Sheets("Sheet1").Cells(2, 2).Value
y = ThisWorkbook.Sheets("Sheet1").Cells(3, 2).Value

'получить длину и ширину выбранной ячейки в тех же единицах измерения, в которых мы их задавали
ThisWorkbook.Sheets("Sheet1").Cells(2, 6).Value = ThisWorkbook.Sheets("Sheet1").Cells(x, y).ColumnWidth
ThisWorkbook.Sheets("Sheet1").Cells(3, 6).Value = ThisWorkbook.Sheets("Sheet1").Cells(x, y).RowHeight

'получить длину и ширину с помощью свойств ячейки (только для чтения) в поинтах (pt)
ThisWorkbook.Sheets("Sheet1").Cells(7, 9).Value = ThisWorkbook.Sheets("Sheet1").Cells(x, y).Width
ThisWorkbook.Sheets("Sheet1").Cells(8, 9).Value = ThisWorkbook.Sheets("Sheet1").Cells(x, y).Height

End Sub

Скачать файл с примерами изменения и чтения размера ячеек

Запуск макроса активацией ячейки

Для запуска кода VBA при активации ячейки необходимо вставить в код листа нечто подобное:

3 важных момента, чтобы это работало:

1. Этот код должен быть вставлен в код листа (здесь контролируется диапазон D4)

2-3. Программа, ответственная за запуск кода при выборе ячейки, должна называться Worksheet_SelectionChange и должна принимать значение переменной Target, относящейся к триггеру SelectionChange. Другие доступные триггеры можно посмотреть в правом верхнем углу (2).

Скачать файл с базовым примером (как на картинке)

Скачать файл с расширенным примером (код ниже)

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

        ' имеем в виду, что триггер SelectionChange будет запускать эту Sub после каждого клика мышью (после каждого клика будет проверяться:
          '1. количество выделенных ячеек и 
          '2. не пересекается ли выбранный диапазон с заданным в этой программе диапазоном.
        ' поэтому в эту программу не стоит без необходимости писать никаких других тяжелых операций

    If Selection.Count = 1 Then 'запускаем программу только если выбрано не более 1 ячейки


    'вариант модификации - брать адрес ячейки из другой ячейки:
    'Dim CellName as String
    'CellName = Activesheet.Cells(1,1).value 'брать текстовое имя контролируемой ячейки из A1 (должно быть в формате Буква столбца + номер строки)
    'If Not Intersect(Range(CellName), Target) Is Nothing Then
    'для работы этой модификации следующую строку надо закомментировать/удалить



        If Not Intersect(Range("D4"), Target) Is Nothing Then 
        'если заданный (D4) и выбранный диапазон пересекаются 
        '(пересечение диапазонов НЕ равно Nothing)

        'можно прописать диапазон из нескольких ячеек:
        'If Not Intersect(Range("D4:E10"), Target) Is Nothing Then
        'можно прописать несколько диапазонов:
        'If Not Intersect(Range("D4:E10"), Target) Is Nothing or Not Intersect(Range("A4:A10"), Target) Is Nothing Then

            Call program 'выполняем программу
        End If
    End If
End Sub

Sub program()

MsgBox ("Program Is running") 'здесь пишем код того, что произойдёт при выборе нужной ячейки


End Sub

Источник

Содержание

  1. VBA Excel. Метод Range.AutoFill (автозаполнение ячеек)
  2. Метод Range.AutoFill
  3. Определение
  4. Синтаксис
  5. Параметры
  6. Примеры с Range.AutoFill
  7. Пример 1
  8. VBA в Excel Объект Excel.Range и программная работа с ячейками средствами VBA
  9. 10.6 Объект Range, его свойства и методы

VBA Excel. Метод Range.AutoFill (автозаполнение ячеек)

Автозаполнение ячеек в заданном диапазоне с помощью метода Range.AutoFill. Синтаксис, параметры, примеры автозаполнения из кода VBA Excel.

Метод Range.AutoFill

Определение

Определение метода Range.AutoFill:

Синтаксис

Синтаксис метода Range.AutoFill:

Expression — выражение (переменная), возвращающее объект Range.

Параметры

Параметры метода Range.AutoFill:

Параметр Описание
Destination Диапазон ячеек, который необходимо заполнить. В него должен быть включен исходный диапазон (Expression). Обязательный параметр.
Type Константа из коллекции XlAutoFillType, задающая тип автозаполнения. Необязательный параметр.

Константа из коллекции XlAutoFillType указывает, как должен быть заполнен целевой диапазон (Destination) в зависимости от содержимого диапазона исходных данных (Expression). По умолчанию используется константа xlFillDefault (0), когда приложение Excel само определяет значения и форматы, используемые для заполнения целевого диапазона.

Примеры с Range.AutoFill

Примеры автозаполнения целевых диапазонов из кода VBA Excel с помощью метода AutoFill объекта Range.

Пример 1

Автозаполнение указанного диапазона (Destination), состоящего из нескольких строк и столбцов, данными одной ячейки (Expression) в зависимости от ее расположения в целевом диапазоне:

Источник

VBA в Excel Объект Excel.Range и программная работа с ячейками средствами VBA

10.6 Объект Range, его свойства и методы

Объект Excel.Range, программная работа с ячейками и диапазонами (наборами) ячеек средствами VBA, создание объекта Excel.Range, свойства, методы и события объекта Excel.Range

Пожалуй, наиболее часто используемый объект в иерархии объектной модели Excel — это объект Range. Этот объект может представлять одну ячейку, несколько ячеек (в том числе несмежные ячейки или наборы несмежных ячеек) или целый лист. Если в Word вы могли для ввода данных использовать как объект Range, так и объект Selection, то в Excel все сводится к объекту Range:

  • если вам нужно ввести данные в ячейку или отформатировать ее, то вы должны получить объект Range, представляющий эту ячейку;
  • если вы хотите сделать что-то с выделенными вами ячейками, вам необходимо получить объект Range, представляющий выделение;
  • если вам нужно просто что-то сделать с группой ячеек, первое ваше действие — опять-таки получить объект Range, представляющий эту группу ячеек.

В Microsoft Knowledge Base есть статья под номером 291308, в котором описываются 22 способа получения объекта Range в Excel. Вряд ли вы будете пользоваться всеми эти способами. Мы рассмотрим только самые распространенные:

  • самый простой и очевидный способ — воспользоваться свойством Range. Это свойство предусмотрено для объектов Application, Worksheet и самого объекта Range (если вы решили создать новый диапазон на основе уже существующего). Например, получить ссылку на объект Range, представляющий ячейку A1, можно так:

Dim oRange As Range

Set oRange = Worksheets(«Лист1»).Range(«A1»)

А на диапазон ячеек с A1 по D10 — так:

Dim oRange As Range

Set oRange = Worksheets(«Лист1»).Range(«A1:D10»)

С применением свойства Range самого объекта Range нужно быть очень осторожным. Дело в том, что Excel создает на основе объекта Range виртуальный лист со своей собственной нумерацией. Поэтому такой код:

Set oRange1 = Worksheets(«Лист1»).Range(«C1»)

Set oRange2 = oRange1.Range(«B1»)

пропишет значение 20 не в ячейку B1, как можно было понять из кода, а в ячейку D1 (то есть B1 по отношению к виртуальному листу, начинающемуся с C1).

  • второй способ — воспользоваться свойством Cells. Возможностей у этого свойства меньше — мы можем вернуть диапазон, состоящий только из одной ячейки. Зато мы можем использовать более удобный синтаксис (с точки зрения передачи переменных, перехода в любую сторону на любое количество ячеек и т.п.). Например, для получения ссылки на ячейку D1 можно использовать код вида:

Dim oRange As Range

Set oRange = Worksheets(«Лист1»).Cells(1, 4)

Чтобы получить диапазон, состоящий из нескольких ячеек, удобно применять свойства Range и Cells вместе:

Set oRange = Range(Cells(1, 1), Cells(5, 3))

  • третий способ — воспользоваться многочисленными свойствами объекта Range, которые позволяют изменить текущий диапазон или создать на основе его новый. Эти свойства будут рассмотрены ниже.

Обычно после того, как нужная ячейка найдена, в нее нужно что-то записать. Для этой цели используется свойство Value, например:

oRange.Value = «Мое значение»

Поскольку объект Range с функциональной точки зрения очень важен, то свойств и методов у него очень много (и для комфортной работы в Excel их нужно знать). Ниже представлены некоторые самые употребимые свойства:

  • Address — позволяет вернуть адрес текущего диапазона, например, для предыдущего примера вернется $A$1:$C$5. Этому свойству можно передать много параметров — для определения стиля ссылки, абсолютного или относительного адреса для столбцов и строк, по отношению к чему этот адрес будет относительным и т.п. Свойство доступно только для чтения. AddressLocal — то же самое, но с поправкой на особенности локализованных версий Excel.

На практике встречается множество ситуаций, когда адрес ячейки нужно разобрать на части и вернуть из него имя столбца или номер строки. Это очень просто сделать при помощи строковых функций — спасибо знакам доллара. Например, имя столбца для объекта oRange, представляющего одну ячейку, можно вернуть так:

sColumnName = Mid(oRange.Address, 2, (InStr(2, oRange.Address, «$») — 2))

sRowNumber = Mid(oRange.Address, (InStr(2, oRange.Address, «$») + 1))

На первый взгляд кажется сложным, но на самом деле все очень просто — для имени столбца мы просто берем все, что у нас находится между первым знаком доллара (он у нас всегда первый символ) и вторым, а для номера строки бы берем все, что у нас находится после второго знака доллара. Найти этот второй знак доллара можно при помощи встроенной функции InStr(), а взять нужное количество символов начиная с какого либо проще всего при помощи встроенной функции Mid().

  • AllowEdit — это свойство, доступное только для чтения, позволяет определить, сможет ли пользователь править данную ячейку (набор ячеек) на защищенном листе. Используется для проверок.
  • Areas — свойство исключительно важное. Дело в том, что, как уже говорилось, объект Range может состоять из несмежных наборов ячеек. Многие методы применительно к таким диапазонам ведут себя совершенно непредсказуемо или просто возвращают ошибки. Свойство Areas позволяет разбить подобные нестандартные диапазоны на набор стандартных. Созданные таким образом объекты Range будут помещены в коллекцию Areas. Это свойство можно использовать и для проверки «нестандартности» диапазона:

If Selection.Areas.Count > 1 Then

Debug.Print «Диапазон с несмежными областями»

  • Borders — возможность получить ссылку на коллекцию Borders, при помощи которой можно управлять рамками для нашего диапазона.
  • Cells — это свойство есть и для объекта Range. Работает оно точно так же, за исключением того, что опять-таки используется своя собственная виртуальная адресация на основе диапазона:

Dim oRange, oRange2 As Range

Set oRange = Range(Cells(2, 2), Cells(5, 3))

Set oRange2 = oRange.Cells(1, 1) ‘Вместо A1 получаем ссылку на B2

Debug.Print oRange2.Address ‘Так оно и есть

Точно такие же особенности у свойств Row и Rows, Column и Columns.

  • Characters — это простое с виду свойство позволяет решить непростую задачу: как изменить (текст или формат) части текста в ячейке, не затрагивая остальные данные. Например, чтобы ввести текст в ячейку A1 и изменить цвет первой буквы, можно воспользоваться кодом

Dim oRange As Range

Set oRange = Range(«A1»)

oRange.Value = «Мой текст»

oRange.Characters(1, 1).Font.Color = vbRed

Если же вам просто нужно изменить значение, то лучше воспользоваться свойством Value — как в третьей строке примера.

  • Count — возвращает количество ячеек в диапазоне. Может использоваться для проверок.
  • CurrentRegion — очень удобное свойство, которое может пригодиться, например, при копировании/экспорте данных, полученных из внешнего источника (когда сколько будет этих данных, нам изначально неизвестно). Оно возвращает объект Range, представляющий диапазон, окруженный пустыми ячейками (то есть непустую область, в которую входит исходный диапазон/ячейка). Например, чтобы выделить всю непустую область вокруг активной ячейки, можно воспользоваться кодом
  • Dependents — позволяет получить объект Range (скорее всего, включающий несмежные области) которые зависят от ячеек исходного диапазона. Работает только для текущего листа — ссылки во внешних листах этим свойством не отслеживаются. Например, чтобы выделить все ячейки, зависимые от активной, можно использовать код
  • Worksheets(«Лист1»).Activate
  • ActiveCell.Dependents.Select

Чтобы просмотреть обратную зависимость, можно использовать свойство Precedents. Чтобы просмотреть только первый уровень зависимостей, можно использовать свойства DirectDependents и DirectPrecedents.

  • End — еще одно часто используемое свойство. Оно позволяет получить объект Range, представляющий последнюю ячейку исходного диапазона. В какой стороне будет считаться последняя ячейка, можно определить при помощи передаваемого параметра.
  • Errors — свойство, которое через коллекцию Errors позволяет получить доступ к объектам Error, представляющим обнаруженные ошибки в диапазоне.
  • Font — как и в Word, это свойство позволяет получить доступ к объекту Font, при помощи которого можно настроить особенности оформления текста в ячейке (цвет, шрифт, размер букв и т.п.)
  • FormatConditions — возможность создать собственный объект, представляющий вариант оформления ячеек, который затем можно применять к разным ячейкам и диапазонам.
  • Formula — одно из самых важных свойств объекта Range. Доступно и на чтение, и на запись. Если используется на чтение, то возвращает текст формулы, прописанной в ячейку (а не вычисленное значение), если используется на запись, то позволяет записать формулу в ячейку. Если применить это свойство для диапазона, в который входит несколько ячеек, то формула будет прописана по все ячейки диапазона. Пример применения этого свойства может выглядеть так:
  • Свойство FormulaLocal, как и AddressLocal, позволяет внести поправки на особенности нумерации ячеек в локализованной версии Excel (для русских версий Excel в нем нет необходимости).
  • FormulaHidden — возможность спрятать формулы в диапазоне от пользователя. Работает только на защищенных листах.
  • HasFormula — проверить диапазон на наличие вычисляемых значений (формул).
  • Hidden — спрятать диапазон. Будет работать только в случае, если диапазон включает в себя хотя бы одну строку или столбец целиком, в противном случае вернется ошибка.
  • Interior — еще одно свойство, связанное с форматированием. В основном позволяет покрасить ячейки диапазона.
  • Item — позволяет получить еще один объект Range, который определяется путем смещения исходного диапазона.
  • Locked — это свойство позволяет заблокировать ячейки диапазона при защите листа.
  • Name — возможность получить ссылку на специальный объект именованного диапазона Name. На графическом экране с его возможностями можно познакомиться при помощи меню Вставка ->Имя. Он позволяет обращаться к диапазонам и формулам по именам и несколько напоминает по функциональности объект закладки в Word.
  • Next — перейти на следующую ячейку. Если лист не защищен, то следующей ячейкой будет считаться ячейка справа, если защищен — то следующая незаблокированная ячейка.
  • NumberFormat — возможность установить один из предопределенных форматов для чисел. Соответствует возможностям вкладки Число в меню Формат ->Ячейки на графическом экране.
  • Offset — это свойство позволяет получить новый объект Range с определенным смещением от исходного. Например, чтобы получить ячейку со смещением на три ячейки вверх от сходной и три ячейки влево, можно использовать код
  • свойство Orientation позволяет сориентировать текст в ячейках. Указывается угол наклона в градусах. Например, чтобы расположить текст по диагонали, можно использовать код
  • PageBreak — это свойство обычно используется для программной вставки разрывов страницы. Его применение может выглядеть так:
  • все свойства, которые начинаются на Pivot…, относятся к работе с объектом PivotTable (сводная таблица). Особенности работы с ней будут рассмотрены ниже.
  • QueryTable — это очень важное свойство позволяет получить ссылку на объект QueryTable — полученные с внешнего источника данные. Это свойство для объекта Range позволяет получить ссылку на объект QueryTable, которые находится в данном диапазоне. Подробнее про объект QueryTable будет рассказано ниже.
  • Range — это свойство, как уже говорилось выше, позволяет создать новый диапазон на основе уже существующего. Необходимо помнить про особенности нумерации ячеек в этом случае.
  • Resize — возможность изменить текущий диапазон. Например, увеличение его на один столбец вниз и одну строку вправо может выглядеть так:

oRange.Resize(oRange.Rows.Count + 1, oRange.Columns.Count + 1).Select

  • ShrinkToFit — это свойство позволяет автоматически настроить размер текста в диапазоне таким образом, чтобы текст умещался в ширину столбца.
  • Style — это свойство позволяет вернуть объект Style, представляющий стиль для указанного диапазона. На графическом экране то, что позволяет сделать объект Style, можно сделать через меню Формат ->Стиль.
  • Text — возможность получить значение первой ячейки диапазона в виде значения типа String. Для объекта Range это свойство доступно только для чтения.
  • Validation — это свойство позволяет вернуть объект Validation, при помощи которого можно настроить проверку вводимых в диапазон данных.
  • Value — наиболее часто используемое свойство объекта Range. Позволяет получить или назначить значение (числовое, текстовое или какое-либо другое) ячейкам диапазона. Точно для той же цели используется свойство Value2, единственное отличие — это свойство не поддерживает типы данных Currency и Date.
  • WrapText — возможность включить/отключить перевод текста на следующую строку в ячейках диапазона.

Теперь — о методах объекта Range:

  • Activate() — выделяет текущий диапазон и устанавливает курсор ввода на его первую ячейку.
  • AddComment() — возможность добавить комментарий к ячейке. Ячейка будет помечена красным уголком, а текст комментария будет показан в виде всплывающей подсказки. Этот метод можно вызвать только для диапазона, состоящего из одной ячейки. То же самое на графическом экране можно сделать при помощи меню Вставка ->Примечание.
  • AutoFill() — возможность использовать автозаполнение для диапазона (например, если первые две ячейки будут заполнены как 1 и 2, то дальше в автоматическом режиме будет продолжено: 3, 4, 5 и т.п.)
  • AutoFit() — автоматически поменять ширину всех столбцов и высоту всех строк в диапазоне, чтобы туда уместился текст ячеек. Можно применять только к тем диапазонам, которые состоят из набора столбцов (полностью) или набора ячеек (также полностью), иначе будет ошибка.
  • AutoFormat() — возможности использовать один из стилей автоформатирования (то, что на графическом экране доступно через меню Формат ->Автоформат).
  • BorderAround() — возможность поместить диапазон в рамку с выбранными вами параметрами.
  • методы Clear… позволяют очистить содержимое диапазона — от значений, форматирования, комментарий и т.п.
  • Consolidate() — возможность слить данные нескольких диапазонов (в том числе на разных листах) в один диапазон, используя при этом выбранную вами агрегатную функцию.
  • Copy() — возможность скопировать диапазон в другое место. Если место назначения не указано, он копируется в буфер обмена. Аналогично работает метод Cut(), при котором данные исходного диапазона вырезаются.
  • CopyFromRecordset() — очень удобный метод, который позволяет вставить данные из объекта ADO Recordset на лист Excel, начиная с верхнего левого угла указанного диапазона.
  • DataSeries() — метод, который может сэкономить множество времени и избежать возни с функциями даты и времени. Этот метод позволяет увеличить вами значения даты в диапазоне на указанный вами временной интервал. Например, если у вас в диапазоне стоит первое января, то при помощи этого метода можно сгенерировать первое число любого другого месяца.
  • Delete() — удаляет данные текущего диапазона. В качестве необязательно параметра можно определить, с какой стороны будут сдвигаться ячейки на место удаленных.
  • Dirty() — пометить ячейки диапазона как «грязные». Такие ячейки будут пересчитаны при следующем же пересчете. Обычно используется, когда Word сам не может догадаться, что их нужно пересчитать. Пересчитать ячейки диапазона можно и принудительно — при помощи метода Calculate().
  • методы Fill… (FillDown(), FillUp(), FillLeft(), FillRight()) позволяют размножить одно и то же значение по ячейкам диапазона в указанном вами направлении.
  • метод Find() позволяет произвести поиск по ячейкам диапазона и вернуть новый объект Range, который представляет первую ячейку, в котором было найдено нужное значение. У этого метода есть множество необязательных параметров, которые позволяют определить направление поиска, чувствительность к регистру, искать все значение ячейки или часть и т.п. Методы FindNext() и FindPrevious() позволяют продолжить поиск, начатый методом Find(), в разных направлениях.
  • метод GoalSeek() позволяет применить автоподбор значений для функции Excel программным способом. На графическом экране то же самое можно сделать при помощи меню Сервис ->Подбор параметра.
  • метод Insert() позволяет вставить ячейки в диапазон, сдвинув остальные (вы можете выбрать — вправо или вниз).
  • метод Justify() позволяет равномерно распределить текст по диапазону. Если в данный диапазон он не помещается, он будет распространен на соседние ячейки (с перезаписью их значений).
  • метод Merge() позволяет слить все ячейки диапазона в одну. При этом останется только одно значение — верхней левой ячейки. Разбить обратно такую слитую ячейку на несколько обычных можно при помощи метода UnMerge().
  • Parse() — позволяет разбить одну ячейку на несколько по указанному вами шаблону (например, чтобы отделить код города от номера телефона).
  • PasteSpecial() — операция, дополняющая Copy() и Cut(). Она позволяет вставить то, что лежит в буфере обмена, с указанием специальных параметров вставки (вставлять с добавлением к существующим данным, с умножением, вычитанием, делением и т.п.)
  • PrintOut() и PrintPreview() — позволяют вывести диапазон на печать или открыть режим просмотра перед печатью..
  • Replace() — метод, дополняющий метод Find(). Позволяет проводить поиск и замену значений в диапазоне.
  • Select() — возможность выделить указанный диапазон. Объекта Selection в Excel нет — вместо него есть возможность получить объект Range, представляющий выделенную область.
  • Show() — экран будет проскроллирован таким образом, чтобы показать указанный диапазон.
  • ShowDependents() — показать стрелки для ячеек, которые зависят от указанного диапазона (только первый уровень зависимости) или эти стрелки убрать. Обратный метод — ShowPrecedents().
  • ShowErrors() — показать источник ошибки для указанной ячейки.
  • Sort() — возможность произвести сортировку ячеек в диапазоне. Можно использовать большое количество необязательных параметров для настройки сортировки. SortSpecial() — с учетом особенностей азиатских языков.
  • Speak() — удивительный метод, который позволяет зачитывать вслух содержимое диапазона (можно определить, в каком направлении и будут ли зачитываться формулы). К сожалению, в локализованной версии Excel не работает.
  • SpecialCells() — очень удобный метод, который позволяет вернуть объект Range, включающий в себя все ячейки определенного типа (пустые, с ошибками, с комментариями, последние, с константами, с формулами, с определенным форматированием) и с определенным значением. Например, чтобы вернуть объект Range, состоящий из всех пустых ячеек диапазона, можно использовать код

Set oRange2 = oRange.SpecialCells(xlCellTypeBlanks)

oRange 2. Select ‘проверяем, так ли это

  • метод SubTotal() позволяет посчитать итоговое значение для диапазона (можно выбрать агрегатную функцию и множество других параметров).
  • метод Table() позволяет создать таблицу на основе передаваемого столбца, строки и функции, которую нужно использовать для вычисления ячеек таблицы. Пример из документации по этому методу позволяет автоматически сгенерировать таблицу умножения.
  • TextToColumns() — сложный метод, который позволяет разбить столбцы в диапазоне на несколько столбцов в соответствии с определенным алгоритмом. Принимает множество необязательных параметров.

Источник

Источник

0 / 0 / 0

Регистрация: 29.09.2017

Сообщений: 6

1

29.09.2017, 23:04. Показов 1787. Ответов 15

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

Здравствуйте, все)
Подскажите реально ли такое сделать?
1. Заполнение одним текстом и цветом ячейки при ее выделении.
2. Заполнение одним текстом и цветом ячейки при ее выделении. При повторном выделении — ячейка опустошается (как была до нажатия).
3. Заполнение цветом ячейки при ее выделении. При повторном выделении — убирается цвет с ячейки.

Всем спасибо!



0

Burk

1813 / 1135 / 346

Регистрация: 11.07.2014

Сообщений: 4,002

30.09.2017, 10:39

2

creofun, возможно все. Маленько подскажу —

в коде листа

записываем саб на реакцию выделения ячеек

Visual Basic 
1
2
3
4
5
6

Private Sub WorkSheet_SelectionChange(ByVal Target As Range)
I = Instr(Target.Address, ":")
If  I =0 Then  'выделена одна ячейка, что вам и надо
  присвоить ячейке Target всё, что вам нужно. Если присвоено, то очистить и т.д. по вашей схеме
End If
End Sub



0

fever brain

oh my god

1454 / 793 / 161

Регистрация: 05.01.2016

Сообщений: 2,307

Записей в блоге: 8

30.09.2017, 10:58

3

Заполнение цветом и текстом по двойному клику
и обнуление
Ниже код для модуля Лист1

Visual Basic 
1
2
3
4
5
6
7
8
9
10
11
12
13

Option Explicit
 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    With Target.Interior
        If .ColorIndex = 6 Then
            .ColorIndex = xlNone
            Target.Value = ""
        Else
            .ColorIndex = 6
            Target.Value = "Тэст"
        End If
    End With
End Sub

Вложения

Тип файла: xls Лист Microsoft Excel.xls (20.5 Кб, 7 просмотров)



0

oh my god

1454 / 793 / 161

Регистрация: 05.01.2016

Сообщений: 2,307

Записей в блоге: 8

30.09.2017, 11:01

4

Цитата
Сообщение от Burk
Посмотреть сообщение

записываем саб на реакцию выделения ячеек

сделал по двойному клику, если выделить все ячейки, то в ходе заполнения компьютер виснет



0

Burk

1813 / 1135 / 346

Регистрация: 11.07.2014

Сообщений: 4,002

30.09.2017, 13:35

5

fever brain,что-то я не увидел у автора за двойной клик

Добавлено через 1 час 53 минуты
creofun, что-то мы здесь тусуемся, а про вас не слышно. Наверно, пытаетесь сделать, а не получается?
Ну помогу ещё раз, в дальнейшем пробуйте сами. Но на письма надо отвечать!
Поместите этот макрос

в код любого листа

и работайте на нем. Не в модуль.

Visual Basic 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim I As Integer, Col As Integer
'Диапазон действия макроса A2:I4
If InStr(Target.Address, ":") > 0 Then Exit Sub
With Target
  I = .Row
  If I = 1 Or I > 4 Or .Column > 9 Then Exit Sub
  Col = .Interior.ColorIndex
  Select Case I
  Case 2
    .Interior.ColorIndex = 3: .Value = "Ìÿó"
  Case 3
    .Interior.ColorIndex = IIf(Col = 3, 0, 3)
    .Value = IIf(Col = 3, "", "Ìÿó")
  Case 4
    .Interior.ColorIndex = IIf(Col = 3, 0, 3)
  End Select
  [A1].Select
End With
End Sub



0

0 / 0 / 0

Регистрация: 29.09.2017

Сообщений: 6

30.09.2017, 14:45

 [ТС]

6

Спасибо. Я не шарю совсем.
Можно еще дополнительное условие сделать? Чтобы данные макрос работал только для столбца F?

Добавлено через 6 минут
Сейчас Ваш 2й вариант попробую…
Вот его бы, но для столбца F. По одинарному клику тоже ничего, нормально.
По двойному пробовал первый вариант ФеверБрейна — тоже отлично…

Добавлено через 6 минут
лучше все же по двойному клику)
Потому что при навигации (выделении) ячеек кнопками тоже происходит выделение цветом и заполнение текстом.
Пока не понял зачем два поля с текстом…

Добавлено через 15 минут
И еще скажите пожалуйста, как задать цвет ячейки 0, 255, 0
А то я там попробовал в коде менять код цвета 6 на другие цифры — что-то не то…



0

Burk

1813 / 1135 / 346

Регистрация: 11.07.2014

Сообщений: 4,002

30.09.2017, 17:02

7

creofun, вы что и не пытаетесь учиться на работающих программах или собираетесь и дальше выставлять свои задачи на форум? Можно поучиться программированию у Экселя при помощи рекодера, который записывает то, что вы делаете вручную. Посмотрите на просторах инета или звонок другу.
Область работы макроса A2:I9, она определена в строке 7. Значит нужно переделать его. Номер столбца F = 6.
Следовательно этот оператор примет такой вид

Visual Basic 
1

If .Column <> 6 Then Exit Sub

Цитата
Сообщение от creofun
Посмотреть сообщение

как задать цвет ячейки 0, 255, 0

При помощи функции RGB(0,255,0)

Цитата
Сообщение от creofun
Посмотреть сообщение

Пока не понял зачем два поля с текстом…

в вашем задании так написано, прочитайте его внимательно

Цитата
Сообщение от creofun
Посмотреть сообщение

Заполнение одним текстом и цветом ячейки при ее выделении.



0

0 / 0 / 0

Регистрация: 29.09.2017

Сообщений: 6

30.09.2017, 17:04

 [ТС]

8

У меня в задании просто текст + цвет.
Два текста я не спрашивал.
Спасибо за советы.
Честно решение задачи не как воздух нужна и методом тыка и небольшого гугла чет сам допонял. Не более.
Изучать программирование и прочее мне не интересно.
Окажется что функция RGB записывается еще через что-то и так далее…
По поводу области работы скрипта — может быть есть более простое описание.
Но то, что дано выше — я до конца не понял…



0

1813 / 1135 / 346

Регистрация: 11.07.2014

Сообщений: 4,002

30.09.2017, 17:15

9

creofun, что-то я поторопился, там же стоят еще номера строк Case 2 3 4. Будет работать только в этих строках. А если по всему столбцу, то непонятно в каких строка столбца F какой вариант задания ставить. Решайте сами. Я пошел



0

creofun

0 / 0 / 0

Регистрация: 29.09.2017

Сообщений: 6

30.09.2017, 17:26

 [ТС]

10

Пытаюсь данному варианту условие сделать If .Column <> 6 Then Exit Sub:

Visual Basic 
1
2
3
4
5
6
7
8
9
10
11
12

Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    With Target.Interior
        If .ColorIndex = 6 Then
            .ColorIndex = xlNone
            Target.Value = ""
        Else
            .ColorIndex = 6
            Target.Value = "Тэст"
        End If
    End With
End Sub

Пихаю по очереди под иф, под else, после if с закрытием скобок…
Чет пока никак…

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

Visual Basic 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

Option Explicit
 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
        With Target.Interior
        If .Column = 7 Then
            If .ColorIndex = 6 Then
            .ColorIndex = xlNone
            Target.Value = ""
            Else
            .ColorIndex = 8
            Target.Value = "текст"
        End If
        End If
    End With
    End Sub

Не работает)
Думал прокатит)))

Добавлено через 1 минуту
И так тоже не пашет)))

Visual Basic 
1
2
3
4
5
6
7
8
9
10
11
12
13

Option Explicit
 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
        With Target.Interior
        If .Column = 7 And .ColorIndex = 6 Then
           .ColorIndex = xlNone
            Target.Value = ""
            Else
            .ColorIndex = 8
            Target.Value = "òåêñò"
        End If
           End With
    End Sub



0

1813 / 1135 / 346

Регистрация: 11.07.2014

Сообщений: 4,002

30.09.2017, 17:35

11

Цитата
Сообщение от creofun
Посмотреть сообщение

Изучать программирование и прочее мне не интересно.

Ну и не ходите сюда, чего нам головы морочить. Обратитесь к фрилансерам, они за деньги сделают, хоть кому-то будет польза.



0

0 / 0 / 0

Регистрация: 29.09.2017

Сообщений: 6

30.09.2017, 17:38

 [ТС]

12

Дак сами тогда не ходите. Помогаете и потом «ой человек не хочет весь курс VBA изучить, не будем ему помогать»…
А зачем тогда вообще помогать было или я чего-то не понимаю?
По ходу я гуглю что как, а целиком всю структуру изучать — мне это не нужно, к тому же я тогда бы не стал создавать тему.
Может и форум не нужен тогда вообще из-за таких как Вы? Которые чем-то недовольны всегда?
Давай-те при каждом вопросе в сети каждый начнет изучать дело по вопросы — смысл тогда задавать вопросы?



0

fever brain

oh my god

1454 / 793 / 161

Регистрация: 05.01.2016

Сообщений: 2,307

Записей в блоге: 8

30.09.2017, 19:35

13

Цитата
Сообщение от creofun
Посмотреть сообщение

Изучать программирование и прочее мне не интересно

Мне тоже както не очень интересно, особенно копаться в структурах vba

Я больше специализируюсь в другом языке
итак, что представляет собой свойство ColorIndex ?

Это всего-лишь индекс цвета который не указывает на сам цвет, а указывает на палитру Excel’я

xlNone — без заливки
Этим же свойством я пользуюсь чтобы определять условия
если нужно конкретный цвет указывать то вместо ColorIndex нужно использовать свойство Color
к примеру RGB(0, 255, 0) у меня это ядовито-зеленый

а ниже измененный код

Visual Basic 
1
2
3
4
5
6
7
8
9
10
11
12
13

Option Explicit
 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    With Target.Interior
        If .Color = RGB(0, 255, 0) Then
            .ColorIndex = xlNone
            Target.Value = ""
        Else
            .Color = RGB(0, 255, 0)
            Target.Value = "Тэст"
        End If
    End With
End Sub

Лист скину, мне не жалко ))

Вложения

Тип файла: xls Лист Microsoft Excel.xls (22.0 Кб, 7 просмотров)



0

creofun

0 / 0 / 0

Регистрация: 29.09.2017

Сообщений: 6

30.09.2017, 23:37

 [ТС]

14

Спасибо.
Доковыряю потом с гуглом если что не хватает.

Добавлено через 3 часа 34 минуты
Осталось к Вашему варианту прикрутить условие области действия скрипта — определенный СТОЛБЕЦ.

ПРобую по всякому — не получается пока.
Остановился на таком:

Visual Basic 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

Option Explicit
 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    With Target.Interior
        If (.Column <> 7) Then
        Exit Sub
        ElseIf .Color = RGB(0, 255, 0) Then
            .ColorIndex = xlNone
            Target.Value = ""
        Else
            .Color = RGB(0, 255, 0)
            Target.Value = "выводимыйтекст"
        End If
    End With
End Sub



0

141 / 119 / 29

Регистрация: 12.02.2017

Сообщений: 308

01.10.2017, 15:50

15

…Изучать программирование и прочее мне не интересно…

Как правило, на этом форуме участвуют люди увлеченные программированием, независимо от пола, возраста и т.д. Здесь обсуждются различные вопросы, связанные с написанием программ, из-за этого здесь спорят и даже ссорятся.
Здесь регулярно, время от времени, появляются участники, похожие, немного, на Вас, которые обижаются на такие ответы. Поясняю, из Ваших слов следует, что Вам до программирования как до лампочки, просто зашли чтобы кто-то, безвозмездно, решил необходимую задачу для каких-то целей. Типа тут на форуме куча дурачков-чудачков, но которые могут за спасибо сделать очень много. Относитесь с уважением к увлечениям и интересам других людей и очень некрасиво использовать форум с целью «халявной» выгоды.



3

1813 / 1135 / 346

Регистрация: 11.07.2014

Сообщений: 4,002

01.10.2017, 18:28

16

Homarty, КрасиииииииииВО



0

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

 01.10.2017, 18:28

Помогаю со студенческими работами здесь

Подсчитать клетки с одним цветом в Excel
ДобрьІй день форумчане =)

Мне нужно сделать такую программу: файл exel я вьІбираю крайние точки…

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

procedure TForm1.StringGrid1SelectCell(Sender: TObject;…

Выделение заголовков таблицы цветом, при выделении ячеек в ней
Здравствуйте, уважаемые форумчане, подскажите, пожалуйста, можно ли такое реализовать?
У меня есть…

Ошибка при выделении ячейки DataGridView
Прикрепил небольшой проект, там после добавлении данных в DataGridView, при выделении любой ячейки,…

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

16

Источник

Sub макрос()

    Dim rng As Range, ar As Range, cell As Range, NewRng As Range
    Dim i As Long, ii As Long

            ‘1. Юзер выбирает ячейки в нужном столбце, после которых нужно вставить строки.
    On Error Resume Next
    Set rng = Application.InputBox(Prompt:=»Выберите ячейки, после которых нужно вставить новые строки:», Type:=8)
    On Error GoTo 0
    If rng Is Nothing Then
        Exit Sub
    End If

        ‘2. Отключение пересчёта формул и монитора, чтобы ускорить макрос.
    Dim calc As Long: calc = Application.Calculation
    Application.Calculation = xlCalculationManual
    Application.ScreenUpdating = False

        ‘3. Вставка новых строк.
    Application.CutCopyMode = False
    For i = rng.Areas.Count To 1 Step -1
        Set ar = rng.Areas(i)
        For ii = ar.Cells.Count To 1 Step -1
            Set cell = ar.Cells(ii)
            cell.Offset(1, 0).Resize(6).EntireRow.Insert
            Set NewRng = cell.Resize(7)
            NewRng.Cells(1, 1).Value = «1.Дорожная карта реализации проекта»
            NewRng.Cells(2, 1).Value = «2.График 1-го уровня»
            NewRng.Cells(3, 1).Value = «3.График 2-го, 3 уровня»
            NewRng.Cells(4, 1).Value = «4.График 4 уровня»
            NewRng.Cells(5, 1).Value = «5.МДР»
            NewRng.Cells(6, 1).Value = «6.План по управлению качество»
            NewRng.Cells(7, 1).Value = «7.Программа ИИ»
        Next ii
    Next i

        ‘4. Включения.
    Application.Calculation = calc
    Application.ScreenUpdating = True

    End Sub

[свернуть]

Источник

Like this post? Please share to your friends:
  • Vba excel как записать данные в ячейку
  • Vba excel как заменить символ в строке
  • Vba excel как закрыть файл без сохранения
  • Vba excel как закрыть книгу с сохранением
  • Vba excel как закрыть userform