VBA IF OR หลาย Condition

[a6block5]

สวัสดีครับทุกท่าน ผมกำลังฝึกเขียน VBA แต่พยายามเขียนแล้วมันยากกว่า Excel ธรรมดาเยอะมาก อยากขอคำชี้แนะจากพี่ๆทุกท่านในนี้หน่อยครับ

สูตรปกติใน excel

ค่า steelWt แสดงใน column L

Excel:

Code: Select all

IF(OR(D9="Pfizer",D9="Modena",D9="Sputnik-v",D9="Aztrazenegra"),PI()*7850*(E9/1000+2*G9/1000)*G9/1000*F9/1000*J9," #N/A") 

ปัญหาคือ ผมต้องการเขียน VBA , IF OR เหมือน excel ปกติ แต่ผมเขียนแล้วมันขึ้น Error ครับ ไม่แน่ใจจะเขียนยังไงให้มันเช็ค column D ว่าเป็นอะไร จากนั้นก็คำนวณให้ครับ

VBA:

Code: Select all

 Sub SteelWt_Calc()



    If Range("d8") = "Pfizer" or "Modena" or "Sputnik-v or "Sinovac" Then
    
    Range("l8").Value = WorksheetFunction.Pi * (Range("e8").Value / 1000 + 2 * Range("g8").Value / 1000) * (Range("g8").Value / 1000) * 7850 * (Range("f8").Value / 1000) * Range("j8").Value
    
    Else
    Range("l8").Value = WorksheetFunction.Pi * 1
    
      
    End If
End Sub 

[puriwutpokin]

ปรับส่วนนี้ครับ

Code: Select all

If Range("d8") = "Pfizer" Or Range("d8") = "Modena" Or Range("d8") = "Sputnik-v" Or Range("d8") = "Sinovac" Then

[a6block5]

ปรับส่วนนี้ครับ

Code: Select all

If Range("d8") = "Pfizer" Or Range("d8") = "Modena" Or Range("d8") = "Sputnik-v" Or Range("d8") = "Sinovac" Then

=====================================================================================================
ขอบคุณที่ชี้แนะครับ แต่มันขึ้นแค่แถวเดียว คือ ผมอยากให้เราใส่ค่า Column D เรียงลงมาเรื่อยๆ แล้วให้มันเช็คว่าเป็นประเภทไหน จากนั้นก็คำนวณตามประเภทที่เรากรอกใน coulumn D เหมือนเรากรอก excel แล้วกดลากสูตรลงมาทีเดียว แล้วมันคำนวนให้หนะครับ

คือผมเขียนให้มัน รันค่าเป็น range ไม่เป็นครับ

Code: Select all

 
Sub SteelWt_Calc()

    If Range("d8:d") = "Pfizer" Or Range("d8") = "Modena" Or Range("d8") = "Sputnik-v" Or Range("d8") = "Sinovac" Then
    
    Range("l8:l").Value = WorksheetFunction.Pi * (Range("e8").Value / 1000 + 2 * Range("g8").Value / 1000) * (Range("g8").Value / 1000) * 7850 * (Range("f8").Value / 1000) * Range("j8").Value
    
    Else
    Range("l8:l").Value = WorksheetFunction.Pi * 1
      
    End If
End Sub

[puriwutpokin]

ปรับตามนี้ครับ

Code: Select all

Sub SteelWt_Calc()
Dim i As Integer
For i = 8 To 14
Select Case Cells(i, 4).Value
    Case "Pfizer", "Modena", "Sputnik-v", "Sinovac"
        Cells(i, 12).Value = WorksheetFunction.Pi * (Cells(i, 5).Value / 1000 + 2 * Cells(i, 7).Value / 1000) * _
        (Cells(i, 7).Value / 1000) * 7850 * (Cells(i, 6).Value / 1000) * Cells(i, 10).Value
    Case Else
       Cells(i, 12).Value = WorksheetFunction.Pi * 1
End Select
   Next i
End Sub

[Bo_ry]

Code: Select all

