Выбрать дату в календареВыбрать дату в календаре

Страницы: 1 2 След.
Формирование адреса как на яндекс картах
 
Господа, вопрос актуален.
Формирование адреса как на яндекс картах
 
Цитата
Sanja написал:
А куда он его 'выдает'?
На своей странице поиска, открывается браузер с яндекс картами, ищет значение которое было задано, на странице под полем поиска написан полный адрес с индексом, областью, и вот этот текст необходимо перенести в книгу. Если как то можно сделать чтоб браузер не открывался, еще лучше )
Изменено: vendigo - 28.12.2023 09:34:44
Формирование адреса как на яндекс картах
 
Добрый день! Вопрос следующий. Есть Userform, в textbox вводим какой-то условный населенный пункт или улицу, к примеру "росянка 16", яндекс ищет на карте и выдает полный адрес "улица Росянка, 16, коттеджный посёлок Карасьеозёрский, Екатеринбург, Свердловская область, 620043". Можно как то сделать что полный адрес который выдал яндекс вставить в ячейку excel. Или может есть какой то другой вариант. Буду очень признателен, погуглил, ничего не нашел подходящего. Заранее спасибо.
как сделать чтобы из ячеек excel не копировался символ ¶ в конце (при вставке в 1с)?
 
Цитата
Leon78 написал:
With GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
   .SetText Range("A1").Value
   .PutInClipboard
End With
Здравствуте. Вопрос, на одном пк при использовании макроса в буфер попадают некие символы " ￿￿ " Я так понима. проблема с кодировкой, подскажите где что поменять...  Заранее спасибо
Выполнение команды CMD с правами администратора
 
Здравствуйте. Помогите пожалуйста воспроизвести макрос для брандмауэра. Выполнение с правами администратора. И в примере ругается на кавычки где имя правила фаервола.
Код
Private Sub CommandButton1_Click()
Shell "netsh advfirewall firewall set rule name="hhhh" new enable=no", vbNormalFocus
End Sub
Привязка картинки к ячейке (картинки в другой книге)
 
Дмитрий, спасибо Вам большое, Вы молодец!!! Все работает. А для сетевой папки Const sPicsPath$ = подойдет??
Изменено: vendigo - 05.02.2020 19:23:57
Привязка картинки к ячейке (картинки в другой книге)
 
Правильно поставленная задача, путь к решению вопроса. Нужен макрос для поиска и вставки картинки. На лите 1 в ячейке b12 будет прописываться имя картинки, которые хранятся в папке pictutres. После заполнения ячейки b12 картинка должна появиться на листе 2 в ячейке d99, размером с габаритом ячейки. Макрос, который я Писал выше, работает но не так. Помогите пожалуйста...
Привязка картинки к ячейке (картинки в другой книге)
 
Код
Option Explicit
Public Sub InsPict()
Dim arr, fldPath$, art$, fName$, i&, r0, lrow&, oDic As Object, IShape As Shape, Zm
Set oDic = CreateObject("Scripting.Dictionary")
r0 = 4
lrow = Cells(Rows.Count, 3).End(xlUp).Row
arr = Cells(r0, 3).Resize(lrow - r0 + 1).Value
For i = 1 To UBound(arr)
oDic(arr(i, 1)) = i + r0 - 1
Next i
For Each IShape In ActiveSheet.Shapes
If IShape.Type <> 8 Then On Error Resume Next
Next
fldPath = ThisWorkbook.Path & "\images\"    путь к папке
Application.ScreenUpdating = False
fName = Dir(fldPath & "*.jpg")
Do While fName <> ""
art = Split(fName, ".")(0)
If oDic.Exists(art) Then
With Cells(oDic(art), 2)
Set IShape = ActiveSheet.Shapes.AddPicture(fldPath & fName, False, True, .Left + 1, .Top + 1, -1, -1)
Zm = WorksheetFunction.Min(.Width / IShape.Width, .Height / IShape.Height)
IShape.Height = IShape.Height * Zm - 2
End With
End If
fName = Dir
Loop
Application.ScreenUpdating = True
End Sub


Нашел такой код, в принципе все ок, но... Помогите пожалуйста переделать. Всего надо вставлять одну картинку, (имя картинки брать с определенной ячейки, и вставлять тоже в конкретную, ресайз картинки по размеру ячейки. Заранее благодарен.
Изменено: vendigo - 29.01.2020 16:52:50
Привязка картинки к ячейке (картинки в другой книге)
 
Это да сделал без проблем. Но книгу с фото пришлось делать в другом документе, так как более 6000 фотографий. И обновляется фотография только после открытия документа с фото. Может макрос какой то посоветуйте. Пробовал
Код
Private Sub ва ()
ActiveWorkbook.RefreshAll
End Sub

Не помогает.
Так же делал
Код
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Workbooks.Open Filename:="C:\Users\11\222\333\444\foto.xlsx"
ActiveWorkbook.Save
ActiveWorkbook.Close
End Sub

Очень долго открывает и закрывает книгу. Может кто чего подскажет?
Изменено: vendigo - 26.01.2020 14:06:35
Привязка картинки к ячейке (картинки в другой книге)
 
Здравствуйте. Подскажите, есть файл EXCEL первый столбец название, второй столбец картинка. Как можно сделать, чтоб на другом листе допустим вводим название в определенную ячейку, а в соседней отображается картинка. Примерно как ВПР только с картинкой. Может есть другой способ, или надо как то особенно привязать картинку к ячейке??
Возможность открытия только одной книги excel
 
Спасибо)) немного подкорректирую,и то что надо!
Возможность открытия только одной книги excel
 
