Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.66/29: Рейтинг темы: голосов - 29, средняя оценка - 4.66
1 / 1 / 0
Регистрация: 27.06.2012
Сообщений: 39
1

Можно ли изменить размер или шрифт в строке состояния Excel?

27.06.2012, 13:23. Просмотров 5656. Ответов 7
Метки нет (Все метки)

Здравствуйте все! Я новенький. Осваиваю VBA Excel самостоятельно, без навыков программирования и знания англицкого. Наверно буду задавать много вопросов, для большинства простых.......
Вопрос1: Вывел необходимую мне информацию в строку состояния, но мелковато там, а информация оперативная и требующая внимания. Как там сделать шрифт да и саму строку состояния побольше? Или может выводить информацию не в ней? Тогда где и как?
Вопрос2: Как сделать, чтобы другой пользователь не мог посмотреть и/или изменить код VBA? Защита от любопытства и от случайности... сложных схем не надо, достаточно пароля. Ставлю на модуль - все равно в него пускает без проблем..... как быть?
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
27.06.2012, 13:23
Ответы с готовыми решениями:

Где лучше всего писать текст и можно ли в label'е изменять шрифт или размер букв?
Тема моей курсовой составить текст и подставить под него имя, фамилию и т.д. заданные ранее. Где...

Как изменить шрифт и размер шрифта
подскажите пожалуйсто как изменить шрифт и размер шрифта, какие библиотеки и функции

Изменить шрифт и его размер (консоль)
Как программно для windows можно поменять шрифт на Lucida Console и размер шрифта, скажем на 10ый ?...

Как изменить размер и шрифт всплывающей подсказки?
как изменить размер и шрифт всплывающей подсказке нужно обязательно создавать свой класс или...

7
5 / 5 / 3
Регистрация: 17.10.2007
Сообщений: 1,119
27.06.2012, 16:43 2
1. Podves' UserForm s Label na nej i vyvodi vse tuda:
Visual Basic
1
2
3
4
5
6
Private Sub CommandButton1_Click()
    UserForm1.StartUpPosition = 0
    UserForm1.Left = 0
    UserForm1.Top = Application.ActiveWindow.Height - UserForm1.Height
    UserForm1.Show vbModeless
End Sub
2. Tools/VBAProject Properties/Protection ...
0
1 / 1 / 0
Регистрация: 27.06.2012
Сообщений: 39
27.06.2012, 19:12  [ТС] 3
Спасибо.... С паролем получилось... А Форму я как раз подвешивать не хочу.... Так как при каждом кликанье мышкой у меня итоги меняются (а именно они в строке состояния отображены), то значит будет форма подгружаться каждый раз..... Да и места занимать она будет.... Ну да ладно.... если припрет - сделаю... Спасибо
0
22 / 5 / 1
Регистрация: 05.09.2010
Сообщений: 370
28.06.2012, 14:37 4
В некоторых случаях можно использовать MsgBox
Но размер шрифта в нем не поменять...
Visual Basic
1
2
3
4
5
6
Sub Пример()
  s1 = 1000: s2 = 1000
  MsgBox ActiveCell.Value & vbCr & _
         "Приход " & s1 & vbCr & _
         "Расход " & s2, vbInformation, ""
End Sub
0
1 / 1 / 0
Регистрация: 19.05.2011
Сообщений: 80
28.06.2012, 15:24 5
Эта программа взята из учебника и отображает окно сообщений в течение заданного интервала времени, после которого само исчезает без нажатия кнопок:
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub popupDemo()
' подключить ссылку на библиотеку Windows Script Host Object Model
Dim WshShell As Iwshshell
Dim mg As String 'строка сообщения
Dim N As Integer 'количество секунд отображения
Dim title As String 'заголовок
    Set WshShell = CreateObject("Wscript.Shell")
    mg = "Жду 5 секунд."
    N = 5
    title = "POPUP"
'возможные варианты: 1+vbInformation, 2+vbInformation и т.д.
    WshShell.Popup mg, N, title, vbInformation
    Set WshShell = Nothing
End Sub
0
5 / 5 / 3
Регистрация: 17.10.2007
Сообщений: 1,119
28.06.2012, 17:24 6
Цитата Сообщение от Masalov
В некоторых случаях можно использовать MsgBox
Но размер шрифта в нем не поменять...
Privet, Masalov:
Font v message box kak-to menyaut:
http://www.vbexplorer.com/VBExplorer/viewcode.asp?SendText=files/messageboxdemo
Ya etot link sam ne otkrival, no dumayu chto tam strel'ba iz pushki po vorob'yam: uzh legche opyat' zhe veshat' formu, k tomu zhe ona mozhet bit' kak modal'noj tak i ne modal'noj.

vladconn
0
5 / 5 / 3
Регистрация: 17.10.2007
Сообщений: 1,119
28.06.2012, 18:35 7
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Option Explicit
 
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
 
Private Sub CommandButton1_Click()
    ShowTextInStatusBar 4, 250, "Ochen' vazhnoe soobschenie"
End Sub
 
Private Sub ShowTextInStatusBar(ByVal pintBlinks As Integer, ByVal pintMilliseconds As Integer, ByVal pstrText As String)
    Dim intCount As Integer
    
    For intCount = 1 To pintBlinks
         Application.StatusBar = pstrText
         Sleep pintMilliseconds
         Application.StatusBar = ""
         Sleep pintMilliseconds
    Next intCount
    Application.StatusBar = pstrText
 
End Sub
vladconn
0
22 / 5 / 1
Регистрация: 05.09.2010
Сообщений: 370
01.07.2012, 05:54 8
для VladConn
Спасибо за ссылку. Обязательно посмотрю.

"из пушки по воробьям" - улыбнуло ;-)
что-то такое я и ожидал...
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
01.07.2012, 05:54

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Изменить шрифт (размер) всех надстрочных (подстрочных) символов
Dim myFindRange As Word.Range Dim myFind As Word.Find 'Создаём диапазон, в котором...

Как изменить размер и месторасположение кнопки и шрифт текста в кнопк?
есть кнопка: <input value="Как получить задания и ответы" type="button"...

Изменить шрифт в одной строке на сайте joomla 1.5
Добрый день. Есть сайт, на Joomla! 1.5.26 На нем в меню надо изменить шрифт и цвет одного...

Изменить шрифт или цвет шрифта в текстовом файле
Задача такова: У мене есть некоторые данные, которые считываются в структуру через текстовый файл....


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
8
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.