Проблемма с FlexGrid

[bag]

Здравствуйте! При попытке добавить на VBA-форму элемент управления Microsoft FlexGrid v6.0 выводится сообщение об ошибке "The control could njt be created because it is not properly licensed". Что делать? Установлен Microsoft Office 2007

[EducatedFool]

Найдите в реестре раздел
HKEY_CLASSES_ROOT\Licenses\72E67120-5959-11cf-91F6-C2863C385E30

и создайте в нём строковый параметр со значением ibcbbbebqbdbciebmcobmbhifcmciibblgm f
(в значении не должно быть пробелов, уберите пробел перед последним символом f)

Проблема неоднократно обсуждалась на форумах:
http://forum.sources.ru/index.php?showtopic=110739
http://bbs.vbstreets.ru/viewtopic.ph...39251#p6718632
http://forum.vingrad.ru/index.php?showtopic=39817


Или просто запустите файл из вложения:

[bag]

Спасибо за совет. Можно еще узнать, как записывать\считывать значения из определенных ячеек?

[EducatedFool]

как записывать\считывать значения из определенных ячеек?

    ' примеры записи в ячейку
    Range("B5") = 123
    [b5] = 123
    Range("$B$5") = 123
    Range("B" & 5) = 123
    Cells(5, 2) = 123
    Cells(5, "B") = 123
    Rows(5).Cells(2) = 123
    Rows(5).Columns(2) = 123
    Rows(5).Columns("B") = 123
    Rows("5:5").Columns("B") = 123
    Columns(2).Cells(5) = 123
    Columns(2).Rows(5) = 123
    
    ' аналогично производится чтение из ячейки:
    x = [b5]
    x = Range("B5")
    x = Range("B5").Value
    x = Cells(5, 2)
    ' и т.д.

Более подробную информацию можно найти здесь:
http://msoffice.nm.ru/faq/macros.htm

[bag]

Извиняюсь, неточно выразился. Я имел ввиду организацию доступа к ячейкам элемента FlexGrid.

[EducatedFool]

Как-то так:

FG.TextMatrix(i, 0) = i
FG.TextMatrix(i, 1) = "текст"
FG.TextMatrix(i, 2) = Line_Descr

FG.Row = i: FG.col = 2: FG.CellBackColor = vbYellow
FG.Row = i: FG.col = 3: FG.CellBackColor = vbRed

FG.Redraw = True

X = FG.TextMatrix(5, 4)

[EducatedFool]

Вот ещё пример работы с FlexGrid:

Sub ЗаполнениеFlexGrid()
    With Me.FlexGrid
        .ColWidth(0) = 2500: .ColWidth(1) = 1800: .ColWidth(2) = 1800: .ColWidth(3) = 1700
        ' устанавливаем ширину столбцов
        
        .Row = 0: .Col = 0: .RowSel = .Rows - 1: .ColSel = 3:
        .FillStyle = 1: .CellAlignment = 4 ' выравнивание по центру
        
        .Row = 1: .RowSel = .Rows - 1: .ColSel = 0: .CellBackColor = vbYellow
        ' красим первый столбец в желтый цвет
        
        .Row = .Rows - 1: .Col = 0: .RowSel = .Rows - 1: .ColSel = 3: .CellBackColor = vbGreen
        ' красим последнюю строку в зелёный цвет
        .CellFontBold = True ' и устанавливаем полужирный шрифт
        
        .Row = 0: .Col = 1: .RowSel = 0: .ColSel = 3: .CellBackColor = vbMagenta
        ' красим верхнюю строку
        
        For i = 1 To 6
            .TextMatrix(i, 0) = "Магазин № " & i
            For j = 1 To 3
                .TextMatrix(0, j) = "Товар № " & j
                .TextMatrix(i, j) = arr(i, j)
            Next j
        Next i
        
        For j = 1 To 3
            .TextMatrix(7, j) = arr(7, j)
        Next j
        .TextMatrix(7, 0) = "Самая низкая цена"
    End With
End Sub

Пример (на VB) во вложении:

[bag]

Еще раз спасибо! Оказывается я тоже в чем-то новичек

[bag]

А можно ли в определенных ячейках установить вертикальный вывод текста? Это нужно, чтобы сжать по ширине таблицу (в ячейках первой строки идет длинный текст, а в остальных ячейках - короткие числа).
И еще вопрос: как сделать, чтобы содержимое ячеек FlexGrid'а можно было редактировать вручную, а не программно?

[EducatedFool]

А можно ли в определенных ячейках установить вертикальный вывод текста?

Насколько мне известно, нет.
По крайней мере, такого свойства у FlexGrid я не нашёл.

как сделать, чтобы содержимое ячеек FlexGrid'а можно было редактировать вручную, а не программно?

По событию FlexGrid_DblClick отображаете текстбокс поверх той ячейки, на которой выполнялся DblClick, выставляете размеры и координаты текстбокса в соответствии с размерами выбранной пользователем ячейки, и после ввода значения в текстбокс скрываете его, а введённое значение программно записываете в FlexGrid.
(Excel делает примерно то же самое, когда Вы редактируете текст прямо в ячейке)

Или используйте компонент Microsoft Office SpreadSheet 11.0 или 10.0
В этом случае работать с ячейками будет гораздо проще.
К тому же, этот элемент управления по умолчанию формирует контекстное меню, и позволяет выполнять правку прямо в ячейке.
(пример во вложении)