将存储在Excel单元格中的文本转换为VBA中的公式

Question

I'm not sure if something like this is possible I've been told by co-workers that it can't because of the nature of strings versus formulas. I would like to take the string:

'"=" & ValRange.offset(0,0).address

With a range declared in my VBA routine and convert is to a formula. In my routine I have the following code:

Sub GetRange()
Dim strSource As String
Dim HomeRange As Range
Dim ValRange As Range

Set ValRange = Range("k1")
Set HomeRange = Range("e6")

strSouce = HomeRange.Value
strSource = Replace(strSource, """", "")
Range("e7") = strSource

End Sub

As you can see I've tried stripping characters but it does not seem to work (I understand as the code currently is that it would strip all quotes but just wanted to use as example. Any thoughts on converting this to a formula is appreciated. Matt

Answer 1

Let's say you ValRange is defined as cell A1. In cell A2, you have your row offset value (say 0), and in cell A3 you have your column offset value (say 2). In cell A4, enter =ADDRESS(ROW(OFFSET(A1,A2,A3)), COLUMN(OFFSET(A1,A2,A3))) You'll get $C$1 in cell A4 as your value.

So, the 2 offsets give you a cell that is the appropriate offset you want. Then you take the row, and column of that cell and send it to the address function to get your address.

To convert that address back to the value in the offset cell, use =INDIRECT(A4) . This will give you the value of whatever is in cell C1.

Of course, you can just take these functions and call them from VB code if you'd prefer.