问题[excel](coding)

这里有一张动态表，我只想显示到列表框中，A 到 F 列，其中 A 列/名称不等于空/空单元格。

我在初始化期间尝试了以下操作：

Sub forListBoxShow()
    Dim ws As Worksheet, colList As Collection
    Dim arrData, arrList, i As Long, j As Long
    Set colList = New Collection
    Set ws = Worksheets("Sheet1")
    arrData = ws.Range("A1:F" & ws.Cells(ws.Rows.count, "A").End(xlUp).Row)
    ' build collection of row numbers
    For i = 2 To UBound(arrData)
            If arrData(i, 1) <> vbNullString Then
                colList.Add i, CStr(i)
            End If
    Next
    ReDim arrList(1 To colList.count + 1, 1 To UBound(arrData))
    For j = 1 To 6
        arrList(1, j) = arrData(1, j) ' header
        For i = 1 To colList.count
                arrList(i + 1, j) = arrData(colList(i), j)
        Next
    Next
    listBoxShow.Clear
    With Me.listBoxShow
        .ColumnCount = UBound(arrData, 2)
        .ColumnWidths = "50,50,70,40,90,90"
        .list = arrList
    End With
End Sub

但是我遇到了subscript out of range错误。我还尝试向名称为“Mark”的单元格添加实际值#VALUE!，但遇到了同样的错误。（对于带有 #VALUE! 的单元格 - 它具有默认公式并且有用途）。还尝试了上述代码，但遇到了同样的错误：

If Not arrData(i, 1) = "" Then

我很感谢你的帮助。

1)请将以下值粘贴到Excel 表中的A1:B11单元格中。

1000     =IF(A1<1500,"NO","YES") 
1100     =IF(A2<1500,"NO","YES") 
1200     =IF(A3<1500,"NO","YES") 
1300     =IF(A4<1500,"NO","YES") 
1400     =IF(A5<1500,"NO","YES") 
1500     =IF(A6<1500,"NO","YES") 
1600     =IF(A7<1500,"NO","YES") 
1700     =IF(A8<1500,"NO","YES") 
1800     =IF(A9<1500,"NO","YES") 

2）您将看到B 列中第一个包含 YES 的单元格是B6。

3)我正在寻找任何可以给出不带挥发性的B6的 Excel 公式。

提前致谢。

我这里有原始数据。

Column B = Score- 来自用户的动态

Column C = Complexity (from users) and Column D = Points有固定表格。在下图中，用户输入空白/无复杂性。

图片 1

Column D = Points

Formula:
=IFERROR(VLOOKUP(C2,L1:M6,2,FALSE),"-")

Column E: Total with Points is based on sum of Score (B) and Points (D) divided by 5 (highest complexity of table).该列的格式为百分比。

Formula:
=(B2+D2)/5

Column F: Total without Points is based on Score (B) divided by 5 (highest complexity).该列的格式为百分比。

Formula:
=B2/5

上述所有公式均应用于各个列。现在，由于应用于 F 列的公式，我得到了单元格 F4 的 100.00%。请参见图 1。

如何为此列设置公式，如果其左侧单元格有错误值，它也会显示错误值，但仍会为使用 (=B2/5) 的所有其他单元格提供结果。

期望：

图片2

我很感谢你的帮助。

我正在研究 VBA 代码以从 Sharepoint 列表中获取数据，并直接从我的 Excel 文件中更新它。

我的代码确实可以运行，如下所示：

Option Explicit


Dim HomeSh As Worksheet


Sub ImportList()

    Set HomeSh = Sheets("Feuil2")
    
    Dim SpSite As String
    SpSite = "https://mybestwebsiste"
    
    Dim Guid As String
    Guid = "{51748b98}"
    
    On Error Resume Next
    HomeSh.ListObjects(1).Unlist
    On Error GoTo 0
    
    HomeSh.Range("A1:X10000").Clear
    
    Dim SiteSrc(0 To 1) As Variant
    
    SiteSrc(0) = SpSite & "/_vti_bin"
    SiteSrc(1) = Guid
    
    HomeSh.ListObjects.Add xlSrcExternal, SiteSrc, True, xlYes, HomeSh.Range("A1")
    
    Set HomeSh = Nothing
    
End Sub


Sub UpdateSPList()

    Dim theList As Object
    
    Set HomeSh = Sheets("Feuil2")
    Set theList = HomeSh.ListObjects(1)
    
    theList.UpdateChanges xlListConflictDialog
    
    Set theList = Nothing
    
