Наряд допуск в электроустановку

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Наряд допуск в электроустановку

danilka51

Дата: Четверг, 11.04.2013, 23:41 | Сообщение № 1

Группа: Пользователи

Ранг: Участник

Сообщений: 54

Репутация: 5 ±

Замечаний: 0% ±

уже неделю сижу с этим вопросом, всё, что наработал в файле

К сообщению приложен файл: 2244159.zip (67.6 Kb)

Ответить

danilka51

Дата: Пятница, 12.04.2013, 16:58 | Сообщение № 2

Группа: Пользователи

Ранг: Участник

Сообщений: 54

Репутация: 5 ±

Замечаний: 0% ±

Ребят, помогите пожалуйста кто чем может

Ответить

RAN

Дата: Пятница, 12.04.2013, 19:22 | Сообщение № 3

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

Цитата (danilka51)

всё, что наработал в файле

Там действительно, много чего есть.
Но что надо? В чем проблема? Чем помочь? cool

Быть или не быть, вот в чем загвоздка!

Ответить

danilka51

Дата: Пятница, 12.04.2013, 20:48 | Сообщение № 4

Группа: Пользователи

Ранг: Участник

Сообщений: 54

Репутация: 5 ±

Замечаний: 0% ±

рядом с кнопками подписано, что хочу сделать, но как пока не могу сообразить

Ответить

Serge_007

Дата: Пятница, 12.04.2013, 21:04 | Сообщение № 5

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

Репутация: 2749 ±

Замечаний: ±

Excel 2016

Это целое ТЗ
Перенести топик в раздел "Работа"?
Или будете помогать помогающим?

ЮMoney:41001419691823 | WMR:126292472390

Ответить

danilka51

Дата: Пятница, 12.04.2013, 21:16 | Сообщение № 6

Группа: Пользователи

Ранг: Участник

Сообщений: 54

Репутация: 5 ±

Замечаний: 0% ±

Конечно буду помогать, т.к. и самому интересно во всем разобраться

Ответить

danilka51

Дата: Пятница, 12.04.2013, 23:25 | Сообщение № 7

Группа: Пользователи

Ранг: Участник

Сообщений: 54

Репутация: 5 ±

Замечаний: 0% ±

[vba]

Код

If kindBox.SelectedIndex = -1 Then
kindError.Text = "Выберите тип"
End If

[/vba]
Как применить к combobox "Ответственный"?
Пробовал
[vba]

Код

If Ответственный.SelectedIndex = -1 Then
kindError.Text = "Выберите тип"
End If

[/vba]
и
[vba]

Код

If Ответственный.SelectedIndex = -1 Then
Ответственный.Text = "Выберите тип"
End If

[/vba]
Не выходит sad

Ответить

RAN

Дата: Суббота, 13.04.2013, 00:54 | Сообщение № 8

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

Чем могём. cool

[vba]

Код

Private Sub Сохранить_Click()
      Dim ActiveSheet_Name As String, Filename As String
      ActiveSheet_Name = ActiveSheet.Name
      With Application.FileDialog(msoFileDialogOpen)
          If .Show = 0 Then Exit Sub
          Filename = .SelectedItems(1)
      End With
      Application.ScreenUpdating = False
      Application.DisplayAlerts = False
      With Workbooks.Open(Filename)
          For Each sh In .Sheets
              If sh.Name = ActiveSheet_Name Then sh.Delete: Exit For
          Next
          On Error Resume Next
          ThisWorkbook.Sheets(ActiveSheet_Name).Copy After:=.Sheets(Sheets.Count)
          If Err Then
              MsgBox Err.Description
              Err.Clear
              .Close False
              GoTo err_
          Else
              .Close True
          End If
      End With
err_:
      Application.DisplayAlerts = True
      Application.ScreenUpdating = True
End Sub

[/vba]

Цитата

Надо заполнить поля label1-9 данными из A27:A35

Если не секрет, зачем? surprised

PS Очень понДравились члены бригады

Автокран КС45 719.
Автокран КАМАЗ-53212.

Быть или не быть, вот в чем загвоздка!

Сообщение отредактировал RAN - Суббота, 13.04.2013, 01:12

Ответить

danilka51

Дата: Суббота, 13.04.2013, 08:44 | Сообщение № 9

Группа: Пользователи

Ранг: Участник

Сообщений: 54

Репутация: 5 ±

Замечаний: 0% ±

RAN,

Цитата
Надо заполнить поля label1-9 данными из A27:A35

Если не секрет, зачем? surprised

Просто моя прихоть, на будущее.
А за код спасибо

Ответить

danilka51

Дата: Вторник, 16.04.2013, 12:32 | Сообщение № 10

Группа: Пользователи

Ранг: Участник

Сообщений: 54

Репутация: 5 ±

Замечаний: 0% ±

[vba]

Код

Private Sub Сохранить_Click()
ActiveSheet.Copy , Worksheets(Worksheets.Count)
Dim myName
myName = InputBox("Имя листа?")
On Error Resume Next
If Sheets(myName) Is Nothing Then
'Sheets.Add(After:=Sheets(Sheets.Count)).Name = myName

Else
'MsgBox "Такое имя уже есть!"
End If

End Sub

[/vba]

Помогите с сохранением пожалуйста

[admin]Оформляйте коды тегами![/admin]

К сообщению приложен файл: 7280378.xlsm (68.4 Kb)

Ответить

RAN

Дата: Вторник, 16.04.2013, 19:25 | Сообщение № 11

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

Чем могём. cool

См. Сообщение № 8

Быть или не быть, вот в чем загвоздка!

Ответить

danilka51

Дата: Среда, 17.04.2013, 14:48 | Сообщение № 12

Группа: Пользователи

Ранг: Участник

Сообщений: 54

Репутация: 5 ±

Замечаний: 0% ±

да, он там сохраняет, но теперь надо, чтобы имя листа вводилось с InputBox, вроде что-то получается, но не могу понять где и сто подправить.

[vba]

Код

Private Sub Сохранить_Click()
Dim myName
myName = InputBox("Имя листа?")

On Error Resume Next
If Sheets(myName) Is Nothing Then
Name = myName
ActiveSheet.Copy After:=Sheets(Sheets.Count)
Else
MsgBox "Такое имя уже есть!"

End If

End Sub

[/vba]