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

Страницы: 1
Отправка сообщений в ВК из excel
 
#
20.09.2021 15:00:35
Добрый день, помогите, пожалуйста.

Задачка такая: У меня excel циклом по очереди открывает страницы пользователей в ВК и после открытия необходимо в окно переписки вставить текст.
Через Sendkeys это делать не хочу, могут быть глюки, а как это сделать правильно - не знаю.

Страница открывается по ссылке https://vk.me/аккаунт
Для примера моя страница https://vk.me/igor.n.malakhov

Вот после открытия надо вставить текст и отправить сообщение. Как это сделать?
Изменено: vikttur - 20.09.2021 15:01:45
 
Перейти    
Сделать интеграцию Excel с соцсетями
 
#
20.09.2021 13:15:04
Необходимо создать в Excel подобие CRM системы для общения через месенджеры - отправки сообщений и получения ответов внутри программы. Сама базовая программа подготовлена, необходимо провести доработку. Подробнее все покажу и расскажу через Skype, Zoom, Hangouts или где угодно.
Планирую потратить на эту задачу 50 000 руб. Пишите [контакт удален] обсудим.
Изменено: vikttur - 20.09.2021 13:43:35
 
Перейти    
Открытие ссылки в браузере вместо скачивания в VBA
 
#
03.11.2020 14:06:15
Подскажите, пожалуйста, что необходимо добавить в этот код, чтобы звуковой файл проигрывался в браузере, а не скачивался на компьютер. И, какой из вариантов использовать лучше?
Код
sUrl = "http://lg-finance.ru/Audio/Maks1.wav"
ActiveWorkbook.FollowHyperlink (sUrl)
Код
    sUrl = "http://lg-finance.ru/Audio/Maks1.wav"
    CreateObject("WScript.Shell").Run (sUrl)
Изменено: Radomir-m - 03.11.2020 14:07:13
 
Перейти    
Исправить кодировку русских символов в редакторе VBE
 
#
18.10.2020 21:37:52
Добрый вечер. Подскажите, как решить проблему. При открытии файла xlsm на компьютере с установленным Windows 10. Выходит ошибка, что файл поврежден и удалается компонет VBA. При том что в Office 2010, что Office 2019 одна и та же проблема. На других компьютерах этот файл открывается без проблем. При том в VBA все русские символы заменены непонятно чем. Что можно сделать?
 
Перейти    
Русские символы в msgbox заменены символом вопроса
 
#
18.10.2020 14:24:43
Добрый день. Подскажите, как исправить ситуацию? Русские символы в msgbox заменены символом вопроса. Заходил через панель управления Windows в "Язык и региональные стандарты", менял язык системы (был Иврит) и другие настройки - не помогает. Переустановили офис с 2010 на 2019 - то же самое. А потом вообще стал удалять VBА проект писать, что файл повреждён... и возврат к 2010 офису не помог.
 
Перейти    
Загрузка файла на сервер макросом
 
#
18.10.2020 13:47:11
Добрый день. Подскажите, пожалуйста, как можно загрузить аудио-файл на сервер с компьютера с помощью макроса VBА? Ниже инструкция с сайта Zvonok.com , а как это сделать, не соображу. Готов заплатить за макрос.
Изменено: Radomir-m - 18.10.2020 14:16:02
 
Перейти    
Запомнить положение курсора в тексте
 
#
28.09.2020 12:34:44
Добрый день, подскажите, пожалуйста, как можно запомнить положение курсора в тексте в поле формы? Мне по нажатию кнопки необходимо вставлять текст в то место в тексте, где находился курсор. Как это можно сделать?
 
Перейти    
Остановка работы макроса по нажатию кнопки в форме, Остановка макроса через кнопку в форме
 
#
11.09.2020 19:31:19
Добрый вечер, подскажите, пожалуйста. Если в макросе выполняется цикл, то сработает ли другое событие по нажатию на кнопку в этой же форме? Мне надо прервать работу макроса. Сделал кнопку "Стоп". На эту кнопку повесил код:
Код
Private Sub Knop_stop_Click()
    stopec = True
