Проблема исполнения макроса. / FoxPro, Visual FoxPro

ReSQL.ru

2.0.59

Планшетная версия Контакт Правила FAQ Помощь

Гость

Войти | Профиль | Очистить

Нов. | Гор. | Избр.

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Действия ...

Доб. в избранное
Игнор. тему
Прикреп. тему
Пометить прочит. / непрочит.
Фильтр:
Сообщения автора темы
Сообщение содержит вложения
Сообщение содержит картинки
Сообщение содержит видеоклипы
Сообщение содержит аудиоклипы
Сообщение содержит картинки или видео 18+

Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Проблема исполнения макроса. / 3 сообщений из 3, страница 1 из 1

27.09.2017, 14:47

#39527145

dima_18

Участник

Сообщения: 380
Рейтинг: 0 / 0

Проблема исполнения макроса.

Добрый день, всем!
Образовалась следующая проблема. Хочу, исполнить (выполнить) макрос на фокспро, который сделал на visual basic.
Суть макроса заключается по окончании определенного цикла, т.е. на определенном номере ячейки я ставлю нижнюю черту (подчеркивание нижнее). Вот сам макрос. Я как -то выполнял команды foxpro перевода из basic, но подзабыл.
Подскажите, пожалуйста, как исполнить (переписать) данный макрос. Спасибо

Sub Ìàêðîñ1()

Range("C25:G25").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
End Sub

...

Рейтинг:

0 / 0

| Ответить | Цитировать | Написать

27.09.2017, 16:06

#39527197

Dima T

Участник

Сообщения: 15 530
Рейтинг: 0 / 0

Проблема исполнения макроса.

Я разлиновку так пишу

Код: sql

1.
2.
3.

		For i = 7 To 12
			.Range(.Cells(5, 2),.Cells(5 + lnRows + 1, 6)).Borders(i).LineStyle = 1
		ENDFOR

Значения экселевских констант (xlDiagonalDown, xlNone и т.д.) можно посмотреть в экселе: правой кнопкой и Quick info

...

Рейтинг:

0 / 0

| Ответить | Цитировать | Написать

28.09.2017, 17:56

#39527892

sWinTyz

Участник

Откуда: Москва
Сообщения: 652
Рейтинг: 0 / 0

Проблема исполнения макроса.

Они раньше перебором легко подбирались.

...

Рейтинг:

0 / 0

| Ответить | Цитировать | Написать

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/moderation_log.php?user_name=%D0%94%D0%BC%D0%B8%D1%82%D1%80%D0%B8%D0%B9_N]:	0ms
get settings:	10ms
get forum list:	15ms
get settings:	11ms
get forum list:	14ms
check forum access:	4ms
check topic access:	4ms
track hit:	71ms
get topic data:	12ms
get forum data:	2ms
get page messages:	46ms
get tp. blocked users:	2ms
others:	668ms

total:	859ms