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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 15 След.
Обновление данных в таблице
 
вы написали этот вопрос в платной теме - уверены?
если что - написал на почту.
Изменено: heso - 19 Авг 2019 14:36:01
Макрос по удалению значений из ячеек (платно), Нужен макрос
 
Не очень понял, но если товарищи Александр и БМВ не взялись за задание - готов попробовать.
В работе.

Выполнено, оплачено.
Изменено: heso - 15 Июл 2019 07:42:43
Округление значения до определенного числа, с условием
 
ошибка то скорее всего потому, что у автора стиль ссылок в эксэле не R1C1, а А1
Сделать таблицу выходов муз.треков
 
Выполнено, оплачено
Сделать таблицу выходов муз.треков
 
Написал в ЛС
В работе.
Изменено: heso - 22 Мар 2019 20:49:06
[ Закрыто] Нужна помощь по VBA и .dat, Прошу помощи в коде
 
Добрый день,
Вы бы скинули не скриншоты, а примеры самих файлов+ваши наработки модуля кнопки для формы.
Определение границ интервалов, в которых значение ниже заданного критерия
 
подкорректировал предыдущий ответ
Быстрый способ копирования содержимого ячейки из одной таблицы в другую
 
  1. Я бы заранее создал отдельный столбец с идентификаторами для каждой таблицы
  2. Прошелся бы новому столбцу идентификаторов первой таблице for'ом, а по второй искал бы в столбце идентификаторов Find'ом
Вы пример бы приложили файла(-ов): так бы вам быстрее помогли.
Определение границ интервалов, в которых значение ниже заданного критерия
 
Код
For i = 0 To UBound(AllText)
    If AllText(i) <> "" Then
        buff = Split(AllText(i), " ")
        For j = 0 To UBound(buff)
            Values(i + 1, j + 1) = buff(j)
        Next j
    End If
Next i
InsideInterval = False
For i = 1 To UBound(Values, 1)
    With Worksheets("Sheet1")
       'Debug.Print (Values(i, 1) & " " & Values(i, 2) & " " & Values(i, 3))
        If InsideInterval = False And Values(i, 2) < Values(i, 5) Then
            InsideInterval = True
            lLastRow = .Cells(Rows.Count, 1).End(xlUp).Row
            Top = Values(i, 1)
            .Cells(lLastRow + 1, 1) = Top
        End If
        If InsideInterval = True And Values(i, 2) > Values(i, 5) Then
            InsideInterval = False
            lLastRow = .Cells(Rows.Count, 2).End(xlUp).Row
            Bottom = Values(i - 1, 1)
            .Cells(lLastRow + 1, 2) = Bottom
        End If
        If InsideInterval = True And i = UBound(Values, 1) Then
            InsideInterval = False
            lLastRow = .Cells(Rows.Count, 2).End(xlUp).Row
            Bottom = Values(i, 1)
            .Cells(lLastRow + 1, 2) = Bottom
        End If
    End With
Next
      
Изменено: heso - 11 Мар 2019 13:00:52
Макрос для переадресации писем в Outlook, Нужен макрос, который будет просматривать письма в выбранной папке Outlook по условию в теме письма (скорее всего ФИО) и перенаправлять его адресату. Условия (ФИО и адрес электронной почты) содержаться в таблице Excel
 
Задание уже не актуально/выполнено?
Если в столбце с третьей строки нет записей, то сообщение, иначе цикл
 
Код
lrow = Cells(Rows.Count, 8).End(xlUp).Row
If lrow < 4 Then
    MsgBox "ячейки пустые"
Else
    For i = 1 To 2
        'тело цикла
    Next
End If
Сделать экселевский файл, нужно сделать файл со сложной структурой и макросами
 
день добрый,
какой предполагаемый бюджет?
Подсчет количества по заданным условиям
 
Отписал на почту
В работе
Выполнено, оплачено.
Изменено: heso - 13 Окт 2017 19:51:09
Применение макроса к нескольким листам, Помогите модифицировать
 
Код
Sub Del_rows()
    Dim x As Range
    Application.ScreenUpdating = False
    For Each sh In Sheets
    
        If sh.Name = "один_из_листов" Then
            Set f_column = sh.[G:G]
        Else
            Set f_column = sh.[F:F]
        End If
        
        Set x = Intersect(sh.UsedRange, f_column)
        f_column.AutoFilter Field:=1, Criteria1:="0"
        x.Offset(1).Resize(x.Rows.Count).SpecialCells(xlCellTypeVisible).EntireRow.Delete
        f_column.AutoFilter
    Next
    Application.ScreenUpdating = True
