设为首页收藏本站
切换到窄版

鱼C论坛

 找回密码
 立即注册
鱼C论坛»论坛 › 萌新训练营 › 萌新交流区 › VBA 专辑之一
返回列表 发新帖
查看: 4285|回复: 14

[学习笔记] VBA 专辑之一

[复制链接]
wp231957
发表于 2020-5-19 09:18:46 | 显示全部楼层 |阅读模式

马上注册，结交更多好友，享用更多功能^_^

您需要 登录 才可以下载或查看，没有账号？立即注册

x
本帖最后由 wp231957 于 2023-1-13 14:39 编辑

专辑三   戳这里
专辑二   戳这里
专辑四   请戳这里前进
1、获取倒数第二行的行号：
  1. Function get_row()
  2.    get_row = Range("A65536").End(xlUp).Offset(-1, 0).Row
  3.    
  4.    
  5. End Function

  7. Sub test()
  8.    Row = get_row
  9.    MsgBox Row
  10. End Sub
复制代码

  1. Range("A65536").End(xlUp).Row+1   '获取第一个无数据行
  2. Cells(行号, 256).End(xlToLeft).Column   ' 获取第一个无数据列
复制代码

brr = Range("a1:a" & Range("A" & Rows.Count).End(xlUp).Row)

2、使用变量 获取range区域

  1. Range("m3:" & "p" & Row).Select
复制代码


3、删除空行，如果有连续空行，会出现一些问题，所以从下往上删除

  1. Sub test2()
  2.    Row = get_row
  3.    Range("b3:" & "b" & Row).Select
  4.    row2 = Selection.Rows.Count
  5.    For i = row2 + 2 To 1 + 2 Step -1
  6.      If (Cells(i, 2) = "") Then
  7.        Rows(i).Delete
  8.      End If
  9.    Next
  10. End Sub

复制代码

4、校验原始表中是否包含合并单元格
  1. Sub pd()
  2.    Row = get_row
  3.    Range("b3:" & "t" & Row).Select
  4.    For Each cc In Selection
  5.        If cc.MergeCells = True Then
  6.          MsgBox "表中包含合并单元格，无法进行排序"
  7.          End
  8.        End If
  9.    Next
  10. End Sub
复制代码

5、获取某行最右侧包含数据的列
  1. Sub test()
  2.    MsgBox Cells(125, 256).End(1).Column   '获取125行的最右侧包含数据的列，返回的是一个数值（例如：9 表示I列）
  3. End Sub
复制代码

6、检索某列重复值（去重）使用了数据库以及CopyFromRecordset方法
  1. Sub wp()
  2.    Set Cnn = CreateObject("ADODB.Connection")
  3.    Set rst = CreateObject("ADODB.Recordset")
  4.    Cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source=" & ThisWorkbook.FullName
  5.    Sql = "select distinct * from [Sheet2$a1:a16]"
  6.    Sheets("sheet2").Range("h" & 2).CopyFromRecordset Cnn.Execute(Sql)
  7.   
  8. End Sub
复制代码

自动填充数列
  1. Sub wp()
  2.    Set Cnn = CreateObject("ADODB.Connection")
  3.    Set rst = CreateObject("ADODB.Recordset")
  4.    Cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source=" & ThisWorkbook.FullName
  5.    Sql = "select distinct * from [Sheet1$a2:c2000]"
  6.    Sheets("sheet2").Range("a1:aa20000").Clear
  7.    Sheets("sheet2").Range("a" & 1).CopyFromRecordset Cnn.Execute(Sql)
  8.    Sheets("sheet2").Range("A1") = 100001
  9.    Sheets("sheet2").Range("A2") = 100002
  10.    Sheets("sheet2").Range("A1:A2").Select
  11.    Selection.AutoFill Destination:=Sheets("sheet2").Range("A1:A1000"), Type:=xlFillDefault
  12. End Sub
复制代码

