|
こんばんは
まだ説明不足です。
>変更するための名前はシート2のどこにでも用意できます。
ではなくて、「こういうデータを使って」とシートのデータを掲示するのが質問者の
義務だと思っています。
>ブックモジュール
Private Sub Workbook_Open()
flg = True
Sheet_Scroll_1
End Sub
>標準モジュール
Option Explicit
Public flg As Boolean
Sub Sheet_Scroll_1()
Dim cRng As Range
Dim pRng As Range
Dim i As Long
If ActiveSheet.Name = "Sheet1" Then
Set cRng = Worksheets("Sheet2").Range("A1").CurrentRegion
Set pRng = _
ActiveWindow.Panes(ActiveWindow.Panes.Count).VisibleRange
Application.ScreenUpdating = False
With cRng.Columns(1)
Range("C1").Resize(.Cells.Count).Value = .Value
End With
If pRng.Cells(1).Column > 6 Then
With cRng.Columns(2).Cells(1).Resize(pRng.Cells(1).Column - 6)
Range("C1").Resize(.Cells.Count).Value = .Value
End With
End If
Application.ScreenUpdating = True
End If
DoEvents
If flg = False Then Exit Sub
Application.OnTime Now + TimeValue("00:00:01"), "Sheet_Scroll_1"
End Sub
Sub Stop_Sheet_Scroll_1()
flg = False
End Sub
Sub ReStart_Sheet_Scroll_1()
If flg = True Then Exit Sub
flg = True
Sheet_Scroll_1
End Sub
>Sheet2
A B
甲さん Gさん
乙さん Hさん
丙さん Iさん
丁さん Jさん
戊さん Kさん
己さん Lさん
庚さん Mさん
辛さん Nさん
壬さん Oさん
癸さん Pさん
子さん Qさん
丑さん Rさん
寅さん Sさん
卯さん Tさん
辰さん Uさん
|
|