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

Страницы: 1 2 3 4 5 6 След.
ClearContents и скрытые строки
 
мне помогло вот это
Код
.SpecialCells(xlCellTypeConstants).ClearContents
но если будут формулы то уже работать не будет
Макрос иерархии даты, Необходимо доделать макрос
 
Нужен пример
так мало что понятно...
Изменено: Watcher_1 - 11 Окт 2017 12:25:14
Поиск содержимого ячейки в браузере, гиперссылка на поиск содержимого ячейки в интернете
 
Так не пойдет?
Код
=HYPERLINK(CONCATENATE("https://yandex.ru/images/search?text=";A2))
и можете уже протягивать ее
Макрос иерархии даты, Необходимо доделать макрос
 
Посмотрите...
Розделение имени при помощи VBA
 
Код
Sub Dividing_names()
 
    i = 1 'счетчик
    Do
        i = i + 1 
        If Range("B" & i) = "" Then Exit Do ' если в столбце B пусто, то выходим из цикла
        myFIO = Split(Range("B" & i), " ") '  с помощью оператора Split разделяем ФИО по пробелам и получаем массив myFIO
        Range("C" & i).Resize(, UBound(myFIO) + 1) = myFIO ' Переносим массив myFIO в ячейки
    Loop
 
End Sub
Изменено: Watcher_1 - 23 Авг 2017 12:37:48
Розделение имени при помощи VBA
 
держите такой вариант
Формула считает значение с другого листа, потом преобразует формулу в значение, как ускорить работу макроса
 
Используйте Scripting.Dictionary будет намного быстрее!
Получить внешний iP макросом.
 
Вот нашел за 3 минуты на просторах интернета...
Проверил. Все работает
Код
Option Explicit
    
'----------------------------------------------------------------------------
'This module contains 3 functions for determing the public IP, the local IP
'and the MAC address of the computer that runs those functions.

'Written By:    Christos Samaras
'Date:          22/11/2014
'E-mail:        xristos.samaras@gmail.com
'Site:          http://www.myengineeringworld.net
'----------------------------------------------------------------------------
        
Function GetMyPublicIP() As String

    Dim HttpRequest As Object
    
    On Error Resume Next
    'Create the XMLHttpRequest object.
    Set HttpRequest = CreateObject("MSXML2.XMLHTTP")

    'Check if the object was created.
    If Err.Number <> 0 Then
        'Return error message.
        GetMyPublicIP = "Could not create the XMLHttpRequest object!"
        'Release the object and exit.
        Set HttpRequest = Nothing
        Exit Function
    End If
    On Error GoTo 0
    
    'Create the request - no special parameters required.
    HttpRequest.Open "GET", "http://myip.dnsomatic.com", False
    
    'Send the request to the site.
    HttpRequest.Send
        
    'Return the result of the request (the IP string).
    GetMyPublicIP = HttpRequest.ResponseText

End Function
Вопрос по импорту данных в Ексель
 
Соорудил
Код
Sub m()
    Application.ScreenUpdating = False
    myTXT = ReadTXTfile(ThisWorkbook.Path & "\EXP_2.txt")
    myBase = Split(myTXT, vbCrLf)
    
    For i = LBound(myBase) To UBound(myBase)
        DoEvents
        If myBase(i) <> "" Then
            myB = Split(StrConv(myBase(i), 64), Chr(0))
            Sheets(1).Range("A" & i + 1).Resize(, UBound(myB) + 1) = myB
        End If
    Next
    Application.ScreenUpdating = True
    MsgBox "Готово"
End Sub

Function ReadTXTfile(ByVal filename As String) As String
    Set fso = CreateObject("scripting.filesystemobject")
    Set ts = fso.OpenTextFile(filename, 1, True): ReadTXTfile = ts.ReadAll: ts.Close
    Set ts = Nothing: Set fso = Nothing
End Function

Выбор строк в определенным временем
 
Цитата
Гравитон написал:
Спасибо за помощь задача решена. Правда "на скорую руку" не работает  
У меня все прекрасно работает... :)
Мож макросы не включили?
Выбор строк в определенным временем
 
На скорую руку... (Спасибо NERV)
Программное прерывание вывода данных по DDE в Excel
 
Если макрос изменяет ячейки, то для убыстрения работы нужно!
Изменено: Watcher_1 - 8 Окт 2015 17:11:47
Программное прерывание вывода данных по DDE в Excel
 
Значит вначале макроса поставите
Aapplication.Calculation=xlCalculationManual
а в конце макроса это
Application.Calculation=xlCalculationAutomatic
Программное прерывание вывода данных по DDE в Excel
 
Такой вариант не пойдет? (Выключает пересчет и через 30 сек включает)

