excel - 使用VBA代码在excel中查找循环链接-6ren

excel - 使用VBA代码在excel中查找循环链接

转载作者：行者123 更新时间：2023-12-04 22:24:53

我有一张如下表。这表示 Name 中的值之间的链接(或边)。柱子。

+-------+-------------------+
| Name  | from              |
+-------+-------------------+
| G     | X; Y; HG; WP      |
| X     | U                 |
| Y     |                   |
| U     | V                 |
| V     |                   |
| K     | M; N              |
| M     |                   |
| N     |                   |
| G1    | G                 |
| G2    | G1                |
| G3    | G2                |
| G4a   | G3                |
| J     | G4a               |
| G4b   | G3                |
| G5b   | G4b               |
| H     | G5b               |
| R     | H; J              |
| R1    | R                 |
| R2    | R1                |
| O     | R2                |
| O1    | O                 |
| O2    | O1                |
| O3    | O2                |
| F     | H; K; TR          |
| P     | G; Z              |
| Z     |                   |
| HG    | VB; NH            |
| WP    |                   |
| TR    | Z                 |
| VB    | ICH; OL; NZ; LO   |
| NH    |                   |
| ICH   | NZ                |
| NZ    |                   |
| LO    |                   |
| OL    | TZ; HG            |
| TZ    |                   |
| BN    | WD; PO            |
| WD    | RZ; UX            |
| PO    | QA; IU; BV; MM; BN|
| RZ    |                   |
| UX    |                   |
| IU    |                   |
| QA    |                   |
| BV    |                   |
| MM    |                   |
+-------+-------------------+

我想看看 Name 中的值是否如果我们在 from 中顺序查找值，列作为前辈存在柱子。换句话说，我想看看是否有任何循环链接。

如何使用 VBA 执行此操作excel中的代码？

在此示例中 HG, VB, OL, BN, PO有循环链接。我只想突出显示“名称”列中的那些单元格。

一种方法是在单独的列中查找每一行的所有前辈，如下所示。

