让单元格中的文字动起来 代码

zbkfbyb

Dim 停 As Byte    '声明一个公共变量
Sub 字符滚动()
    Dim j As Integer
    停 = 1    '将变量赋值为1
    [A1] = "你要输入的文字   "    '设置默认字符串
    Do    '开始循环
        For j = 1 To 1800   '这个数字根据需要修改，它代表速度
            DoEvents    '移交控制权，目的是让动画显示出来
        Next j
        '修改A1的值，将它左边第一个字符移到右边。当连续移动时就形成动画了
        [A1] = Mid([A1], 2, Len([A1]) - 1) & Left([A1], 1)
    Loop Until 停 = 0   '直到变量BBB等于0时停止
    [A1] = "单元格停止运动 "
End Sub
Sub 停止滚动()  '将变量赋值为0,从而停止动画
    停 = 0
End Sub



该贴已经同步到 zbkfbyb的微博

zbkfbyb

Sub 单元格数据有效性带提示的代码()
    Range("A1").Select
    With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=$J$1:$J$11"
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = "提示"
        
        .InputMessage = "数据来源是a1:a8"
      
        .IMEMode = xlIMEModeNoControl
        .ShowInput = True
        .ShowError = True
    End With
End Sub

kuangben8

楼主能够给个例子或者截图动画展示一下就好了！感谢分享。

zbkfbyb

Sub 新建总表后且移植到最后()
With Worksheets.Add
      .Name = "总表"
      .Move after:=Sheets(Sheets.Count)
      End With
      
End Sub
with的用法， 对于新建对象不能多次引用，可以利用with 语句，进行多次的操作，进行赋值，命名，移动等方法