Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


57087 / 76732 ←次へ | 前へ→

【24385】Re:ウッシさんお願いします!
回答  ウッシ  - 05/4/20(水) 22:18 -

引用なし
パスワード
   こんばんは

まだ説明不足です。

>変更するための名前はシート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さん
0 hits

【24371】ウッシさんお願いします! yayoi 05/4/20(水) 18:35 質問
【24376】Re:ウッシさんお願いします! ウッシ 05/4/20(水) 20:54 発言
【24378】Re:ウッシさんお願いします! yayoi 05/4/20(水) 21:13 質問
【24385】Re:ウッシさんお願いします! ウッシ 05/4/20(水) 22:18 回答
【24386】Re:ウッシさんお願いします! yayoi 05/4/20(水) 22:25 お礼
【24400】Re:ウッシさんお願いします! G-Luck 05/4/21(木) 14:42 発言

57087 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free