Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Выбрать дату в календареВыбрать дату в календаре

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 1803 След.
Как правильно использовать Range.Offset, если используемая ячейка объединена с другой?
 
Ещё: ?range("A10").Cells(1,2).offset(-2,0).address
Как правильно использовать Range.Offset, если используемая ячейка объединена с другой?
 
Вот такая штуковина:
?range("A10")(-1,2).address
Как правильно использовать Range.Offset, если используемая ячейка объединена с другой?
 
Андрей, привет! А костыль в виде "ход конём" (двойное смещение) не подойдёт?
?range("A10").Offset(-2,0).Offset(0,1).Address
Макрос автоматического копирования значений из диапазона на другой лист, Корректировка макроса
 
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
    With Sheets("Лист2")
        If Not Intersect(Target, Range("A1:A5")) Is Nothing Then
            Range("A1:A5").Copy .Range("D1")
        End If
        If Not Intersect(Target, Range("B1:B5")) Is Nothing Then
            Range("A1:A5").Copy .Range("E1")
        End If
        If Not Intersect(Target, Range("C1:C5")) Is Nothing Then
            Range("A1:A5").Copy .Range("F1")
        End If
    End With
End Sub

Ошибка Exception from HRESULT: 0x800A03EC, надстройка Office для Microsoft Dynamics AX
 
RuslanBore, а Ваш вопрос как связан с ЭТОЙ темой?
И по поводу кода: копируйте при русской раскладке - не будет проблем с кириллицей.
Дата последнего обновления в ячейке VBA
 
Тогда Offset(3, 2) - на три строки ниже и два столбца правее.
Дата последнего обновления в ячейке VBA
 
Формула на позицию ячейки с датой никак не влияет. Адрес ячейки определяется смещением: Offset(0, 2) - в той же строке, на два столбца правее.
Дата последнего обновления в ячейке VBA
 
Роман, Вы код из #12 проверили?
Дата последнего обновления в ячейке VBA
 
Роман, #12 видели?
Дата последнего обновления в ячейке VBA
 
Роман, не могу понять, зачем в Вашем варианте цикл перебора ячеек, если контролируете всего одну.
Изменил код только в части контролируемой ячейки и смещения - адреса ячейки с датой.
Код
Private Sub Worksheet_Change(ByVal Target As Range)
'Update 20140722
Dim WorkRng As Range
Dim Rng As Range
Dim xOffsetColumn As Integer
Set WorkRng = Intersect(Application.ActiveSheet.Range("A1"), Target)
xOffsetColumn = 1
If Not WorkRng Is Nothing Then
    Application.EnableEvents = False
    For Each Rng In WorkRng
        If Not VBA.IsEmpty(Rng.Value) Then
            Rng.Offset(0, 2).Value = Now
            Rng.Offset(0, 2).NumberFormat = "dd-mm-yyyy, hh:mm:ss"
        Else
            Rng.Offset(0, 2).ClearContents
        End If
    Next
    Application.EnableEvents = True
End If
End Sub

Если в ячейке слов больше, чем (значение), то применить действие, либо удалить, либо отметить цветом, например
 
Его не нужно запускать вручную - сработает автоматически при изменении в ячейке.
Дата последнего обновления в ячейке VBA
 
Что сложного? Выделяем текст и жмём кнопку. Исправил.
По вопросу: Вы сейчас контролируете столбец В. Контролируйте А.
Дата последнего обновления в ячейке VBA
 
Цитата
Юрий М написал:
код следует оформлять соответствующим тегом
Начните с этого.
Дата последнего обновления в ячейке VBA
 
Роман, реагировать на замечание собираетесь?
Дата последнего обновления в ячейке VBA
 
Роман, код следует оформлять соответствующим тегом: ищите такую кнопку (см. скрин) и исправьте своё сообщение.
По вопросу: попробуйте отслеживать изменение не в ячейке с формулой, а в той, на которую ссылается формула.
Или используйте событие Calculate, но тогда будет реакция при любом пересчёте листа.
===
P.S. Прикрепляя запароленный файл и не сообщив пароль, Вы проявляете неуважение к форумчанам.
При экспорте в XML не выгружается весь диапазон.
 
Цитата
vgrafskov написал:
Таблицу которую нужно выгрузить можете сделать сами,
Прикольно! А кому нужно решение?
Консолидация результатов реализации по индивидуальным значениям
 
Если "в основном", то и не упоминайте Мас, чтобы избежать лишней переписки. Но потом не удвиляйтесь, если в Мас что-то пойдёт не так.
Консолидация результатов реализации по индивидуальным значениям
 
Kurpatov88, кнопка цитирования не для ответа! Да и не цитата у Вас в #3, а полная копия сообщения Андрея.
Вопрос по Мас? - тогда создавайте тему в соответствующем разделе.
Продолжительность текущей и максимальной серий при смене значения.
 
Название поменял. В следующий раз сами давайте адекватные названия своим темам.
Почему файл csv открывается с абркадаброй?
 
Vadik_jet, забыли что-то написать в сообщении? Его можно редактировать, а новое для этого создавать совсем необязательно.  
Продолжительность текущей и максимальной серий при смене значения.
 
vad908, что текущая, Что максимальная? Вопрос в чём?
Перечитайте своё название: ... максимальной серии. Я бы понял, например, длительность максимальной серии. А у Вас что подразумевается?
Продолжительность текущей и максимальной серий при смене значения.
 
Вопрос по названию темы:
Цитата
vad908 написал:
текущая серия и максимальной серии
ЧТО максимальной серии?
Генерация таблицы с определенными словами и разными цветами
 
Цитата
vikttur написал:
Используйте оператор Randomize, Rnd
Цитата
sergexcel написал:
на это у меня хватает навыков
Почему не показали это в файле? Поменяйте его.
Как из текста-каши получить первое русское слово
 
Цитата
getana написал:
Вспомнил очень важный момент
Был бы важный - не забыли.
И опять старая песня: вопрос не имеет отношения к этой теме.
Как из текста-каши получить первое русское слово
 
getana, а какое отношение этот Ваш вопрос имеет к заявленной теме?
Обьединение 2-х макросов в рамках одной процедуры "Worksheet_Change"
 
a.m.v., код следует оформлять соответствующим тегом: ищите такую кнопку (см. скрин) и исправьте своё сообщение.
"счётеслимн" не хочет считать
 
paff, Вы, случайно, темой не ошиблись?
Если в ячейке слов больше, чем (значение), то применить действие, либо удалить, либо отметить цветом, например
 
В моём варианте никаких формул нет. Но есть макрос, который отслеживает изменения в столбце А. В файле был показан один столбец - для него и сделал.
Привидение содержания двух столбцов к одинаковому виду
 
Цитата
Judgin написал:
Привидение
Judgin, Вы о каких привидениях? ))
Очистить содержимое ячеек с искомым сочетанием символов в начале
 
Код
Sub Macro1()
Dim i As Long, LastRow As Long, Txt As String
    Txt = "1-"
    LastRow = Cells(Rows.Count, 9).End(xlUp).Row
    For i = 1 To LastRow
        If Cells(i, 9) Like Txt & "*" Then Cells(i, 9).ClearContents
    Next
End Sub
Если строк ОЧЕНЬ много, то лучше сделать на массиве.
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 1803 След.
Наверх