|
Текст 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
Как сделать что бы значение прописывалось просто в ячейку?
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
Как сделать что бы значение прописывалось просто в ячейку?managerauto
Сообщение отредактировал Manyasha - Четверг, 08.12.2016, 17:45 |
| |
| Ответить
|
|
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)
Вместо MsgBox текст в ячейку.
После автоматом сохраняется
End Sub
Надо так, обновляю лист, автоматом срабатывает:
[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)
Вместо MsgBox текст в ячейку.
После автоматом сохраняется
End Submanagerauto
Сообщение отредактировал Manyasha - Четверг, 08.12.2016, 17:46 |
| |
| Ответить
|
|
al-Ex |
Дата: Четверг, 08.12.2016, 15:36 |
Сообщение № 3 |
|
|
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 190
Репутация:
59
±
Замечаний:
0% ±
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)
'Вместо MsgBox текст в ячейку.
'После автоматом сохраняется
Range("A1").Value = Trim(scomp)
Excel.ActiveWorkbook.Save
End Sub
[/vba] [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)
'Вместо MsgBox текст в ячейку.
'После автоматом сохраняется
Range("A1").Value = Trim(scomp)
Excel.ActiveWorkbook.Save
End Sub
[/vba]
Сообщение отредактировал al-Ex - Четверг, 08.12.2016, 15:38 |
| |
| Ответить
|
|
managerauto |
Дата: Четверг, 08.12.2016, 15:49 |
Сообщение № 4 |
|
|
Группа: Пользователи
Ранг: Новичок
Сообщений: 15
Репутация:
0
±
Замечаний:
20% ±
Excel 2010 | |
al-Ex, Спасибо 
|
| |
| Ответить
|
|
managerauto |
Дата: Четверг, 08.12.2016, 16:25 |
Сообщение № 5 |
|
|
Группа: Пользователи
Ранг: Новичок
Сообщений: 15
Репутация:
0
±
Замечаний:
20% ±
Excel 2010 | |
Что нужно дописать, что бы при открытии книги в режиме редактирования запускалось автоматом, а в режиме чтения нет? 
Что нужно дописать, что бы при открытии книги в режиме редактирования запускалось автоматом, а в режиме чтения нет? managerauto
Сообщение отредактировал managerauto - Четверг, 08.12.2016, 16:50 |
| |
| Ответить
|
|
Manyasha |
Дата: Четверг, 08.12.2016, 17:49 |
Сообщение № 6 |
|
Группа: Модераторы
Ранг: Старожил
Сообщений: 2198
Репутация:
902
±
Замечаний:
0% ±
Excel 2010, 2016 | |
managerauto, какое отношение последний вопрос имеет к считыванию текста их msgbox-а?
Тему закрываю.
managerauto, какое отношение последний вопрос имеет к считыванию текста их msgbox-а?
Тему закрываю.Manyasha
ЯД: 410013299366744 WM: R193491431804
|
| |
| Ответить
|
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