Подскажите, можно ли как то сделать, чтобы было невозможно открывать больше одной книги. То есть пока вы не закроете одну, нельзя открыть другую? Может как то сделать в vba? Допустим есть книга, когда ее запускаешь, закрываются все другие открытые книги, и пока она запущена - нельзя другие открыть.
Макрос для отправки по почте листа книги
 
Цитата
Юрий М написал: загляните в раздел "Приемы"
Я смотрел эту тему, не очень подходит так как с данными макросами вылезает запрос о подтверждении на отправку через outlook. Тот макрос который я предоставил, получилось обойти подтверждение, (+макрос в Outlook)... Вот и хотелось бы изменить существующий макрос, для отправки листа...

Цитата
Nordheim написал: Файл с листом затем будет нужен?
нет не нужен...
Макрос для отправки по почте листа книги
 
Цитата
Nordheim написал:
Если папка для чтения, то каким образом вы хотите сохранить лист в ней (папке)?Сохраняйте его на локальном диске, отправляйте по почте, а в итоге удалите этот файл и все.
Сама книга лежит в сетевом доступе, а сохраняю я на своем пк, с этим проблем нет, вопрос больше по отправки листа по почте
Макрос для отправки по почте листа книги
 
Здравствуйте. Есть макрос, для отправки книги по почте, помогите скорректировать, что бы он сначала сохранял лист, в сетевую папку, а затем этот лист отправлял по почте (не всю книгу). П.С. Если важно - файл с макросом лежит в сетевой папке, для чтения...
Вот мои наработки
Макрос для сохранения:
Код
Sub save()
Application.DisplayAlerts = False
Filename = "C:\RRR" & "\" & Worksheets("Лист1").Range("A1") & ".xlsx"
With ActiveSheet.UsedRange
     .Value = .Value
End With
ThisWorkbook.ActiveSheet.Copy
ActiveWorkbook.SaveAs Filename
ActiveWorkbook.Close SaveChanges:=False
Application.DisplayAlerts = True
End Sub

Макрос для отправки Книги:
Код
Sub send()
attach$ = ThisWorkbook.FullName
    res = SendEmailUsingOutlook("ito@yandex.ru", "Заказ", Worksheets("Лист1").Range("a1").Value, attach$)
    If res Then Debug.Print "Письмо 2 отправлено успешно" Else Debug.Print "Ошибка отправки"
End Sub

Функция:
Код
Function SendEmailUsingOutlook(ByVal Email$, ByVal MailText$, Optional ByVal Subject$ = "", _
                               Optional ByVal AttachFilename As Variant) As Boolean
   
    On Error Resume Next: Err.Clear
    Dim OA As Object: Set OA = CreateObject("Outlook.Application")
    If OA Is Nothing Then MsgBox "?? ??????? ????????? OUTLOOK ??? ???????? ?????", vbCritical: Exit Function
 
    With OA.CreateItem(0)
        .To = Email$: .Subject = Subject$: .Body = MailText$
        If VarType(AttachFilename) = vbString Then .Attachments.Add AttachFilename
        If VarType(AttachFilename) = vbObject Then
            For Each file In AttachFilename: .Attachments.Add file: Next
        End If
        For i = 1 To 100000: DoEvents: Next
        Err.Clear: .Send
        SendEmailUsingOutlook = Err = 0
    End With
    Set OutApp = Nothing
End Function
Изменено: vendigo - 05.07.2019 13:49:07
Отправка книги на почту через Outlook, корректировка функции
 
Здравствуйте. Вот такой макрос:
Код
Private Sub CommandButton1_Click()
attach$ = ThisWorkbook.FullName
    res = SendEmailUsingOutlook("eeto@yandex.ru", "aaa", "bbb", attach$)
    If res Then Debug.Print "222" Else Debug.Print "3333"
End Sub


И к нему функция

