Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Get cell value

Sub cellValue()     Dim num1 As Integer     Dim num2 As Integer          num1 = Cells(1, 1).Value     num2 = Cells(1, 2).Value     Dim result As Boolean          result = (num1 <= 10) And (num2 <> 50)     Debug.Print result End Sub