演習14 のユーザーフォーム コード
------ [UserForm1] -------
Private Sub Address_Click()
MsgBox "演習13 を参考にシート上で作業せよ"
Workbooks("addres06.xls").Activate
End
End Sub
Private Sub Address2_Click()
Workbooks("addres06.xls").Activate
End
End Sub
Private Sub Filter_Click()
Workbooks("addres06.xls").Activate
Range("A1").CurrentRegion.Select
Range("A1").Select
Selection.AutoFilter
End Sub
Private Sub Sort1_Click()
Workbooks("addres06.xls").Activate
Range("A1").CurrentRegion.Select
Selection.Sort _
Key1:=Range("A2"), _
Order1:=xlAscending, _
Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom, _
SortMethod:=xlPinYin
End Sub
Private Sub Sort2_Click()
Workbooks("addres06.xls").Activate
Range("A1").CurrentRegion.Select
Selection.Sort _
Key1:=Range("B2"), _
Order1:=xlAscending, _
Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom, _
SortMethod:=xlPinYin
End Sub
Private Sub Sample_Click()
Workbooks("sample06.xls").Activate
End
End Sub
------ [Module1] -------
Sub Show_UserForm()
Workbooks("addres06.xls").Activate
UserForm1.Show
End Sub
------ [ThisWorkbook] -------
Private Sub Workbook_Open()
PathName = ThisWorkbook.FullName
If InStrRev(PathName, "\") > 0 Then
PathName = Left(PathName, InStrRev(PathName, "\") - 1)
End If
Workbooks.Open (PathName + "\addres06.xls")
ThisWorkbook.Activate
End Sub
back top