End Sub

当我检查将其集成到另一个文件/宏中时，有些事情不太好：编辑器没有等待连接更新就继续运行。问题是：我需要更新这些数据才能顺利执行我的代码。

我在网上查看了一些等待连接更新的代码示例，但没有找到正确的解决方案。以下是我尝试的方法：

• 1：

  应用程序.CalculateUntilAsyncQueriesDone

-2：

HomeSh.ListObjects.Add xlSrcExternal, SiteSrc, True, xlYes, HomeSh.Range("A1")
DoEvents

是不是那些线条给我带来了一些问题？

Application.DisplayAlerts = False
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

我看到这样的表达式应该有帮助，但不知道如何将其集成到我的代码中。

While http.readyState <> 4
DoEvents

感谢您的帮助 ！

以下是 IsPictureInCell 和 CopyCellPictureToClipboard vba 函数。如果您能对这两个函数提出修改建议，让它们能够正确地处理锁定在单元格中的图片，我将不胜感激。

' Checks if a picture exists in the specified cell
Function IsPictureInCell(Cell As Range) As Boolean
    Dim shp As Shape, shpRange As Range
    For Each shp In Cell.Parent.Shapes
        Set shpRange = Cell.Parent.Range(shp.TopLeftCell, shp.BottomRightCell)
        If Not Intersect(shpRange, Cell) Is Nothing Then
            IsPictureInCell = True
            Exit Function
        End If
    Next
End Function
' Copies pic to clipboard if the Cell contains a picture
Function CopyCellPictureToClipboard(Cell As Range) As Boolean
    On Error Resume Next
    Dim shp As Shape
    For Each shp In Cell.Parent.Shapes
        If Not Intersect(shp.TopLeftCell, Cell) Is Nothing Then
            shp.Copy
            CopyCellPictureToClipboard = True
            Exit Function
        End If
    Next
    CopyCellPictureToClipboard = False
End Function

我正在开发一个到期控件，该控件应向人们发送文档即将到期的通知，有些文档应在到期日前 180 天收取费用，而其他文档只需 30 天，这个想法是，这个 VBA 不是通过几封电子邮件发送 1200 份文档，而是向人们发送过期文档的列表，例如：对于分析师 Valeria，我们必须发送超过 100 份过期文档的集合，但不是发送 100 封电子邮件，而是创建一个列表并将其发送到一封电子邮件中，并保留其管理副本。以下是电子表格的代码和照片：

我编写了此代码，但它不能满足我的实际需要：

    Sub alerta_email()

Dim MeuOutlook As Outlook.Application
Dim CriarEmail As Outlook.MailItem

Range("E14").Activate

Do Until ActiveCell.Value = ""

If ActiveCell.Offset(0, 1).Value < Range ("F14").Value or ActiveCell.Offset(0, 1).Value < Range ("F15").Value Then

Set MeuOutlook = New Outlook.Application
Set CriarEmail = MeuOutlook.CreateItem(olMailItem)

With CriarEmail
     .BodyFormat = olFormatHTML
     .Display
     .HTMLBody = "Automatic alert" & "<br>" & "The document: " _
     & ActiveCell.Offset(0,2).Value & " Belonging to the group " _
     & ActiveCell.Offset(0, -3).Value & " It will expire in " _
     & ActiveCell.Offset(0, 1).Value & " days."
     .To = Range("N14").Value
     .CC = Range ("O14").Value
     .Subject = "Contract expiration alert: " & 
      ActiveCell.Offset(0, -2).Value
     .Send
End With

End If

ActiveCell.Offset(1, 0).Select

Loop

MsgBox ("Alert sent successfully")

End Sub

当我运行宏时，它还会考虑未过期的文档。她考虑将整个列表仅发送给 Ana 和她的经理，而不是考虑另一位分析师和这位分析师的另一位经理。

工作簿] 1 工作簿 2 ] 2

在写下我的问题之前，我试图找到答案，但没有成功。

我需要检查某个 Excel 文件的所有工作表中的单元格（假设为 C1）是否为空（没有值），并且我希望看到带有工作表名称的消息框，其中 C1 不为空。

原因是，我有一个包含许多表格的文件，现在我需要添加一些链接，但不是每个列表都有相同的“形式”，而且有一些列表我不需要，所以我需要先检查这两件事。

到目前为止，我有这段代码，但有些不对劲，因为我总是看到带有文本的消息框：单元格 C1 在所有工作表中都是空的。即使我在 C1 中有一些值（因为测试这段代码，我将它们添加到 3 个工作表中）。

