wyatt7613's questions

我正在尝试创建一个数组来存储“工作簿 B”中的 A 列中的所有值，这样我就可以引用并查看单元格的值是否在“工作簿 A”的 A 列中的该数组中。

到目前为止，这就是我对该数组的了解：

Dim StrArray() As String
Dim TotalRows As Long
Dim X As Long

Workbooks.Open Filename:="filepath", ReadOnly:=True

With Workbooks("file").Worksheets("sheet")
    TotalRows = Rows(Rows.Count).End(xlUp).Row
    ReDim StrArray(1 To TotalRows)
    For X = 2 To TotalRows
        StrArray(X) = Cells(X, 1).Value
    Next X
End With

数组的这一部分工作得很好，我通过在 MsgBox 中显示数组中的所有值来确认它工作正常。当我尝试在“工作簿 A”中引用此数组以检查单元格的值是否在该数组中时，问题就出现了。

这就是我对该代码的内容：

For RowCounter = LastRow To 1 Step -1
    If IsInArray(Range("B" & RowCounter).Value, StrArray) Then
        Range("K" & RowCounter).Value = "MATCH"
    End If
Next RowCounter

Workbooks("file").Close SaveChanges:=False

这是我正在使用的功能：

Public Function IsInArray(stringToBeFound As String, arr As Variant) As Boolean
    Dim i
    For i = LBound(arr) To UBound(arr)
        If arr(i) = stringToBeFound Then
            IsInArray = True
            Exit Function
        End If
    Next i
    IsInArray = False

End Function

它没有将“MATCH”值放在 K 列中。我尝试通过在 If 语句中放置 MsgBox 以查看它是否将值与数组匹配来进行故障排除，它给了我一个永无止境的 MsgBox 循环。如果重要的话，当前 K 列中有此代码正在写入的文本。

我有很多变量存储在一个数组中。我正在尝试使用 If Then 语句来查看特定单元格的值是否在该数组中。这是我的代码：

