将 LONG 变量引用到工作表中的单元格

Question

How to link a Long variable to a value entered in an excel sheet? I want to create large number of rows and although I am able to change the variable directly in the code (eg x=100000) but as soon as I link the variable x to a cell (eg x = Cells(1,1) no value seems to be recognized and printed to the range.

Answer 1

In order to simulate the cell being linked to the variable, you would have to add some code that gets triggered by something to write it to the cell.

Dim the variable as Public or Global (outside of the routine that sets it), so that other subroutines can "see" its value:

Public x as Long

and then add the code that sets its value to the worksheet in the Worksheet_SelectionChange event or the Worksheet_Change event (depending on how you want it to work):

Cells(1, 1) = x

If you are trying to set the variable automatically, then here's the opposite. Add this to the WorkSheet_Change event:

If Target.Row = 1 and Target.Column = 1 Then 
    x = Cells(Target.Row, Target.Column)
End If

Answer 2

Thanks for taking the time to answer my question. I found the following approach to work best for me.

 Sub test() Dim x As LongLong x = Worksheets("Sheet1").Cells(4, 2) 'eg value is 100.000 range(Cells(1, 1), Cells(x, 1)).Value = "*" 'fill x rows with a * as a test End Sub