多个相同结构表的拼接，插入表头，记录之间密切结合
  1. Sub wp()
  2.    Set cnn = CreateObject("ADODB.Connection")
  3.    Set rst = CreateObject("ADODB.Recordset")
  4.    
  5.    cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source=" & ThisWorkbook.Path & "" & "对账单A.xlsx"
  6.    Sql = "select  * from [mm$]"
  7.    Windows(ThisWorkbook.Name).Activate
  8.    Sheets("mm").Activate
  9.    '插入header
  10.    Set rs = cnn.Execute(Sql)
  11.    For i = 1 To rs.Fields.Count
  12.         Cells(1, i) = rs.Fields(i - 1).Name
  13.    Next i
  14.    rs.Close
  15.    
  16.    Sheets("mm").Range("a2").CopyFromRecordset cnn.Execute(Sql)
  17.    Sql = "select  * from [rx$]"
  18.    Windows(ThisWorkbook.Name).Activate
  19.    Sheets("rx").Activate
  20.     '插入header
  21.    Set rs = cnn.Execute(Sql)
  22.    For i = 1 To rs.Fields.Count
  23.         Cells(1, i) = rs.Fields(i - 1).Name
  24.    Next i
  25.    rs.Close
  26.    
  27.    Sheets("rx").Range("a2").CopyFromRecordset cnn.Execute(Sql)
  28.    Sql = "select  * from [加工单$]"
  29.    Windows(ThisWorkbook.Name).Activate
  30.    Sheets("加工单").Activate
  31.     '插入header
  32.    Set rs = cnn.Execute(Sql)
  33.    For i = 1 To rs.Fields.Count
  34.         Cells(1, i) = rs.Fields(i - 1).Name
  35.    Next i
  36.    rs.Close
  37.    
  38.    Sheets("加工单").Range("a2").CopyFromRecordset cnn.Execute(Sql)
  39.    row1 = Sheets("mm").Range("A65536").End(xlUp).Row + 1
  40.    row2 = Sheets("rx").Range("A65536").End(xlUp).Row + 1
  41.    row3 = Sheets("加工单").Range("A65536").End(xlUp).Row + 1
  42.    cnn.Close
  43.    cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source=" & ThisWorkbook.Path & "" & "对账单B.xlsx"
  44.    
  45.    Sql = "select  * from [mm$]"
  46.    Windows(ThisWorkbook.Name).Activate
  47.    Sheets("mm").Range("a" & row1).CopyFromRecordset cnn.Execute(Sql)
  48.    Sql = "select  * from [rx-lucuku$]"
  49.    Windows(ThisWorkbook.Name).Activate
  50.    Sheets("rx").Range("a" & row2).CopyFromRecordset cnn.Execute(Sql)
  51.    Sql = "select  * from [加工单$]"
  52.    Windows(ThisWorkbook.Name).Activate
  53.    Sheets("加工单").Range("a" & row3).CopyFromRecordset cnn.Execute(Sql)
  54.    row1 = Sheets("mm").Range("A65536").End(xlUp).Row + 1
  55.    row2 = Sheets("rx").Range("A65536").End(xlUp).Row + 1
  56.    row3 = Sheets("加工单").Range("A65536").End(xlUp).Row + 1
  57.    cnn.Close
  58.    
  59.    cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source=" & ThisWorkbook.Path & "" & "对账单C.xlsx"
  60.    Sql = "select  * from [mm$]"
  61.    Windows(ThisWorkbook.Name).Activate
  62.    Sheets("mm").Range("a" & row1).CopyFromRecordset cnn.Execute(Sql)
  63.    Sql = "select  * from [rx-lucuku$]"
  64.    Windows(ThisWorkbook.Name).Activate
  65.    Sheets("rx").Range("a" & row2).CopyFromRecordset cnn.Execute(Sql)
  66.    Sql = "select  * from [加工单$]"
  67.    Windows(ThisWorkbook.Name).Activate
  68.    Sheets("加工单").Range("a" & row3).CopyFromRecordset cnn.Execute(Sql)
  69.    
  70.    cnn.Close
  71.    
  72. End Sub


复制代码