Dim Vars1 As Variant
Vars1 = Array("Stage 2", "Stage 3", "Stage 4", "Stage 5", "Stage 6", "Stage 7", "WIP Cleanup", 
"Road Test", "Test", "Test Cleanup", "In Bay Inspection", "In Bay Clean Up", "PDI", "PDI 
Cleanup", "Verify", "Complete", "Pictures", "Remove", "ECD", "Platform Install", "#N/A")
'Cuts special delivery parts for Line 3
For RowCounter = LastRow To 1 Step -1
    If InStr(1, Range("F" & RowCounter), "underslung", vbTextCompare) Then 'Underslung
        If Range("B" & RowCounter).Value = "FA Line 3" And Range("N" & RowCounter).Value = Vars1 Then
            Rows(RowCounter).EntireRow.Cut _
                Destination:=Sheets("FA3").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
        End If
    End If
Next RowCounter

我认为代码不起作用，因为它没有剪切和粘贴行。如何获取 if then 语句来检查“Range("N" & RowCounter)”中的值是否在数组中？

我有一个 for 循环，它通过 I 列并查找值何时超过某个点。然后它插入一行。我需要编辑这一行。我需要合并其中的一部分并插入文本等等。现在，我的代码只是合并了 E - I 的整个列。如何让它只合并该行？

这就是我现在所拥有的：

For Each cel In Range("I:I")
    If cel.Value >= "15AQ08" And Pick = "Truck" And cel.Row <> 1 Then
        cel.EntireRow.Insert
        Range("E:I").Merge
        Exit For
    End If
Next

我正在尝试在 Word 中使用 Excel 中定义的变量。我使用两个单独的宏，但所有代码都是用 Excel 编写的。我正在尝试从 Excel 控制 Word。

这是我在 Excel 宏中的代码：

Public DJ, Pick, Customer, Line, Model As Variant
Public LineOne, LineThr As Integer
Dim OP As String
Dim LastRow As Long

'Dims variables for pick stickers
Public Subinv, Loc, PN, Req, Desc As String

Public Sub Picklist()

在这个 Sub 中，它继续将 DJ 变量定义为 8 个数字的随机集合（即 94673920），它每次都会改变。然后我试图在不同的子下传递 Word 中的变量。这是代码：

Public Sub PickLabel()

Dim WordApp, WordDoc As Object
    Set WordApp = CreateObject("Word.Application") 'Opens up the Pick Stickers Generator in Word
    Set WordDoc = WordApp.Documents.Add
        WordApp.Visible = True
Dim WordSel
    Set WordSel = WordApp.Selection
    
With WordSel
    .Font.Size = 60
    .Font.Name = "Arial"
    .TypeText ("DJ: " & DJ)
    .ParagraphFormat.Alignment = wdAlignCenter
End With

结束子

它没有像我想要的那样插入 DJ 变量。我究竟做错了什么？

如果该部分的 QOH 小于 5（J 列），我想突出显示 BK 列中的一行单元格。我还希望它仅在零件位于子库存“W1”或“OUTSIDE”（H 列）中时突出显示该行。

这是我到目前为止的代码：

'Highlights row if quantity on hand is 5 or less
Dim LastRow As Long, c As Range
Dim MyRange As Range
    LastRow = Cells(Cells.Rows.Count, "J").End(xlUp).Row
    Set MyRange = Range("J1:J" & LastRow)
With ActiveWorkbook.Worksheets("Sheet1")
    For Each c In MyRange
        If c <= 5 Then
            c.Select
            If ActiveCell.Offset(0, -2).Value = "W1" Or "OUTSIDE" Then 'Checks if part is in a specified subinventory
                Range("B" & ActiveCell.Row & ":K" & ActiveCell.Row).Interior.Color = vbYellow 'Highlists the row from columns B-K if QOH is less than 5
            End If
        End If
    Next
End With

如果 QOH 小于 5，我已经让它突出显示 BK 行。但是，当我尝试仅在子库存为“W1”或“OUTSIDE”时让它突出显示该行时，问题就来了。当我运行宏时，我最终得到错误代码“运行时错误'1004'：应用程序定义的或对象定义的错误。”

每天我都会列出一个清单，它总是不同的。它每天都会有不同数量的行，其中包含不同的值。

我已经对其进行了编码，所以我有我想要的水平边框，但现在我需要垂直（侧 - 左和右）边框。我希望每个包含文本或某种值的单元格中的细边框，在包括第 1 行之后的每一列和每一行中。同样，行和列的数量每天都会变化，所以代码可以考虑到这一点很重要为了那个原因。

Option Explicit
Sub Borders()
    Dim WS As Worksheet
    Dim dataRange As Range
    Dim v As Variant, I As Long

Set WS = ActiveWorkbook.Worksheets("Sheet1")

With WS
    Set dataRange = Range(.Cells(2, 1), Cells(.Rows.Count, 10).End(xlUp))
    Set dataRange = dataRange.Resize(rowsize:=dataRange.Rows.Count + 1)
    With dataRange
        v = .Columns(10)
        For I = 1 To UBound(v) - 1
            If v(I, 1) <> v(I + 1, 1) Then
                With .Rows(I).Borders(xlEdgeBottom)
                    .LineStyle = xlContinuous
                    .Color = vbBlack
                    .Weight = xlMedium
                 End With
            Else
                .Rows(I).Borders(xlEdgeBottom).LineStyle = 1 'Default Border
            End If
        Next I
    End With
End With

'This is where I'd like the code for the vertical borders to go

End Sub

我希望最终产品看起来像这样。

图 1

图 2

我正在尝试检查 J 列中“Line-Side Loc”中文本的文本相似性。如果 J 列中的文本不相同，我希望从 AJ 列应用一个厚底边框来说明差异. 如果文字相同，我希望它是一条细线。图 1 是当前宏结束时的样子。理想情况下，它看起来像图 2。

这是我的代码，我想在其中插入新代码以添加粗线

我不知道如何编写这段代码。任何帮助，将不胜感激。

谢谢！

目前，这就是正在发生的事情。使用下面的代码。