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

Страницы: 1
Загрузить картинку из интернета в форму UserForm1
 
#
28.05.2018 08:43:09
Чуть-чуть подправил код, все работает безукоризненно.
Благодарю сердечно.
 
Перейти    
Загрузить картинку из интернета в форму UserForm1
 
#
22.05.2018 18:19:19
Попробовал загрузить картинку из вашей программы. Прождал больше часа, ничего не высветилось. Подскажите, пожалуйста, что не так?
 
Перейти    
Загрузить картинку из интернета в форму UserForm1
 
#
07.05.2018 15:56:59
Здравствуйте!
Имеется база данных в формате Excel. При щелчке мыши по артикулу какого-нибудь изделия (колонка "А") возникает форма UserForm1 с основными параметрами изделия, в том числе и адрес соответствующей фотографии в Интернете (окошко TextBox16 "Url картинки*). При нажатии кнопки "Картинка" должна высвечиваться фотография с помощью кода, указанного ниже:
Код
Private Sub CommandButton3_Click()
 With UserForm1
        Set UserForm1.Image1.Picture = LoadPicture(TextBox16.Value
   .Show
  End With
End Sub
Однако этого не происходит (возникает ошибка "75" Path/File access error). Я понимаю, что тема не нова, но найти что-нибудь простое и эффективное по устранению этой ошибки у меня не получается.
Помогите, пожалуйста
 
Перейти    
При попытке очистки полей пользовательской формы возникает ошибка "1004"
 
#
06.03.2015 16:33:49
Но почему же? В столбце "В" расположены названия организаций, в TextBox2 - краткое название организации (то же самое).
 
Перейти    
При попытке очистки полей пользовательской формы возникает ошибка "1004"
 
#
05.03.2015 23:23:16
В дополнение в предыдущей проблеме возникла новая, правда, отличная по названию от первоначальной. На пользовательской форме имеется кнопка "Новая запись", при нажатии которой макрос должен определить ближайшую строчку с пустой ячейкой "И" (название организации) и ввести в эту строку данные о новой организации. При этом должна осуществляться проверка на наличие вновь введенного названия организации с уже введенными. Привожу код. Наколбасил такое, что самому стыдно.

Код
Private Sub CommandButton5_Click()
Dim iLastRow As Long
Dim iFoundRng As Range
iRow = ActiveCell.Row
    If Me.TextBox2 = "" Then
        MsgBox "Ââåäèòå èíôîðìàöèþ â ïîëå 1", vbExclamation, "Îøèáêà"
        Exit Sub
    End If
        Set iFoundRng = Columns("B").Find(what:=Me.TextBox1.Text, LookAt:=xlWhole) 'ÿ÷åéêà öåëèêîì
        'åñëè òàêàÿ çàïèñü óæå åñòü
        If Not iFoundRng Is Nothing Then
            If MsgBox("Òàêàÿ çàïèñü óæå ñóùåñòâóåò. Çàìåíèòü å¸?" & vbCr & "Äà - çàìåíèòü ñòàðóþ, Íåò - äîáàâèòü â áàçó", vbYesNo + vbExclamation, "Âíèìàíèå!") = vbYes Then
                Cells(iRow, "B") = Me.TextBox2
                Cells(iRow, "P") = Me.TextBox3
                Cells(iRow, "O") = Me.TextBox4
                Cells(iRow, "P") = Me.TextBox5
                Cells(iRow, "Q") = Me.TextBox6
                Cells(iRow, "R") = Me.TextBox7
                Cells(iRow, "S") = Me.TextBox8
                Cells(iRow, "T") = Me.TextBox9
                Cells(iRow, "U") = Me.TextBox10
                Cells(iRow, "V") = Me.TextBox11
                Cells(iRow, "W") = Me.TextBox12
                Cells(iRow, "X") = Me.TextBox13
                Cells(iRow, "Y") = Me.TextBox14
                Cells(iRow, "Z") = Me.TextBox15
                Cells(iRow, "AA") = Me.TextBox16
                Exit Sub
            End If
         End If
    
    MsgBox "Èíôîðìàöèÿ äîáàâëåíà!", vbInformation, "ÁÄ"
End Sub
 
Перейти    
При попытке очистки полей пользовательской формы возникает ошибка "1004"
 
#
05.03.2015 09:27:21
Спасибо, k61, похоже, Вы правы.
 
Перейти    
При попытке очистки полей пользовательской формы возникает ошибка "1004"
 
#
05.03.2015 08:39:02
1) Точки убрал. Не помогло, к сожалению.
2) Часть кода (с точками) был взят на одном из форумов и успешно применен здесь же. При вызове второй формы (графа "Статус предложения", ячейки, содержащие текст "сделано"). После переноса данных в архив, четыре нужных ячейки очищаются.
3) По поводу сокращения кода: как быть, если очищаемые ячейки расположены не подряд. Например, B - F и  I - AA.

