摘要:
哈哈哈 这个号放了快三年 还是得在练起来啊 不过现在主要是记学习的了 阅读全文
摘要:
今天隋唐一日游,玩到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 阅读全文