Sub SteelWt_Calc()
With Range("D8", Cells(Rows.Count, 4).End(xlUp))
    .Offset(, 8).Formula = "=PI()*IF(MATCH(D8,{""Pfizer"",""Modena"",""Sputnik-v"",""Aztrazenegra"",""Parcetamol"",""Sinovac""},)>4,1,7850*(E8+2*G8)*G8*F8*J8/10^9)"
    .Value2 = .Value2  'ถ้าจะเอาสูตร ก็ลบบรรทัดนี้ออก
End With
End Sub

[a6block5]

ขอบคุณทั้ง 2 ท่านมากๆครับ ทั้งคุณ puriwutpokin และคุณ Bo_ry สูตรใช้งานได้ดีและให้ความรู้อันเป็นประโยชน์มากเครับ แต่ของคุณ Bo_ry จะตรงกับความต้องการของผมเลยครับ คือ สูตรรันตามแถวที่เราเพิ่มเรื่อยๆ ยังไงก็ของคุณทั้งสองท่านมากๆนะครับที่ช่วยชี้แนะ


มีคำถามเพิ่มเติมครับ ก่อนหน้านี้ผมลองเขียนสูตรตามที่ท่านผู้รู้ในนี้ชี้แนะไปบ้างแล้ว แต่ยังทำไม่ได้ อยากจะขอคำชี้แนะเพิ่มเติม ครับ ตาม sheet excel rev.2 ที่แนบมา

1) Column L : SteelWt_Calc ตาม Code ที่คุณ Bo_ry แนะนำ ถ้าผมต้องการเขียน if or เพิ่มเติม ไปอีก 5-7 เงื่อนไข แล้วใช้สูตรคำนวนเปลี่ยนไปต่างไป ผมสามารถเพิ่มชนิดและเงื่อนไข ภายใต้ " " ได้เลยใช่มั้ยครับ เช่น ถ้านอกเหนือจากชนิดวัคซีนที่มี เป็น ชนิดใหม่ คือ A1, A2, A2 ให้คำนวณเป็น Column E x Column F (Size x Length)

Code: Select all

 
    .Offset(, 8).Formula = "=PI()*IF(MATCH(D8,{""Pfizer"",""Modena"",""Sputnik-v"",""Aztrazenegra"",""Paracetamol"",""Sinovac""},)>4,1,7850*(E8+2*G8)*G8*F8*J8/10^9)"
    .Value2 = .Value2  '???????????? ????????????????
 

2) Code ด้านบนผมไม่เข้าใจตรง หลังวงเล็บ ที่เขียนว่า >4, 1 หมายถึงอะไรครับ ช่วยกรุณาอธิบายเพิ่มเติมจะได้มั้ยครับ

3) .Vaue2 = .Value2 หมายถึงอะไรครับ ส่วนนี้ยัง งง นิดๆครับผม

4) ผมต้องการ Vlookup ค่าใน Column I : MatCode (สีเหลือง) ได้จากการ concat "D" & "K" ไป sheet Unicost เพื่อให้แสดงค่าใน Column L, Column M (สีชมพู) แต่ผมไม่ต้องการให้มี Matcode ใน column I มันเปลืองเนื้อที่ แต่อยากให้ Vlookup มัน lookup ค่า D&K แล้วแสดงผลใน M:N เลย ต้องเขียนสูตรยังไงครับ ตอนนี้ผมทำได้แค่ เขียนสูตรให้มัน concat แล้ว vlookup อีกที

5) คอลัมน์ M:N ทำไม Vlookup แล้วจำนวนแถวมันเกินครับ ที่แสดงเป็น #N/A

ุ6) Column L ถ้าต้องการให้แสดงค่าคำนวณเป็นตัวเลข แต่ซ่อนสูตรคำนวณไม่ให้โชว์ ทำได้มั้ยครับ

7) ถ้าให้มันคำนวนเองเลย โดยที่ไม่ต้องมากด F8 หรือ Button ต้องทำยังไงครับ

[a6block5]

จากกระทู้นี้ https://snasui.com/viewtopic.php?f=3&t=18322

ผมลองทำตามคุณ Puriwatpokin และ คุณ Bo_ry แนะนำ แต่สะดุดและติดตรงสูตรของคุณ Bo_ry

Code: Select all

 Sub SteelWt_Calc()
