Autoscroll trong excel được không?

[maxonha]

E có 1 bảng khá dài muốn chiếu lên đê mọi người xem từ từ các bên trong (giống như bảng giá chưng khoáng ấy).Không biết excel có làm được không?nó tự động cuộn đến dòng nhất định rồi cuộn ngược lên hoặc có thể cho no nhẩy theo trang mỗi trang là 30dòng cứ nhẩy liên tục.
Mong ý kiến của mọi người

 

[transongngocquan]

Sao bạn không dùng PowerPoint vừa tiện lợi vừa đễ dùng, làm chi trong excel cho khổ vậy ?

 

[maxonha]

dạ có nhiều dữ liệu làm sao lấy được từ PP hả bác?rồi còn nhiều cái cần Excel...bác biếtt chỉ giúp e cái

 

[tigertiger]

Một giải pháp dùng Timer

E có 1 bảng khá dài muốn chiếu lên đê mọi người xem từ từ các bên trong (giống như bảng giá chưng khoáng ấy).Không biết excel có làm được không?nó tự động cuộn đến dòng nhất định rồi cuộn ngược lên hoặc có thể cho no nhẩy theo trang mỗi trang là 30dòng cứ nhẩy liên tục.
Mong ý kiến của mọi người

Bạn xem giải pháp này nhé, chúc thành công

Public Sub runrun()
    Dim i As Long, k As Long, Tdo As Double
    Dim t1 As Single, t2 As Single, Sk As Integer
    Dim Sd As Long, Tsd As Long
    
    Sk = Range("L1").Value
    Tdo = Range("L2").Value
    Sd = Range("N1").Value
    Tsd = Range("N2").Value
        
    Range("A3").Select
    
    k = 0: i = 0

    Do
       t1 = Timer: t2 = Timer
       
       Do While Abs(t2 - t1) < 0.1 / Tdo '0.1/Tdo la so giay cho xem
           t2 = Timer
       Loop
       
       i = i + Sd  '25 la so dong can cuon
       ActiveWindow.SmallScroll Down:=Sd
       If i > Tsd Then   '100 la so dong cuoi -> quay lai dau
          i = 0
          Range("A3").Select
          k = k + 1
        End If
    Loop While k < Sk  'LAP Sk LAN
End Sub

 

[haonlh]

Nếu chuột của bạn có bánh xe cuộn ở giữa 2 chuột, đặt chuột vào thanh cuộn, kích bánh xe (nói ngắn: KBX vào thanh cuộn), sau đó KBX vào giữa màn hình dữ liệu (để lại dấu 4 tam giác), sau đó đưa nhẹ chuột xuống thì dữ liệu sẽ cuộn dần xuống, Nếu vị trí mũi chuột vào dấu 4 tam giác xa thì dữ liệu trôi nhanh.
Thử xem. Chào

 

[maxonha]

Bạn xem giải pháp này nhé, chúc thành công

Public Sub runrun()
    Dim i As Long, k As Long, Tdo As Double
    Dim t1 As Single, t2 As Single, Sk As Integer
    Dim Sd As Long, Tsd As Long
    
    Sk = Range("L1").Value
    Tdo = Range("L2").Value
    Sd = Range("N1").Value
    Tsd = Range("N2").Value
        
    Range("A3").Select
    
    k = 0: i = 0

    Do
       t1 = Timer: t2 = Timer
       
       Do While Abs(t2 - t1) < 0.1 / Tdo '0.1/Tdo la so giay cho xem
           t2 = Timer
       Loop
       
       i = i + Sd  '25 la so dong can cuon
       ActiveWindow.SmallScroll Down:=Sd
       If i > Tsd Then   '100 la so dong cuoi -> quay lai dau
          i = 0
          Range("A3").Select
          k = k + 1
        End If
    Loop While k < Sk  'LAP Sk LAN
End Sub

Đúng rồi cảm ơn bác rất nhiều...