End Sub
Изменено: heso - 2 Окт 2017 08:38:56
Логи по всем действиям, производимым в файле
 
ScorpionS, Вы не это ищете?
Расчет данных
 
отписал на почту.
В работе
Изменено: heso - 5 Июл 2017 15:28:48
Группировка фраз, Функционал группировки фраз по определенным правилам
 
отписал на почту.
В работе.
Выполнено, оплачено.
Изменено: heso - 27 Июн 2017 15:00:10
Добавление комментариев к пользовательским функциям (UDF)
 
Либо попробуйте воспользоваться данной надстройкой.
Она полностью выполняет то, что вы хотите.
Добавление комментариев к пользовательским функциям (UDF)
 
Либо, можете после набора имени UDF нажать CTRL + SHIFT + A
т.е., к примеру:
"=сцепитьмассив(" +  CTRL + SHIFT + A
Если названия аргументов осмысленные, то будет удобно
Изменено: heso - 23 Июн 2017 11:15:25
автоматическое добавление строк
 
"умные" таблицы
Изменено: heso - 22 Июн 2017 14:28:42
Помощь по XML. Как сделать фиксирующую кнопку (toggleButton) на ленте динамической?
 
так?
xml:
Код
<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui" onLoad="BoldLoad">
   <ribbon startFromScratch="false">
      <tabs>
         <tab id="Bold" label="Bold">
            <group id="Bold2" label="Bold">
               <toggleButton id="d111" imageMso="A" getPressed="Mac_BoldGetPR" onAction="Mac_Bold" />
            </group>
         </tab>
      </tabs>
   </ribbon>
</customUI>
vba:
Код
Private WithEvents App As Application

Private Sub Workbook_Open()
    Set App = Application
End Sub

Private Sub App_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    g_objRibbon.InvalidateControl "d111"
End Sub
Код
Public g_objRibbon As IRibbonUI

Public Sub BoldLoad(Ribbon As IRibbonUI)
    Set g_objRibbon = Ribbon
End Sub

Sub Mac_Bold(control As IRibbonControl, ByRef Pressed)  'непосредственно макрос
   Selection.Font.Bold = Not Selection.Font.Bold
End Sub
 
Sub Mac_BoldGetPR(control As IRibbonControl, ByRef Pressed) 'макрос на свойство GetPressed
    Pressed = Selection.Font.Bold
End Sub
Ошибки Plex 2017.2
 
Если что, косяк в
Код
If Dir(Me.txtSaveFolderPath) = "" Then
    ...
End If
Dir выдает ошибку, т.к пытается найти конкретный файл по введённому адресу, а не папку с файлами.
Если вручную поставить слэш в конце, то код упадет, когда формируется строка для сохранения в макросе.

Поправить можно, просто дополнив функцию Dir атрибутом vbDirectory:
Код
If Dir(Me.txtSaveFolderPath, vbDirectory) = "" Then
    ...
End If
Изменено: heso - 19 Июн 2017 20:45:16
копирование файла по указанному адресу
 
arelgi,
Валерий, а с кем тогда я в почте переписывался?)
Нумерация уже напечатанных листов.
 
Kusjya,
Скрытый текст
Изменено: heso - 8 Июн 2017 14:32:30
Ошибка доступа при загрузке страницы сайта
 
http://www.moex.com....
Изменено: heso - 6 Июн 2017 14:40:46
Скрыть строку если в определенной ячейке этой строки 0
 
макросом
в модуль листа:
Код
Private Sub WorkSheet_Activate()
    Range("b3:b168").EntireRow.Hidden = False
    Dim rr As Range
    For i = 3 To 168
        If Cells(i, 2).Value = 0 Then
            If rr Is Nothing Then
                Set rr = Cells(i, 2)
            Else
                Set rr = Union(rr, Cells(i, 2))
            End If
        End If
    Next
    If Not rr Is Nothing Then rr.EntireRow.Hidden = True
End Sub
Изменено: heso - 6 Июн 2017 12:31:27
Удаление строк с уникальными значениями
 
Тогда сами приложите пример исходных данных и того, что от них должно остаться после работы макроса.
Скрыть\Показать строки
 
или, как вариант.
Скрытый текст
Удаление строк с уникальными значениями
 
Много примеров
Реализация модели выбора., Как можно реализовать сложную и большую модель выбора рецептур на предприятии?
 
Вы хотите спросить совета и заплатить за сам совет?
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 15 След.
Наверх