RFpro.ru: Программирование на Basic / VBA (comp.soft.prog.basicvba) : Рассылка : Subscribe.Ru

Подписаться Бесплатная «Золотая» новостная рассылка . Подписчиков 1.823 RSS

← Август 2016 →
1	2	3	4	5	6	7
8	9	10	11	12	13	14
15	16	17	18	19	20	21
22	23	24	25	26	27	28
29	30	31

За последние 60 дней ни разу не выходила

Сайт рассылки: http://prog.rusfaq.ru/basic
Открыта: 14-03-2002

Автор

Калашников О.А.

Статистика

1.823 подписчиков
0 за неделю

← Все выпуски →

RFpro.ru: Программирование на Basic / VBA

РАССЫЛКИ ПОРТАЛА RFPRO.RU

Лучшие эксперты в разделе

Megaloman
Статус: Академик
Рейтинг: 60
∙ повысить рейтинг »

Асмик Гаряка
Статус: Советник
Рейтинг: 5
∙ повысить рейтинг »

SFResid
Статус: Мастер-Эксперт
Рейтинг: 0
∙ повысить рейтинг »

∙ Basic

Номер выпуска: 1110

Дата выхода: 15.08.2016, 17:21

Администратор рассылки: Андреенков Владимир (Профессор)

Подписчиков / экспертов: 13 / 10

Вопросов / ответов: 3 / 4

Консультация # 185234: Уважаемые эксперты! Пожалуйста, ответьте на вопрос: Существует некий документ Word, в который вставлен рисунок Visio? В документе Word есть таблица , и на рисунке Visio есть данные из этой таблицы, но не в табличном формате. Задача: посоветуйте- пгомогите как сделать так, чтобы при заполнении таблицы, менялись данные в рисунке Visio? это над...

Консультация # 87058: Здравствуйте! Как отобразить кирилицу в заголовке формы, в надписях к CheckBox?, RadioButton, в списках ComboBox, меню стандартном в английской XP c английским Unicode. В таких элементах как ListView,TreeView, TextBox все отображается нормально, русскими буквами. Заранее спасибо...

Консультация # 132856: Уважаемые эксперты!помогите пожалуйста решить задачу!очень надо...заранее спасибо... ВЫполнить обработку элементов прямоугольной матрицы А, имеющей N строк и M столбцов.Просуммировать элементы каждой строки с элементами L-той строки. ..

Консультация # 185234:

Уважаемые эксперты! Пожалуйста, ответьте на вопрос:
Существует некий документ Word, в который вставлен рисунок Visio? В документе Word есть таблица , и на рисунке Visio есть данные из этой таблицы, но не в табличном формате. Задача: посоветуйте- пгомогите как сделать так, чтобы при заполнении таблицы, менялись данные в рисунке Visio? это надо на работе срочно, я понимаю что контрл С - контр В не отменял никто, но работы очень много и она такая муторная и хотелось бы её сделать быстрее и забыть. Адрес эл почты: hmyr_@mail.ru не знаю как здесь прикрепить файл для наглядного примера если чего - почту указал спасибо експертам заранее

Дата отправки: 20.01.2012, 22:10
Вопрос задал: mazdacx7
Всего ответов: 1
Страница онлайн-консультации »

Консультирует Vasiliy83:

Здравствуйте, mazdacx7!
Во вложении файл Word с макросом, который берет текст из таблицы (выделен красным) и вставляет его в текст одного из шейпов во встроенном объекте Visio (также выделен красным).
Основная проблема в определении номера таблицы и номера шейпа в Visio. Если таблиц не много, то можно и посчитать, иначе потребуется какое-то другое решение (например, ТАКОЕ). С шейпом все несколько сложнее, т.к. в обычном режиме Visio можно через меню вызвать окно свойств, в заголовке которого есть имя шейпа (имя можно использовать вместо ID, только вводится оно в двойных кавычках), но тут это меню недоступно. В коде есть закомментированый цикл, который позволяет посмотреть все непустые подписи к шейпам и при этом содержит ID шейпа - можно использовать что-то похожее.

По аналогии с представленным кодом можно сделать связь других полей и подписей в объект ах.
Остается выбрать способ, которым будут обновляться данные на объектах (например, при сохранении документа или его открытии), но тут выбор за Вами.

Код с комментариями продублирован в приложении.

