ลบกวนสอบถามสูตรดึงข้อมูลเฉพาะหน่อยครับ

[sakoobaa]

ตามเอกสารที่แนบ จากชีส 1 เห็นได้ว่ามีข้อมูลที่ใส่ตัวเลขอยู่ เมื่อกด vba ทำการดึงข้อมูลเฉพาะที่ใส่ตัวเลขไว้ชีส 2 ไม่ทราบว่าควรใส่สูตรอย่างไรดีครับ

[snasui]

ลองตามนี้ครับ

ที่ Sheet2 เซลล์ D6 คีย์

=SUMIF(Sheet1!$C$8:$C$10,$C6,Sheet1!$D$8:$D$10)+SUMIF(Sheet1!$F$8:$F$10,$C6,Sheet1!$G$8:$G$10)

Enter > Copy ลงด้านล่าง

การใช้ VBA จำเป็นต้องเขียนมาเอง ติดตรงไหนค่อยมาถามกันครับ

[sakoobaa]

เรียนอาจารย์ พอดีว่าสูตรที่อาจารย์ให้มันอ้างอิงกับตัวอักษรด้านหน้า กระผมอยากจะขอสูตรเพิ่มเติมที่ จากชีส1เมื่อตัวเลขอยู่ในช่องใด ก็ยกมาทั้ง รายการ จำนวน หน่วยนับ เรียงต่อบรรทัดไม่ทราบต้องเขียนยังไงครับ หรือต้องใช้ vba เข้าช่วย

[snasui]

การที่ตัวเลขอยู่ในเซลล์ใดแล้วยกมาทั้งบรรทัดก็สามารถทำด้วยสูตรได้หากว่ามองแค่คอลัมน์ใดคอลัมน์หนึ่ง แต่หากมองหลายคอลัมน์คงต้องพึ่ง VBA ครับ

[sakoobaa]

เรียน อาจารย์ครับพอดีผมพยายามเขียน vba ตามที่อาจารย์บอกว่าลองดูก่อน แต่ไม่ค่อยมีความรู้ด้านนี้มากเท่าไหร่
ไม่ทราบอาจารย์เขียนเพื่อเป็นแนวทางให้ผมได้ไหมครับ

[snasui]

ต้องขออภัยที่ไม่เขียนให้ก่อนเพื่อความเสมอภาคของเพื่อนสมาชิก สำหรับ VBA แล้วต้องศึกษามาเองและเขียนมาก่อน ติดตรงไหนแล้วถามกันตามกฎข้อที่ 5 ด้นบนครับ

[sakoobaa]

เรียนอาจารย์ไฟล์ที่แนบมานั้นผมลองทำสูตรดูแล้วครับแต่ไม่ทราบว่าจะเพิ่มเงื่อนไข ให้มัน copy เฉพาะรายการที่มีตัวเลข
ให้มาเรียงต่อกัน ไม่ทราบว่าต้องแก้ตรงไหนบ้างครับ

[snasui]

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

Code: Select all

Sub Button2_Click()
    Dim rAll As Range, r As Range
    Set rAll = Sheets("Sheet1").Cells.SpecialCells(xlCellTypeConstants, 1)
    For Each r In rAll
        Sheets("002").Range("A" & Rows.Count).End(xlUp).Offset(1, 0) _
            .Resize(1, 3) = r.Offset(0, -1).Resize(1, 3).Value
    Next r
End Sub

[sakoobaa]

ขอบคุณอาจารย์มากๆคับ สูตรที่ให้มาตรงตามจุดประสงค์ครับ

[sakoobaa]

เรียนอาจารย์ครับ ขอรบกวนเพิ่มเติมหน่อยครับตามสูตรที่อาจารย์ให้มา ไม่ทราบว่าถ้าเพิ่มเงื่อนไขให้รันเลขลำดับ ตามรายการที่เพิ่มขึ้นไม่ทราบว่าควรเพิ่มตรงไหนครับ

[snasui]

ปรับ Code มาก่อนแล้วถามเฉพาะทีติดเสมอครับ

[sakoobaa]

อาจารย์ครับ พอดีลองใส่สูตรงช่อง B6 ให้รันลำดับลงมาเอง พอผมกด VBA จากอีกชีสให้ข้อมูลมารันในช่อง C6:C14 ผลปรากฎว่า เลขออกมาจริงครับแต่ ขาดเป็นบางช่วงไม่ทราบว่าสูตรตัวนี้สามารถปรับเปลี่ยน หรือ แก้ไขแบบไหนดีครับ

ได้แนนไฟล์ติดมาด้วยคับ

[snasui]

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

[sakoobaa]

แนบให้ใหม่แล้วครับอาจารย์

[snasui]

ลองตามนี้ครับ

ที่ B6 คี่ย์

=IF($D6="","",COUNT(D$6:D6))

Enter > Copy ลงด้านล่าง

[sakoobaa]

ขอบคุณมากครับอาจารย์

[sakoobaa]

ขอรบกวนเพิมเติมนะครับ จากไฟล์ที่แนบให้ ในสูตร vba message box ต้องการเพิ่มเงื่อนไข เมื่อกด yes ให้ไปชีส 2 นะครับ

[snasui]

ต้องการเพิ่มเงื่อนไข เมื่อกด yes ให้ไปชีส 2 นะครับ

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

Code: Select all

Sub Button1_Click()
    Dim iRet As Integer
    Dim strPrompt As String
    Dim strTitle As String
 
    ' Promt
    strPrompt = "Ask Your Question Here, OK?"
 
    ' Dialog's Title
    strTitle = "My Tite"
 
    'Display MessageBox
    iRet = MsgBox(strPrompt, vbYesNo, strTitle)
 
    ' Check pressed button
    If iRet = vbNo Then
        MsgBox "NO!"
    Else
        MsgBox "Yes!"
        Sheets("Sheet2").Select
    End If
End Sub