ต้องการให้แสดงเครื่องหมายดอกจัน(*)เป็นตัวยกของตัวเลขข้อมูลในเซลล์ตามเงื่อนไข

[apinomon]

ผมต้องการให้ต้องการให้แสดงเครื่องหมายดอกจัน(*)เป็นตัวยกของตัวเลขข้อมูลในเซลล์ที่ได้จากการนับรายการโดยใช้สูตร countifs ตามเงื่อนไข คือ ถ้าป็นรายการที่อยู่ในช่วงเวลา 12.00pm-12.03pm ให้แสดงเครื่องหมายดอกจัน(*)เป็นตัวยกของตัวเลขข้อมูลในเซลล์ เช่่น 1*
ไฟล์ตัวอย่าง มี 2 ไฟล์ คือ count.xlsm และ CrystalReport1.xlsx
1.ไฟล์ count.xlsm ประกอบด้วย 3 ชีทคือ sheet1 , sheet2 , sheet3
Sheet1 ใส่สูตร countifs เพื่อนับรายการและแยกรายการซื้อขายของสินค้าแต่ละประเภท โดยดึงข้อมูลจากไฟล์ CrystalReport1.xlsx
Sheet2 เป็นข้อมูลที่ได้มาจากการคัดลอกข้อมูลจาก sheet1 แล้ววางต่อลงไปในบรรทัดล่างเรื่อยๆ
Sheet3 เป็นชีทที่แสดงตัวอย่างรูปแบบที่ผมต้องการให้แสดงเครื่องหมายดอกจัน(*)เป็นตัวยกของตัวเลขข้อมูลในเซลล์ที่ได้จากการคัดลอกจาก Sheet1 ตามเงื่อนไขคือ ถ้ารายการซื้อขายที่มีช่วงเวลา 12.00pm-12.03pm ให้แสดงเครื่องหมายดอกจัน(*)เป็นตัวยกด้วย

รบกวนช่วยชี้แนะด้วยนะครับ

[parakorn]

B3= =IF(B$5=1,COUNTIFS(BUYSELL,LOOKUP(CHAR(255),$B$1:B$1),PRODUCT,B$2&"*")&"*",COUNTIFS(BUYSELL,LOOKUP(CHAR(255),$B$1:B$1),PRODUCT,B$2&"*")) Enter+Copy ไปทางขวาครับ

[apinomon]

ขอบคุณมากครับ
ลองปรับตามที่สูตรที่ให้มาแล้วครับ แล้วแก้เล็กน้อยตรง B$5=1 เป็น B$5>=1 ดังนี้ครับ

=IF(C$5>=1,COUNTIFS(BUYSELL,LOOKUP(CHAR(255),$B$1:C$1),PRODUCT,C$2&"*")&"*",COUNTIFS(BUYSELL,LOOKUP(CHAR(255),$B$1:C$1),PRODUCT,C$2&"*"))

แต่หลังจากไปวางที่ Sheet2แล้ว ตัวเลขที่มีดอกจัน(*) ไม่สามารถ sum เพื่อหาผลรวมได้ครับ
รบกวนช่วยแนะนำวิธีที่ทำให้สามารถนำไปคำนวนหรือหาผลรวมได้ด้วยครับ

ขอบคุณครับ

[snasui]

แนบไฟล์ล่าสุดมาด้วยจะได้ช่วยตอบต่อไปจากนั้นครับ

[apinomon]

แนบไฟล์ล่าสุดมาแล้วครับ
ตัวเลขที่มีดอกจัน(*) ไม่สามารถ sum เพื่อหาผลรวมได้ครับ
รบกวนช่วยแนะนำวิธีที่ทำให้สามารถนำไปคำนวนหรือหาผลรวมได้ด้วยครับ

[snasui]

เซลล์ J3 คีย์สูตรตามด้านล่างครับ

=SUMPRODUCT(--SUBSTITUTE(B3:I3,"*",""))

Enter

[apinomon]

ขอบคุณมากครับ
ใส่ =SUMPRODUCT(--SUBSTITUTE(B3:I3,"*","")) แล้วหาผลรวมได้เลยครับ

ขอความรู้เพิ่มเติมครับ ใช้ SUBSTITUTE เพื่อเปลี่ยนให้ดอกจัน ( * ) เป็นค่าว่าง ใช่ไหมครับ
แล้วเครื่องหมายขีดกลาง2อัน ( -- ) คืออะไรครับ

[snasui]

ใช้ SUBSTITUTE เพื่อเปลี่ยนให้ดอกจัน ( * ) เป็นค่าว่าง ใช่ไหมครับ

ถูกต้องครับ

เครื่องหมายขีดกลาง2อัน ( -- ) คืออะไรครับ

อ่านได้ที่ Link นี้ครับ http://snasui.com/viewtopic.php?f=3&t=30&p=135

[apinomon]

ขอบคุณมากครับ
ผมขอรบกวนสอบถามเพิ่มเติมครับ
หลังจากที่กดปุ่มคัดลอกที่ Sheet1 ไปวางที่ Sheet2 แล้ว ผมต้องการให้เซลล์ที่มีดอกจัน(*)เป็นตัวยกขี้น
โดยลองใส่ CODE ต่อท้ายเพิ่มไป แต่มันยกทั้งเซลล์ที่ไม่มีดอกจัน(*)ด้วยครับ
ผมแนบไฟล์ที่ปรับล่าสุดมาด้วยครับ
รบกวนช่วยชี้แนะอีกรอบครับด้วยครับ

ขอบคุณครับ

[snasui]

ตัวอย่างการปรับ Code ครับ

Code: Select all

'...Other code
For j = 1 To 8
    If Not IsNumeric(ActiveCell.Offset(0, j)) Then
        ActiveCell.Offset(0, j).Characters(Start:=Len(ActiveCell.Offset(0, j).Value), _
            Length:=1).Font.Superscript = True
    End If
Next
'...Other code

[apinomon]

ลองปรับ Code ตามแล้วครับ
ตัวที่ไม่มีดอกจัน(*) ไม่ยกขี้นแล้วครับ

ขอบคุณมากครับ