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個相交範圍創建單元格範圍？

回答

相關問題