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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 1425 След.
Разместить в ячейке квадрат по центру
 
Оно?
Просматривая динамический диапазон найти залитую цветом ячейку
 
Как тему назовем?
Вставить изображение в ячейку эксель, Вставить изображение в ячейку эксель
 
Евген1788, свои сообщения можно дополнять, а не беседовать с собой.

Почему у Вас код уходит в debug и почему картинки большие - не скажу. Обход ошибки в макросе вписан. Размеры картинки должны подгоняться под размеры ячеек (сообщение №7). Возможно, где-то ошибка, я не тестировал показанное. Покажите архив: папка, там книга небольшого объема с макросом и правильными ссылками на картинки, рядом пара картинок
Вставить изображение в ячейку эксель, Вставить изображение в ячейку эксель
 
С отступами от границ ячеек:
Код
        With rngPic.Parent.Pictures.Insert(pathPic)
            .Left = rngPic.Left + 2
            .Top = rngPic.Top + 2
            .Height = rngPic.Height - 4
            .Width = rngPic.Width - 4
        End With
Как убрать из формул Оператор неявного пересечения: @ ?
 
Это сработает для новых формул, уже введенные не изменятся.
Как убрать из формул Оператор неявного пересечения: @ ?
 
Ссылка такого вида - ссылка на ячейки умной таблицы. Преобразуйте таблицу в диапазон, ссылки изменятся на  обычные.
Убрать из формул название листа:
сочетание Ctrl+H-НАЙТИ(имя листа с восклицательным знаком и кавычками, если они есть)-ЗАМЕНИТЬ (ничего не пишем)-ОК
Вставить изображение в ячейку эксель, Вставить изображение в ячейку эксель
 
Не проверял:
Код
Sub InsertPic2()
    Dim rngSelect As Range, rngPic As Range
    Dim pathPic As String
    
    Set rngSelect = Selection

    For Each rngPic In rngSelect
        pathPic = rngPic.Value
        
        On Error Resume Next
        
        With rngPic.Parent.Pictures.Insert(pathPic)
            .Top = rngPic.Top
            .Height = rngPic.Height
        End With
        
        On Error GoTo 0
    Next rngPic
    
    Set rngSelect = Nothing
End Sub
Создание таблицы расчета премии
 
Цитата
Андрей 4 написал: не получается- это ответ на последний вопрос.
Так почему в теме куча ненужных вопросов? Уберите лишнее из первого сообщения. Предложите название, отражающее проблему. Заменят модераторы.

Ответы с вариантами скрыты до устранения замечания
Просматривая динамический диапазон найти залитую цветом ячейку
 
Цитата
Мария Аншакова написал: нужно понимание есть в диапазоне или нет
Что Вам даст такое понимание? Заливка ведь не просто так, а для чего-то? Вот это "чего-то" Вам предложили отмечать НЕ ЦВЕТОМ. Для программы работа с заливкой сложнее, чем со значениями.

Для пользователя, кстати, тоже. Видел разукрашенные попугаистые листы с тысячами заполненных строк. Мало того, что при изменении какого-то параметра/значения нужно вручную менять заливку... Увольняется тот, кто заполнял такие шедевры - и книгу можно выкидывать - никто не знает, что означал серенький цвет, а что более серенький )

Мария Аншакова, для Вашего же блага - одумайтесь, учитесь работь с Exсel првильно.)
Запоминание значений при изменении значений
 
А вот сообщение Ваше далеко от идеальности. Что такое цитата - не знаете. Исправьте сообщение.
Создание таблицы расчета премии
 
В этом разделе: один вопрос - одна тема. Перенести тему в платный раздел?
Поиск в строке серий в три и более одинаковых значения подряд
 
Начало серии (формула массива):
Код
=ЕСЛИОШИБКА(ПОИСКПОЗ(1;(A1:K1=B1:L1)*(A1:K1=C1:M1););)
Обойти выполнение макроса при ToggleButton.Value = True
 
Если код в сообщении №12 или подсказка в сообщении №15 не помогают, создавайте тему.
Но, ради всекх форумных святых! Создайте нормальный пример и описание. Не бросайтесь в другую крайность, не нужна форма со всей ее начинкой. только то, что поможет в объяснении задачи
Обойти выполнение макроса при ToggleButton.Value = True
 
И вот так нельзя было описать в первом сообщении? Нельзя было подготовить нормальный пример? Блин, ну, мастер объяснений...
Поледний код проверили? Если что-то опять не так, создайте тему с нормальным описанием и примером.
Обойти выполнение макроса при ToggleButton.Value = True
 
