有什么高难度的VBA需求，尽管冲我来-我的小助手ChatGPT将尽快帮助你

hnsd24 · 发表于 2023-2-4 21:06

这是论坛一位朋友的求助：用VBA绘制wav音频的波形图或频谱图

下面是我的小助手生成的代码，未做任何修改。虽然有点bug(居然想把长度2000万的数组写入工作表)，但已经非常了不起了。

Sub PlotWaveform()
Dim WaveFile As String
Dim Data() As Integer
Dim i As Long
'prompt the user for the file name
WaveFile = Application.GetOpenFilename("WAV Files (*.wav), *.wav")
'read the wave file into an array
Open WaveFile For Binary Access Read As #1
ReDim Data(LOF(1) \ 2 - 1) As Integer
For i = 0 To UBound(Data)
Get #1, , Data(i)
Next i
Close #1
'plot the waveform in a chart
With Worksheets.Add
With .Range("A1").Resize(UBound(Data) + 1)
.Value = Application.Transpose(Data)
With .Parent.Shapes.AddChart2(251, xlLine, .Left, .Top, .Width, .Height).Chart
.SetSourceData Source:=.Range("A1").Resize(UBound(Data) + 1)
.Axes(xlCategory).MajorUnit = (UBound(Data) + 1) \ 10
.Axes(xlValue).MinimumScale = -32768
.Axes(xlValue).MaximumScale = 32767
End With
End With
End With
End Sub

复制代码

hnsd24 · 发表于 2023-2-4 21:10

这是一段由AI自动生成的VBA高端应用：VBA实现人脸识别

Private Declare Function capCreateCaptureWindow Lib "avicap32.dll" _
Alias "capCreateCaptureWindowA" (ByVal lpszWindowName As String, _
ByVal dwStyle As Long, ByVal X As Long, ByVal Y As Long, _
ByVal nWidth As Long, ByVal nHeight As Long, ByVal hWndParent As Long, _
ByVal nID As Long) As Long
Private Declare Function capGetDriverDescriptionA Lib "avicap32.dll" (ByVal wDriver As Short, _
ByVal lpszName As String, ByVal cbName As Integer, ByVal lpszVer As String, _
ByVal cbVer As Integer) As Boolean
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, _
ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Const WM_CAP_DRIVER_CONNECT = &H40A
Private Const WM_CAP_DRIVER_DISCONNECT = &H40B
Private Const WM_CAP_SET_PREVIEW = &H432
Private Const WM_CAP_SET_PREVIEWRATE = &H434
Private Const WM_CAP_SET_SCALE = &H432
Private Const WM_CAP_START = &H400
Dim hCap As Long
Sub StartPreview()
hCap = capCreateCaptureWindow("", WS_VISIBLE Or WS_CHILD, 0, 0, 640, 480, Me.hwnd, 0)
If SendMessage(hCap, WM_CAP_DRIVER_CONNECT, 0, 0) Then
SendMessage hCap, WM_CAP_SET_SCALE, True, 0
SendMessage hCap, WM_CAP_SET_PREVIEWRATE, 66, 0
SendMessage hCap, WM_CAP_SET_PREVIEW, True, 0
SendMessage hCap, WM_CAP_START, 0, 0
End If
End Sub
Sub StopPreview()
If hCap Then
SendMessage hCap, WM_CAP_DRIVER_DISCONNECT, 0, 0
End If
End Sub

复制代码

使用该代码可以在VBA窗口中实现摄像头预览功能，但并不支持获取摄像头捕获的图像数据。如果需要处理图像，可以使用其他技术，如DirectX或OpenCV等，获取摄像头数据并进行处理。
以下是使用OpenCV实现的代码示例：

Sub StartPreviewWithOpenCV()
Dim cap As New cv2.VideoCapture(0) ' 0表示第一个摄像头
If Not cap.IsOpened() Then
MsgBox "摄像头未打开！"
Exit Sub
End If
Dim frame As cv2.Mat
Do
cap.Read(frame)
If Not frame.Empty() Then
' 处理图像
' ...
End If
Loop Until frame.Empty()
cap.Release()
End Sub

