|
|
|
Есть xls-файл в котором в разнобой стоят checkbox
|
|||
|---|---|---|---|
|
#18+
День добрый! Кто может подсказать по такой проблеме: Есть xls-файл в котором в разнобой стоят checkbox и мне нужно по нажатию кнопки бежать по checkbox и ячейку перед checkbox ставить 1 или 0. Я с Excels работал редко. Вообще-то задача сложнее. Мне нужно загружать, в Delphi, xls-файл, в котором пользователь проставил галочки. Лучше решение, чем составить макрос на прославление 1 или 0 в строках не нашел. Заранее спасибо. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 07.08.2007, 17:55 |
|
||
|
Есть xls-файл в котором в разнобой стоят checkbox
|
|||
|---|---|---|---|
|
#18+
Шаблон заготовлен? У каждого checkbox - есть свойство LinkedCell в нем можно указать ячейку, в которой будет отображаться состояние checkbox-а ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 07.08.2007, 18:01 |
|
||
|
Есть xls-файл в котором в разнобой стоят checkbox
|
|||
|---|---|---|---|
|
#18+
Шаблон заготовлен. Я не знаю как бежать по checkbox-сам. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 07.08.2007, 18:03 |
|
||
|
Есть xls-файл в котором в разнобой стоят checkbox
|
|||
|---|---|---|---|
|
#18+
Цикл for для checkbox\'ов ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 08.08.2007, 09:39 |
|
||
|
Есть 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 ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 08.08.2007, 16:09 |
|
||
|
|
start [/forum/topic.php?fid=60&fpage=224&tid=2163613]: |
0ms |
get settings: |
8ms |
get forum list: |
13ms |
check forum access: |
3ms |
check topic access: |
3ms |
track hit: |
55ms |
get topic data: |
11ms |
get forum data: |
2ms |
get page messages: |
30ms |
get tp. blocked users: |
1ms |
| others: | 243ms |
| total: | 369ms |
| 0 / 0 |
