星翊

摘要： Sub zh() For i = 2 To Range("a65536").End(xlUp).Row Range("b" & i) = DateSerial(Left(Range("a" & i), 4), Mid(Range("a" & i), 5, 2), Right(Range("a" & 阅读全文

摘要： 今天一天玩了多米诺骨牌，让我知道了做事要有耐心，最后终于摆好了：）！！！ 2020过年以正元十五以吃火锅结束 了。。。。。。 阅读全文

摘要： Sub 认识if语句() Dim i As Integer For i = 26 To 2 Step -1 If Range("e" & i) = "男" Then Range("f" & i) = "先生" Else Range("f" & i) = "女士" End If If Range("b 阅读全文

摘要： 原来写程序是需要耐心和细心的，当然还要有一点点运气。 我从九点多输入完代码，感觉不太完美，就自己加入了一点点的小功能。 结果就出现了神奇的事情，一直提示程序定义或对象定义错误，花了两个多小时找问题， 逻辑部份应该是没有问题，然后就精减代码一点一点完成逻辑部分，最后居然是因为一个 小小的变量定义错误， 阅读全文

摘要： Sub shi()Dim i, k, l As IntegerDim sht As Worksheetirow = Sheet1.Range("a65536").End(xlUp).Row l = InputBox("input name plase") For i = 2 To irowk = 0 阅读全文

摘要： Sub fenbiao()Dim sht As WorksheetDim i, k, irow As Integerirow = Sheet1.Range("a65536").End(xlUp).Row '定位表格最后一行 For i = 2 To irow k = 0 For Each sht I 阅读全文

摘要： sub stor ()dim stor,shi as long stor = "" n = range("b3") shi = range("a3") do while stor >0 stor = shi mod n & stor shi = shi / n loop range ("e3") = 阅读全文

摘要： 今天入住博客园，真HAPPY！！！！ 记录今天的学习情况 ：） sub readcolor() cells.interior.pattern=xlnone '清除背景颜色 range(“a1:k30").interior.color="&h00ffff" '设置背景色为黄色 range(“a1:k3 阅读全文