+-------+--------------------+-----------------------------------------------------------------------------------------------------------------------------------------------------+
| GName | from               | predecessors                                                                                                                                        |
+-------+--------------------+-----------------------------------------------------------------------------------------------------------------------------------------------------+
| G     | X; Y; HG; WP       | X; U; V; Y; HG; VB; NH; ICH; NZ; LO; OL; TZ; WP                                                                                                     |
| X     | U                  | U; V                                                                                                                                                |
| Y     |                    |                                                                                                                                                     |
| U     | V                  | V                                                                                                                                                   |
| V     |                    |                                                                                                                                                     |
| K     | M; N               | M; N                                                                                                                                                |
| M     |                    |                                                                                                                                                     |
| N     |                    |                                                                                                                                                     |
| G1    | G                  | G; X; Y; HG; WP; U; VB; NH; V; ICH; NZ; LO; OL; TZ                                                                                                  |
| G2    | G1                 | G1; G; X; Y; HG; WP; U; VB; NH; V; ICH; NZ; LO; OL; TZ                                                                                              |
| G3    | G2                 | G2; G1; G; X; Y; HG; WP; U; VB; NH; V; ICH; NZ; LO; OL; TZ                                                                                          |
| G4a   | G3                 | G3; G2; G1; G; X; Y; HG; WP; U; VB; NH; V; ICH; NZ; LO; OL; TZ                                                                                      |
| J     | G4a                | G4a; G3; G2; G1; G; X; Y; HG; WP; U; VB; NH; V; ICH; NZ; LO; OL; TZ                                                                                 |
| G4b   | G3                 | G3; G2; G1; G; X; Y; HG; WP; U; VB; NH; V; ICH; NZ; LO; OL; TZ                                                                                      |
| G5b   | G4b                | G4b; G3; G2; G1; G; X; Y; HG; WP; U; VB; NH; V; ICH; NZ; LO; OL; TZ                                                                                 |
| H     | G5b                | G5b; G4b; G3; G2; G1; G; X; Y; HG; WP; U; VB; NH; V; ICH; NZ; LO; OL; TZ                                                                            |
| R     | H; J               | J; G4a; G3; G2; G1; G; X; Y; HG; WP; U; VB; NH; V; ICH; NZ; LO; OL; TZ; H; G5b; G4b; G3; G2; G1; G; X; Y; HG; WP; U; VB; NH; V; ICH; NZ; LO; OL; TZ |
| R1    | R                  | R; J; H; G4a; G5b; G3; G4b; G2; G1; G; X; Y; HG; WP; U; VB; NH; V; ICH; NZ; LO; OL; TZ                                                              |
| R2    | R1                 | R1; R; J; H; G4a; G5b; G3; G4b; G2; G1; G; X; Y; HG; WP; U; VB; NH; V; ICH; NZ; LO; OL; TZ                                                          |
| O     | R2                 | R2; R1; R; J; H; G4a; G5b; G3; G4b; G2; G1; G; X; Y; HG; WP; U; VB; NH; V; ICH; NZ; LO; OL; TZ                                                      |
| O1    | O                  | O; R2; R1; R; J; H; G4a; G5b; G3; G4b; G2; G1; G; X; Y; HG; WP; U; VB; NH; V; ICH; NZ; LO; OL; TZ                                                   |
| O2    | O1                 | O1; O; R2; R1; R; J; H; G4a; G5b; G3; G4b; G2; G1; G; X; Y; HG; WP; U; VB; NH; V; ICH; NZ; LO; OL; TZ                                               |
| O3    | O2                 | O2; O1; O; R2; R1; R; J; H; G4a; G5b; G3; G4b; G2; G1; G; X; Y; HG; WP; U; VB; NH; V; ICH; NZ; LO; OL; TZ                                           |
| F     | H; KTR             | K; M; N; H; G5b; G4b; G3; G2; G1; G; X; Y; HG; WP; U; VB; NH; V; ICH; NZ; LO; OL; TZ; TR; Z                                                         |
| P     | G; Z               | G; X; Y; HG; WP; U; VB; NH; V; ICH; NZ; LO; OL; TZ; Z                                                                                               |
| Z     |                    |                                                                                                                                                     |
| HG    | VB; NH             | VB; ICH; NZ; LO; OL; HG; TZ; NH; NH                                                                                                                 |
| WP    |                    |                                                                                                                                                     |
| TR    | Z                  | Z                                                                                                                                                   |
| VB    | ICH; OL; NZ; LO    | ICH; NZ; NZ; LO; OL; HG; TZ; VB; NH; ICH; NZ; LO                                                                                                    |
| NH    |                    |                                                                                                                                                     |
| ICH   | NZ                 | NZ                                                                                                                                                  |
| NZ    |                    |                                                                                                                                                     |
| LO    |                    |                                                                                                                                                     |
| OL    | TZ; HG             | HG; VB; NH; ICH; NZ; LO; OL; TZ; TZ                                                                                                                 |
| TZ    |                    |                                                                                                                                                     |
| BN    | WD; PO             | WD; RZ; UX; PO; BN; IU; QA; BV; MM; WD; RZ; UX                                                                                                      |
| WD    | RZ; UX             | RZ; UX                                                                                                                                              |
| PO    | QA; IU; BV; MM; BN | BN; WD; PO; RZ; UX; IU; QA; BV; MM; IU; QA; BV; MM                                                                                                  |
| RZ    |                    |                                                                                                                                                     |
| UX    |                    |                                                                                                                                                     |
| IU    |                    |                                                                                                                                                     |
| QA    |                    |                                                                                                                                                     |
| BV    |                    |                                                                                                                                                     |
| MM    |                    |                                                                                                                                                     |
+-------+--------------------+-----------------------------------------------------------------------------------------------------------------------------------------------------+

现在搜索 Name 中的值 predecessors 中相应单元格中的列列将给出所需的结果。

如何使用 VBA 实现此目的excel中的代码？

编辑据我了解，这是一个网络问题。为了更清楚，这里是网络图。

编辑2 这是我在 建议的方向上的尝试(这里是 VBA 菜鸟) @GSerg .卡在获取前辈的位置。获取 Argument not optional错误。

Public Function NetworkCyclicityCheck(node As String, col As Range) As String

Dim dicP As Object: Set dicP = CreateObject("Scripting.Dictionary")

