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

我有一个脚本，在列A中寻找角蛋白值，并在第1行中找到不同的值。Excel VBA - 如何从2个相交范围创建单元格范围？

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

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

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

来源

2014-02-24 Petay87

昌工作表（“ActionPlan”）。范围（DayRng.Column＆“”＆ActionCell.Row）'到'工作表（“ActionPlan”）。单元格（ActionCell.Row，DayRng.Column）' –

完美的工作。但是，我从下面使用了答案，因此已经接受了该答案。 – Petay87

如果DayRng = E1和ActionCell = A4那么我需要被放入一个新的价值E4

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

来源

2014-02-24 13:47:14

哦，你打败了我！对不起，我下面的答案是这个的完全重复。 – LondonRob

完美！我现在是怎么发现的？ – Petay87

试试这个：

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

来源

2014-02-24 13:47:42 LondonRob

+ 1现在它工作得很好:) –

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

回答

相关问题