关于列合并相加计算的sql语法一则
  1. Sub wp()
  2.    Set cnn = CreateObject("ADODB.Connection")
  3.    cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source=" & ThisWorkbook.FullName
  4.    Sql = "select 编码,[名称/规格/型号],sum(数量) from [记录簿$] group by 编码,[名称/规格/型号]"
  5.    Sheets("sheet1").Range("a2").CopyFromRecordset cnn.Execute(Sql)
  6.    cnn.Close
  7. End Sub

  9. Sub wp2()
  10.    Set cnn = CreateObject("ADODB.Connection")
  11.    cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source=" & ThisWorkbook.FullName
  12.    Sql = "select 货号,[名称/型号/规格],订单DD01+订单DD02+订单DD03+订单DD04+订单DD05+订单DD06+订单DD07+订单DD08+订单DD09 as 订单 from [货物表$] "
  13.    Sheets("sheet1").Range("f2").CopyFromRecordset cnn.Execute(Sql)
  14.    cnn.Close
  15. End Sub


复制代码

7、关于listbox  textbox  split  ubound 的部分用法
  1. Private Sub CommandButton1_Click()
  2.   x = ListBox1.Text
  3.   ListBox1.RemoveItem (ListBox1.ListIndex)    '删除列表选中项
  4.   TextBox1.Text = x
  5.   
  6. End Sub

  8. Private Sub UserForm_Initialize()
  9.     s = Range("c1").Value
  10.     arr = Split(s, Chr(10))  '按换行符 拆分
  11.     For i = 1 To UBound(arr)   'ubound 探测数组长度
  12.      ListBox1.AddItem arr(i)
  13.     Next
  14. End Sub
复制代码
  1. Sub wp()
  2.    arr = Range("c2:c11")
  3.    For x = 1 To UBound(arr)
  4.      tmp = Split(arr(x, 1), " ")    ' tmp = Split(Application.Trim(arr(x, 1)), " ")  可以解决多个空格的问题
  5.      If UBound(tmp) > 0 Then
  6.         s = ""
  7.         t = ""
  8.         For Z = 0 To UBound(tmp)
  9.            If InStr(s, Split(tmp(Z), "/")(1)) = 0 Then
  10.               s = s + Split(tmp(Z), "/")(1) + " "
  11.            End If
  12.            If InStr(t, Split(tmp(Z), "/")(0)) = 0 Then
  13.               t = t + Split(tmp(Z), "/")(0) + " "
  14.            End If
  15.         Next
  16.         Range("e" & x + 1) = s
  17.         Range("f" & x + 1) = t
  18.      Else
  19.         Range("e" & x + 1) = Split(arr(x, 1), "/")(1)
  20.         Range("f" & x + 1) = Split(arr(x, 1), "/")(0)
  21.      End If
  22.    Next
  23.    
  24. End Sub
复制代码

8、创建一个长度为0的文本文件
  1. Sub wp()
  2.     Set oFSO = CreateObject("Scripting.FileSystemObject")
  3.         sFilePath = Excel.ThisWorkbook.Path & "" & "1" & ".txt"
  4.     With oFSO
  5.         Set oTextStream = oFSO.CreateTextFile(sFilePath, False)
  6.     End With
  7. End Sub
复制代码

本帖被以下淘专辑推荐:

小甲鱼最新课程 -> https://ilovefishc.com
回复

使用道具 举报

永恒的蓝色梦想
发表于 2020-5-19 09:28:53 | 显示全部楼层
全选复制？
小甲鱼最新课程 -> https://ilovefishc.com
回复 支持 反对

使用道具 举报

wp231957
 楼主| 发表于 2020-5-19 09:40:48 | 显示全部楼层
永恒的蓝色梦想 发表于 2020-5-19 09:28
全选复制？

嗯，最后恢复时，剪贴板是空的 ，白忙乎了
小甲鱼最新课程 -> https://ilovefishc.com
回复 支持 反对

使用道具 举报

wp231957
 楼主| 发表于 2020-6-10 09:43:35 | 显示全部楼层
本帖最后由 wp231957 于 2020-6-10 10:59 编辑