With Range("D8", Cells(Rows.Count, 4).End(xlUp))
    .Offset(, 8).Formula = "=PI()*IF(MATCH(D8,{""Pfizer"",""Modena"",""Sputnik-v"",""Aztrazenegra"",""Paracetamol"",""Sinovac"",""Aspirin""},)>1,(g8*2),7850*(E8+2*G8)*G8*F8*J8/10^9)"
    .Value2 = .Value2  '???????????? ????????????????
End With
End Sub

ถ้าผมต้องการ If OR หลายเงื่อนไข ตามที่คุณ Bo_ry แนะนำ
1. If D = Pfizer , Pi * 7850*(E8+2*G8)*G8*F8*J8/10^9
2. If D = Modena, Sputnik-v, Aztrazenegra, Paracetamol, Sinivac, Pi * (G8 * 2)

3. If D = Aspirin, Pi() * 10

ผมอยากสร้างเงื่อนไขเพิ่มเติม คล้ายๆ IF OR 2 กรณีแรกผมพอเข้าใจแล้ว แล้วถ้าอยากเพิ่มเงื่อนไข 3, 4 , 5... เหมือน IF OR ผมต้องเพิ่ม คำสั่งยังไงใน VBA ครับ ขอคำชี้แนะพี่ๆทุกท่านด้วยครับ

[Bo_ry]

สำหรับคลิก
Module

Code: Select all

Sub SteelWt_Calc()
With Range("D8", Cells(Rows.Count, 4).End(xlUp))
    .Offset(, 8).Formula = "=PI()*J8*CHOOSE(MATCH(MATCH(D8,{""Pfizer"",""Modena"",""Sputnik-v"",""Aztrazenegra"",""Paracetamol"",""Sinovac"",""Aspirin""},),{0,2,7}),7850*(E8+2*G8)*G8*F8/10^9,G8*2,10)"
    .Offset(, 8).Value2 = .Offset(, 8).Value2
End With
End Sub

สำหรับใส่ค่าที่ Column J
ที่ SHeet Tracking

Code: Select all

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column = 10 Then
    Target(1, 3).FormulaR1C1 = "=PI()*RC10*CHOOSE(MATCH(MATCH(RC4,{""Pfizer"",""Modena"",""Sputnik-v"",""Aztrazenegra"",""Paracetamol"",""Sinovac"",""Aspirin""},),{0,2,7}),7850*(RC5+2*RC7)*RC7*RC6/10^9,RC7*2,10)"
End If
End Sub

Column P, Q ,R, S ทำสูตรแยกแต่ละส่วนออกมาแล้ว ลองทำความเข้าใจดูนะ

[a6block5]

ขอบคุณคุณ Bo_ry มากครับ สุดยอดไปเลยครับ ผมไล่แกะสูตรทำความเข้าใจแล้ว ถึงบางอ้อเลย ขอบคุณมากๆอีกครั้งครับ

มีคำถามเพิ่มเติม อยากให้ช่วยแนะนำอีกนิดครับ

ผม Concat ข้อมูล D & K เพื่อให้แสดงใน Column I (MatCode) เพื่อ Vlookup หาค่า UnitCost (M,N,O) โดย link ไปที่ Sheet UnitCost

ถ้าผมต้องการให้มัน Concat D&K แล้ว Vlookup หาค่า UnitCost เลย โดยที่ผมไม่ต้องสร้าง Column I (Concat D&K) ผมควรเขียน Code ยังไงดีครับ

[Bo_ry]

แก้ K แล้วเติม M N O

Code: Select all

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column = 10 Then
    Target(1, 3).FormulaR1C1 = "=PI()*RC10*CHOOSE(MATCH(MATCH(RC4,{""Pfizer"",""Modena"",""Sputnik-v"",""Aztrazenegra"",""Paracetamol"",""Sinovac"",""Aspirin""},),{0,2,7}),7850*(RC5+2*RC7)*RC7*RC6/10^9,RC7*2,10)"
ElseIf Target.Column = 11 Then
    Dim c&
    For c = 0 To 2
        Range("M" & Target.Row).Offset(, c) = Application.SumIfs([UnitCost!E4:E999].Offset(, c), [UnitCost!B4:B999], Range("D" & Target.Row), [UnitCost!C4:C999], Range("K" & Target.Row))
    Next
End If
End Sub