Snasui Excel Forum

Code: Select all

Sub SwitchColor()
    Dim Temp1 As Variant
    Dim Temp2 As Variant
    Dim Range1 As Range
    Dim Range2 As Range
    On Error Resume Next
    Set Range1 = Application.InputBox(Prompt:="เลือกเครื่องจักรที่ต้องการสลับเครื่องที่1", _
    Title:="Please select range", Default:=Selection.Address, Type:=8)
    Set Range2 = Application.InputBox(Prompt:="เลือกเครื่องจักรที่ต้องการสลับเครื่องที่2", _
    Title:="Please select range", Default:=Selection.Address, Type:=8)
    
    Temp1 = Range1.Interior.Color
    Range1.Interior.Color = Range2.Interior.Color
    Range2.Interior.Color = Temp1
    
    Temp2 = Range1.Range("A1").Value
    Range1 = Range2.Range("A1").Value
    Range2 = Temp2
    
    MsgBox "ทำการสลับเรียบร้อยแล้ว"
    MsgBox Worksheets("sheet1").Range("G57").Value
End Sub

Code: Select all

Sub SwitchColor()
    Dim Temp1 As Variant
    Dim Temp2 As Variant
    Dim Range1 As Range
    Dim Range2 As Range

    Dim r1addr As String, r2addr As String
    On Error Resume Next
    Set Range1 = Application.InputBox(Prompt:="เลือกเครื่องจักรที่ต้องการสลับเครื่องที่1", _
    Title:="Please select range", Default:=Selection.Address, Type:=8)
    Set Range2 = Application.InputBox(Prompt:="เลือกเครื่องจักรที่ต้องการสลับเครื่องที่2", _
    Title:="Please select range", Default:=Selection.Address, Type:=8)
    r1addr = Range1.Address
    r2addr = Range2.Address
    
    Range1.Cut Range("N1")
    Range2.Cut Range(r1addr)
    Range1.Cut Range(r2addr)
    
    Temp1 = Range1.Interior.Color
    Range1.Interior.Color = Range2.Interior.Color
    Range2.Interior.Color = Temp1
    
    MsgBox "ทำการสลับเรียบร้อยแล้ว"
    MsgBox Worksheets("sheet1").Range("G57").Value
End Sub