Здравстуйте, есть задание чтобы при нажатии комбинации клавиш Ctrl+Shift+ПКМ в правый нижний угол userform открывался msgbox. У меня получилось что msgbox открывается при нажатии в левый верхний угол.    
 
Private Const fmshiftmask = 1  
Private Const fmctrlmask = 2  
 
Private Sub userform_mousedown(ByVal button As Integer, ByVal shift As Integer, ByVal x As Single, ByVal y As Single)  
Dim test As Boolean  
test = x < Width / 10 And y < Height / 10 And button = xlSecondaryButton And (shift = fmshiftmask + fmctrlmask)  
If test Then  
MsgBox "alt", _  
vbInformation, "Пасхальное яйцо"  
End If  
End Sub  
 
Подскажите пожайлуста. Заранее спасибо.

Прошу прощения за путаницу.Мне надо чтобы файл сохранялся с выбооом места, т.к. при запуске его на разных машинах путь жестко вбитый не совпадет. И нужно чтобы его можно загрузить обратно (такое вот требование - понимаю что открыть уже открытый нелепо, но что делать?).

Мне надо Private Sub для сохранения и загрузки файла, чтобы появлялость окно для указания места откуда.куда брать файл.  
 
Sub SaveFile()  
Dim wb As String  
wb = "C:\Users\User\Desktop\" & [a1] & " " & Date & ".xls"
ThisWorkbook.SaveAs (wb)  
End Sub  
 
и Application.Workbooks.Open по подобию.  
 
Дело в том, что макрос будет запускаться на разных машинах - пути то разные. Вышеуказзанное не работает.....

Нужно добавить на Userform кнопки (это я могу) и назначить им макросы на загрузку и сохранение файла. Сверху была попытка это описать.  
 
Все остальное есть

увы мне.... Наставте на путь истинный

Я мягко говоря не профи, но столкнулся необходимостью сделать макрос (по образцу). К сожалению VB пишет ошибку......Что не так?  
 
Вот:  
 
Sub Save(a() As stud, n As Integer, fn As String)  
For i = 1 To n  
Write #1, a(i).nomer, a(i).punkt, a(i).timeout, a(i).timein  
Next  
Close (1)  
MsgBox ("Файл" & fn & "Успешно сохранен!")  
End Sub  
 
Sub Load(a() As stud, n As Integer, fn As String)  
Open fn For Input As #1  
n = 0  
While Not EOF(1)  
n = n + 1  
Input #1, a(n).nomer, a(n).punkt, a(n).timeout, a(n).timein  
Wend  
End Sub

Спасибо, получилось

Я бы и рад использовать модуль, но требования преподавателя исключают это. ПРи удалении модуля тоже ничего не роисходит. Кроме модуля вариантов нет?

Есть макрос, состоящий из трех. Необходимо создать UserForm c CommandButton.  
При написании:  
Private Sub CommandButton1_Click()  
Call товар  
End Sub  
 
пишет Sub or Function not Defined.    
Понятно, что-то недоделал, но что?  
 
Файл приложен.

Еще вопрос: с разделителем десятичных дробей можно что-то сделать? Дело в том, что курс считает только целый 10 а 10,5 нет. Понимаю можно изменить региональные настройки (не везде это можно) и оставить точку, а по другому никак?

Спасибо за внимание.  
Выделение товара по первой букве реализовано в UserForm2.  
Дело в том, что Userform вообще не должно быть :-(

Вопрос возможно глупый, но тем не менее: есть макрос решающий следующие задачи - ищет самый дешевый товар, пересчитывае в доллары по курсу и отмечает наименование товара по первой букве. Все хорошо, все работает, за исключением того что он должен быть реализован через ImputBox.  
Help pls.