End Sub

В цикле основного макроса прописал:
   
Код
  If stopec = True Then Exit Sub
stopec - глобальная переменная

не работает. Что сделать?
 
Перейти    
Подсказка на кнопку запуска макроса
 
#
07.09.2020 22:07:11
Всем добрый вечер. Ребята, подскажите, как для кнопки вызывающей макрос можно прописать подсказку?
Или можно ли вызвать макрос через гиперссылку? Там подсказка есть  :)  
 
Перейти    
Как массово добавить код страны к телефонам
 
#
26.08.2020 16:25:10
Подскажите, как через замену можно можно массово добавить код страны к номерам телефонов? Что написать в строке "Найти" в форме замены?
то есть номер телефона 5553332211 должен заменится на 996555332211.
 
Перейти    
Долго форматируется таблица через VBA
 
#
24.08.2020 20:15:56
Ребята, подскажите, в чём может быть проблема. Сделал макрос, который после получения внешних данных на страницу, красиво оформляет её. И, по какой-то непонятной причине, в какие-то периоды, код начинает работать очень долго. Буквально над каждой строчкой кода программа думает по 0,1 секунды, пришлось отключить некоторые настройки. И так на всех компьютерах. Что это может быть? Код ниже.
Код
Sub krasota()
Dim i, a As Integer
Dim t1 As String
On Error GoTo fff


Application.EnableEvents = False
Application.ScreenUpdating = False

Application.StatusBar = "Наводим красоту. Этап 1"
Sheets("Клиенты").Activate
With Sheets("Клиенты")
     i = .Cells(Rows.Count, 3).End(xlUp).Row
     If i > 7 Then
        t1 = "A7" & ":A" & i
        .Range(t1) = "+"
        .Range("A7").Select
        Selection.AutoFill Destination:=Range(t1), Type:=xlFillDefault
        .Range("A" & i + 1 & ":A" & i + 200).ClearContents
    End If
End With

    Application.StatusBar = "Наводим красоту. Этап 2"
    t1 = "C7:O" & i + 50
    Range(t1).Select
    Selection.NumberFormat = "General"
    Cells.Select
    With Selection
 '       .VerticalAlignment = xlTop
 '       .Orientation = 0
 '       .AddIndent = False
        .IndentLevel = -1
 '       .ShrinkToFit = False
 '       .ReadingOrder = xlContext
 '       .MergeCells = False
    End With
    
    Application.StatusBar = "Наводим красоту. Этап 3"
    Selection.InsertIndent 1
    With Selection.Font
        .name = "Calibri"
        .Size = 11
 '       .Strikethrough = False
 '       .Superscript = False
 '       .Subscript = False
 '       .OutlineFont = False
 '       .Shadow = False
 '       .Underline = xlUnderlineStyleNone
 '       .TintAndShade = 0
        .ThemeFont = xlThemeFontMinor
    End With
    Selection.Font.Bold = False
    
    Application.StatusBar = "Наводим красоту. Этап 4"
    Columns("S:X").Select
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
'        .WrapText = True
'        .Orientation = 0
'        .AddIndent = False
'        .IndentLevel = 0
'        .ShrinkToFit = False
'        .ReadingOrder = xlContext
'        .MergeCells = False
    End With
 
Перейти    
Переход на вкладку MultiPage программно
 
#
21.06.2020 19:10:16
Всем привет. Подскажите, какой командой можно активировать определенную вкладку в форме? Чтобы при нажатии на кнопку нас перекидывало на другую вкладку.
 
Перейти    
Перекодировка текста в ячейке
 
