紫辰花月

摘要： 1.把下载mysql 8. 0.19 解压2.拷贝到progarm files 目录下改名mysql3.在mysql目录下新建my.ini文件 [mysqld]# 设置3306端口port=3306# 设置mysql的安装目录basedir=C:\Program Files\MySQL# 设置mys 阅读全文

摘要： Sub caifengbiao()Dim i, k As IntegerDim sht As Worksheet For i = 2 To Range("a65536").End(xlUp).Row k = 0For Each sht In Sheets If Sheet1.Range("d" & 阅读全文

摘要： sub tim dim t t=timer 语句 msgbox timer-t end sub 阅读全文

摘要： Range("k4") = Range("d:d").Find(Range("j4")).Offset(0, 3） range("d:d").find(range("j4")).offset(0,3).clearcontents '删除找到的内容 sub 查找（） dim rng as range 阅读全文

摘要： Sub drbg()'把目录下所有文件名输入表格Dim str As StringDim wb As WorkbookDim sht As Worksheet str = Dir("d:\data\*.*")'可以把文件名改为"*.xls*"For i = 1 To 100' range("a" & 阅读全文

摘要： Sub dbhb() '多表文件合并'把目录下所有文件名输入表格Dim str As StringDim wb As WorkbookDim sht As Worksheet str = Dir("d:\data\*.*")'可以把文件名改为"*.xls*" For i = 1 To 100' ra 阅读全文

摘要： 先查看SSHD是不是安装 查看SSH是不是安装 #rpm -qa | grep ssh 查看ssh 是不是运行 #ps -e|grep sshd 检查一下22端口是否开启 #netstat -an | grep 22 如果 SSHD安装 并运行正常就配置 修改sshd的配置 vi /etc/ssh/ 阅读全文

摘要： Private Sub Worksheet_SelectionChange(ByVal Target As Range) '在sheet的表格选择selectionchange 选择改变运行 Cells.Interior.Pattern = xlNone'所有单元格设为无色 Selection.En 阅读全文

摘要： Sub stor() 'stor 为十进制转n进制 ’n<10Dim stor, shi As Long stor = "" ‘余数变量初始化为空 n = Range("b3")shi = Range("a3") ’从表格内取值 Do While shi > 0 stor = shi Mod n & 阅读全文

摘要： 这两天看了javascript DOM编程。 对象：由一些属性和方法组合在一起而构成的一个数据实体。 属性是隶属于某个特定对象的变量。 方法是只有某个特定对象才能调用的函数。 对象分为： 内建对象：比如Array() 数组对象;Math对象Date对象。 宿主对象：Form对象 Image对象 El 阅读全文