深圳全飞鸿

标题: 关于Excel的VBA开发验证 [打印本页]
作者: syant    时间: 2025-1-12 20:47
标题: 关于Excel的VBA开发验证
关于Excel的VBA开发验证

1.打开宏开发


打开Excel表格，点击左上角【文件】-【更多】-【选项】，在弹出的“Excel选项”对话框中点击【自定义功能区】，将右侧【开发工具】勾选，然后点击【确定】，这样“开发工具”选项卡就显示出来了。
https://baijiahao.baidu.com/s?id=1786686340589736102&wfr=spider&for=pc


2、另存xlsm格式


3、注册一个测试证书
SELFCERT.EXE
C:\Program Files\Microsoft Office\root\Office16



作者: syant    时间: 2025-1-12 20:56
用VBA写一段代码，抓取当前sheet的A5至A11范围内单元格里的内容，并用逗号合并成一个字符串，并把这个字符串写到F2单元格
  1. Sub 按钮1_Click()
  2.     Dim ws As Worksheet
  3.     Dim cell As Range
  4.     Dim result As String
  5.    
  6.     ' 获取当前活动的工作表
  7.     Set ws = ActiveSheet
  8.    
  9.     ' 初始化结果字符串
  10.     result = ""
  11.    
  12.     ' 遍历A5到A11范围内的单元格
  13.     For Each cell In ws.Range("A5:A11")
  14.         ' 如果单元格不为空，则将其内容添加到结果字符串中
  15.         If cell.Value <> "" Then
  16.             result = result & cell.Value & ""
  17.         End If
  18.     Next cell
  19.    
  20.     ' 移除最后一个多余的逗号
  21.     If Len(result) > 0 Then
  22.         result = Left(result, Len(result) - 1)
  23.     End If
  24.    
  25.     ' 将结果字符串写入到F2单元格
  26.     ws.Range("F2").Value = result
  27. End Sub
复制代码


作者: syant    时间: 2025-1-12 21:08

VBA能否实现从一个网址获取一个图片，并用这个图片来更新exel档上的一个图片
  1. Sub DownloadAndInsertImage()
  2.     Dim imageUrl As String
  3.     Dim imagePath As String
  4.     Dim ws As Worksheet
  5.     Dim pic As Picture
  6.    
  7.     ' 设置图片URL和保存路径
  8.     imageUrl = "http://127.0.0.1/qrcode/temp/test1.png" ' 替换为实际的图片URL
  9.     imagePath = Environ("TEMP") & "\downloaded_image.png"
  10.    
  11.     ' 下载图片
  12.     DownloadFile imageUrl, imagePath
  13.    
  14.     ' 插入图片到工作表
  15.     Set ws = ThisWorkbook.Sheets(1) ' 选择要插入图片的工作表
  16.     Set pic = ws.Pictures.Insert(imagePath)
  17.    
  18.     ' 调整图片位置和大小（可选）
  19.     With pic
  20.         .Left = ws.Range("A1").Left
  21.         .Top = ws.Range("A1").Top
  22.         .Width = 100 ' 设置宽度
  23.         .Height = 100 ' 设置高度
  24.     End With
  25. End Sub

  27. Function DownloadFile(ByVal URL As String, ByVal LocalFilename As String) As Boolean
  28.     Dim WinHttpReq As Object
  29.     Set WinHttpReq = CreateObject("Microsoft.XMLHTTP")
  30.     WinHttpReq.Open "GET", URL, False
  31.     WinHttpReq.send
  32.    
  33.     If WinHttpReq.Status = 200 Then
  34.         Dim oStream As Object
  35.         Set oStream = CreateObject("ADODB.Stream")
  36.         oStream.Open
  37.         oStream.Type = 1
  38.         oStream.Write WinHttpReq.responseBody
  39.         oStream.SaveToFile LocalFilename, 2 ' 1 = no overwrite, 2 = overwrite
  40.         oStream.Close
  41.         DownloadFile = True
  42.     Else
  43.         DownloadFile = False
  44.     End If
  45. End Function

  47. Private Sub CommandButton1_Click()
  48.    'MsgBox "Great!"
  49.     DownloadAndInsertImage
  50. End Sub
复制代码


作者: syant    时间: 2025-1-12 21:26
在VBA中，Picture 对象有许多属性和方法，可以用来操作图片。以下是一些常用的 Picture 对象的属性：
以下是一个示例代码，演示如何访问和修改这些属性：
  1. Sub PicturePropertiesExample()
  2.     Dim ws As Worksheet
  3.     Dim pic As Picture
  4.    
  5.     ' 获取要操作的工作表
  6.     Set ws = ThisWorkbook.Sheets(1) ' 选择要操作的工作表
  7.    
  8.     ' 假设工作表中已经有一个图片对象
  9.     On Error Resume Next
  10.     Set pic = ws.Pictures(1)
  11.     On Error GoTo 0
  12.    
  13.     If Not pic Is Nothing Then
  14.         ' 输出图片的一些属性
  15.         Debug.Print "Name: " & pic.Name
  16.         Debug.Print "Left: " & pic.Left
  17.         Debug.Print "Top: " & pic.Top
  18.         Debug.Print "Width: " & pic.Width
  19.         Debug.Print "Height: " & pic.Height
  20.         Debug.Print "Locked: " & pic.Locked
  21.         Debug.Print "Placement: " & pic.Placement
  22.         Debug.Print "PrintObject: " & pic.PrintObject
  23.         Debug.Print "Visible: " & pic.Visible
  24.         Debug.Print "ZOrder: " & pic.ZOrder
  25.         
  26.         ' 修改图片的一些属性
  27.         pic.Left = 100
  28.         pic.Top = 100
  29.         pic.Width = 200
  30.         pic.Height = 200
  31.         pic.Locked = True
  32.         pic.Visible = False
  33.         pic.ZOrder msoSendToBack
  34.     End If
  35. End Sub
复制代码






欢迎光临 深圳全飞鸿 (http://www.nagomes.com/disc/) Powered by Discuz! X3.2