自动化

Question

有没有办法让这个转盘单独滑过幻灯片？

var main = function() {

    $('.arrow-next').click(function() {
        var currentSlide = $('.active-slide');
        var nextSlide = currentSlide.next();

        var currentDot = $('.active-dot');
        var nextDot = currentDot.next();

        if(nextSlide.length === 0) {
            nextSlide = $('.slide').first();
            nextDot = $('.dot').first();
        }

        currentSlide.fadeOut(600).removeClass('active-slide');
        nextSlide.fadeIn(600).addClass('active-slide');

        currentDot.removeClass('active-dot');
        nextDot.addClass('active-dot');
    });


    $('.arrow-prev').click(function() {
        var currentSlide = $('.active-slide');
        var prevSlide = currentSlide.prev();

        var currentDot = $('.active-dot');
        var prevDot = currentDot.prev();

        if(prevSlide.length === 0) {
            prevSlide = $('.slide').last();
            prevDot = $('.dot').last();
        }

        currentSlide.fadeOut(600).removeClass('active-slide');
        prevSlide.fadeIn(600).addClass('active-slide');

        currentDot.removeClass('active-dot');
        prevDot.addClass('active-dot');
    });

}

$(document).ready(main); 

希望你能提供帮助，

提前致谢。

Answer 1

使用setInterval和触发器（“click”），每隔几秒钟就会“点击”旋转木马。

Option Explicit
Sub AdjRow()

    Dim r As Range
    Dim i As Long
    Dim lo As ListObject

    Set r = Sheet2.Range("Securities[Strategy]")
    i = Application.WorksheetFunction.CountIf(r, "Test1")
    i = i + 1
    Set lo = Sheet1.ListObjects("Commodity")

    Debug.Print i
    Debug.Print r.Address
    Debug.Print lo.Range.Address

    lo.Resize Range("$A$2:$J$" & i)

    Debug.Print lo.Range.Address

End Sub

Answer 2

您可以使用setInverval函数。

setInterval接受一个函数（在你的情况下将触发下一个幻灯片的函数）和一个以毫秒为单位的时间，这是每次调用函数之间的延迟。

stInterval返回一个必须存储在内存中的值，并在对象被销毁时传递给clearInterval

文档：http://www.w3schools.com/jsref/met_win_setinterval.asp