Приложение:
Sub Main() \'объявляем переменные \' таблица, строка из таблицы, встроенный объект Dim myTable As Table, myString As String, myObject As Object, i As Long \'присваиваем значение (13 - порядковый номер таблицы в документе) Set myTable = ActiveDocument.Tables(13) \'считываем в переменну значение из ячейки (5 - строка, 6 - столбец) \'считываем всю строку кроме последнего символа - символа конца ячейки myString = Left(myTable.Cell(5, 6).Range, Len(myTable.Cell(5, 6).Range) - 1) \'активируем OLE-объект с номером 1 (первый вставленный объект) ThisDocument.InlineShapes(1).OLEFormat.Activate \'присваиваем значение переменной объекта Set myObject = ThisDocument.InlineShapes(1).OLEFormat.Object \'изменяем текстовую подпись объекта с номером 52 на строку из таблицы myObject.Application.ActivePage.Shapes(52).Text = myString \'цикл для получения всех номеров объектов с непустой подписью \'For i = 1 To myObject.Application.ActivePage.Shapes.Count \'If myObject.Application.ActivePage.Shapes(i).Text <> "" Then \'MsgBox "Object ID: " & i & vbCrLf & myObject.Application.ActivePage.Shapes(i).Text \'End If \'Next i End Sub

Консультировал: Vasiliy83
Дата отправки: 25.01.2012, 23:26

Прикреплённый файл: посмотреть » [568.0 кб]

Рейтинг ответа:

поблагодарить
эксперта

Консультация # 87058:

Здравствуйте! Как отобразить кирилицу в заголовке формы, в надписях к CheckBox?, RadioButton, в списках ComboBox, меню стандартном в английской XP c английским Unicode. В таких элементах как ListView,TreeView, TextBox все отображается нормально, русскими буквами. Заранее спасибо

Дата отправки: 15.05.2007, 21:01
Вопрос задал: Крупень А.А.
Всего ответов: 1
Страница онлайн-консультации »

Консультирует AlexanderZh:

Здравствуйте, Крупень А.А.!
Английского Unicode не существует... Данный стандарт поддерживает все языки (по крайней мере те, которые присутствуют в шрифте). Попробуйте сменить шрифт на поддерживающий русский, если не получится то это проблема контрола...

Консультировал: AlexanderZh
Дата отправки: 16.05.2007, 01:57

Рейтинг ответа:

поблагодарить
эксперта

Консультация # 132856:

Уважаемые эксперты!помогите пожалуйста решить задачу!очень надо...заранее спасибо...
ВЫполнить обработку элементов прямоугольной матрицы А, имеющей N строк и M столбцов.Просуммировать элементы каждой строки с элементами L-той строки.

Дата отправки: 18.04.2008, 17:30
Вопрос задал: Igor lukashov
Всего ответов: 2
Страница онлайн-консультации »

Консультирует Черников Игорь Владимирович:

Здравствуйте, Igor lukashov!
Вот Ваша программа, будет непонятно - пишите!
Удачи!

Приложение:
Sub Macr()Dim a() As Integer \' Объявляем массивDim массив As StringX = InputBox("Ведите количество столбцов в матрице", "Ввод данных")Y = InputBox("Ведите количество строк в матрице", "Ввод данных")ReDim a(X - 1, Y - 1) \'Объявляем размерность массива(матрицы)от = -10 \'Заполняем массив случайными числами от 10 до 100до = 10For i = 0 To X - 1 For j = 0 To Y - 1 a(i, j) = ((до - от) * Rnd) + от массив = массив & a(i, j) & Space(Y - Len(CStr(a(i, j)))) & " " Next j \'Конец цикла массив = массив & Chr(10)Next i \'Конец заполнения массиваz = InputBox("Введите № строки, которую нужно прибавить к остальным", "Ввод данных")массив = массив & Chr(10) & "Номер прибавленной строки - " & z & Chr(10) & Chr(10)For i = 0 To X - 1 If i <> z - 1 Then For j = 0 To Y - 1 a(i, j) = a(i, j) + a(z - 1, j) массив = массив & a(i, j) & Space(Y - Len(CStr(a(i, j)))) & " " Next j \'Конец цикла End If массив = массив & Chr(10)Next i \'Конец цикла\'Если указанную строку тоже нужно увеличить саму на себя, то добавим:массив = массив & Chr(10) & "Прибавленная строка:" & Chr(10) & Chr(10)For j = 0 To Y - 1 a(z - 1, j) = a(z - 1, j) + a(z - 1, j) массив = массив & a(z - 1, j) & Space(Y - Len(CStr(a(z - 1, j)))) & " "Next jMsgBox (массив) \'Выводим результат на экран, чтобы убедиться, что всё правильноEnd Sub

Консультировал: Черников Игорь Владимирович
Дата отправки: 19.04.2008, 21:05

Рейтинг ответа:

поблагодарить
эксперта

