有必要在 Google Sheets 或 Excel 2019 中编写一个公式，以搜索相同的样本编号并对已发行的产品求和。那些。在 A 列中查找相同的元素，并从 B 列中计算它们的值之和。对于 #1，这将是 44，对于 #3 - 10，对于 #5 - 9，等等。
vba-excel中有以下任务：
在 AutoCAD 中选择块，然后将两个值写入 Excel 列 - 块属性标记的名称 (*autocad)、单元格 A1 及其文本值、单元格 A2。对于样本中的所有块，依此类推。
在这种情况下，首先将标签名称写入列中（检查列中已写入的标签名称）。然后，根据标签名称，写入该标签的文本值。
每次这些都是 For..Next 周期。
请告诉我如何优化此类程序以提高速度：使用数组、类和集合？
示例代码：
For Each lBlockObj In objSelectionSet
Set lBlock = acadDoc.SelectionSets("TempSSet").Item(I - 1)
varAttributes = lBlockObj.GetAttributes
'добавление имен тэгов здесь без проверки что уже есть
For n = LBound(varAttributes) To UBound(varAttributes)
Cells(2, at_hed).Value = varAttributes(n).TagString
at_hed = at_hed + 1
Next n
'запись атрибутов
For r = 2 To Col_N1
For n = LBound(varAttributes) To UBound(varAttributes)
If varAttributes(n).TagString = Cells(2, r).Value Then ActiveCell.Offset(0, r - 2).Value = varAttributes(n).MTextAttributeContent
Next n
Next r
ActiveCell.Offset(1, 0).Activate
Set lBlock = Nothing
Next lBlockObj
亲爱的程序员们大家好！
请告诉我一个excel-vba代码的例子，你如何通过“选择文件”或“打开包含文件的文件夹”窗口顶部的按钮，通过调用的对话框（下图示例）给出用户有机会以这种方式指定文件列表。这些文件显示在窗口的中央，例如列表框中。接下来，单击“开始”按钮启动适用于此列表的特定过程。
提前致谢！
需要根据历史数据将随机数量的客人分配到时间间隔内。是否可以让 Excel 计算出某个时间段内客人总数的百分比，并根据星期一测试列中的旧数据分发一个新的随机数？例子：
我研究了通过数据透视表或输入每个时间段的手动百分比来解决此问题的方法。也许有一个特殊的工具可以解决这个问题？
这是我的代码：
Sub GetCadastralInfo()
Dim dbPath As String
Dim cadNumber As String
Dim conn As Object
Dim rs As Object
Dim sql As String
Dim result As Variant
Dim i As Integer
On Error GoTo ErrorHandler
dbPath = "C:\my_python\Bot_aio\akt\egrn_kpt.db"
cadNumber = Trim(ActiveCell.Value) ' Удалить лишние пробелы
' Соединение
Set conn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")
' Откройте соединение с базой данных
conn.Open "Driver={SQLite3 ODBC Driver};Database=" & dbPath & ";"
' SQL запрос для поиска информации по кадастровому номеру
sql = "SELECT value_by_document FROM ZY WHERE cad_n = '" & cadNumber & "';"
' Выполните запрос и получите набор записей
Set rs = conn.Execute(sql)
' Инициализация переменной строки
i = 1 ' Начинаем с первой строки
' Проверка наличия данных
If Not rs.EOF Then
While Not rs.EOF
Cells(i, 1).Value = rs.Fields(0).Value
' Если у вас есть второе поле, убедитесь, что оно существует
If rs.Fields.Count > 1 Then
Cells(i, 2).Value = rs.Fields(1).Value
End If
i = i + 1
rs.MoveNext
Wend
Else
MsgBox "Нет данных для данного кадастрового номера.", vbInformation
End If
' Закрытие набора записей и соединения
rs.Close
conn.Close
Exit Sub
ErrorHandler:
MsgBox "Ошибка: " & Err.Description, vbCritical, "Ошибка"
If Not rs Is Nothing Then
If rs.State = 1 Then rs.Close ' Закрываем, если открыто
End If
If Not conn Is Nothing Then
If conn.State = 1 Then conn.Close ' Закрываем, если открыто
End If
End Sub
由于某种原因，它不断显示：“该地籍号码没有数据。”，尽管数据库在ZY表中有一个条目（这些是土地），并且我想要value_by_document列（这是土地的 VRI，例如 - “用于运行个人附属地块”）。因此，在单元格 A1 中（例如），我输入地籍号码（例如 - “52:15:0140112:10”），然后按组合键ctrl+f8并执行此代码，它显示没有数据。SQLite ODBC 驱动程序是从网站安装的。我想编写可以访问数据库的代码。请帮忙。