Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » Сергей Беляев
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 15 След.
VBA Значение единственной ячейки передать в двумерный массив размером 1*1
 
#
08.05.2020 15:54:27
Огромное спасибо всем откликнувшимся за помощь!!!
 
Перейти    
VBA Значение единственной ячейки передать в двумерный массив размером 1*1
 
#
08.05.2020 14:20:06
Доброго времени суток всем!!!
При передаче значений из динамического диапазона в массив возникает проблема, когда диапазон становится одной ячейкой.
Код
Sub test()
    Dim arr()
    lLastRow = Cells(Rows.Count, 1).End(xlUp).Row
    ReDim arr(1 To lLastRow, 1 To 1)
    arr = Range(Cells(1, 1), Cells(lLastRow, 1)).Value
End Sub

То есть при количестве строк больше 1 все работает, а если строка одна, то диапазон из одной ячейки никак не хочет запихиваться в массив размерностью 1*1.

Как прикрутить костыль я знаю, но мне хотелось бы чуть больше узнать возможности преобразования ячейки в диапазон (если таковое решение имеется).

Заранее благодарю за помощь.
 
Перейти    
В номере после последнего числа >0 добавить символ
 
#
04.06.2019 12:01:46
Код
Sub ex()
    For i = 2 To 327
        For j = Len(Cells(i, 1)) To 1 Step -1
            If Mid(Cells(i, 1), j, 1) > 0 Then
                Cells(i, 1) = Left(Cells(i, 1), j) & "_" & Mid(Cells(i, 1), j + 1, Len(Cells(i, 1)) - j - 1)
                Exit For
            End If
        Next
    Next
End Sub
Изменено: Сергей Беляев - 04.06.2019 12:02:18
 
Перейти    
макрос деления текста
 
#
18.05.2019 23:59:33
Цитата
kost757 написал:
на слова по 160 символов
у вас слова по 160 символов?
 
Перейти    
Черный квадрат в окне элемента "Флажок"
 
#
18.05.2019 23:37:45
Цитата
Александр Моторин написал:
Научен горьким опытом
однажды после установки VISUAL STUDIO даже пришлось винду переустанавливать. Был и такой опыт. А пока просто клацаю по черному квадратику. :)  
буду ждать исправлений
 
Перейти    
Черный квадрат в окне элемента "Флажок"
 
#
18.05.2019 22:07:33
Цитата
Александр Моторин написал:
Наверное надо указать версии и битность  винды и офиса
Да извиняюсь. 10 винда и 2016х64 офис. Думаю, что после вчерашнего обновления винда накрылась медным тазом.
 
Перейти    
Черный квадрат в окне элемента "Флажок"
 
#
18.05.2019 19:55:15
Спасибо за оперативность. А мысли есть по поводу причины?
Вместа круглого переключателя отображается тоже черный квадрат. Лично я склонен думать к проблемам самой Винды.
Изменено: Сергей Беляев - 18.05.2019 23:21:48
 
Перейти    
Черный квадрат в окне элемента "Флажок"
 
#
18.05.2019 19:49:11
Все доброго времени суток.
Прикладываю скрин и диву даюсь. За много лет это первый раз такое. Хоть установленный хоть снятый - все время черного цвета. Параметры Windows ковырял и не смог ничего найти. Такая бяка проявляется в любом файле и старых тоже, поэтому думаю, что это настройки, но чего именно я не понимаю. Также приложил и файл.
Изменено: Сергей Беляев - 18.05.2019 19:56:23
 
Перейти    
VBA. Разница между автоматическим и пошаговым выполнением макроса.
 
#
12.11.2018 23:48:29

Отлично работает на 365 офисе.

Код
With wsTmpSh.ChartObjects.Add(0, 0, oObj.Width, oObj.Height).Chart
 
Перейти    
VBA. Разница между автоматическим и пошаговым выполнением макроса.
 
#
12.11.2018 22:02:46
У меня не возникает ошибка. У меня просто не вставляется или вставляется пустота.
Если код приостановить до вставки изображения в Chart, то получается норма.
Изменено: Сергей Беляев - 12.11.2018 23:38:58
 
Перейти    
VBA. Разница между автоматическим и пошаговым выполнением макроса.
 