Цитата
Я в Вщше условие вставил Else
Как Вы там чего навставляли - одному Вам известно.

Цитата
условия друг другу противоречат.
Это Ваше описание противоречит логике.

Как я понимаю, работать должно так.
При нажатии кнопки выполняется макрос ToggleButton1, как будто ToggleButton1.Value = False, независимо от того, в каком положении находится ToggleButton1 Т.е. : .Value принимает значение True, надпись и цвет должны соотетствовать True

Правильно описана задача? Тогда так:
Код
Private Sub CommandButton1_Click()
    ToggleButton1.Value = False
End Sub
 
Private Sub ToggleButton1_Click()
    With ToggleButton1
        If .Value = True Then
            .BackColor = vbYellow
            .Caption = "Âûéòè"
        Else
            .BackColor = -2147483633
            .Caption = "Âîéòè"
        End If
    End With
End Sub
Обойти выполнение макроса при ToggleButton.Value = True
 
Надо не мультики показывать, а пример с измененным кодом. То, что я Вам показал - там надпись НЕ МЕНЯЕТСЯ! Как она может меняться, если Вы сами писали - макрос не должен выполняться?!

Опишите в первом сообщении НОРМАЛЬНО задачу. Для чего это и как должно быть, все остальное удалю.  Иначе бред сивой кобылы получается, а не объяснение.
По логике - да, при изменении значения и надпись надо менять. Но Вы же писали - не менять. Не прямо так писали, но - макрос не должен выполняться. А как изменится надпись? Ветром?
Удаление строк на листе по заданному условию
 
Если есть часть текста, то
     удаляем 1:52
иначе
     удаляем 1:53
конец условия

И не надо их выделять:
Rows("1:52").Delete
Обойти выполнение макроса при ToggleButton.Value = True
 
п.2 и 3 - как работал выключатель, так и работает.
п.1 - нажали кнопку - перевели выключатель в True, но НЕ МЕНЯЛИ надпись на кнопке!!! Вы же сами писали, что макрос не должен сработать! Т.е. пр нажатии на кнопку хоть 100 раз ни надпись, ни цвет меняться не должны.
Поиск в строке серий в три и более одинаковых значения подряд
 
Исправил сообщение. Подразумевалось: несколько серий в строке
Поиск в строке серий в три и более одинаковых значения подряд
 
Первая серия 4 подряд, правее - 5 подряд, еще правее - 3 подряд... Какая из них должна быть найдена?
Обойти выполнение макроса при ToggleButton.Value = True
 
Цитата
НСС написал: чтобы при вызове события CommandButton_Click значение ToggleButton принимало True, но при этом не срабатывал макрос в событии ToggleButton_Click.
Это есть. Выключатель в True. Надпись Войти/Выйти не менялась, но Вы сами так пожелали.
Если до этого было  Value=True, то кнопка сработает на переключение при нажатии, если было Value=False, то теперь кнопку нужно нажать два раза.
Обойти выполнение макроса при ToggleButton.Value = True
 
А это кто писал?
Цитата
но при этом не срабатывал макрос в событии ToggleButton_Click
Пишите строку не в начале:
Код
If bFlag = False Then
      ' здесь блок строк, которые не должны срабатывать
End If
заполнить данными из массива ComboBox UserForm
 
Лучше массив заполняйте "нормальный". ReDim Preserve медленный, Transpose медленный
заполнить данными из массива ComboBox UserForm
 
Ваш массив - горизонтальный, список - вертикальный
Как перенести содержимое одних столбцов в другие по определённому правилу?
 
Здесь решения не выкладываем
заполнить данными из массива ComboBox UserForm
 
По сообщению непоятно, в каком модуле (сверху код формы, снизу - общего модуля). Пример?

Странное размещение Dim apost(). Почему в цикле?
Обойти выполнение макроса при ToggleButton.Value = True
 
Код
Dim bFlag As Boolean

Private Sub CommandButton1_Click()
    bFlag = True
    ToggleButton1.Value = True
    bFlag = False
End Sub

Private Sub ToggleButton1_Click()
    If bFlag = False Then
........................
заполнить данными из массива ComboBox UserForm
 
Публичную переменную нужно объявлятъ в общем модуле
Как выделить шрифт текста красным цветом по шаблону/маске?
 
Что с первой Вашей темой? Вы как-то стесняетесь там написать чего-нибудь...
Строка общей суммы в конце таблицы, Нужна помощь с добавлением строки снизу таблицы или формула сдвига на одну строку при добавлении.
 
О, да там умная таблица... Запишите макрорекодером вставку итоговой строки.
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 1425 След.
Наверх