Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
VBA. MsgBox из диапазона ячеек по условию
 
#1
24.11.2010 22:10:14
Здравствуйте!  
Возможно ли вывести на экран некий MsgBox, созданный из диапазона ячеек, соответствующих заданному критерию?  
Спасибо.
 
 
 
#2
24.11.2010 22:20:56
Спасибочки, Дмитрий! Поняла :)
 
 
 
#3
24.11.2010 22:21:05
Без массива  
 
Dim c As Range, s As String  
For Each c In Range("A1:A5")  
   If c > 1 And c < 5 Then  
       s = s & c.Offset(0, 2) & " - " & c & vbLf  
   End If  
Next  
MsgBox s, vbInformation
 
 
 
#4
24.11.2010 22:28:47
Спасиб, Казанский, за идею :)
 
 
 
#5
24.11.2010 22:29:03
Sub MsgDiana()  
Dim Msg As String, i As Long  
   For i = 1 To 5  
       If Cells(i, 1) > 1 Then  
           If Cells(i, 1) < 5 Then  
               Msg = Msg & Cells(i, 1) & Cells(i, 2) & Cells(i, 3) & Chr(10)  
           End If  
       End If  
   Next  
MsgBox Msg  
End Sub
 
 
 
#6
24.11.2010 22:47:15
Юрий! Спасибо Вам :)  
столько вариантов :) неожиданно даже :)
 
 
 
#7
24.11.2010 22:53:39
А у меня название зато правильное.
 
 
 
#8
24.11.2010 22:58:24
Юрий, Дмитрий, Казанский!  
Спасибо еще раз Вам! Как все-таки здорово встретить умных и понимающих людей! :)  
Пусть и виртуально :)
 
 
 
#9
24.11.2010 23:02:42
Во - видел: я на первом месте!
 
 
 
#10
24.11.2010 23:22:26
Гы :-) - просто мой вариант Диане легче всего понять.
 
 
 
#11
24.11.2010 23:31:26
не успела отойти от темы как снова назрела проблемка.  
А возможно ли чтобы этот MsgBox поддерживал выделение сообщения и при нажатии Ctrl+C копировал его в буфер обмена?
 
 
 
#12
24.11.2010 23:43:52
МsgBox так не умеет. ListBox подойдёт для этих целей.
 
 
 
#13
24.11.2010 23:46:39
Спасиб, Юрий. ясненько :)
 
 
 
#14
24.11.2010 23:48:02
Если бы не было нескольких строк, то просто  
InputBox "что-нибудь", , s  
 
А в общем случае - форма, текстбокс...
 
 
 
#15
25.11.2010 09:46:55
Доброе утро!  
Создала ListBox (упрощенный вариант без условий).  
А вот как содержимое "отмеченных" строк добавить в буфер обмена? или... вывести в txt файлик?
 
 
 
#16
25.11.2010 10:01:00
Дмитрий! В очередной и далеко не последний (надеюсь) раз огромнейшее Спасибо! :)
 
 
 
#17
25.11.2010 11:16:32
И еще вопросик...  
Создала-таки текстовый файл, все отлично записывается.  
 
Но с открытием его в блокноте проблемы.  
 
Dim diOpen  
diOpen = Shell("C:\WINDOWS\notepad.exe C:\Temp\myfile.txt", 1)  
 
открывает отлично.  
 
Но... если вместо C:\Temp\myfile.txt мне нужно sFilename тут у меня не получается... :(  
 
Помогите, пожалуйста :)  
 
Спасибо :)
 
 
 
#18
25.11.2010 11:25:15
Sub tt()  
 
Dim diOpen, sFilename, sString  
 
sFilename = "C:\Temp\myfile.txt"  
sString = "C:\WINDOWS\notepad.exe " & sFilename  
diOpen = Shell(sString, 1)  
 
'diOpen = Shell("C:\WINDOWS\notepad.exe C:\Temp\myfile.txt", 1)  
 
'открывает отлично.  
'  
'Но... если вместо C:\Temp\myfile.txt мне нужно sFilename тут у меня не получается... :(  
 
 
End Sub
 
 
 
#19
25.11.2010 11:38:26
Нда... как все просто-то оказалось :)  
Спасибочки, Hugo!!!!
 
 
 
#20
30.11.2010 23:18:43
Добрый вечер.  
Открываю блокнот...  
 
'Открытие файла  
Dim sString As String  
Dim diOpen  
sString = "C:\WINDOWS\notepad.exe " & sFileName  
diOpen = Shell(sString, 1)  
 
а возможно ли открыть блокнотом этот файл, но развернутым на весь экран?  
Спасибо.
 
 
 
#21
30.11.2010 23:25:31
shell "notepad.exe",vbMaximizedFocus
 
 
 
#22
30.11.2010 23:31:06
Спасиб, Казанский! Получилось! :)
 
 
 
Страницы: 1
Читают тему
Наверх