Консультирует Калашник Андрей Николаевич:

Здравствуйте, Igor lukashov!
dim matrix(1 to n,1 to m) as long,l as long,i as long,j as long
for i=1 to n
for j=1 to m
\'заполнение матрицы
matrix(i,j)=int(rnd*1000)
debug.print matrix(i,j)
next
next

l=1
for i=1 to n
for j=1 to m
matrix(i,j)=matrix(i,j)+matrix(l,j)
next
next

Консультировал: Калашник Андрей Николаевич
Дата отправки: 21.04.2008, 11:47

Рейтинг ответа:

поблагодарить
эксперта

Оценить выпуск | Задать вопрос экспертам

главная страница | стать участником | получить консультацию
техническая поддержка

Дорогой читатель! Команда портала RFPRO.RU благодарит Вас за то, что Вы пользуетесь нашими услугами. Вы только что прочли очередной выпуск рассылки. Мы старались. Пожалуйста, оцените его. Если совет помог Вам, если Вам понравился ответ, Вы можете поблагодарить автора - для этого в каждом ответе есть специальные ссылки. Вы можете оставить отзыв о работе портале. Нам очень важно знать Ваше мнение. Вы можете поближе познакомиться с жизнью портала, посетив наш форум, почитав журнал, который издают наши эксперты. Если у Вас есть желание помочь людям, поделиться своими знаниями, Вы можете зарегистрироваться экспертом. Заходите - у нас интересно! МЫ РАБОТАЕМ ДЛЯ ВАС!

В избранное

