Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » duty-free
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
выполнить все условия одной строкой
 
#
30.07.2018 11:43:24
Здравствуйте, есть строка кода:
Код
If Range("AE" & i) = 1 And Range("AE" & i - 1) = 0 And (Range("AE" & i + 1) = 1) Or (Range("AE" & i + 1))) = 0 Then
которую приходиться разбивать на два If, из-за последнего оператора Or:
Код
If Range("AE" & i) = 1 And Range("AE" & i - 1) = 0 And (Range("AE" & i + 1) = 1) ) Then....
If Range("AE" & i) = 1 And Range("AE" & i - 1) = 0 And (Range("AE" & i + 1)) = 0 Then..
тогда всё работает,
возможно ли выполнить код в одной строке, в первоначальном варианте, что там я неверно делаю?
Изменено: duty-free - 30.07.2018 12:16:11
дьюти_фри - сила!
а раз есть сила- то ума не надо
 
Перейти    
новый модуль по мотивам двух старых, соответственно куча одинакових названий макросов получается
 
#
23.07.2018 13:17:39
Здравствуйте слово Private Sub как то может помочь, чтобы макросы запускались только из нового модуля и не было ошибок при выполнении ? или что то можете подсказать по етой теме  ?
(Витольд, здравстуйте))
дьюти_фри - сила!
а раз есть сила- то ума не надо
 
Перейти    
вставка примечания в ячейку содержащую определённый текст, макрос ищет текст, затем ЧАСТЬ из этого текста вставляет в причание к этой же ячейке
 
#
15.07.2018 08:59:49
Здравствуйте, нужно найти текст в столбце, например "вася(федя)" , в ячеке с етим текстом нужно создать примечание из части текста: (федя),
см. в файле:
може кто поможе?
Изменено: duty-free - 15.07.2018 09:22:20
дьюти_фри - сила!
а раз есть сила- то ума не надо
 
Перейти    
В таблице скрыты все строки, как определить, что все строки скрыты в таблице?
 
#
09.07.2018 11:30:38
Здравствуйте,  т.е. Range("F" & i). весь полностью скрыт, и чтобы не терять время нужно сразу перехватывать ето событие ,
можно както так  зделать:
If Range("F" & i).Visible= False Then
.................
End If
?
дьюти_фри - сила!
а раз есть сила- то ума не надо
 
Перейти    
Как сделать подпись внизу сообщения
 
#
01.07.2018 12:03:24
каким образом лично мне его создать, вот как здесь в примере:.

буду премного благодарен за подсказку, оч надо!
дьюти_фри - сила!
а раз есть сила- то ума не надо
 
Перейти    
Синтаксис и принцип работы оператора ветвления IF
 