Код
Function SendEmailUsingOutlook(ByVal Email$, ByVal MailText$, Optional ByVal Subject$ = "", _
                               Optional ByVal AttachFilename As Variant) As Boolean
   
    On Error Resume Next: Err.Clear
    Dim OA As Object: Set OA = CreateObject("Outlook.Application")
    If OA Is Nothing Then MsgBox "?? ??????? ????????? OUTLOOK ??? ???????? ?????", vbCritical: Exit Function
 
    With OA.CreateItem(0)
        .To = Email$: .Subject = Subject$: .Body = MailText$
        If VarType(AttachFilename) = vbString Then .Attachments.Add AttachFilename
        If VarType(AttachFilename) = vbObject Then
            For Each file In AttachFilename: .Attachments.Add file: Next
        End If
        For i = 1 To 100000: DoEvents: Next
        Err.Clear: .Send
        SendEmailUsingOutlook = Err = 0
    End With
    Set OutApp = Nothing
End Function


Вопрос в следующем, подскажите как правильно сделать, чтоб тему письма брал с определенного листа, определенной ячейки. Правил функцию, получилось, только файл перестал прекрепляться... Что я делаю не так? Подскажите как нужно, работу над ошибками проведу самостоятельно )
Изменено: vendigo - 27.06.2019 08:52:09
Перезапуск книги, с макросами.
 
Цитата
vikttur написал:
Не допускать пользователей к основным данным. Ввод - через отдельную форму, в которой защищено все, что можно. Данные из этой формы попадают куда надо.
Система поиска данных идет тоже через форму...
Перезапуск книги, с макросами.
 
Цитата
Nordheim написал:
А если проверку поставить на заполнение перед отправкой, или предупреждение, все ли заполнено. Я не думаю, что пользователи настолько безграмотны , что проигнорируют появившийся запрос на подтверждение своих действий. Перезапускать файл, только из-за открытия формы это что-то с чем-то.Мы же не в прошлом веке живем.  
Перезапуск в большей степени идет из-за болванки, чтоб данные сбросились, формулы восстановились, ну и  + форма логина
Перезапуск книги, с макросами.
 
Я так понимаю, сложность в этом присутствует, буду думать как обойти это другим путем...
Перезапуск книги, с макросами.
 
Цитата
Sanja написал:
Не пойму в чем сложность запускать форму по нажатию кнопки, а не при перезапуске
Надавили на больное. Раньше было так). Пользователей около 20 человек, и некоторые люди забывают это делать, документ уходил безликий...
Перезапуск книги, с макросами.
 
Цитата
Nordheim написал:
Может написать макрос который будет чистить в "болванке" заполненные ранее данные?
В болванке иногда «трутся» формулы, в зависимости от выбранных данных, ну и операторы бывают чего то трут)))
Перезапуск книги, с макросами.
 
В общем другого варианта нет.... Просто нужно чтоб при перезапуске стартовал макрос который запускается при открытии книги
Перезапуск книги, с макросами.
 
Цитата
Sanja написал:
Тогда вообще непонятно зачем его запускать каждый разВы лучше покажите файл-пример
При старте книги, запускается форма, типа логин оператора
Перезапуск книги, с макросами.
 
Да, там стоит код, Он отвечает за совсем другое... Объясню по другому, есть «болванка» которая заполняется частично макросом, частично вручную. Заполнил, отправил на печать, сразу забиваем другой заказ, а «болванка» уже заполнена предыдущим заказом, какие то формулы потерты и т.д вот и приходится перезапускать документ... Этот макрос перезапуска работает, но не запускается макрос при открытии который должен запускаться
Перезапуск книги, с макросами.
 
Около 7000 вариантов разных данных, и соответственно заказы клиента всегда разные... и простите какой я код придумаю и повесю...
Изменено: vendigo - 27.05.2019 08:29:27
Перезапуск книги, с макросами.
 
Есть книга, которая заполняется по требованию часть макросом, часть вручную, разными данными, выводится на печать, и надо заного открывать документ и тд. В день до 100-150 раз данная процедура. Не очень удобно, закрывать, потом опять открывать
Изменено: vendigo - 27.05.2019 08:25:35
Перезапуск книги, с макросами.
 
Актуально
Перезапуск книги, с макросами.
 
Цитата
RAN написал:
А можно суп на стол поставить, а кастрюлю оставить в холодильнике?
Это был вопрос...
Перезапуск книги, с макросами.
 
Добрый день, есть вот такая кнопка:
Код
Private Sub CommandButton3_Click()
Application.DisplayAlerts = 0
    ThisWorkbook.Saved = -1
    Workbooks.Open ThisWorkbook.FullName
    Application.DisplayAlerts = -1
End Sub

Все работает отлично и замечательно, но после перезапуска книги, с помощью этого макроса, не запускается макрос, который должен срабатывать при открытии книги. Подскажите как это поправить. Заранее благодарен.
З.Ы. Еще вопрос, Можно ли сделать чтоб перезапускался (либо отменялись изменения который вносит другой макрос) только лист, а не вся книга.
Макрос который копирует название файла с определенным расширением в определенной папке в ячейку, последний созданный.
 
Все всем спасибо огромнейшее, все замутил ))) Просто супер !
Страницы: 1 2 След.
Наверх