01 2021 档案

摘要:'验证数据是否有效性 Function IsValidationData(ByVal Target As Range, columnNuber As Integer) On Error GoTo Line If Sheets("Sheet1").Cells(Target.Row, columnNub 阅读全文
posted @ 2021-01-26 15:09 蜗牛的礼物 阅读(138) 评论(0) 推荐(0) 编辑
摘要:使用Byte存储后转成string输出 '二分之一 Dim towSecondByte(1) As Byte, towSecondStr As String towSecondByte(0) = 189 towSecondByte(1) = 0 towSecondStr = towSecondByt 阅读全文
posted @ 2021-01-20 11:47 蜗牛的礼物 阅读(466) 评论(0) 推荐(0) 编辑
摘要:Dim BrandStr As String '获取品牌名称 BrandStr = Sheets("Sheet1").Cells(Target.Row, 2).Value '根据产品名称条件设置行 Select Case BrandStr Case "Time and Tru 普楦" If Shee 阅读全文
posted @ 2021-01-19 15:00 蜗牛的礼物 阅读(378) 评论(0) 推荐(0) 编辑
摘要:'Execl打开执行 Private Sub Workbook_Open() Dim selectStr As String Dim selectCellNum As Integer '获取Sheet2的A列有效行数 selectCellNum = Sheets("Sheet2").[A65536] 阅读全文
posted @ 2021-01-18 16:40 蜗牛的礼物 阅读(138) 评论(0) 推荐(0) 编辑
摘要:情景:发布到IIS上出现 执行 项目.exe出现 参照:https://blog.csdn.net/jackbon8/article/details/82702563 直接下载了IISCrypto.exe执行,之后正常运行(这个执行完立即自动重启) 思考: 1.碰到这类部署问题先查询一下本地和服务器 阅读全文
posted @ 2021-01-15 16:11 蜗牛的礼物 阅读(3032) 评论(0) 推荐(0) 编辑
摘要:使用AdminLTE-3.0.5框架中用到的一个翻页控件 官网地址:http://datatables.club/ 引用: <link rel="stylesheet" href="/plugins/datatables-bs4/css/dataTables.bootstrap4.min.css"> 阅读全文
posted @ 2021-01-12 15:44 蜗牛的礼物 阅读(504) 评论(0) 推荐(0) 编辑
摘要:在此记录下: 正常情况下我们的data:$('#form').serialize(),但是这个只是序列化了表单的数据,不带上file文件,并且,我们需要使用原生的JS获取form( document.getElementById),这和JQ的$('#form') 获取到的对象的节点不一样 var f 阅读全文
posted @ 2021-01-06 11:27 蜗牛的礼物 阅读(982) 评论(0) 推荐(0) 编辑