#
19.06.2018 19:19:38
вот, в таком примере: Range("Y" & i).FormulaR1C1 = "" чет я запутался совсем(
дьюти_фри - сила!
а раз есть сила- то ума не надо
 
Перейти    
Надстройка установлена на несколько рабочих мест, как обеспечить сохранение данных в листах-надстройках?
 
#
08.06.2018 10:34:19
Здравствуйте, как как обеспечить сохранение данных в листах-надстройках, при одновременном использовании данной надстройки несколькими пользователями, есть ли какие решения? что можете посоветовать?
дьюти_фри - сила!
а раз есть сила- то ума не надо
 
Перейти    
Создать новый макрос в надстройке, Замена текста в столбце из листа-надстройки
 
#
16.03.2018 11:05:56
Задание в прилагаемом файле, все доп файлы вышлю, цена вапроса от 700р.
Изменено: arelgi - 16.03.2018 12:04:03
дьюти_фри - сила!
а раз есть сила- то ума не надо
 
Перейти    
Доработка макроса, макрос вставляет данные в непустую ячейку и затирает первую строку
 
#
24.01.2018 13:49:54
Нужно наладить в коде, чтобы вставлялась первая строка в ячейку со сдвигом всей кучи вниз(сейчас затирает первую строку) ,  сама часть кода, отвечающего за вставку выглядет вот так:
'6) Остальные позиции.
       For ii = 2 To good.Pos.Rows.Count
           ' Могут быть внутренние допы.
           If good.Pos.Cells(ii, "B").Value <> "" Then
               res = res & Chr(10) & good.Pos.Cells(ii, "I").Value
           End If
       Next ii
в файле опесание визуальное проблемы, желающим покажу и расскажу подробнее что где и почём(от 500₽).
Изменено: arelgi - 24.01.2018 13:53:46 (устал)
дьюти_фри - сила!
а раз есть сила- то ума не надо
 
Перейти    
изменение атрибутов файла, сохранение файла ексель с произвольными атрибутами, а именно: в строке "кем изменено" прописывать любое имя
 
#
21.11.2017 13:40:18
типа вот так чтобы было можно сохранять файл, цена вапроса= 1000р.
дьюти_фри - сила!
а раз есть сила- то ума не надо
 
Перейти    
сохранение файла ексель с произвольными атрибутами, а именно: в строке "кем изменено" прописывать любое имя?
 
#
12.11.2017 14:23:40
може есть какой-нить макрос для етого дела? интересует именно момент сохранения- просто прописывать  .Item("Last Author") = "тест"- потом его нету после сохранения.
дьюти_фри - сила!
а раз есть сила- то ума не надо
 
Перейти    
Форматирование ячеек с датами, больше или меньше текущей
 
#
20.09.2017 13:15:10
В прилогаемом примере в столбце D находтся даты, нужно чтобы красило примерно так: если текущая дата больше даты в столбце D на 10 дней - зеленый цвет;
если меньше  10 дней или равно - желтый цвет, если просто меньше текущей даты , то красный, помогиите пожалуста немащному.
дьюти_фри - сила!
а раз есть сила- то ума не надо
 
Перейти    
Ячейка визуально выглядит как дата со временем, но данные не меняются при смене формата ячейки
 
#
04.07.2017 10:49:25
например: если вручную войти в ячейку H4, то всё становится на свои места: при смене формата ячейки формат данных меняется. можно макросом зделать что нибуть в етой теме?
или же что можете посоветовать мне немащному?спосибо.
дьюти_фри - сила!
а раз есть сила- то ума не надо
 
Перейти    
макрос удаления текста по условию (поиск второго пробела)
 
#
15.06.2017 16:07:33
Здравствуйте, макрос удоляет вот етот текст: "КОД ОКП #:" , ниже приведён фрагмент кода, который ето выполняет:  
Код
 ' Поиск фразы "КОД ОКП".
        lngInStrStart = InStr(lngInStrStart, strCellText, "КОД ОКП", vbTextCompare)
' Поиск двоеточия, начиная с найденной позиции.
       lngInStrEnd = InStr(lngInStrStart, strCellText, ":")

мне необходимо чтобы вместо двоеточия макрос искал второй пробел, надеюс на вашу помащь!
дьюти_фри - сила!
а раз есть сила- то ума не надо
 
Перейти    
поиск в таблице чисел с определенным форматом(больше 5 нулей после запятой), есть код рабочий, как в нём реализовать вышеуказаную тему??
 
#
08.04.2017 20:42:17
Код
Sub row_hide()
    On Error Resume Next
    Dim rCell As Range, rSel As Range
    Dim lrow%
    Set dicrows = CreateObject("Scripting.Dictionary")
    
    lrow = Cells(Rows.Count, 1).End(xlUp).Row
    For Each rCell In Range("a4:z" & lrow)
        'If rCell < 0 Then
        If rCell.NumberFormat >= "0.00000" Then
            dicrows.Item(rCell.Row) = rCell.Row
            rCell.Interior.Color = 16766561
            If rSel Is Nothing Then
                Set rSel = rCell
            Else
                Set rSel = Union(rSel, rCell)
            End If
        End If
    Next
    If Not rSel Is Nothing Then
        
        Range("a4:z" & lrow).EntireRow.Hidden = True
        rSel.EntireRow.Hidden = False
        ActiveWindow.ScrollRow = 4
        MsgBox "покрашено " & dicrows.Count & " строк!"
        ActiveWindow.ScrollRow = Cells(Rows.Count, 1).End(xlUp).Row 'так буде чоттче!
    Else
        MsgBox "Всё чотко!"
    End If
End Sub
я вот так сделал:  If rCell.NumberFormat >= "0.00000" Then
но, походу неверно , что можете посоветовать, товарищи программисты ?
Изменено: arelgi - 08.04.2017 20:43:49
дьюти_фри - сила!
а раз есть сила- то ума не надо
 
Перейти    
удаление всех строк в таблице, всех, кроме шапки, не могу назначить переменную на начало таблицы
 
#
05.04.2017 22:28:35
Здравтсвуйте, госпада и дамы!
Сейчас в прилогаемом коде начало таблицы = 22 строка, но шапка "плавает" , как назначить переменную на ето дело?
Sub myHidden()
   Dim i As Long, lastRow As Long
   lastRow = Cells(Rows.Count, "a").End(xlUp).Row  'номер последней непустой строки
   For i = lastRow To 22 Step -1
       Rows(i).Delete Shift:=xlUp
   Next  
End Sub

выручайте хлопцы!
дьюти_фри - сила!
а раз есть сила- то ума не надо
 
Перейти    
копирование файла по указанному адресу
 
#
06.02.2017 11:05:42
Здравствуйте,какой нужен макрос:
1)чтобы  перед закрытием книги он сохранял ее и делал копию по указанному адресу: "\\Qnap\gtd_new\ИНВОЙСЫ ЭД\Надстройки", с выставлением разницы в ячейке [a1] сколько прошло времени между открытием файла и его закрытием, после чего макрос должен самоудалиться.
2)чтобы формат файла не менялся(по умолчанию будет: ".xls"
3)никаких сообщений не должно быть
4)нужно сделать надстройку, чтобы при её запуске в произвольной папке вышеуказанный макрос прописывался во все файлы с расширением «.xls»,  с выставлением пароля(12345) на проект.
Изменено: arelgi - 06.02.2017 11:20:30
дьюти_фри - сила!
а раз есть сила- то ума не надо
 
Перейти    
Страницы: 1
Наверх