joseph4tw

function Rack(poolTable, ballRadius) {
    var start = new Point(poolTable.length * 3/4, poolTable.height / 2);

    function rackEm() {
        var ballPositions = [];

        for (var row = 1; row <= 5; row++) {
            
            for (var balls = 1; balls <= row; balls++) {
                ballPositions.push(new Point(start.x * row, 10)); // unfinished...just testing out gist

joseph4tw

Option Explicit

Public Sub Worksheet_Change(ByVal target As Range)
    Debug.Print "Something changed in cell " & target.Address(0, 0)
End Sub

joseph4tw

Option Explicit

Public Sub Worksheet_Change(ByVal target As Range)
    Dim intersection As Range
    Set intersection = Intersect(target, Range("A1:B3"))

    If Not intersection Is Nothing Then
        Debug.Print "Cells that changed: " & target.Address(0, 0), _
            vbTab & "Intersection at " & intersection.Address(0, 0)
    End If

joseph4tw

Option Explicit

Public Sub Worksheet_Change(ByVal target As Range)
    Dim intersection As Range
    Set intersection = Intersect(target, Range("A1:B3"))

    If Not intersection Is Nothing Then
        Dim cell As Range
        
        For Each cell In intersection

joseph4tw

Option Explicit

Public Sub Worksheet_Change(ByVal target As Range)
    Dim intersection As Range
    Set intersection = Intersect(target, Range("A1:B3"))

    If Not intersection Is Nothing Then
        Dim cell As Range
        
        Application.EnableEvents = False

joseph4tw

Sub Macro1()
'
' Macro1 Macro
'

'
    Range("B1").Select
    ActiveCell.FormulaR1C1 = "Hi"
    Range("B1").Select
    Selection.AutoFill Destination:=Range("B1:B11"), Type:=xlFillDefault

joseph4tw

Option Explicit

Public Sub GetCellValue()
    Dim val As String
    val = Range("A2").Value
    Debug.Print val
End Sub

joseph4tw

Option Explicit

Public Sub GetCellValue()
    Dim cell As Range
    Set cell = Range("A2")
    Debug.Print cell.Value
End Sub

joseph4tw

Option Explicit

Public Sub GetCellValue()
    Dim cell As Range
    Set cell = Range("A2:A5")
    Debug.Print cell.Value ' will throw an error "Type Mismatch"
End Sub

joseph4tw

Option Explicit

Public Sub GetCellValue()
    Dim cellRange As Range
    Set cellRange = Range("A2:A5")
    Debug.Print cellRange.cells(1, 1).Value
End Sub