临时语法VBA-白红宇的个人博客

临时语法VBA

发布日期：2021-10-16 07:11:59 浏览次数：16 分类：技术文章

本文共 648 字，大约阅读时间需要 2 分钟。

Sub dy()

'Dim str$

'startname:

'str = InputBox("输入用户名")

'InputBox ("dddd")

'If str <> "admin" Then GoTo startname

'Dim dt As Date

'dt = Now

'Range("A1").Value = dt

'Dim rng As Range

'For Each rng In Sheet1.Range("a2:a10")

'If rng = "good" Then rng.Interior.ColorIndex = 3

'Next

'Dim wsh As Worksheet

'On Error Resume Next

'For Each wsh In Worksheets

'n = n + 1

' Sheet1.Cells(n, 2) = wsh.Name

'Next

'-----------------

Dim aa

On Error GoTo 0

aa = Range("g8").Value

bb = Range("g7").Value

'If aa = "--" Then

'Range("A8").Value = aa - bb

On Error GoTo 100

Range("A9").Value = aa - bb

100:

Range("A9").Value = "未打卡"

'dds:

Exit Sub

'End If

End Sub

转载地址：https://blog.csdn.net/sjpljr/article/details/62418533 如侵犯您的版权，请留言回复原文章的地址，我们会给您删除此文章，给您带来不便请您谅解！

上一篇：VB封装Excel_VBA代码为Dll

下一篇：EXCEL自定义考勤函数

发表评论

关于作者

喝酒易醉，品茶养心，人生如梦，品茶悟道，何以解忧？唯有杜康！

-- 愿君每日到此一游！

推荐文章

[转] 用python编写控制网络设备的自动化脚本3：启动 2019-04-26

扩展Python控制台实现中文反馈信息 2019-04-26

扩展Python控制台实现中文反馈信息之二-正则替换 2019-04-26

在PyPI测试平台发布Python包 2019-04-26

中文代码示例之Electron桌面应用开发初体验 2019-04-26

中文代码示例之NW.js桌面应用开发初体验 2019-04-26

[转载] 中文輸進去，程式出得來，開發者發大財 - LingaScript: 中文化TypeScript 2019-04-26

为《两周自制脚本语言》添加中文测试代码 2019-04-26

将《两周自制脚本语言》测试中使用的接口中文化 2019-04-26

5分钟入门LingaScript-尝鲜中文版TypeScript 2019-04-26

重拾《两周自制脚本语言》- 支持中文标识符 2019-04-26

Java实现文本编辑时基于拼音输入的补全原型 2019-04-26

中文编程,最精致的python访客登记系统实例项目,微信机器人不再只当人工智障------05 2019-04-26

中文命名之Hibernate 5演示 - 使用注解(annotation)而非xml定义映射 2019-04-26

从立创EDA，Gratipay看中文编程开发环境和推广运营的一个趋势 2019-04-26

中文代码之Django官方入门：建立模型 2019-04-26

Python实现推流直播 2019-04-26

你不得不了解的卷积神经网络发展史 2019-04-26

你不得不了解的机器学习知识 2019-04-26

你不得不了解的深度学习知识（一） 2019-04-26

白红宇的个人博客 - 记录点点滴滴的事 - 您是第 306401178 位访客

发表评论

最新留言

关于作者

推荐文章