#
18.05.2020 19:34:00
Подскажите, как можно програмно поменять кодировку в конкретной ячейке листа в Excel? Может есть макрос, который способен перекодировать символы?
После получения внешних данных через PHP с базы SQL данные приходят с кракозябрами. В PHP и самой базе пробовали разными способами менять кодировку, но, к сожалению, ничего не помогло. На фото - в каком виде приходят данные с базы (при помощи вставки внешних данных)
 
Перейти    
Отследить массовые изменения на листе
 
#
15.04.2020 13:37:14
Ребят, подскажите, как можно отследить массовые изменения ячеек на листе? Допустим если пользователь вставляет значения в несколько строк сразу или растягивает одно значение по листу, как можно получить номера измененных строк? Мне необходимо помечать измененные строки. Одну ячейку отследить не проблема, а групповое изменение - на нашел как отследить, помогите, плиз.
Код
Private Sub Worksheet_Change(ByVal Target As Range)
Dim stroka As Integer
stroka = Target.Row
        
' Какой код для отслеживания должен здесь быть?
        
Worksheets("Лист1").Cells(stroka, 10) = "1"
End Sub
 
Перейти    
Значение по умолчанию в поле со списком с двумя столбцами
 
#
11.04.2020 13:53:07
Всем добрый день. Не нашел ответа на форумах, обращаюсь к Вам.
Подскажите, пожалуйста, как через макрос можно присвоить полю со списком значение по умолчанию?
В поле со списком используется 2 столбца. Один для выбора пользователю, из второго присваивается значение (Value) полю со списком.
Вопрос, как запомнить выбор пользователя, отобразить его в поле и при том присвоить этому элементу управления значения из первого столбца?
Код
Private Sub UserForm_Activate()
    Dim BB As Long
    BB = 68
    If Worksheets("Ïîäñêàçêè").Range("A69") <> 0 Then BB = 69
    If Worksheets("Ïîäñêàçêè").Range("A70") <> 0 Then BB = 70
    If Worksheets("Ïîäñêàçêè").Range("A71") <> 0 Then BB = 71
    
    Me.Speaker.RowSource = "'Ïîäñêàçêè'!A57:B63"
    If Worksheets("Ïîäñêàçêè").Range("C56") <> "" Then Me.Speaker.Value = Worksheets("Ïîäñêàçêè").Range("C56")
End Sub
Изменено: Radomir-m - 11.04.2020 14:37:35
 
Перейти    
Картинка вставляется с привязкой к файлу картинки
 
#
20.03.2020 17:56:06
Здравствуйте. Подскажите, Как вставить макросом картинку на лист без привязки к файлу картинки? Макрос который использую, почему-то вставляет с привязкой и на другом компьютере картинка не открывается. Вот строка VBA которую использую для вставки:
Код
    Dim ph As Picture
    Set ph = PicRange.Parent.Pictures.Insert(PicPath)

Может, какие-то свойства рисунка надо прописать дополнительно?
 
Перейти    
Импорт данных из CSV (Googlt контакты)
 
#
20.03.2020 16:36:21
Всем привет. Ребят, подскажите как автоматически импортировать данные из Google контактов? Допустим, мы выгрузили данные в CSV файл. Во-первых Русский текст там как крокозябры. В какой кодировке его надо сохранять - не  разобрался. Перепробовал все - всё равно русский не распознаёт. Затем надо разбить текст на нормальный табличный вид (из разделенного запятыми)  и из этого файла выдернуть имя, email и номер телефона клиентов, перенести их на лист в другом файле. Всё это можно сделать макросом, но как - не знаю, помогите, пожалуйста :-) Файл во вложении
 
Перейти    
Нужная адаптация программы под работу на MAC
 
#
09.03.2020 12:50:12
Добрый день. Ищу специалиста, который поможет подредактировать программу в excel для работы на Macbook. Оплата по договоренности. Саму программу вышлю по запросу.
 
Перейти    
Русские символы в Visual Basic заменены символом вопроса
 
