Snasui Excel Forum

Public Sub m()
Dim a As Single, b As Single, c As Single, i As Single, j As Single


For i = 1 To 7
For j = 1 To 18
a = Worksheets("sheet1").Cells(j, 0 + i).Value
b = Worksheets("sheet1").Cells(j, 1 + i).Value
c = Worksheets("sheet1").Cells(j, 2 + i).Value <- ปัญหาถ้าใส่เลข 2 จะเกิดปัญหาครับ แต่ ก่อนหน้านี้ไม่มีปัญหาครับแก้ไปมาเกิดปัญหาแต่ผมก็งงครับปัญหามันแปลกๆ(มือใหม่) ขอบคุณมากครับ


If a > b And b > c Then
Worksheets("sheet1").Cells(j, 8 + i).Value = ("1")
Else
Worksheets("sheet1").Cells(j, 8 + i).Value = ("2a")
End If
Next j
Next i
End Sub

แนบตัวอย่างไฟล์ที่มีปัญหามาดูกัน จะได้ช่วยทดสอบได้ครับ

ขอบคุณอาจารย์มากครับตอนนี้ไม่ แก้ไปแก้มาหายไปเเล้วครับ