[已解决]请问每隔1秒写入一个字符的代码

小和同学

比如在 A1:B4 单元格区域每个单元格间隔一秒逐字输入: 好好学习,天天向上[em04][em04][em04]

最佳答案

月排行榜 / 总排行榜

amulee

2009-12-16 14:49

Sub Test()
    Dim K%, i%, j%
    Dim strA$
    strA = "好好学习天天向上"
    [A1:B4].ClearContents
    For j = 1 To 2
        For i = 1 To 4
            K = K + 1
            Cells(i, j) = Mid(strA, K, 1)
            Application.Wait Now + TimeValue("0:00:01")
        Next i
    Next j
End Sub

跳转到最佳答案楼层

Dj_soo

Sub DlyWrt()
    Const Str As String = "asdfqwer"
    Dim OneS As String
    Dim Lnth As Integer
    Dim i As Integer
    Rows(1).ClearContents
    For i = 1 To Len(Str)
        delay (1)
        Cells(1, i) = Mid(Str, i, 1)
    Next i
End Sub

Sub delay(T As Single)
    Dim T1 As Single
    T1 = Timer
    Do
        DoEvents
    Loop While Timer - T1 < T
End Sub

amulee

Sub Test()
    Dim K%, i%, j%
    Dim strA$
    strA = "好好学习天天向上"
    [A1:B4].ClearContents
    For j = 1 To 2
        For i = 1 To 4
            K = K + 1
            Cells(i, j) = Mid(strA, K, 1)
            Application.Wait Now + TimeValue("0:00:01")
        Next i
    Next j
End Sub

小和同学

谢谢两位老师~

zsd5237

学习[em02][em02]

759857387

回复 Dj_soo 的帖子

真是好帖！我的问题是：如果不是"asdfqwer"而是A列中的值如何修改代码？

Dj_soo

回复 759857387 的帖子

相应改上面的代码即可.下面的自定义函数就是延迟一秒钟.

759857387

回复 Dj_soo 的帖子

比如A列1to10行怎么改代码，谢啦！

Dj_soo

回复 759857387 的帖子

你可以开个帖子问问