If Trim(node) <> "" Then
        For Each x In Split(cl.Value2, ";")
            Key = Trim(x)
            With Range
            pcell = .Find(What:=Key, LookAt:=xlWhole, MatchCase:=False)
            dicP(pcell) = dicP(pcell) & "," & cl.Address(0, 0)
        Next x
End If

Set NetworkCyclicityCheck = dicP
Set dicP = Nothing

End Function

最佳答案

这对某些人来说可能看起来很奇怪，但这个问题真的让我很感兴趣，因为我以前从未遇到过需要编写递归代码的情况。

不确定它的效率如何，但它在我有限的测试中立即起作用。将其放入一个新模块中，它应该可以正常运行。

Option Explicit

Private DestinationByLocation As Object

Sub Test()

  HighlightTheCycles Sheets("Sheet1").Range("A2:B46"), , True, True

End Sub

Public Sub HighlightTheCycles(ByVal TableRange As Range, Optional ClearExistingFill As Boolean = True, Optional OutputTheLoopPath As Boolean = False, Optional AlertIfNoCycles As Boolean = False)

  Dim InputData As Variant, OutputRange As Range
  Dim x As Long, y As Long, Temp As Variant

  Dim LoopLocations As Object
  Set DestinationByLocation = CreateObject("Scripting.Dictionary")
  Set LoopLocations = CreateObject("Scripting.Dictionary")
  DestinationByLocation.CompareMode = 1
  LoopLocations.CompareMode = 1

'Set fill to 'no-fill'
  If ClearExistingFill Then
    If OutputTheLoopPath Then
      TableRange.Resize(TableRange.Rows.Count, 3).Interior.Pattern = xlNone
    Else
      TableRange.Interior.Pattern = xlNone
    End If
  End If

'Establish all possible destinations
  InputData = TableRange.Value
  For x = 1 To UBound(InputData, 1)
    If Len(InputData(x, 2)) > 0 Then
      Temp = Split(InputData(x, 2), ";")
      For y = 0 To UBound(Temp, 1)
        Temp(y) = Trim(Temp(y))
        If DestinationByLocation.Exists(Temp(y)) Then
          DestinationByLocation(Temp(y)) = DestinationByLocation(Temp(y)) & ";" & InputData(x, 1)
        Else
          DestinationByLocation.Add Temp(y), InputData(x, 1)
        End If
      Next y
    End If
  Next x

'Look for loops
  Dim TempPath As Variant
  Temp = DestinationByLocation.Keys
  For x = 1 To UBound(Temp, 1)
    TempPath = TakeATrip(Temp(x))
    If Right(TempPath, 3) = ";;;" Then
      TempPath = Split(Left(TempPath, Len(TempPath) - 3), ";")
      If TempPath(UBound(TempPath, 1)) = Temp(x) Then
        LoopLocations.Add Temp(x), TempPath
      End If
    End If
  Next x

'Mark the cells that result in a loop
  If LoopLocations.Count > 0 Then
    If OutputTheLoopPath Then

      'Output the loop path found in a third column
      ReDim Temp(1 To UBound(InputData, 1), 1 To 1)
      For x = 1 To UBound(InputData, 1)
        If LoopLocations.Exists(InputData(x, 1)) Then
          If OutputRange Is Nothing Then
            Set OutputRange = TableRange.Cells(x, 1).Resize(1, 3)
          Else
            Set OutputRange = Union(OutputRange, TableRange.Cells(x, 1).Resize(1, 3))
          End If
          Temp(x, 1) = Join(LoopLocations(InputData(x, 1)), ";")
          Temp(x, 1) = Replace(Right(Temp(x, 1), Len(Temp(x, 1)) - 1), ";", " ;")
        End If
      Next x
      TableRange.Cells(1, 1).Offset(0, 2).Resize(UBound(Temp, 1), 1).Value = Temp

    Else

      'Do not output a third column
      For x = 1 To UBound(InputData, 1)
        If LoopLocations.Exists(InputData(x, 1)) Then
          If OutputRange Is Nothing Then
            Set OutputRange = TableRange.Cells(x, 1).Resize(1, 2)
          Else
            Set OutputRange = Union(OutputRange, TableRange.Cells(x, 1).Resize(1, 2))
          End If
        End If
      Next x

    End If

    OutputRange.Interior.Color = RGB(255, 0, 0)

  ElseIf AlertIfNoCycles Then

    MsgBox _
      "No cycles found in " & TableRange.Address(0, 0, , True), _
      vbInformation

  End If

