'Excelの怪談
'ハングアップしても知りません・・・


'セルの選択状態表示を反転させるマクロ(Excel95)
Sub Select_Unselect()
    Workbooks.Add(xlWorksheet).Sheets(1).Cells.Select
    ActiveWorkbook.Worksheets.Add.Cells.Select
    ActiveSheet.Next.Cells.Copy ActiveSheet.Cells
End Sub


'ダイアログシートに行列番号を表示するマクロ(Excel95)
Sub DisplayHeadings_Dialogsheet()
    Workbooks.Add(xlWorksheet).Parent.DialogSheets.Add
    ActiveWindow.NewWindow
    ActiveSheet.Copy ActiveSheet
    ActiveWorkbook.Windows(2).Activate
    ActiveSheet.Previous.Select
End Sub


'Unionの怪(Excel95)
Sub Union_no_Kai()
    Dim oApplication As Object
    Dim oSheet As Worksheet
    Dim oRange As Range
    Dim r As Range
    Dim i As Long

    Workbooks.Add xlWorksheet
    MsgBox "だんだん遅くなってきたらEscキーを1回押してください。" _
        & Chr$(10) & "中断したら[継続]してください。", , "Unionの怪"
    Set oSheet = ActiveSheet
    Set oRange = oSheet.Range("A1")
    Set oApplication = Application
    oRange.Select

    Set r = oSheet.Rows(1)
    For i = 3 To oSheet.Rows.Count Step 2
        Set r = oApplication.Union(r, oSheet.Rows(i))
        oRange.Value = i
    Next
    r.Select
End Sub