Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Текст MsgBox в ячейку. - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Текст MsgBox в ячейку. (Макросы/Sub)
Текст MsgBox в ячейку.
managerauto Дата: Четверг, 08.12.2016, 15:18 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 15
Репутация: 0 ±
Замечаний: 20% ±

Excel 2010
Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long

[vba]
Код
Sub test()
Dim scomp As String
scomp = Space(255)
h = GetComputerName(scomp, 255)
MsgBox Trim(scomp)
End Sub
[/vba]

Как сделать что бы значение прописывалось просто в ячейку?


Сообщение отредактировал Manyasha - Четверг, 08.12.2016, 17:45
 
Ответить
СообщениеPrivate Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long

[vba]
Код
Sub test()
Dim scomp As String
scomp = Space(255)
h = GetComputerName(scomp, 255)
MsgBox Trim(scomp)
End Sub
[/vba]

Как сделать что бы значение прописывалось просто в ячейку?
Автор - managerauto
Дата добавления - 08.12.2016 в 15:18
managerauto Дата: Четверг, 08.12.2016, 15:26 | Сообщение № 2
Группа: Пользователи
Ранг: Новичок
Сообщений: 15
Репутация: 0 ±
Замечаний: 20% ±

Excel 2010
Надо так, обновляю лист, автоматом срабатывает:

[vba]
Код
Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Sub test()
Dim scomp As String
scomp = Space(255)
h = GetComputerName(scomp, 255)
MsgBox Trim(scomp)
[/vba]

Вместо MsgBox текст в ячейку.
После автоматом сохраняется

End Sub


Сообщение отредактировал Manyasha - Четверг, 08.12.2016, 17:46
 
Ответить
СообщениеНадо так, обновляю лист, автоматом срабатывает:

[vba]
Код
Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Sub test()
Dim scomp As String
scomp = Space(255)
h = GetComputerName(scomp, 255)
MsgBox Trim(scomp)
[/vba]

Вместо MsgBox текст в ячейку.
После автоматом сохраняется

End Sub
Автор - managerauto
Дата добавления - 08.12.2016 в 15:26
al-Ex Дата: Четверг, 08.12.2016, 15:36 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 190
Репутация: 59 ±
Замечаний: 0% ±

Excel 2010


Сообщение отредактировал al-Ex - Четверг, 08.12.2016, 15:38
 
Ответить
Сообщение
Автор - al-Ex
Дата добавления - 08.12.2016 в 15:36
managerauto Дата: Четверг, 08.12.2016, 15:49 | Сообщение № 4
Группа: Пользователи
Ранг: Новичок
Сообщений: 15
Репутация: 0 ±
Замечаний: 20% ±

Excel 2010
al-Ex, Спасибо :D
 
Ответить
Сообщениеal-Ex, Спасибо :D
Автор - managerauto
Дата добавления - 08.12.2016 в 15:49
managerauto Дата: Четверг, 08.12.2016, 16:25 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 15
Репутация: 0 ±
Замечаний: 20% ±

Excel 2010
Что нужно дописать, что бы при открытии книги в режиме редактирования запускалось автоматом, а в режиме чтения нет? :)


Сообщение отредактировал managerauto - Четверг, 08.12.2016, 16:50
 
Ответить
СообщениеЧто нужно дописать, что бы при открытии книги в режиме редактирования запускалось автоматом, а в режиме чтения нет? :)
Автор - managerauto
Дата добавления - 08.12.2016 в 16:25
Manyasha Дата: Четверг, 08.12.2016, 17:49 | Сообщение № 6
Группа: Модераторы
Ранг: Старожил
Сообщений: 2198
Репутация: 898 ±
Замечаний: 0% ±

Excel 2010, 2016
managerauto, какое отношение последний вопрос имеет к считыванию текста их msgbox-а?
Тему закрываю.

ЯД: 410013299366744 WM: R193491431804
 
Ответить
Сообщениеmanagerauto, какое отношение последний вопрос имеет к считыванию текста их msgbox-а?
Тему закрываю.
Автор - Manyasha
Дата добавления - 08.12.2016 в 17:49
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Текст MsgBox в ячейку. (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!