End Sub

Private Function TakeATrip(ByVal MyLocation As Variant, Optional ExistingPath As Variant = "") As Variant

  Dim MyJourneys As Variant, x As Long
  Dim MyPaths As Variant

'If no new destinations, record the trip
  If DestinationByLocation.Exists(MyLocation) Then
    If DestinationByLocation(MyLocation) = "" Then
      TakeATrip = ExistingPath & ";" & MyLocation
      Exit Function
    End If
  Else
    TakeATrip = ExistingPath & ";" & MyLocation
    Exit Function
  End If

'Prepare for multiple routes
  MyJourneys = Split(DestinationByLocation(MyLocation), ";")
  ReDim MyPaths(0 To UBound(MyJourneys))

  For x = 0 To UBound(MyJourneys)
    If Len(MyJourneys(x)) > 0 Then
      If ExistingPath & ";" & MyLocation Like "*;" & MyJourneys(x) & ";*" Then
        TakeATrip = ExistingPath & ";" & MyLocation & ";" & MyJourneys(x) & ";;;"
        Exit Function 'a loop is found, we're done
      End If
      'explore new found path
      MyPaths(x) = TakeATrip(MyJourneys(x), ExistingPath & ";" & MyLocation)
    End If
    If Right(MyPaths(x), 3) = ";;;" Then
      TakeATrip = MyPaths(x)
      Exit Function
    End If
  Next x

  TakeATrip = Join(MyPaths, "|")

End Function

请注意 字典默认区分大小写。如果您需要此代码忽略大小写，请添加到顶部的声明中:

option compare text

并改变这个

  Set DestinationByLocation = CreateObject("Scripting.Dictionary")
  Set LoopLocations = CreateObject("Scripting.Dictionary")

对此

  Set DestinationByLocation = CreateObject("Scripting.Dictionary")
  Set LoopLocations = CreateObject("Scripting.Dictionary")
  DestinationByLocation.CompareMode = 1
  LoopLocations.CompareMode = 1

感谢 Crops 在未找到循环时识别错误；我更正了代码以包括检查无循环和可选的消息框输出。

关于excel - 使用VBA代码在excel中查找循环链接，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/58820806/

文章推荐： excel - 为什么这段代码会导致无限循环

文章推荐： excel - 仅复制行的选定范围

文章推荐： excel - VBA:如何循环搜索 7 天(日复一日)的日期？