vba sql  左右连接测试代码

  1. Sub wp()
  2.    Set cnn = CreateObject("ADODB.Connection")
  3.    cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source=" & ThisWorkbook.FullName
  4.    '左连接测试
  5.    Sql = "select a.A列,b.C列 from [sheet1$a:a] a left join [Excel 12.0;hdr=1;imex=1;Database=" & ThisWorkbook.FullName & "].[sheet1$c:c] b on a.A列=b.C列"
  6.    Sheets(1).Range("h2").CopyFromRecordset cnn.Execute(Sql)
  7.    '右连接测试
  8.    Sql = "select a.A列,b.C列 from [sheet1$a:a] a right join [Excel 12.0;hdr=1;imex=1;Database=" & ThisWorkbook.FullName & "].[sheet1$c:c] b on a.A列=b.C列"
  9.    Sheets(1).Range("k2").CopyFromRecordset cnn.Execute(Sql)
  10.    
  11.     '根据左连接取两列相同
  12.    Sql = "select b.C列 from [sheet1$a:a] a left join [Excel 12.0;hdr=1;imex=1;Database=" & ThisWorkbook.FullName & "].[sheet1$c:c] b on a.A列=b.C列"
  13.    Sheets(1).Range("m2").CopyFromRecordset cnn.Execute(Sql)
  14.    cnn.Close
  15. End Sub
复制代码

  1. Sub wp()
  2.    Set cnn = CreateObject("ADODB.Connection")
  3.    cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source=" & ThisWorkbook.FullName
  4.    '左连接测试
  5.    Sql = "select a.A列,b.C列 from [sheet1$a:a] a left join [Excel 12.0;hdr=1;imex=1;Database=" & ThisWorkbook.FullName & "].[sheet1$c:c] b on a.A列=b.C列"
  6.    Sheets(1).Range("h2").CopyFromRecordset cnn.Execute(Sql)
  7.    '右连接测试
  8.    Sql = "select a.A列,b.C列 from [sheet1$a:a] a right join [Excel 12.0;hdr=1;imex=1;Database=" & ThisWorkbook.FullName & "].[sheet1$c:c] b on a.A列=b.C列"
  9.    Sheets(1).Range("k2").CopyFromRecordset cnn.Execute(Sql)
  10.    
  11.     '根据左连接取A列中包含，但是c列中没有的数据
  12.    Range("h1") = "A列"
  13.    Range("i1") = "C列"
  14.    Sql = "select A列 from [sheet1$h:i] where C列 is null"
  15.    'Debug.Print Sql
  16.    Sheets(1).Range("m2").CopyFromRecordset cnn.Execute(Sql)
  17.    
  18.    '根据右连接取C列中包含，但是A列中没有的数据
  19.    Range("k1") = "A列"
  20.    Range("l1") = "C列"
  21.    Sql = "select c列 from [sheet1$k:l] where A列 is null"
  22.    Sheets(1).Range("n2").CopyFromRecordset cnn.Execute(Sql)
  23.    
  24.    cnn.Close
  25. End Sub
复制代码


  1. Sub wp()
  2.    Set cnn = CreateObject("ADODB.Connection")
  3.    cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source=" & ThisWorkbook.FullName
  4.    '根据左连接 获取A列中包含，C列中没有的数据
  5.    Sql = "select a.A列,b.C列 from [sheet1$a:a] a left join [Excel 12.0;hdr=1;imex=1;Database=" & ThisWorkbook.FullName & "].[sheet1$c:c] b on a.A列=b.C列"
  6.    sql2 = "select a.A列 from (" & Sql & ") where b.C列 is null"
  7.    Sheets(1).Range("m2").CopyFromRecordset cnn.Execute(sql2)
  8.    
  9.     '根据右连接 获取C列中包含，A列中没有的数据
  10.    Sql = "select a.A列,b.C列 from [sheet1$a:a] a right join [Excel 12.0;hdr=1;imex=1;Database=" & ThisWorkbook.FullName & "].[sheet1$c:c] b on a.A列=b.C列"
  11.    sql2 = "select b.C列 from (" & Sql & ") where a.A列 is null"
  12.    Sheets(1).Range("n2").CopyFromRecordset cnn.Execute(sql2)
  13.    
  14.     '根据左连接 获取A列C列中共有的数据
  15.    Sql = "select b.C列 from [sheet1$a:a] a left join [Excel 12.0;hdr=1;imex=1;Database=" & ThisWorkbook.FullName & "].[sheet1$c:c] b on a.A列=b.C列"
  16.    Sheets(1).Range("l2").CopyFromRecordset cnn.Execute(Sql)
  17.    cnn.Close
  18. End Sub