#
12.11.2018 21:19:36
Это макрос работает не на всех компьютерах. Проблема в строке ниже, решил решить другим путем, получается головой теперь о стены бьюсь и не могу найти выход.
Код
With wsTmpSh.ChartObjects.Add(0, 0, oObj.Width, oObj.Height).Chart
Изменено: Сергей Беляев - 12.11.2018 23:38:47
 
Перейти    
VBA. Разница между автоматическим и пошаговым выполнением макроса.
 
#
12.11.2018 20:48:59
Пробовал, не помогает ни одно, ни другое
Пробовал также 10-секундную задержку. Голову уже сломал, но не могу починить никак.
Изменено: Сергей Беляев - 12.11.2018 23:38:18
 
Перейти    
VBA. Разница между автоматическим и пошаговым выполнением макроса.
 
#
12.11.2018 20:32:56
Excel2016-64bit. Уже не первый раз сталкиваюсь с подобной проблемой, но не помню как она решается. При автоматическом запуске макроса (он может быть запущен с листа кнопкой "Gen Charts") почему-то не вставляется рисунок в область диаграммы(Diagram.Paste 5-я строка снизу в процедуре "Save_Chart2"). Но если сделать на этой команде точку останова, то все происходит без проблем. Подскажите хотя-бы в какую сторону копать.
Код
Sub main()
    Dim SheetAd1 As Worksheet
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    
    Set SheetAd1 = ThisWorkbook.Sheets.Add
    
    Call Save_Chart2("exampleChart", SheetAd1)
    Call Save_Chart2("exampleChart2", SheetAd1)
    
    SheetAd1.Delete
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
    MsgBox "Ready!!!"
End Sub



Sub Save_Chart2(ByVal NameFile As String, ByRef Sh1 As Worksheet)
    Dim pic As Object
    
    ThisWorkbook.Sheets("Charts").Activate
    ActiveSheet.Shapes.Range(Array("Select_area")).Select
    Selection.Copy
    Sh1.Activate
    Set pic = ActiveSheet.Pictures.Paste
    pic.Copy
    
    Set Diagram = Sh1.Shapes.AddChart().Chart
    
    Diagram.ChartArea.Height = pic.Height
    Diagram.ChartArea.Width = pic.Width
    Diagram.Paste
    Diagram.Export Filename:=ThisWorkbook.Path & "\" & NameFile & ".gif", FilterName:="GIF"
    pic.Delete
    Diagram.Parent.Delete
End Sub
 
Перейти    
Подпись горизонтальной оси на биржевой диаграмме
 
#
03.04.2018 22:29:11
Спасибо огромное!!!
 
Перейти    
Подпись горизонтальной оси на биржевой диаграмме
 
#
03.04.2018 20:18:19
Доброго времени суток!
Как всегда туплю и не могу понять как сделать подпись горизонтальной оси для биржевой диаграммы. Ось должна быть подписана данными из первого столбца. Если можно, то объясните, пожалуйста, что я делаю не так, чтобы в будущем я не беспокоил вас :) . Благодарю за помощь.
 
Перейти    
Работа с браузером через VBA
 
#
03.02.2018 14:23:15
Скачиваю через браузер файл, но перед скачиванием появляется окно выбора сохранения или открытия или отмены. В нормальных человеческих браузерах такой бяки нету.

Использую объект Set objIE = CreateObject("InternetExplorer.Application")
Изменено: Сергей Беляев - 04.02.2018 00:19:23
 
Перейти    
Работа с браузером через VBA
 
#
03.02.2018 13:00:34
Скачиваю из Excelя файл Excel и работаю с ним, но не получается автоматизировать именно только из-за этого окна.
 
Перейти    
Работа с браузером через VBA
 
#
03.02.2018 12:47:52
Доброго времени суток!
При скачивании файла  браузер запрашивает дальнейшее действие с файлом. "Открыть",  "Сохранить", "Отмена".
Возможно ли как-то отключить такой диалог или программно нажать кнопку? Или данное окно принадлежит не браузеру?
 
Перейти    
Вытянуть данные из ячейки, находящиеся между определенными участками текста
 
