Question

我有一个脚本，在A列中查找ceratin值，在第1行中查找不同的值。

我需要为2相交的单元格创建一个新的Range值。这可能吗？如果是这样我该怎么做？

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

Set DayRng = ws.Range("1:1").Find(What:="*", LookAt:=xlWhole, MatchCase:=False, SearchOrder:=xlByColumns, SearchDirection:=xlPrevious)
Set ActionCell = ws.Range("A:A").Find(What:=ActionString, LookAt:=xlWhole, MatchCase:=False, SearchOrder:=xlByRows, SearchDirection:=xlNext)

If DayRng.Value = Date Then

    ' Set New Due Date
    Worksheets("ActionPlan").Range("E" & (ActionCell.Row)).Value = NewDate

    ' Add Updates to Update field
    Worksheets("ActionPlan").Range(DayRng.Column & "" & ActionCell.Row).Value = Me.txtUpDes.Value

Else
"Do something else"

如果从上面的代码中不清楚，我现在需要在单元格中添加一个新值，其中包含DayRng的列字母和ActionCell的行号。

例如，如果DayRng = E1且ActionCell = A4，那么我需要在E4中放入一个新值

Answer 1

如果DayRng = E1且ActionCell = A4，那么我需要在E4中放入一个新值

ThisWorkbook.Worksheets("ActionPlan").Cells(ActionCell.Row, DayRng.Column).Value = "WhatEver"

Answer 2

试试这个：

Worksheets("ActionPlan").Cells(ActionCell.Row, DayRng.Column) _
  = "Hello World"

Excel VBA - 如何从2个相交范围创建单元格范围？

2 个答案: