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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 69 След.
Трнспонирование данных из столба в строки блоками на другой лист, Как реализовать цикл?
 
:D  
Трнспонирование данных из столба в строки блоками на другой лист, Как реализовать цикл?
 
По-другому :)  :
Код
Sub qqq()
    Dim lr1  As Long   'строка на листе 1
    Dim lr2  As Long   'строка на листе 2
    Dim lc2  As Long   'столбец на листе 2
    lr2 = 1
    lc2 = 1
    ThisWorkbook.Worksheets("Один").Activate
For lr1 = 2 To Cells(Rows.Count, 1).End(xlUp).Row
  If Worksheets("Один").Cells(lr1, 1).Value <> "" Then
     Worksheets("Два").Cells(lr2, lc2).Value = Worksheets("Один").Cells(lr1, 1).Value
     lc2 = lc2 + 1
  Else
     lr2 = lr2 + 1
     lc2 = 1
  End If
Next lr1
End Sub
Раскрытие числовых последовательностей
 
Например так :)
Код
For i = 1 To 10
    'MsgBox i
    Debug.Print i
Next i
Как получить номера строк выделенных ячеек с учетом фильтра для использования в макросе VBA?
 
Вариант:    
Код
    Dim lr As Long
    Dim i As Long
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
 If Rows(i).Hidden = False Then
    MsgBox Cells(i, 2).Value
    'здесь Ваш код со ссылкой на Cells(i, 2).Value
 End If
Next i
Замена формул в ячейках на их значения при помощи макроса
 
В модуль листа 2 (правая клавиша мыши по ярлычку листа -> "Исходный текст"):
Код
Private Sub Worksheet_Change(ByVal Target As Range)
   Dim lr As Long
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("A1:A100000")) Is Nothing Then
   lr = Target.Row
   Worksheets("Лист1").Range("A" & lr).Value = Worksheets("Лист1").Range("A" & lr).Value
End If
End Sub
Насчет пароля лучше отдельную тему создать и в ней подробно объяснить при каких условиях должна ставиться и сниматься защита.
Макрос переноса с одного листа в таблицу?, Как реализовать макрос переноса с одного листа в таблицу?
 
С объединенными ячейками потом возникнут проблемы. Лучше Вам пойти другим путем :)
Блокировка ячейки при двух условиях
 
см. пример. Определенное слово - "нет".  И внимательно почитайте это, в будущем пригодится :)
Перевести в ссылки весь диапазон
 
У Вас дело не в пробелах. Форматы ячеек должны быть одинаковыми. А ошибка в указанной строке появляется когда нет такого слова на втором листе, Find не может найти то, что нужно, тем более что во втором примере данные уже в другом столбце. Сделайте так:
Код
Sub CreateHypelink_1()
    Dim iCell As Range, sAddr
    Worksheets("Хранение").Activate
    Application.ScreenUpdating = False
    For Each iCell In Worksheets("Хранение").Range("E3:E110")
        On Error Resume Next
        If iCell.Value <> "" Then
           sAddr = Worksheets("Хранение детали").Range("E1:E1400").Find(What:=iCell.Value).Address
          If Err = 0 Then
             iCell.Hyperlinks.Add anchor:=iCell, Address:="", SubAddress:="'" & "Хранение детали" & "'!" & sAddr
          Else
             Err.Clear
          End If
        End If
    Next
    Application.ScreenUpdating = True
End Sub
И уберите пробелы между строк в 1-м и 5-м сообщениях, Вам же модератор про это сказал!
Перевести в ссылки весь диапазон
 
Это уже совсем другой вопрос. Создайте новую тему с этим вопросом.
Перевести в ссылки весь диапазон
 
файл покажите
Сравнить и выровнять две таблицы
 
Так?
Перевести в ссылки весь диапазон
 
Вариант:
Код
Sub CreateHypelinkInTextCellv2()
    Dim iCell As Range, iText$, sAddr
    For Each iCell In Worksheets("Лист1").[E2:E15]
        iText = iCell.Value
        If iText <> "" Then
        sAddr = Worksheets("Лист2").Range("C1:C10000").Find(What:=iText).Address
        iCell.Hyperlinks.Add anchor:=iCell, Address:="", SubAddress:="'" & "Лист2" & "'" & "!" & sAddr
        End If
    Next
End Sub
Изменено: _Igor_61 - 21 Июн 2019 15:51:14 (забыл файл прилепить :))
Необходимо значение типа 1/23 пребразовать в число 1 и 23 и т д.
 
Пожалуйста  :)  
Необходимо значение типа 1/23 пребразовать в число 1 и 23 и т д.
 
Можно так:
в "А2": =ПРАВСИМВ(A1;ДЛСТР(A1)-НАЙТИ("/";A1))
в "А3": =ЛЕВСИМВ(A1;НАЙТИ("/";A1)-1)
Скрыть пустой столбец
 
Вариант:
Код
Sub Hide_Col()
    Dim sTov  As String  'товар
    Dim lCol As Long     'столбец
    Dim lRow As Long     'строка
    ThisWorkbook.Worksheets("Лист1").Activate
On Error GoTo Er1
'получаем значение из автофильтра:
    sTov = Replace(Worksheets("Лист1").AutoFilter.Filters(1).Criteria1, "=", "")
'строка с выбранным товаром:
    lRow = Range("A2:A1000").Find(What:=sTov).Row
'проходим циклом по столбцам и скрываем пустые:
For lCol = 8 To Cells(1, Columns.Count).End(xlToLeft).Column
    If Cells(lRow, lCol).Value = "" Then
       Columns(lCol).EntireColumn.Hidden = True
    End If
Next lCol
    Exit Sub
Er1:
    MsgBox "Не выбран товар    "
End Sub
Скрыть пустой столбец
 
А где выпадающий список? Или его тоже нужно сделать?
Задать размер шрифта в колонтитуле., Как записать колонтитул и правильно считать?
 
Вариант:
Код
Option Explicit
Dim T_kol As String

Sub Right_Colontit()
    T_kol = "&8Мой текст"
    ActiveSheet.PageSetup.RightHeader = T_kol
End Sub

Sub Stroka_()
MsgBox Mid(T_kol, 3, 100)
End Sub
Определение макросом номера строки по соответствию значений в двух не смежных ячейках умной таблицы, Аналогично названию темы
 
Например, если значения находятся в первом и четвертом столбцах, тогда можно так попробовать:
Код
For i = 2 To Cells(Rows.Count, 1).End(xlUp).row
    If Cells(i, 1).Value = ComboBox1.Value And _
       Cells(i, 4).Value = ComboBox2.Value Then
       MsgBox "Совпадение в строке " & (i)
       Exit For
    End If
Next i
как в VBA отследить вставку/удаление строки (столбца)?
 
Код
Private Sub Worksheet_Change(ByVal Target As Range)
Выплывающий список из элементов checkbox
 
Цитата
Dan9 написал:
не могу разобраться, как заставить это работать : )
Возможно кто-то предложит альтернативу или поможет разобраться в приведенном примере
Dan9, выложите Ваш файл с Вашим кодом, чтобы можно было посмотреть что именно и где у Вас не подучается
Не менять формулу при добавлении ячейки
 
БМВ, да, конечно. Привык просто к ДВССЫЛ  :)
Не менять формулу при добавлении ячейки
 
Код
=ЕСЛИ(B4=ДВССЫЛ("C"&СТРОКА());"Да";"Нет")
Можно ли в Excel 2003 получить зеркально-отраженный текст?
 
Таблица соответствий в коде страницы по первой ссылке:
Скрытый текст
Нет там никакого зеркала, а просто подобраны символы, похожие на зеркальное отражение, где-то похоже, а где-то не очень похоже.
Как вариант - делайте замену символов в Excel-е, а потом копируйте в блокнот  ;)
Автоматическое заполнение полей формы из базы
 
Цитата
ilovebreak написал:
Это можно сделать с помощью формы?
Можно. Там есть такие хорошие штуки - ComboBox и ListBox
Цитата
ilovebreak написал:
с формами более или менее знакома
а про эти штуки не знаете?   ;)
Заполнить диапазон значениями на основании исходных данных по четырем критериям
 
Вариант:
Изменено: _Igor_61 - 27 Май 2019 22:39:12
Копирование объединенного диапазона ячеек, Копирование диапазона ячеек с определенным условием.
 
Непонятно по какому принципу выбираются строки для копирования и вставки. Во вложении примерно код накидал, допилите сами как Вам нужно.
Отсортировать столбец по возрастанию другого столбца (формулами)
 
manat78, в F15 можно заменить E15 на СТРОКА()-14 и тогда столбец "Е" не нужен  :)  
Извлечь значения разделенные слэшем и суммировать по критериям
 
"POMEGRANATE BERRY BOOST" - это  JUICE или SAUCE? По каким признакам из текста в первом столбце можно это узнать?
Как формулой отследить, какая возникла ошибка?
 
RAN, здравствуйте, а таблицу соответствий? :)
P.S. попробовал вникнуть подробней - довольно напряжно такую таблицу будет сделать, только если по самым-самым  ключевым словам, как вариант... а там уж дальше искать...
Изменено: _Igor_61 - 26 Май 2019 13:46:01
Удаление дубликатов слов с одинаковой словоформой - часть 2
 
Fsociety_, доброго вечера Вам! Никто не собирается и не хочет
Цитата
Fsociety_ написал:
зайти в тему и нагадить в ней.
Не зря же Вам задают встречные вопросы - это говорит о том, что в задаче много непонятного и неопределенного. Как с такой постановкой вопроса дать конкретное решение? Вам понятно, что Вы хотите получить в результате, но это понятно только Вам. А в помощи здесь никому не отказывают.
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 69 След.
Наверх