powered by simpleCommunicator - 2.0.56     © 2025 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Прошу еще помочь немного...
11 сообщений из 11, страница 1 из 1
Прошу еще помочь немного...
    #32264269
The¤Lexx
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Здраствуйте..

Есть форма, в ней n-ное количество чекбоксов (45 :) ) нужно проверить если чекбокс отмечен чтобы данные заносились в переменную, и чтобы потом можно было вставить их в ворде (форма в экселе загружается).
Расскажу подробнее, если чекбокс выбран он в документе Екселя ищет ячейку которая содержит какой-то текст и заносит в переменную.
Так вот проверка чекбоксов:
If CheckBox1.Checked = True Then
Set cb1 = Cells.Find(What:="01 -", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False)
End If
Нехочет так работать! :(
Накупил себе книг всего, там очень мало про формы сказано, парни помогите разобраться очень признателен буду!
...
Рейтинг: 0 / 0
Прошу еще помочь немного...
    #32264285
Hibernate
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
а где ты у CheckBox нашел свойство checked? Или это какой-то нестандартный контрол? В стандартном виндовом чекбоксе есть свойство Value:
Код: plaintext
1.
The settings for value are: 
CheckBox control —  0  is Unchecked (default),  1  is Checked, and  2  is Grayed (dimmed).
...
Рейтинг: 0 / 0
Прошу еще помочь немного...
    #32265016
The¤Lexx
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Спасибо, намудрил я чего-то.. Щас исправил все.. Все вроди ОК.
Вот только еще один вопрос назрел, если я задаю переменную такую:

Код: plaintext
1.
2.
Set cb8 = Cells.Find(What:= "01  -", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
    :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
    False, SearchFormat:=False)


То как потом вставить в ворде это (всмысле содержимое этой ячейки)? Неподскажите? Методом Paste, только как это описать, немогу нигде найти это. Спасибо заранее.
...
Рейтинг: 0 / 0
Прошу еще помочь немного...
    #32265162
Hibernate
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
создаешь объект Word.Application (или что-то очень похожее влом искать точный синтаксис), там по идее должен быть объект Document, а в нем ищешь свойства/методы, работающие с текстом документа.
а из ячейки значение вытягивается хотя-бы по тому-же свойтсву Value.
Елси ты об этом.
...
Рейтинг: 0 / 0
Прошу еще помочь немного...
    #32265222
The¤Lexx
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Нет, я имею ввиду как мне вставить именно переменную, как открыть ворд из екселя я знаю, вот как конкретно если задал переменную вставить её позже в ворде текстом?
что-то типа cb6.Paste вот синтаксис правильный узнать немогу...
...
Рейтинг: 0 / 0
Прошу еще помочь немного...
    #32265245
The¤Lexx
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Или может подругому не через переменную можно это как-то сделать.. Подскажите пожалуйста кто знает! Буду очень благодарен...
...
Рейтинг: 0 / 0
Прошу еще помочь немного...
    #32266133
Hibernate
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
чего-то я не пойму твоей проблемы....
хорошо, программно вставить в ворд текст "Здравствуй мир" можешь?
если да, то вместо сдравствуй мир напиши свою переменную.
если нет, то разбирайся с объектной моделью ворда - она простая.
...
Рейтинг: 0 / 0
Прошу еще помочь немного...
    #32267248
The¤Lexx
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Ну так я поэтому и спросил, потому что сам немогу разобраться с добавлением этого текста.. А время поджимает очень сильно.. :(
...
Рейтинг: 0 / 0
Прошу еще помочь немного...
    #32267281
The¤Lexx
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Да, сорри нашел, только вот неполучается добавить содержимое переменной:

Код: plaintext
ActiveDocument.Range.Words( 1 ).InsertAfter "" & cb6


:(
...
Рейтинг: 0 / 0
Прошу еще помочь немного...
    #32267760
Processor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Если cb6 - одиночная ячейка, то:
Код: plaintext
1.
ActiveDocument.Range.Words( 1 ).InsertAfter "" & cb6.Text
...
Рейтинг: 0 / 0
Прошу еще помочь немного...
    #32268482
The¤Lexx
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Нет, cb6 это переменная в которой текст ячейки находится..
...
Рейтинг: 0 / 0
11 сообщений из 11, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Прошу еще помочь немного...
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]