#
06.03.2020 21:12:38
Ребята, подскажите, пожалуйста, по какой причине на одном из компьютером где установлен Windows 7 и Microsoft office 2016 Visual Basic открывается с замененными знаком вопроса русскими названиями страниц, хотя в самой программе названия отображаются нормально русскими символами?
 
Перейти    
Информация о лицензии для этого продукта не найдена.
 
#
03.03.2020 14:09:06
Ребята, подскажите, почему при запуске программы на Макбуках при включении макросов выходит следующая ошибка "License information for this component not found..." как с этим бороться? Каки куда добавить лицензию в программу, чтобы у моих клиентов на маке открывалась программа в excel?
Изменено: Radomir-m - 04.03.2020 12:23:06
 
Перейти    
Нужна помощь в проверке программы для excel
 
#
19.02.2020 15:49:14
Всем здравствуйте. Ищу специалиста, который поможет исправить ошибки в программе Excel. СRM-система. Программа работает с помощью форм, активно используются макросы, внешние данные. На некоторых компьютерах программа запускается нормально, на некоторых нет. Плюс ещё иногда неожиданно прекращает работу.
По цене за работу договоримся. Рассчитываю в 10 000 руб. уложится. мой тел. есть в личке звоните, пишите ватсап, вайбер, телеграмм.
Саму программу здесь выложить не могу. Она регистрируется индивидуально и данные владельца прописываются на сервере, поэтому вышлю по запросу.
Изменено: Radomir-m - 19.02.2020 16:44:55
 
Перейти    
Построение диаграммы на значениях с условием
 
#
08.02.2020 20:17:13
Всем привет. Подскажите пожалуйста:
Есть таблица с данными. Два столбца. В первом № п/п - количество месяцев, во втором число - сумма на счёте через данное количество месяцев. Есть ячейка, куда пользователь вносит данные. Необходимо построить диаграмму на основе отсортированных данных: с первого месяца по тот, что указал пользователь. Например доходы с первого месяца по 20-й, Или с первого по 110-й... как это делается, не могу найти в интернете. Пример в прикрепленном файле. Спасибо.
 
Перейти    
Перенос листа из другой книги без связей
 
#
06.02.2020 18:12:34
Здравствуйте. Подскажите, пожалуйста, как средствами VBA можно скопировать лист из одной книги в другую без сохранения связей? Формулы должны привязаться к текущей книге и макросы на кнопках тоже. Пытаюсь задать програмно макрос кнопке через код:
Код
    Windows(file11).Activate
    Sheets("Цели").Select
    Cells.Select
    Selection.Copy
    Windows(file12).Activate
    Sheets("Цели").Select
    Cells.Select
    ActiveSheet.Paste
    
    ActiveSheet.Shapes("Скругленный прямоугольник 44").Select
    Selection.OnAction = "cel"

В итоге путь макроса прописывается в старый файл. А как задать новый - не знаю.
Помогите, плиз :-)
 
Перейти    
Сделать обновление версии программы по запросу от пользователя
 
#
28.01.2019 11:32:53
Я сделал программу в excel, у нее сейчас более 500 пользователей. Иногда я выпускаю обновления этой программы и хочу, чтобы мои пользователи могли обновлять свою версию до актуальной нажатием одной кнопки. У меня есть свой сайт, где на хостинге могу хранить актуальную версию программы. Пользователям надо обновлять данные из этого источника. Данные пользователя необходимо сохранить для защиты файла от копирования и использования на других компьютерах.

Сам вижу решение в таком виде: в файл Excel, который будет у пользователя, добавить кнопку "Обновить". После нажатии кнопки должно произойти обновление файла за исключением нескольких полей, где прописаны данные пользователя. Либо эти поля прописать поверх в новый обновленный файл. Сам файл здесь https://yadi.sk/d/WO-eUSz2VvaWgQ по стоимости работы можно обсудить в личке (размещение контактных даных в собщении запрещено правилами форума) [МОДЕРАТОР]
 
Перейти    
Страницы: 1
Наверх