Sub CheckCellC1()
    Dim ws As Worksheet
    Dim nonEmptyCell As String
    nonEmptyCell = ""
    
    ' Browse all sheets in the current workbook
    For Each ws In ThisWorkbook.Worksheets
        ' Check if cell C1 is empty
        If ws.Range("C1").Value <> "" Then
            nonEmptyCell = nonEmptyCell & ws.Name
        End If
    Next ws
    
    ' Result
    If nonEmptyCell = "" Then
        MsgBox "Cell C1 is empty in all sheets."
    Else
        MsgBox "Cell C1 isn't empty in those sheets:" & nonEmptyCell
    End If
End Sub

我错过了什么？

提前感谢您的帮助。

更新：我从 PERSONAL.xlsb 文件运行我的代码，在“测试”期间我只打开了一个 excel 文件。

我的代码唯一的问题是使用ThisWorkbook而不是。在行尾ActiveWorkbook添加有助于消息框输入，现在更容易阅读了。& vbLfnonEmptySheets = nonEmptySheets & ws.Name & vbLf

我是 VBA 新手，总是会犯这样的错误（我有点不明白代码所在的“位置”之间的区别以及它如何影响代码本身，但那是另一个话题），所以非常感谢大家帮助我。

我在 Excel 中有一个名为 TMarks 的表格。

它包含一个名为 AdjustedMark 的列，其中包含 0 到 100 之间的值。

有时此表中的数据可能会被过滤。我想计算大于零的行数AdjustedMark，忽略隐藏的行。我创建了以下公式：

=AGGREGATE(3, 7, TMarks[AdjustedMark]/(TMarks[AdjustedMark]<>0))

但是，这个公式返回了一个#Value错误，我不明白为什么。我也尝试过这个作为替代方案：

=AGGREGATE(9, 5, (TMarks[AdjustedMark]>0)*1)

但这也回归#VALUE!

AdjustedMark表格列中的所有行都是数字。

我正在尝试通过编写一些 VBA 代码来帮助我的高尔夫联盟自动化他们的每周日程表电子表格操作。该过程涉及录制宏以模仿他们的过程。当尝试对部分列选择进行排序时，排序会将选择上方的行（第 6 行中的标题行）拉入排序。我尝试了所有方法并阅读了许多关于此问题的文章，但对我来说毫无意义，我似乎无法修复它。有人能帮帮我吗？请参阅下面的屏幕截图，了解发生了什么以及我尝试修复它的方法。

问题截图

我是 VBA 的初学者，没有任何编码背景，正在尝试制作一种库存应用程序。我遇到了困难，尝试了在互联网上找到的许多代码片段，但都无济于事。

我正在尝试将股票价值（在stock_sheet上）与在distribution_sheet ** Tr或En列中输入的单元格值进行比较，如果 dist 值更大，则告诉用户输入小于或等于股票价值的值。

例如：

如果用户在 distribution_sheet 的单元格F5、H5、J5、...、BN5中输入值（即第 5 行），VBA 应在循环遍历出版物名称（从 E5 到最后一行）时根据stock_sheet!F5检查该值

如果用户在 distribution_sheet 的单元格G5、I5、K5、...、BO5中输入值（即第 5 行），VBA 应在循环出版物名称（E5 到 LastRow）时根据stock_sheet！G5检查该值

截图-1 ->这是带有库存价值的库存表**其中行号可能有所不同**

截图-2 ->以下代码在此工作表上运行

截图-3 ->我的代码在带有语言选项（Tr、En）的本表中不起作用

任何帮助都将不胜感激。

此致。

这是我目前的代码

    Private Sub Worksheet_Change(ByVal Target As Range)
    Dim cell As Range
        Application.EnableEvents = False
        For Each cell In Target
            For i = 13 To 31
                If Not Application.Intersect(cell, Range("F" & (i) & ":BO" & (i))) Is Nothing Then
                    If Not IsNumeric(cell.Value) Or (cell.Value) > Worksheets("stock_sheet").Range("F" & (i)).Value Then
                        MsgBox Worksheets("stock_sheet").Range("E" & (i)).Value & vbCrLf & " please enter a number between 1 and " & Worksheets("stock_sheet").Range("F" & (i)).Value & _
                        " for this publication!", vbCritical, "ERROR"
                        cell.Value = vbNullString
                        cell.Select
                    End If
                End If
            Next i
        Next cell
        Application.EnableEvents = True
    End Sub