Snasui Excel Forum

bank9597 wrote:เงื่อนไขคืออะไรครับ ลองยกตัวอย่างคำตอบมาให้ดูหน่อยครับ

bank9597 wrote: ที่ G2 คีย์ =IFERROR(D2*E2,"") แล้วคัดลอกสูตรลงมาครับ

Public Sub qvww()
[Table].SpecialCells(xlCellTypeBlanks).Select
    For Each m In Selection
        If m.Column = 7 Then
            m.Value = "=calc_qvww"
            m.Value = m.Value
        End If
    Next
End Sub

snasui wrote: ตัวอย่าง Code ตามด้านล่างครับ

Code: Select all

Public Sub qvww()
   On Error Resume Next
   Set rall = Range("g:g").SpecialCells(xlCellTypeBlanks)
   If Err <> 0 Then Exit Sub
    For Each Z In rall
        Z.Value = Z.Offset(0, -3) * Z.Offset(0, -2)
    Next Z
End Sub

snasui wrote: สองบรรทัดในตัวอย่างมีความแตกต่างกันอย่างไรหรือต้องพิจารณาอะไรจึงใช้สูตรไม่เหมือนกันครับ

Public Sub dbod()
 On Error Resume Next
   Set rall = Range("i:i").SpecialCells(xlCellTypeBlanks)
   If Err <> 0 Then Exit Sub
    For Each q In rall
        q.Value = Z.Offset(0, -2) * q.Offset(0, -1) / 1000
    Next q
End Sub

snasui wrote: Code ที่เขียนมาได้ผลลัพธ์ไม่ตรงกับที่ต้องการอย่างไรครับ

snasui wrote: จาก Statement นี้ q.Value = Z.Offset(0, -2) * q.Offset(0, -1) / 1000 ไม่ทราบว่า Z.Offset(0, -2) นั้นเป็นการลืมแก้หรืออ้างอิงมาใช้จากไหนครับ

snasui wrote: บรรทัดแรกเป็นการกำหนดค่าให้กับ rall โดยให้เป็นเซลล์ทั้งหมดที่เป็นค่าว่างในคอลัมน์ I

บรรทัดที่สองเป็นการตรวจสอบว่าหากเกิด Err ก็ให้ออกจาก Sub Procedure