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

Страницы: 1
Связанные/зависимые выпадающие списки с одним условием на несколько строк
 
#
11.03.2017 19:56:55
Добрый день! В Файле есть Связанные/зависимые выпадающий список, на листе "Для_выпадающих_суд" имеются исходные данные  и формулы для выпадающего списка! Эти формулы работают только для строки 2 листа "Для Актов". Суть вопроса как сделать так что бы эти формулы работали на всех строках листа "Для актов"? т.е. в строке 2  листа "Для Актов" если выбрать Ленинский суд в столбце Е то в столбце М появится выбор должностей только для Ленинского суда, а в столбце N появится выбор доступных имен для этого суда и в столбце О для номеров приказа. Но у меня не получается применить это к остальным строкам !
Пример во Вложении!
Прошу Вас гуру Exel помочь в данном вопросе.
 
Перейти    
Копирование данных с одного листа на другой с ограничиванием количества столбцов
 
#
21.01.2017 00:38:30
Доброго времени суток! прошу помощи у Вас с макросом!
Есть макрос который копирует строку в которой активна ячейка и вставляет эту !всю! строку на второй лист.
Код
Private Sub cmdShowD_Click()
    If Application.Intersect(ActiveCell, ActiveSheet.UsedRange) Is Nothing Then Exit Sub
    ActiveCell.EntireRow.Copy Sheets("Буфер").Rows(2)
End Sub


Как можно сделать что бы копировалось только 6 колонок в выделенной строке и так же вставлялись 6 колонок на второй лист.
проще говоря выделил  B5 строка скопировалась с А5 до H5 и  так же вставилась на второй лист в строку 2 с А2 до H2, выделил  F5 строка скопировалась с A5 до H5 и  так же вставилась на второй лист в строку 2 с А2 до H2.
Заранее благодарен!
Изменено: Snake134 - 21.01.2017 00:39:10
 
Перейти    
Слияние выделенного диапазона с Word
 
#
10.07.2016 16:53:16
День добрый! Прошу помощи у Вас ! Есть файл exel "Заявка TEMP -2016" в ней список техники. Есть шаблон word документа "Ярлыки". Необходим аналог слияния, но только что бы объектом слияния был выделенный диапазон ячеек !! к примеру выделив строку 2 и 3 в шаблон вставлялись только данные из строк 2 и 3 !
Заранее спасибо!
Изменено: Snake134 - 10.07.2016 22:55:02
 
Перейти    
замены действия мыши на кнопку tab
 
#
26.06.2016 02:48:42
Уважаемые гуру. Прошу Вашей помощи так как в VBA Не сильно "шарю". Суть проблемы такова Есть Лист Exel На нем есть клавиша которая запускает UserForm. в этой форме есть TextBoxы по которым перемещаюсь в основно TAB или enter . Мне необходимо что бы при переходе на определенный TextBox выбирался определенный язык. Переключать язык у меня получилось НО ТОЛЬКО ПРИ НАЖАТИИ КЛАВИШИ МЫШИ в поле TextBox , а для удобства (да и мышкой почти не пользуюсь) хотелось что бы переключение происходило при нажатии tab или Enter! пример во вложении!
Код
Option ExplicitPrivate Declare Function GetKeyboardLayoutName Lib "user32" Alias _
                                "GetKeyboardLayoutNameA" (ByVal pwszKLID As String) As Long
Private Declare Function ActivateKeyboardLayout Lib "user32" _
                               (ByVal HKL As Long, ByVal flags As Long) As Long
Dim lState As Long    '409 - eng, 419 - rus
 
 
 
'Private Sub tbmarka_Exit(ByVal Cancel As MSForms.ReturnBoolean)
'MsgBox "tbmarka_Exit occurred"
'End Sub
 
Private Sub UserForm_Initialize()
Dim KeybLayoutName As String: KeybLayoutName = String(9, 0)
GetKeyboardLayoutName KeybLayoutName
lState = Val(CStr(CLng(Left$(KeybLayoutName, InStr(1, KeybLayoutName, Chr(0)) - 1))))
If lState = 409 Then Me.Image2.Visible = True Else Me.Image1.Visible = True
End Sub
 
'rus
Private Sub tbnom_usherb_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If lState = 409 Then
'    Application.SendKeys "%+", True
    ActivateKeyboardLayout 0, 0
    Me.Image1.Visible = True    'rus dark
    Me.Image2.Visible = False    'eng light
    lState = 419
End If
End Sub
'eng
Private Sub tbmarka_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If lState = 419 Then
    'Application.SendKeys "%+", True
    ActivateKeyboardLayout 0, 0
    Me.Image1.Visible = False    'rus dark
    Me.Image2.Visible = True    'eng light
    lState = 409
End If
End Sub
 
Перейти    
Страницы: 1
Наверх