Отправил файл. Всем большое спасибо за участие, однако жду помощи.
 
Перейти    
При попытке очистки полей пользовательской формы возникает ошибка "1004"
 
#
04.03.2015 21:35:04
Имеется лист "БД" (база данных), к ячейкам "В" (название организаций) которого прикреплена пользовательская форма (расширенные сведения об организации). В случае ликвидации организации все данные о ней должны быть удалены из БД при нажатии кнопки CommandButton6 ("Очистить все", расположенной на форме. Однако вместо этого возникает ошибка '1004' с подсветкой строки ".Cells..."
Помогите, пожалуйста, избавиться от этой напасти. Прошу прощения за слабое знание VBA.
Ниже привожу текст кода, расположенного в модуле листа "БД".
Код
Private Sub CommandButton6_Click()
         With Worksheets("БД")
        .Cells(.iRow1, "F").ClearContents
        .Cells(.iRow1, "N").ClearContents
        .Cells(.iRow1, "O").ClearContents
        .Cells(.iRow, "P").ClearContents
        .Cells(.iRow, "Q").ClearContents
        .Cells(.iRow, "R").ClearContents
        .Cells(.iRow, "S").ClearContents
        .Cells(.iRow, "T").ClearContents
        .Cells(.iRow, "U").ClearContents
        .Cells(.iRow, "V").ClearContents
        .Cells(.iRow, "W").ClearContents
        .Cells(.iRow, "X").ClearContents
        .Cells(.iRow, "Y").ClearContents
        .Cells(.iRow, "Z").ClearContents
        .Cells(.iRow, "AA").ClearContents
      End With
    Unload Me
  MsgBox "Данные удалены"
End Sub

А здесь показан код вызова пользовательской формы.

   
Код
Public iRow&, iRow1&


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 Dim iRow&: iRow = Target.Row
    If Not Intersect([H6:H1105], Target) Is Nothing Then
       If LCase(Trim(Target)) = "ñäåëàíî" Then 'If Target = "ñäåëàíî" Then
         iRow1 = Target.Row
            With UserForm2
               .TextBox19 = Cells(iRow1, "A")
               .TextBox20 = Cells(iRow1, "B")
               .TextBox21 = Cells(iRow1, "F")
               .TextBox22 = Cells(iRow1, "I")
               .TextBox23 = Cells(iRow1, "J")
               .Show
           End With
      End If
       ElseIf Not Application.Intersect(Range("D6:D1105"), Target) Is Nothing Then
              UserForm1.Show
          ElseIf Not Application.Intersect(Range("F6:F1105"), Target) Is Nothing Then
              UserForm1.Show
            ElseIf Not Intersect([B6:B1105], Target) Is Nothing Then
               With Card
                  .TextBox1 = Cells(iRow, "A")
                  .TextBox2 = Cells(iRow, "B")
                  .TextBox3 = Cells(iRow, "N")
                  .TextBox4 = Cells(iRow, "O")
                  .TextBox5 = Cells(iRow, "P")
                  .TextBox6 = Cells(iRow, "Q")
                  .TextBox7 = Cells(iRow, "R")
                  .TextBox8 = Cells(iRow, "S")
                  .TextBox9 = Cells(iRow, "T")
                  .TextBox10 = Cells(iRow, "U")
                  .TextBox11 = Cells(iRow, "V")
                  .TextBox12 = Cells(iRow, "W")
                  .TextBox13 = Cells(iRow, "X")
                  .TextBox14 = Cells(iRow, "Y")
                  .TextBox15 = Cells(iRow, "Z")
                  .TextBox16 = Cells(iRow, "AA")
                  .TextBox17 = Cells(iRow, "K")
                  .TextBox18 = Cells(iRow, "L")
                  .Show
               End With
          End If
End Sub
 
Перейти    
Страницы: 1
Наверх