|
Действия ...
|
07.08.2007, 18:01
|
|||
|---|---|---|---|
|
|||
Есть xls-файл в котором в разнобой стоят checkbox |
|||
|
|
|
08.08.2007, 09:39
|
|||
|---|---|---|---|
|
|||
Есть xls-файл в котором в разнобой стоят checkbox |
|||
|
|
Новые сообщения [новые:0]
Дайджест
Горячие темы
Избранное [новые:0]
Форумы
Пользователи
Статистика
Статистика нагрузки
Мод. лог
Поиск
|
|
07.08.2007, 17:55
|
|||
|---|---|---|---|
|
|||
Есть xls-файл в котором в разнобой стоят checkbox |
|||
|
#18+
День добрый! Кто может подсказать по такой проблеме: Есть xls-файл в котором в разнобой стоят checkbox и мне нужно по нажатию кнопки бежать по checkbox и ячейку перед checkbox ставить 1 или 0. Я с Excels работал редко. Вообще-то задача сложнее. Мне нужно загружать, в Delphi, xls-файл, в котором пользователь проставил галочки. Лучше решение, чем составить макрос на прославление 1 или 0 в строках не нашел. Заранее спасибо. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
07.08.2007, 18:01
|
|||
|---|---|---|---|
Есть xls-файл в котором в разнобой стоят checkbox |
|||
|
#18+
Шаблон заготовлен? У каждого checkbox - есть свойство LinkedCell в нем можно указать ячейку, в которой будет отображаться состояние checkbox-а ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
07.08.2007, 18:03
|
|||
|---|---|---|---|
|
|||
Есть xls-файл в котором в разнобой стоят checkbox |
|||
|
#18+
Шаблон заготовлен. Я не знаю как бежать по checkbox-сам. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
08.08.2007, 09:39
|
|||
|---|---|---|---|
Есть xls-файл в котором в разнобой стоят checkbox |
|||
|
#18+
Цикл for для checkbox\'ов ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
08.08.2007, 16:09
|
|||
|---|---|---|---|
|
|||
Есть xls-файл в котором в разнобой стоят checkbox |
|||
|
#18+
Спасибо! Помогло вот так: Option Explicit Public Ch() As New Class_OLE Dim i As Long, oble As OLEObject Private Sub CheckOLE_Change(cb As MSForms.CheckBox) cb.BottomRightCell = -1 * cb.Value End Sub Sub AddMassiv() i = 1 For Each oble In Sheets(1).OLEObjects If TypeName(oble.Object) = "CheckBox" Then ReDim Preserve Ch(1 To i) i = i + 1 CheckOLE_Change (oble.Object) End If Next End Sub ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
start [/forum/topic.php?fid=60&mobile=1&tid=2163613]: |
0ms |
get settings: |
7ms |
get forum list: |
14ms |
check forum access: |
2ms |
check topic access: |
2ms |
track hit: |
58ms |
get topic data: |
11ms |
get forum data: |
2ms |
get page messages: |
42ms |
get tp. blocked users: |
2ms |
| others: | 223ms |
| total: | 363ms |
| 0 / 0 |