复制代码
小甲鱼最新课程 -> https://ilovefishc.com
回复 支持 反对

使用道具 举报

wp231957
 楼主| 发表于 2020-6-11 09:26:36 | 显示全部楼层
本帖最后由 wp231957 于 2020-6-11 15:56 编辑

利用二维数组自动填充列

  1. Sub ttt()
  2.     Dim ii, arr(1 To 1000000, 1 To 1)
  3.     For ii = 1 To 1000000 Step 1
  4.       arr(ii, 1) = ii
  5.     Next ii
  6.     Range("A1").Resize(UBound(arr, 1), 1) = arr

  8. End Sub
复制代码


获取单元格数据格式，是输入数据  还是计算公式

  1. MsgBox Range("c2").Formula
复制代码
小甲鱼最新课程 -> https://ilovefishc.com
回复 支持 反对

使用道具 举报

wp231957
 楼主| 发表于 2020-6-11 16:33:33 | 显示全部楼层
  sql应用之插入记录

  1. Sub wp()
  2.    Set Cnn = CreateObject("ADODB.Connection")
  3.    Cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source=" & ThisWorkbook.FullName
  4.    Sql = "insert into [芯盒制芯数量监控$] select 模具号,芯盒架位,sum(计划数量) as 清洗前数量累计 from [制芯计划$] group by 模具号,芯盒架位"
  5.    Cnn.Execute Sql
  6.    Sql = "select 模具号,芯盒架位,sum(清洗前数量累计)  from [芯盒制芯数量监控$] group by 模具号,芯盒架位"
  7.    Sheets("芯盒制芯数量监控").Range("a2").CopyFromRecordset Cnn.Execute(Sql)
  8.    Cnn.Close
  9. End Sub

复制代码
小甲鱼最新课程 -> https://ilovefishc.com
回复 支持 反对

使用道具 举报

wp231957
 楼主| 发表于 2020-6-19 15:09:09 | 显示全部楼层
测试左连接中使用right 分割字段的用法演示

  1. Sub wp()
  2.    Set cnn = CreateObject("ADODB.Connection")
  3.    cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source=" & ThisWorkbook.Path & "\货单A.xlsx"
  4.    Sql = "select a.名称 ,right(b.编码,10) as bm ,a.重量 ,a.编号, b.库号 ,b.库位码 from [122$a:d] a left join [Excel 12.0;hdr=1;imex=1;Database=" & ThisWorkbook.Path & "\数据.xls" & "].[sheet1$a3:h13] b on a.编码=int(right(b.编码,10))"
  5.    Sheets(1).Range("a15").CopyFromRecordset cnn.Execute(Sql)
  6.    cnn.Close
  7. End Sub


复制代码
小甲鱼最新课程 -> https://ilovefishc.com
回复 支持 反对

使用道具 举报

wp231957
 楼主| 发表于 2020-6-23 09:18:36 | 显示全部楼层
RANGE里还有这个操作   RANGE.FIND  直接查找数据

  1. Sub 查找()
  2. Set c = Sheets("数据").Range("f4:f31").Find(Sheets(2).Range("f1").Value)
  3. If Not c Is Nothing Then
  4.     MsgBox c.Address
  5. End If
  6. End Sub
复制代码
小甲鱼最新课程 -> https://ilovefishc.com
回复 支持 反对

使用道具 举报

wp231957
 楼主| 发表于 2020-6-23 15:32:30 | 显示全部楼层
Private Sub CommandButton2_Click()
   Set cnn = CreateObject("ADODB.Connection")
   cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.Path & "\数据库.mdb"
   Sql2 = "update 数据  set 姓名='" & ComboBox2.Value & "' where 号码 between " & TextBox1.Text & "and " & TextBox2.Text
   cnn.Execute (Sql2)
   cnn.Close
End Sub
小甲鱼最新课程 -> https://ilovefishc.com
回复 支持 反对

使用道具 举报

Python初学者8号
发表于 2020-6-24 08:35:36 | 显示全部楼层
66666666666
小甲鱼最新课程 -> https://ilovefishc.com
回复 支持 反对

使用道具 举报

