星翊

摘要： 哈哈哈 这个号放了快三年 还是得在练起来啊 不过现在主要是记学习的了 阅读全文

摘要： 今天隋唐一日游，玩到11:00回家吃蛋糕，2:00睡觉，4:00起床。 起来玩了一个多小时然后吃饭，吃完饭，就和闺蜜聊天，然后睡觉。明天就开启上网课模式 ：） 阅读全文

摘要： 今天睡了个够，起来后吃了饭就去和闺蜜聊天了。还有13天就是我生日了，这几天一直在倒计时，希望时间能过的快一点，我早就迫不及待了！！！ 过完生日之后我就11岁了:) 阅读全文

摘要： Sub 连接数据库() '第一步：我们要用ADO 引用AD工具 '第二步：创建连接对象 '2-1: 给连接对象取名字，声明对象 'Dim conn As ADODB.Connection '声明对象变量'2-2: 创建对象变量，并赋值'Set conn = New ADODB.Connection 阅读全文

摘要： Sub text()Dim i As IntegerDim txt As StringDim texnkyy As Stringtexnyy = ""txt = "face"For i = 1 To Len(txt) ‘ Len =多少个字符If Not Mid(txt, i, 1) Like "[ 阅读全文

摘要： Sub kaoshi(i As Integer) With Sheet2 '清空4个选项 .OptionButton1.Value = False .OptionButton2.Value = False .OptionButton3.Value = False .OptionButton4.Val 阅读全文

摘要： Sub test()Dim i As IntegerDim j As Integer For j = 1 To Sheets.Count For i = 100 To 2 Step -1 If Sheets(j).Range("e" & i) = "男" Then Sheets(j).Range(" 阅读全文

摘要： Sub text()Dim i As IntegerFor i = 2 To Sheets.CountSheet1.Range("b" & i + 8) = Sheets(i).Range("e5")Sheet1.Range("c" & i + 8) = Sheets(i).Range("e6")S 阅读全文

摘要： Sub gzt()Dim i As IntegerRows("1:1").Select ‘找到a1For i = 1 To 10Selection.Copy ActiveCell.Offset(2, 0).Rows("1:1").EntireRow.Select ’offset(行,列) Entir 阅读全文

摘要： sub jjcfb () dim i,j as interger for i = 1 to 9 for j = i to 9 cells (j,i)= i & " * " j & " = " & i * j next next end sub 阅读全文