------ [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