wp231957
 楼主| 发表于 2020-7-6 09:54:51 | 显示全部楼层
复制带有超级链接的单元格

Sub wp()
       Sheets(1).Range("g5").Copy
       Sheets(2).Activate
       Sheets(2).Range("g7").Select
       ActiveSheet.Paste
      
    End Sub
小甲鱼最新课程 -> https://ilovefishc.com
回复 支持 反对

使用道具 举报

wp231957
 楼主| 发表于 2022-10-27 10:35:40 | 显示全部楼层
wp231957 发表于 2020-7-6 09:54
复制带有超级链接的单元格

Sub wp()

设置单元格格式以及如何复制range里面的一行数据到新的行
  1. Sub wp()
  2.    arr = Range("a2:d479")
  3.    brr = Range("f2:f6")
  4.    '设置选择区域为文本格式
  5.    Range("j:j").Select
  6.    Selection.NumberFormatLocal = "@"
  7.    xh = 8
  8.    For x = 1 To UBound(arr)
  9.        For y = 1 To UBound(brr)
  10.           If arr(x, 1) = brr(y, 1) Then
  11.             Cells(xh, 10).Resize(1, 4) = Application.Index(arr, x, 0)   '单独复制一行数据到新的行
  12.             xh = xh + 1
  13.           End If
  14.        Next
  15.    Next
  16. End Sub
复制代码
小甲鱼最新课程 -> https://ilovefishc.com
回复 支持 反对

使用道具 举报

wp231957
 楼主| 发表于 2022-10-31 10:31:21 | 显示全部楼层
wp231957 发表于 2022-10-27 10:35
设置单元格格式以及如何复制range里面的一行数据到新的行

提取单元格中字体颜色为默认（自动）的 示例  其他颜色略过
  1. Sub wp2()
  2.    For i = 1 To 8
  3.      lstr = ""
  4.      For j = 1 To Len(Range("d" & i))
  5.         If Range("d" & i).Characters(Start:=j, Length:=1).Font.ColorIndex = xlAutomatic Then
  6.         
  7.            lstr = lstr & Mid(Range("d" & i).Value, j, 1)
  8.          
  9.         End If
  10.      Next
  11.      Debug.Print lstr
  12.    Next
  13. End Sub
复制代码
小甲鱼最新课程 -> https://ilovefishc.com
回复 支持 反对

使用道具 举报

wp231957
 楼主| 发表于 2022-11-1 16:09:43 | 显示全部楼层
wp231957 发表于 2022-10-31 10:31
提取单元格中字体颜色为默认（自动）的 示例  其他颜色略过

把两个不同的格式的单元格的内容连接再一起，格式不变
  1. Sub wp()
  2.    Dim f7 As Range
  3.    Dim h7 As Range
  4.    Set f7 = Range("f7")
  5.    Set h7 = Range("h7")
  6.    Dim k10 As Range
  7.    Set k10 = Range("k10")
  8.    k10.Value = f7.Value & h7.Value
  9.    With k10.Characters(Start:=1, Length:=Len(f7.Value)).Font
  10.         .Name = f7.Font.Name
  11.         .FontStyle = f7.Font.FontStyle
  12.         .Size = f7.Font.Size
  13.         .Color = f7.Font.Color
  14.    End With
  15.    With k10.Characters(Start:=Len(f7.Value) + 1, Length:=Len(h7.Value)).Font
  16.         .Name = h7.Font.Name
  17.         .FontStyle = h7.Font.FontStyle
  18.         .Size = h7.Font.Size
  19.         .Color = h7.Font.Color
  20.    End With
  21. End Sub
复制代码
小甲鱼最新课程 -> https://ilovefishc.com
回复 支持 反对

使用道具 举报

dsshenm
发表于 2023-7-3 21:49:46 | 显示全部楼层
保留
小甲鱼最新课程 -> https://ilovefishc.com
回复

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

小黑屋|手机版|Archiver|鱼C工作室 ( 粤ICP备18085999号-1 | 粤公网安备 44051102000585号)

GMT+8, 2025-4-22 09:36

Powered by Discuz! X3.4

© 2001-2023 Discuz! Team.

快速回复 返回顶部 返回列表