复制代码

这是一个使用OpenCV库读取摄像头数据并处理图像的简单示例。需要注意的是，需要在VBA中使用OpenCV需要先安装OpenCV的COM组件并在VBA中导入相关类型库。

opiona · 发表于 2023-2-5 09:16

本帖最后由 opiona 于 2023-2-5 09:18 编辑

这个可以有
但是以后就业形式更严峻了

单项功能估计以后都是机器人完成了
码农只能做些做功能整合的工作了

蓝桥玄霜 · 发表于 2023-2-5 09:56

https://club.excelhome.net/thread-1651345-1-1.html
这个问题真需要你的小助手来完成。

ivccav · 发表于 2023-2-5 10:30

我也有个问题，是网友在下帖33楼提出的，要修改listview控件的网格线样式和颜色，我没有深入研究过，不懂怎么实现，借用下你的神器解答一下。

https://club.excelhome.net/thread-1428537-1-1.html

hnsd24 · 发表于 2023-2-5 11:25

蓝桥玄霜发表于 2023-2-5 09:56
https://club.excelhome.net/thread-1651345-1-1.html
这个问题真需要你的小助手来完成。

这个问题AI没有解出来

准提部林 · 发表于 2023-2-5 11:28

__虽然有点bug(居然想把长度2000万的数组写入工作表)，但已经非常了不起了。

補風捉影? 繪聲繪影??
代碼程序沒有什麼"了不起", 重點//正確性+可驗證...只要有誤差, 跟本"起不了"作用

hnsd24 · 发表于 2023-2-5 11:35

ivccav 发表于 2023-2-5 10:30
我也有个问题，是网友在下帖33楼提出的，要修改listview控件的网格线样式和颜色，我没有深入研究过，不懂怎 ...

我没有认真看原帖，我的提问是“在VBA中，如何修改listview控件网格线样式和颜色”，下面是AI给出的答案。或许你可以提出更明确的要求
————————————
在VBA中，您可以使用ListView控件的GridLines属性来更改网格线样式，并使用GridLinesColor属性来更改网格线颜色。

以下是示例代码：

ListView1.GridLines = True '启用网格线
ListView1.GridLinesColor = RGB(0, 0, 255) '设置网格线颜色为蓝色

请注意，您需要先在Microsoft Windows Common Controls 6.0 (SP6)中添加引用，才能在VBA中使用ListView控件。

hnsd24 · 发表于 2023-2-5 11:47

ivccav 发表于 2023-2-5 10:30
我也有个问题，是网友在下帖33楼提出的，要修改listview控件的网格线样式和颜色，我没有深入研究过，不懂怎 ...

我换了个提问方式“如何让listview控件，隔行或者隔列显示不一样的颜色”，下面是AI给出的答案

Private Sub ListView1_DrawItem(ByVal Item As MSComctlLib.ListItem)
Dim Brush As Long
' 如果当前项的索引为偶数，则使用淡灰色
If Item.Index Mod 2 = 0 Then
Brush = RGB(192, 192, 192)
Else
Brush = RGB(255, 255, 255)
End If
' 设置当前项的背景色
Item.BackColor = Brush
End Sub

复制代码

ivccav · 发表于 2023-2-5 12:53

hnsd24 发表于 2023-2-5 11:35
我没有认真看原帖，我的提问是“在VBA中，如何修改listview控件网格线样式和颜色”，下面是AI给出的答案 ...

运行不了的，因为Listview没有GridLinesColor这个属性。

你那个隔行换色的代码也是无法操作的。

我的感觉是ChatGPT回答不了人类未写过的代码。

它能提供一些似是而非的回答，可能能给提问者一些灵感

当然了，论坛里的提问，多数都是很水的，绝大部分都是有现成答案的，用ChatGPT是个不错的选择

		自动登录	找回密码
密码			免费注册

[讨论] 有什么高难度的VBA需求，尽管冲我来-我的小助手ChatGPT将尽快帮助你

评分