Код
Aapplication.Calculation=xlCalculationManual
myTime = Now + TimeValue("00:00:30")
Application.OnTime myTime, "myTimerCount"
 
Sub myTimerCount()
     Application.Calculation=xlCalculationAutomatic
End Sub
Изменено: Watcher_1 - 8 Окт 2015 13:26:09
EXCEL 2013,2010. При выполнении макроса - "не отвечает"
 
1) Без просмотра кода действительно сложно что-то сказать.
2) На личном опыте заметил тормоза в 2013 по сравнению с предыдущими версиями.
3) Если используете цикл то стоит ли там DoEvents ?
Настройка Internet Explorer, чтобы документы Office открывались в Excel вместо обозревателя Internet Explorer
 
У вас конвертер стоит под 2003 чтобы открывать xlsx файлы?
На изменение КомбоБокса (форма) должно измениться то же самое значение в опорном списке.
 
Сейчас у вас так ComboBox11.RowSource = "дБ"
Я предлагаю так
myRa = Range("I4:I9" ;)  
ComboBox11.List = myRa


Т.е нет прямой ссылки на диапазон.
Изменено: Watcher_1 - 9 Дек 2014 23:53:27
На изменение КомбоБокса (форма) должно измениться то же самое значение в опорном списке.
 
Цитата
iNic пишет: Как полечить? То есть, чтобы значение в самом КомбоБоксе НЕ менялось при этом.
Загружайте в комбобокс массивы используя .List, тогда при изменении данных на листе в комбобоксе ничего не поменяется...
Неудаляемое подчеркивание таблицы
 
Так пойдет?
Формат времени для импорта данных из Access
 
Цитата
B.Key пишет: поместите приведенную мной функцию и синтаксис будет такой
У меня же в запросе идет конвертация даты с помощью cdate...
Формат времени для импорта данных из Access
 
а если так?
Код
Array("SELECT Данные.Time, Данные.`4A1` " & "FROM Данные where Данные.Time BETWEEN cdate('" & x & " " & z & "') And cdate('" & y & " " & b & "');" )
Как сформировать динамичный массив из названий отмеченных флажков на форме?
 
Поменяйте на это
Код
Private Sub CommandButton1_Click()

y = 0
On Error Resume Next
For Each Flag In Controls
    
    If Flag.Value = True Then
     ReDim Preserve nst(y)
     nst(y) = Flag.Caption
     Debug.Print nst(y)
     y = y + 1
     
    End If
Next
On Error GoTo 0
End Sub
Формат времени для импорта данных из Access
 
тогда добавляем

Код
Array("SELECT Данные.Time, Данные.`4A1` " & "FROM Данные where Данные.Time BETWEEN cdate('" & x " " & z & "') And cdate('" & y & " " b & "')" 
Формат времени для импорта данных из Access
 
так попробуйте

Код
CommandText = Array("SELECT Данные.Time, Данные.`4A1` " & "FROM Данные where Данные.Time BETWEEN cdate('" & x & "') And cdate('" & y & "')") 

Код
x = Format(UserForm1.DTPicker1.Value, "mm.dd.yyyy hh:mm:ss") 'ранняя дата
y = Format(UserForm1.DTPicker2.Value, "mm.dd.yyyy hh:mm:ss") 'поздняя дата
Изменено: Watcher_1 - 12 Авг 2014 09:54:15
Поиск соответсвия в таблице
 
В формулах не силен но в голову пришло такое.

Код
=SUMIFS(лист1!D:D;лист1!A:A;A2;лист1!B:B;B2;лист1!C:C;лист2!C2) 
Так как данные на первом листе уникальны
Изменено: Watcher_1 - 12 Авг 2014 09:27:58
2013 экселе Worksheet_SelectionChange вызывает подтормаживания
 
У меня тоже стоял 2013. Регулярно тормозил. Снес, поставил 2010, чего и вам советую...
Изменено: Watcher_1 - 12 Авг 2014 09:11:58
почему тормазит Excel на других компьютере, Тормазит Excel
 
Имхо формул много поднакопилось :)
Как распечатать готовый бланк
 
Проще бланк перевести в эксель и заполняя ячейки печатать весь бланк.
Попадать в пустые поля бланка будет сущий геморрой, ибо все будет плясать.
[ Закрыто] Сортировка данных массива.
 
Код
Private Sub Сортировка(byref List)
Combobox, вопрос по параметру LinkedCell
 
Цитата
Юрий М пишет:
Так активная и будет залинкована на КомбоБокс. Что Вас смущает?
Сорри чот перемудрил.
Страницы: 1 2 3 4 5 6 След.
Наверх