当前位置: 首页 > wzjs >正文

wordpress阿里云图片不显示不出来seo与网络推广的区别和联系

wordpress阿里云图片不显示不出来,seo与网络推广的区别和联系,找建筑类工作哪个网站好,动漫设计与制作难学吗需求 在Excel中实现监控两个单元格之间的变化范围,当达到某个设定的值的范围内时,实现自动响铃提示。 实现: 首先设置Excel,开启宏、打开开发者工具,点击visual Basic按钮,然后在左侧双击需要监测的shee…

需求

在Excel中实现监控两个单元格之间的变化范围,当达到某个设定的值的范围内时,实现自动响铃提示。

实现:

  1. 首先设置Excel,开启宏、打开开发者工具,点击visual Basic按钮,然后在左侧双击需要监测的sheet。
  2. 此时会打开一个代码编辑窗口,在窗口中粘贴代码,修改需要监控的单元格,然后保存。
  3. 将响铃用的wav格式文件放入到D盘,以下以D盘为例,可自定义。
  4. 此时回到Excel页面然后在对应的单元格编辑数字进行测试。
  5. 以下代码实现了A1到B10这一组范围的多个单元格对,当有一个有变化达到条件时即可出发响铃。
Private Declare PtrSafe Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" _(ByVal pszSound As String, ByVal hmod As Long, ByVal fdwSound As Long) As Long' 常量定义
Private Const SND_ASYNC = &H1        ' 异步播放(后台播放)
Private Const SND_FILENAME = &H20000 ' 参数是文件名
Private Const SND_NODEFAULT = &H2    ' 找不到文件时不播放默认声音' 模块级变量,用于记录已触发过的行和对应的值
Private triggeredRows As ObjectPrivate Sub Worksheet_Activate()' 初始化字典,在工作表激活时执行一次If triggeredRows Is Nothing ThenSet triggeredRows = CreateObject("Scripting.Dictionary")End If
End SubPrivate Sub Worksheet_Calculate()Dim i As LongDim threshold As DoubleDim soundFile As StringDim valA As Variant, valB As VariantDim diff As DoubleDim key As StringDim currentHash As String' 设置参数threshold = 2                   ' 阈值soundFile = "D:\xm3555.wav"     ' WAV 文件路径' 初始化 DictionaryIf triggeredRows Is Nothing Then Set triggeredRows = CreateObject("Scripting.Dictionary")' 遍历每一行For i = 1 To 10valA = Range("A" & i).ValuevalB = Range("B" & i).Value' 确保都是数字If IsNumeric(valA) And IsNumeric(valB) Thendiff = Abs(valA - valB)' 构造唯一标识符(当前 A 和 B 的值组合)currentHash = valA & "|" & valBkey = "Row" & i' 如果这一行没有触发过,或者值发生了变化If Not triggeredRows.Exists(key) Or triggeredRows(key) <> currentHash ThenIf diff < threshold Then' 播放声音If Dir(soundFile) <> "" ThenPlaySound soundFile, 0, SND_ASYNC Or SND_FILENAME Or SND_NODEFAULTElseMsgBox "警告音文件未找到: " & soundFile, vbExclamationPlaySound vbNullString, 0, SND_ASYNCEnd If' 更新记录为当前值triggeredRows(key) = currentHashElse' 差值不小于阈值,则清除该行记录(可选)If triggeredRows.Exists(key) ThentriggeredRows.Remove keyEnd IfEnd IfEnd IfEnd IfNext i
End Sub

http://www.dtcms.com/wzjs/74899.html

相关文章:

  • 大庆市网站建设公司恶意点击推广神器
  • 青岛商网站建设国内最新新闻
  • 旅游网站在提高用户体验方面应做哪些工作百度推广电话销售好做吗
  • 建网站视频教程推销产品怎么推广
  • 现在做什么行业前景好深圳网络推广优化
  • 极简资讯网站开发百度视频
  • 装修招标网站百度投诉中心电话24个小时
  • 网站做图分辨率是多少常见的网络营销方法
  • 网站建设的方式域名网站查询
  • 珠海网站开发哪家好seo怎么搞
  • 网站设计培训磁力宝最佳搜索引擎入口
  • 唐山市里做网站的关键词排名优化报价
  • 制作凡客诚品帮助中心页面徐州新站百度快照优化
  • 外贸看的英文网站网站推广的常用途径有哪些
  • 南京网站建设推广谷歌浏览器下载电脑版
  • 甘肃兰州天气预报汕头网站排名优化
  • 延边延吉网站建设seo教程技术
  • javaee可以做网站么在线识别图片来源
  • 网站建设程序开发seo关键词优化软件手机
  • seo的基本步骤顺序正确的是怎么做网站优化
  • 新闻发布系统网站模板优化网站教程
  • 有没有做卡哇伊的企业网站免费b2b网站大全免费
  • 企业网站建立的失败案例河北百度代理公司
  • 网站建设培训珠海seo搜索如何优化
  • wordpress 网站上传到服务器错误竞价推广工作内容
  • 网站开发的趋势google谷歌搜索引擎
  • 新网站怎样做好外链怎么做推广
  • 爱什么网站上门服务做嫁睫毛网站策划是什么
  • 陕西做网站公司哪家好网络营销产品策略
  • 高端网站制作网址百度收录提交入口网址是什么