{#template MAIN} <div id="loginForm" style="display:none;" class="subscriberu_popup"> <div class="popup_register"> {#include js_tmpl_auth_reg_tab} {#if $P.login_register_tab == 1} <form class="authentication-form" method="post" action="/MEMBERLOGIN_authen_cred"> <dl class="rg_block_options"> <dt id="js_tap_panel_auth"> <h1>Войти на сайт</h1> {* {#include js_tmpl_auth_reg_button} *} {#include js_tmpl_auth_reg_action} <hr class="logreg_line noPhones"> <div class="logreg_descr noPhones"><p>{#include js_tmpl_auth_reg_descr} </p></div> <div class="logreg_advice noPhones"> Если вы еще не с нами, то начните с <a href="#" onclick="rgNav('js_tab_reg');return false;" class="dashed" data-func="registr">регистрации</a> </div> <br><br> <a class="dashed auth-enter" href="/manage/author/"><b>Вход для авторов</b></a> </dt> </dl> </form> {#/if} {#if $P.login_register_tab == 2} <div class="rg_block_options"> <div id="js_tap_panel_auth"> <h1>Регистрация</h1> <div class="social_reg"> {* <div class="rg_description">{#include js_tmpl_soc_auth_reg_descr}</div> *} {#include js_tmpl_auth_reg_soc} <div class="rg_soc_auth_agree">{#include js_tmpl_auth_reg_agree}</div> </div> <div class="subscribe_reg"> {* <div class="rg_description"> #include js_tmpl_auth_reg_descr </div> *} {#include js_tmpl_auth_reg_action} </div> {* {#include js_tmpl_auth_reg_button} *} <div class="clr"> </div> <hr class="logreg_line noPhones"> <div class="logreg_descr noPhones">{#include js_tmpl_auth_reg_descr} {#include js_tmpl_soc_auth_reg_descr} </div> </div> </div> {#/if} </div> {* <div class="gray_bg register_shadow"></div> *} </div> {#/template MAIN} {#template js_tmpl_auth_reg_tab} <ul class="rg_nav"> <li id="js_tab_auth" class="{#if $P.login_register_tab == 1} rg_active_nav {#/if} rg_first_nav"><a onclick="rgNav('js_tab_auth');return false;" href="">Вход на сайт</a></li> <li id="js_tab_reg" class="{#if $P.login_register_tab == 2} rg_active_nav {#/if}"><a onclick="rgNav('js_tab_reg');return false;" href="">Регистрация </a></li> </ul> <span onclick="hidebo();" class="rg_closed"> </span> {#/template js_tmpl_auth_reg_tab} {#template js_tmpl_auth_reg_action} {#if $P.login_register_tab == 1} {#include js_tmpl_auth_reg_soc} {#/if} <div class="rg_forms"> <input type="hidden" id="login_register_destination" value="{$P.login_register_destination}"/> {#if $P.login_register_tab == 1} <div class="rg_for_input"> <span class="rg_text_inner">E-mail или код подписчика</span> <input id="credential_0" class="js_keydown_selector rg_input_text" data-js_submit="no" data-js_next_input_name="credential_1" name="" type="text" /> </div> <div class="rg_for_input"> <span class="rg_text_inner">Пароль</span> <input id="credential_1" class="js_keydown_selector rg_input_text" data-js_submit="yes" data-js_action="js_loginFormBut" name="" type="password" onkeyup="showAttention(this,!!window.event.shiftKey)" /> <span class="pswd_attention" id="attention_pswd"> <span class="icon_attention"></span> <span class="pswd_attention-text" id="attention-text_pswd1">Русская раскладка клавиатуры!</span> <span class="pswd_attention-text" id="attention-text_pswd2">У вас включен Caps Lock!</span> <span class="pswd_attention-text" id="attention-text_pswd3">У вас включен Caps Lock и русская раскладка клавиатуры!</span> </span> </div> <div class="rg_for_input input-alien"> <span class="chk noPhones"><input id="chk_alien" name="" type="checkbox" /></span><label for="chk_alien" class="noPhones"> Чужой компьютер</label> <a class="forgot_pass" href="/member/totalrecall">Забыли пароль?</a> </div> <div class="rg_for_input"> <em id="auth_msg" class="reg_error"></em> <input id="lf_typeauthid" value="email" type="hidden"> <input type="submit" class="button button-red logreg_submit" id="js_loginFormBut" value="Войти">  <div class="loading loading-cover" style="display: none;"><div class="loader"></div></div> </div> {#/if} {#if $P.login_register_tab == 2} <div class="rg_for_input"> <span class="rg_text_inner">E-mail</span> <input id="arfemail" class="js_keydown_selector rg_input_text" name="" type="text" data-js_submit="yes" data-js_action="js_regFormBut"/> </div> <div class="rg_for_input rg_set_lineh rg_for_input_wide"> <label class="js_tap_panel_checkbox"> <span class="chk"><input name="" id='js_tap_panel_checkbox_terms' type="checkbox" data-js_submit="yes" /></span> Я ознакомился и согласен с <a class="link_txd logreg_accLink" href="/faq/vereinbarung.html">условиями сервиса Subscribe.ru</a> </label> <br /> <label class="js_tap_panel_checkbox"> <span class="chk"><input name="" id='js_tap_panel_checkbox_personal' type="checkbox" data-js_submit="yes" /></span> Нажимая на кнопку "Готово!", я даю <a class="link_txd logreg_accLink" href="/faq/persverordnung.html">согласие на обработку персональных данных</a> </label> </div> {* <div style="float: left;position: absolute;left: 11em;"> <img src="http://www.kupivip.ru/images/vip/logo.png?1604" style="width: 86px; vertical-align: middle;display: block;"> </div> <div class="rg_for_input rg_set_lineh"> <label class="js_tap_panel_checkbox"><input name="" id="js_tap_panel_checkbox_kupivip" type="checkbox" data-js_submit="yes"> Я хочу получать новости о скидках на одежду</label> </div> *} <div class="rg_for_input"> <em id="reg_msg" class="reg_error rg_for_input_wide"></em> <em id="reg_msg2" class="reg_error rg_for_input_wide"></em> <input id="rf_typeauthid" value="email" type="hidden"> <a class="button button-red logreg_submit" id="js_regFormBut" href="#">Готово!</a> <div class="loading loading-cover" style="display: none;"><div class="loader"></div></div> </div> {#/if} </div> {#/template js_tmpl_auth_reg_action} {#template js_tmpl_auth_reg_agree} <div class="rg_for_input rg_set_lineh rg_for_input_wide"> <label class="js_tap_panel_checkbox"> <span class="chk"><input name="" id='js_tap_panel_checkbox_terms_reg' type="checkbox" data-js_submit="yes" /></span> Я ознакомился и согласен с <a class="link_txd logreg_accLink" href="/faq/vereinbarung.html">условиями сервиса Subscribe.ru</a></label> <em id="reg_msg_soc" class="reg_error rg_for_input_wide"></em> </div> {#/template js_tmpl_auth_reg_agree} {#template js_tmpl_auth_reg_button} <div class="rg_butons_socials"> {#if $P.login_register_tab == 1} <a class="rg_btn_soc rg_bs_01 js_tap_panel_selector" action="auth_email" href="#"><span><i></i>Email</span></a> <a class="rg_btn_soc rg_bs_01 js_tap_panel_selector" action="auth_openid" href="#"><span><i></i>OpenID</span></a> <a class="rg_btn_soc rg_bs_02 js_tap_panel_selector" action="auth_vkontakte" href="#"><span><i></i>Вконтакте</span></a> <a class="rg_btn_soc rg_bs_02 js_tap_panel_selector" action="auth_mailru" href="#"><span><i></i>Mail.Ru</span></a> {#/if} {#if $P.login_register_tab == 2} <a class="rg_btn_soc rg_bs_01 js_tap_panel_selector" action="reg_email" href="#"><span><i></i>Email</span></a> <a class="rg_btn_soc rg_bs_01 js_tap_panel_selector" action="reg_openid" href="#"><span><i></i>OpenID</span></a> <a class="rg_btn_soc rg_bs_02 js_tap_panel_selector" action="reg_vkontakte" href="#"><span><i></i>Вконтакте</span></a> <a class="rg_btn_soc rg_bs_02 js_tap_panel_selector" action="reg_mailru" href="#"><span><i></i>Mail.Ru</span></a> {#/if} </div> {#/template js_tmpl_auth_reg_button} {#template js_tmpl_auth_reg_descr} {#if $P.login_register_tab == 1} Для оформления подписки на выбранную рассылку, работы с интересующей вас группой или доступа в нужный вам раздел, просим авторизоваться на Subscribe.ru {#/if} {#if $P.login_register_tab == 2} Для регистрации укажите ваш e-mail адрес. Адрес должен быть действующим, на него сразу после регистрации будет отправлено письмо с инструкциями и кодом подтверждения. {#/if} {#/template js_tmpl_auth_reg_descr} {#template js_tmpl_soc_auth_reg_descr} Или зарегистрируйтесь через социальную сеть. {#/template js_tmpl_soc_auth_reg_descr} {#template js_tmpl_auth_reg_soc} <div class="rg_soc"> {#if $P.login_register_tab == 1} <a onclick="return _checkSocConfirm(event)" href="https://oauth.vk.com/authorize?client_id=3954260&scope=wall,offline,photos,groups,video,audio,email&redirect_uri={location.protocol+'//'+location.host}/member/login/vk/&response_type=code&v=5.15" class="login_register_vk_button"> <span class="login_register_vk_icon"></span> </a> {#/if} {#if $P.login_register_tab == 2} <a onclick="return _checkSocConfirm(event)" href="https://oauth.vk.com/authorize?client_id=3954260&scope=wall,offline,photos,groups,video,audio,email&redirect_uri={location.protocol+'//'+location.host}/member/join/vk&response_type=code&v=5.15" class="login_register_vk_button"> <span class="login_register_vk_icon"></span> </a> {#/if} </div> {#/template js_tmpl_auth_reg_soc}

{#template MAIN} <div id="loginForm" style="display:none;" class="subscriberu_popup"> <div class="popup_register"> {#include js_tmpl_auth_reg_tab} <dl class="rg_block_options"> <dt id="js_tap_panel_auth"> <p class="rg_description">{#include js_tmpl_auth_reg_descr}</p> <div class="clr"> </div> {#include js_tmpl_auth_reg_action} <div class="clr"> </div> </dt> </dl> </div>  </div> {#/template MAIN} {#template js_tmpl_auth_reg_tab} <ul class="rg_nav"> <li id="js_tab_reg" class="rg_active_nav rg_first_nav"><a href="" onclick="return false;" >Регистрация</a></li> </ul> <span onclick="hidebo();" class="rg_closed"> </span> {#/template js_tmpl_auth_reg_tab} {#template js_tmpl_auth_reg_descr} <strong>Пожалуйста, подтвердите ваш адрес.</strong><br><br>Вам отправлено письмо для подтверждения вашего адреса {$P.register_confirm_mail}.<br>Для подтверждения адреса перейдите по ссылке из этого письма. {#/template js_tmpl_auth_reg_descr} {#template js_tmpl_auth_reg_action} <div class="rg_forms confirm_code_from_letter"> <div class="rg_for_input"> <span class="rg_inp_descr" style="width:15em;">Или введите код из письма:</span> <input type="text" value="" id="confirm_code" name="" data-js_submit="yes" data-js_action="js_confirmFormBut" class="js_keydown_selector rg_input_text_conf" > </div> <div class="rg_for_input"><label>Не пришло письмо? <b>Пожалуйста, проверьте папку Спам</b><br /> (папку для нежелательной почты).</label><br /> <a href="" onclick="ajax_recall_code();return false" >Вышлите мне письмо еще раз!</a></div> <div class="rg_for_input"> <em class="reg_error" id="confirm_msg"></em> <a href="#" class="button button-red" id="js_confirmFormBut">Готово</a> <div class="loading loading-cover" style="display: none;"><div class="loader"></div></div> <br> </div> </div> {#/template js_tmpl_auth_reg_action}