php - for 循环 vs while 循环 vs foreach 循环 PHP
我是 PHP 新手。我一直在脚本中使用 for 循环、while 循环、foreach 循环。我想知道哪个性能更好？选择循环的标准是什么？当我们在另一个循环中循环时应该使用哪个？我一直想知道要
java - 编写 for 循环/while 循环？
我在高中的编程课上，我的作业是制作一个基本的小计和顶级计算器，但我在一家餐馆工作，所以制作一个只能让你在一种食物中读到。因此，我尝试让它能够接收多种食品并将它们添加到一个价格变量中。抱歉，如果某些代码
javascript - 为成分编写 while 循环/for 循环。
这是我正在学习的一本教科书。 var ingredients = ["eggs", "milk", "flour", "sugar", "baking soda", "baking powder",
Javascript 添加前导零适用于 while 循环，但不适用于 for 循环
我正在从字符串中提取数字并将其传递给函数。我想给它加 1，然后返回字符串，同时保留前导零。我可以使用 while 循环来完成此操作，但不能使用 for 循环。 for 循环只是跳过零。 var add
java - 程序适用于 for 循环，但不适用于 while 循环？
编辑:我已经在程序的输出中进行了编辑。该程序要求估计给定值 mu。用户给出一个值 mu，同时还提供了四个不等于 1 的不同数字(称为 w、x、y、z)。然后，程序尝试使用 de Jaeger 公式找
Java For 循环 vs While 循环，奇怪的行为和时间性能
我正在编写一个算法，该算法对一个整数数组从末尾到开头执行一个大循环，其中包含一个 if 条件。第一次条件为假时，循环可以终止。因此，对于 for 循环，如果条件为假，它会继续迭代并进行简单的变量更改
java - While 循环 vs For 循环，哪个更节省内存!
现在我已经习惯了在内存非常有限的情况下进行编程，但我没有答案的一个问题是:哪个内存效率更高；- for(;;) 或 while() ？还是它们可以平等互换？如果有的话，还要对效率问题发表评论! 最佳答
java - 一个 while 循环，其中包含一个 if 语句和一个 for 循环
这个问题已经有答案了: How do I compare strings in Java? (23 个回答) 已关闭 8 年前。我正在尝试创建一个小程序，我可以在其中读取该程序的单词。如果单词有 6
python - 弹出索引超出范围 - 作业(列表，for 循环，while 循环)
这个问题在这里已经有了答案: python : list index out of range error while iteratively popping elements (12 个答案) 关
java - JOptionPane.showInputDialog 循环(使用 do while 循环)
我正在尝试向用户请求 4 到 10 之间的整数。如果他们回答超出该范围，它将进入循环。当用户第一次正确输入数字时，它不会中断并继续执行 else 语句。如果用户在 else 语句中正确输入数字，它将正
php - 嵌套的 foreach 循环，break inside 循环
我尝试创建一个带有嵌套 foreach 循环的列表。第一个循环是循环一些数字，第二个循环是循环日期。我想给一个日期写一个数字。所以还有另一个功能来检查它。但结果是数字多次写入日期。 Out 是这样的:
java - 在 while 循环(或 for 循环)内创建一个数组，然后在外部使用该数组
我想要做的事情是使用循环创建一个数组，然后在另一个类中调用该数组，这不会做，也可能永远不会做。解决这个问题最好的方法是什么？我已经寻找了所有解决方案，但它们无法编译。感谢您的帮助。 import ja
php - 嵌套的 foreach 循环，break inside 循环
我尝试创建一个带有嵌套 foreach 循环的列表。第一个循环是循环一些数字，第二个循环是循环日期。我想给一个日期写一个数字。所以还有另一个功能来检查它。但结果是数字多次写入日期。 Out 是这样的:
c - 如何将 'convert' 两个(for 循环)转为一个(while 循环)？
我正在模拟一家快餐店三个多小时。这三个小时分为 18 个间隔，每个间隔 600 秒。每个间隔都会输出有关这 600 秒内发生的情况的统计信息。我原来的结构是这样的: int i; for (i=0;
javascript - ie javascript for in 循环 vs chrome for in 循环
这个问题已经有答案了: IE8 for...in enumerator (3 个回答) How do I check if an object has a specific property in J
java - 编程语言中的 for 循环 VS while 循环，c++/java？
哪个对性能更好？这可能与其他编程语言不一致，所以如果它们不同，或者如果你能用你对特定语言的知识回答我的问题，请解释。我将使用 c++ 作为示例，但我想知道它在 java、c 或任何其他主流语言中的工
c++ - C++11 段错误中基于范围的 for 循环，但不是常规 for 循环
这个问题不太可能帮助任何 future 的访问者；它只与一个小的地理区域、一个特定的时间点或一个非常狭窄的情况有关，这些情况并不普遍适用于互联网的全局受众。为了帮助使这个问题更广泛地适用，visit
c - while 循环(和 for 循环)上的 scanf 错误，永远扫描
我是 C 编程和编写代码的新手，以确定 M 测试用例的质因数分解。如果我一次只扫描一次，该功能本身就可以工作，但是当我尝试执行 M 次时却惨遭失败。我不知道为什么 scanf() 循环有问题。 in
javascript - 进行修改时应出现 'for-of' 循环，而不是 'for' 循环
这个问题已经有答案了: JavaScript by reference vs. by value [duplicate] (4 个回答) 已关闭 3 年前。我在使用 TSlint 时遇到问题，并且理
javascript - 为 Charts.js 添加 for 循环/foreach 循环
我尝试在下面的代码中添加 foreach 或 for 循环，以便为 Charts.js 创建多个数据集。这将允许我在此折线图上创建多条线。我有一个 PHP 对象，我可以对其进行编码以稍后填充变量，但

行者123

个人简介

我是一名优秀的程序员,十分优秀！

作者热门文章

滴滴打车优惠券免费领取

全站热门文章

首页

博学

6Ren·AI

商城

excel - 使用VBA代码在excel中查找循环链接