#
02.02.2018 02:25:58
Для данный в ячейке A1
=СЖПРОБЕЛЫ(ПСТР(A1,НАЙТИ("Полная совместимость с",A1)+23,НАЙТИ("Функциональное обеспечение",A1)-25-НАЙТИ("Полная совместимость с",A1)))
Изменено: Сергей Беляев - 02.02.2018 02:27:21
 
Перейти    
Работа с библиотекой "winsock.ocx"
 
#
01.02.2018 21:17:04
Доброго времени суток!!!
Пытаюсь работать с библиотекой winsock.ocx. Зарегистрировал ее, но не могу разобраться никак как прописать регистрационные ветки в реестре, потому что без них доступны не все методы. Может кто-то сталкивался с подобным?
 
Перейти    
Событие при изменении ширины столбца.
 
#
25.01.2018 22:54:50
Спасибо.
 
Перейти    
Событие при изменении ширины столбца.
 
#
25.01.2018 22:52:36
Доброго времени суток!
Может просто это конечно, но что-то не сообразить не могу не найти. По какому событию можно отслеживать ручное изменение ширины столбца?
 
Перейти    
Повторный запуск макроса.
 
#
31.12.2017 16:16:40
Вылечил - нужно отправлять в заголовке прошлую дату.
Код
Function CryptoIn(strTicker) As String
    strURL = "https://api.hitbtc.com/api/2/public/orderbook/" & strTicker & "BTC"
    Set http = CreateObject("MSXML2.XMLHTTP")
    http.Open "GET", strURL, False
    http.setRequestHeader "Cache-Control", "no-cache"
    http.setRequestHeader "If-Modified-Since", "Sat, 1 Jan 2000 00:00:00 GMT"
    http.Send
    CryptoIn = http.responsetext
    Set http = Nothing
End Function
 
Перейти    
Повторный запуск макроса.
 
#
31.12.2017 15:40:03
Цитата
pton написал:
А объект удаляется и заново создается? Код?
Код
Function CryptoIn(strTicker) As String
    strURL = "https://api.hitbtc.com/api/2/public/orderbook/" & strTicker & "BTC"
    Set http = CreateObject("MSXML2.XMLHTTP")
    http.Open "GET", strURL, False
    http.Send
    CryptoIn = http.responsetext
    Set http = Nothing
End Function
Изменено: Сергей Беляев - 31.12.2017 15:41:05
 
Перейти    
Повторный запуск макроса.
 
#
31.12.2017 15:12:17
Доброго времени суток!
Столкнулся с проблемой. Если книгу открыть и запустить макрос, то все выполняется как нужно. А если повторно запустить макрос, то почему-то работает все по-другому.
Использую объект MSXML2.XMLHTTP. У меня складывается впечатление как-будто при повторном GET-запросе данные берутся не с сервера, а из какого-то буфера. Это видно по скорости работы макроса и по данным, которые получаются при повторном запросе.
 
Перейти    
Всплытие примечания при выделении ячейки клавиатурой, а не не мышкой
 
#
09.11.2017 08:11:13
Спасибо всем огромное. Только я не пойму, где Grr нашел мою фотографию.
 
Перейти    
Как вытянуть определенное слово из текста
 
#
09.11.2017 03:30:37
По какому признаку вам нужно вытянуть слово медь?
Потому что в ней 4 буквы?
Потому что она находится рядом с серебром?
Потому что в предложении присутсвует цифра 7?
Или по какому-то еще признаку?
 
Перейти    
Всплытие примечания при выделении ячейки клавиатурой, а не не мышкой
 
#
09.11.2017 00:47:03
Спасибо, но у меня в примечании картинка, а не текст. Или картинку тоже можно как-то вставить в сообщение для ввода?
 
Перейти    
Всплытие примечания при выделении ячейки клавиатурой, а не не мышкой
 
#
09.11.2017 00:03:42
Доброго времени суток!!!
Подскажите, пожалуйста, возможно ли чтобы примечание высплывало при работе с клавиатурой, а не мышкой?
 
Перейти    
Примечание по центру экрана
 
#
09.11.2017 00:00:27
Доброго времени суток!!!
Возможно ли сделать так чтобы примечение к ячейке отображалось постоянно в центре экрана не в зависимости от того в какой области экрана находится ячейка с этим примечанием?
 
Перейти    
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 15 След.
Наверх