Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Программирование, связанное с MS Office > выпадающий лист?

Автор: RainMan 12.11.2005, 22:06

Здравствуйте!
Почитал несколько листов данной ветки но не нашел ответа на свой вопрос.
У меня вот какая проблема.
Лист1: в данном листе находится перечень цифр или слов в столбце с А1 до А10 и этому диапазону дано имя "num". Однако цифры в этом диапазоне могут располагаться через ячейку, то есть в диапазоне от 1 до 10 ячейка с номером 5 может быть пустой, или несколько ячеек пустой.

Лист2: в данном листе необходимо вставить в ячейку тип Validation чтобы получлась ячейка с выпадающей листом того что есть в диапазоне "num на Листе1 но без пробелов, чтобы цыфры или слова шли один за другим, без учета пробелов.

Я написал вот такой код:

Код


Sub predpr()
        Worksheets("Лист1").Activate
        Set r = Range("num")
        For n = 1 To r.Rows.Count
        a = a & "," & r.Cells(n, 1).Value
    Next n

Worksheets("Лист2").Activate
Range("A1").Activate
    With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:=a
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With
Range("A1").Select
End Sub

Нутром чувствую что это все криво написано, но работает вроде как нужно, но проблема возникает тогда если цифры в ячейках заменить словами и такими что вся их общая суммарная длинна со всех 10 ячеек больше 255 символов! сама переменная "а" в строчке 5 воспринимает всю длину но когда делается Validation то строка обрезается до длины 255 символов.

Может кто-то подскажет как более грамотно реализовать считывание данных с друго-го листа и вставку в выпадающий лист текущего листа?

вот что есть на входе:
"ФФФФФФФФФФФ"

"ВВВВВВВВВВВВВ"

"ККККККККККККККК"
"ННННННННННННННН"

На выходе нужно получить выпадающий лист без пробелов в ячейках:
"ФФФФФФФФФФФ"
"ВВВВВВВВВВВВВ"
"ККККККККККККККК"
"ННННННННННННННН"

Спасибо.

Автор: Staruha 13.11.2005, 02:01

Ну мы по поводу такого списка тут рассуждали
http://forum.vingrad.ru/index.php?showtopic=62690
Вряд ли тебе удастся изменить стандартную ф-ю.Наверно надо создать еще один список ,который возьмет значения с твоего списка без пробелов.

Автор: RainMan 13.11.2005, 11:50

Хорошо, а как тогда можно список скопировать в другое место, циклом поднять все строки, чтобы получился сплошной список и тогда делать ссылку на такой список?

То есть нужно скопировать оригинальный список, обработать его (то есть поднять все строки, что бы не было пустых ячеек) и узнать диапазон хорошего списка чтобы потом можно было на него сослаться.
Как это можно осуществить?

Спасибо.

Автор: likhobory 13.11.2005, 20:46

отфильтруй непустые значения: данные-фильтр-автофильтр...

Автор: Staruha 13.11.2005, 22:18

А как насчет удалить пустые строки на месте?

Код


Private Sub CommandButton2_Click()
L = 500
For x = 1 To L
     If x = L Then
  Exit Sub
 
ElseIf Range("A" & x).Value = "" Then
     
    Rows(x).Delete
  x = x - 1
  L = L - 1
  
 End If
 Next
End Sub

Автор: Гость_RainMan 17.11.2005, 14:14

нельзя портить исходный лист путем редактирования на месте...

Автор: Staruha 17.11.2005, 14:46

Тогда еще проще.

Код


Private Sub CommandButton1_Click()
Dim i As Integer
For x = 1 To 20
 If Range("A" & x).Value <> 0 Then
 i = i + 1
  Лист3.Range("A" & i).Value = Range("A" & x).Value
  End If
  Next
End Sub