ขอโค้ด VBA เปลี่ยนสี cell ค่ะ...._/\_

[noonudo]

ต้องการให้ cell เปลี่ยนสีตามค่าที่เปลี่ยนแปลงค่ะ
ซึ่งค่าใน cell คือราคาหุ้นที่เปลี่ยนไปเรื่อยๆ
ต้องการให้เปลี่ยนโดยเปรียบเทียบกับค่าที่แล้ว (ในcellเดียวกัน)
ถ้ามากขึ้นให้เป็นสีเขียว ลดลงเป็นสีแดง

ตอนนี้คือทำได้แค่ เซลเดียวค่ะ คือเซลที่ใส่ค่าไว้ ในวงกลมตามรูปข้างล่าง
พอเปลี่ยนเป็นหลายเซล (ในตัวอย่างนี้ต้องการ B2:B5)
มันขึ้น runtime error 13 type mismatch

รบกวนผู้รู้ด้วยนะคะ ขอบคุณมากๆเลยค่ะ
นุ่น

[puriwutpokin]

ปรับโค้ดเป็น เอาโค้ดไปใส่ที่ Sheet1

Code: Select all

Public strOldValue As String
Public Sub Worksheet_SelectionChange(ByVal Target As Range)
    strOldValue = Target.Value
End Sub
Public Sub Worksheet_Change(ByVal Target As Range)
    Dim strNewValue As String
    If Target.Column = 2 Then
        strNewValue = Target.Value
        If strOldValue > strNewValue Then
            Target.Interior.ColorIndex = 3
            Else
          If strOldValue < strNewValue Then
             Target.Interior.ColorIndex = 4
             Else
             Target.Interior.ColorIndex = 0
        End If
    End If
End If
End Sub

[noonudo]

ขอบคุณมากๆๆเลยนะคะ ^___^

[noonudo]

รบกวนขอถามเพิ่มเติมนะคะ ถ้าต้องการจะทำแบบเดิม
คือเปลี่ยนสีเซลตามค่าใหม่ที่เกิดขึ้น เทียบจากค่าที่แล้วในเซลเดียวกัน
แต่ข้อมูลเป็นค่าที่ดึงมาจากโปรแกรมอื่น คือเป็น RTD link
สามารถทำได้มั้ยคะ ถ้าทำได้ สามารถเลือกช่วงข้อมูล/เฉพาะบาง column ได้มั้ยคะ
ลองเอาโค้ดนี้ไปใส่ที่ sheet1 แล้วไม่ได้ค่ะ
ขอบคุณนะคะ _/\_

[snasui]

ในเครื่องผมสูตร RTD เป็น #N/A จึงไม่สามารถช่วยทดสอบและแก้ Code ให้ได้ครับ