สอบถามเรื่องการสร้างเงื่อนไขพื้นที่ว่างหน่อยค่ะ

[tantanz]

ถามเรื่องการสร้างเงื่อนไขการใช้ if หน่อยค่ะ
คือเขียน code แล้ว แต่เงื่อนไขยังรันไม่ได้

ต้องการให้โปรแกรม เวลาเลือกพื้นที่ส่วนที่เป็นเซลล์ว่างแล้วโปรแกรมจะให้ทำการเลือกใหม่อีกครั้งค่ะ

[snasui]

ลองปรับ Code เป็นตามด้านล่างครับ

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
    Do
        Set Range1 = Application.InputBox(Prompt:="เครื่องที่1", _
        Title:="Please select range", Default:=Selection.Address, Type:=8)
        r1addr = Range1.Address
        If r1addr = "" Then
            MsgBox "กรุณาเลือกพื้นที่เครื่องจักรที่ 1 อีกครั้งค่ะ"
        End If
    Loop While Range(r1addr).Range("A1") = ""
    Do
        Set Range2 = Application.InputBox(Prompt:="เครื่องที่2", _
        Title:="Please select range", Default:=Selection.Address, Type:=8)
        r2addr = Range2.Address
        If r2addr = "" Then
            MsgBox "กรุณาเลือกพื้นที่เครื่องจักรที่ 2 อีกครั้งค่ะ"
        End If
    Loop While Range(r2addr).Range("A1") = ""
    Range1.Cut Range("N1")
    Range2.Cut Range(r1addr)
    Range1.Cut Range(r2addr)
    MsgBox "เรียบร้อย"
    MsgBox Worksheets("sheet1").Range("G57").Value
End Sub

[tantanz]

จะลองนำไปปรับใช้ค่ะ ขอบคุณอาจารย์มากๆ ^^