marm0t的个人资料 - RAT

marm0t marm0t

关注数: 1 粉丝数: 0 发帖数: 28 关注贴吧数: 2

当系统时间和Range("a" & i)相同时，显示Range("b" & i)内容代码如下： Sub 显示成交() Dim t As Date Dim txtBox As Shape Dim txtbox1 As Shape Do t = Time ' 获取时间 ' 添加文本框 Set txtBox = ActiveSheet.Shapes.AddTextbox( _ msoTextOrientationHorizontal, _ Left:=1, Top:=1, Width:=370, Height:=170) ' 设置文本框的字体大小 txtBox.TextFrame2.TextRange.Font.Size = 48 ' 设置文本框背景颜色 txtBox.Fill.ForeColor.RGB = RGB(255, 255, 160) txtBox.Fill.Visible = msoTrue ' 设置文本框字体加粗 txtBox.TextFrame2.TextRange.Font.Bold = msoTrue For i = 1 To Range("A1").End(xlDown).Row If Range("a" & i).Text = Format(t, "hh:mm:ss") Then txtBox.TextFrame2.TextRange.Text = Range("b" & i) Next DoEvents Loop End Sub 测试程序的时候，总是跳过a列中某些时间，不显示对应b列内容，这是什么问题？传不了excel文件，我截图。测试结果我传个视频，截取了一小段。 352.353.断.355.356.断.367.368.369.断.372.373.断.375

程序测试结果

微星B460M迫击炮usb问题我的音箱是usb接电的，插到机器上有滋滋声，一动鼠标这个滋滋声更厉害。我把音箱插到旁边的机器上就没有，这两个机器都是插到一个插排上的，然后驱动是主板客服给的，又把主板电池重新安装了，也把主板下面多余的铜柱拿掉了，也换过电源，都不好使。我换个不是usb接电的音箱插上去就没有滋滋声，所以我感觉应该是主板usb接口有问题，除了这个还有别的可能吗？

用什么编程软件？如图，我想实现的功能是，按照A列显示的时间，把B列的数字在屏幕上显示出来，比如，到了9点00分32秒，屏幕弹出一个对话框，对话框里面显示27235，到了9点00分36秒，屏幕弹出一个对话框，对话框里面显示27205，依此类推。用什么编程软件可以实现这个功能？谢谢。

1 下一页