Excel Forum

ขอบคุณครับ ผมจะลองไปศึกษาเพิ่มดูก่อนครับ

เคยแต่สั่งให้เก็บข้อมูลล้างข้อมูล โดยอาศัยหาข้อมูลแล้วก็สูตรในนี้ไปปรับใช้ แต่เงื่อนไขที่ผมต้องการไม่รู้จะเริ่มต้นยังไงจริงๆครับ ถ้าผิดกฎของกระทู้ ก็ต้องขออภัยด้วยนะครับ

ผมทำสต็อกแบบง่ายๆให้น้องใช้ในร้าน ค่อยๆแกะ โค๊ด VBA ตามเน็ตก็พอได้ แต่ติดอยู่ปัญหานึงรบกวนท่านผู้รู้แนะนำด้วยนะครับ
ใน Sheet datain ต้องการเทสีหรือไฮไลท์ในเซลท์ที่มีค่าซ้ำกันกับ Sheet dataout คอลัมน์ B เพื่อให้รู้ว่า imei นี้ขายไปแล้ว ต้องเขียนโค๊ดเพิ่มยังไงครับ ขอบคุณครับ

ใช้โค๊ดของคุณ puriwutpokin ได้ตามที่ต้องการเลยครับ
ขอขอบคุณ คุณ puriwutpokin และ คุณ Serverchita ทั้งสองท่านมากเลยครับ

คือถ้าไม่มีค่าปรับ (เซลล์ C8 มีค่าเป็นศูนย์) ไม่ต้องการให้ MsgBox โชว์ครับ ให้ข้ามไปพิมพ์แล้วก็บันทึกเลยได้มั้ยครับ

ต้องการให้เมื่อกดปุ่ม พิมพ์และบันทึก ให้ VBA ตรวจสอบใน sheets "ทำรายการ" Range "C8" ว่ามีค่าปรับหรือไม่ ถ้าไม่มีค่าปรับ ให้พิมพ์และบันทึก ถ้ามีตั้งแต่ 1 บาทขึ้นไปให้โชว์ MsgBox กด Yes ให้พิมพ์และบันทึก กด No ให้กลับมาแก้ไขครับ ผมลองเขียนดูแล้วถ้ามีค่าปรับจะได้ผลตามต้องการ แต่ถ้าไ...

:D :D ปัญหาของคุณ Leklek7 คล้ายกับของผมที่อาจารย์ snasui กรุณาแนะนำสูตรมาให้ ผมลองปรับใช้กับของคุณดู ไม่รู้ว่าจะตรงกับความต้องการหรือเปล่านะครับ :D :D ตัวอย่างสูตร =SUM(IF(FREQUENCY(IF(COUNTIF($C$2:$C$740,$C$2:$C$740)>1,MATCH($C$2:$C$740,$C$2:$C$740,0)),ROW($C$2:$C$740)-ROW($C$2)+1),1)) แล้วกด Ctrl+...

ใช้งานได้ตามที่ต้องการแล้วครับอาจารย์ ประหยัดเวลาไปได้เยอะเลย ที่ใช้งานจริงจะอยู่คนละ Sheet ลองปรับลองแก้ตามที่อาจารย์แนะนำจนได้ตามที่ต้องการ ขอบคุณมากๆครับ

ขอบคุณมากครับอาจารย์ ถ้างานประมาณเกือบพันรายการ เราก็ปรับตรง จำนวนแถวแบบนี้ได้เลยใช้มั้ยครับ
=SUM(IF(FREQUENCY(IF(COUNTIF($A$3:$A$999,$A$3:$A$999)>1,MATCH($A$3:$A$999,$A$3:$A$999,0)),ROW($A$3:$A$999)-ROW($A$3)+1),1))

ทะเบียน กมล 417 กับ บต 4547 ซ้ำ คำตอบที่ต้องการคือ 2 คัน ครับอาจารย์

รบกวนอาจารย์หน่อยนะครับ ต้องการทราบจำนวน ทะเบียนรถในคอลัมน์ A ว่าส่งค่าซ้ำกี่คันในแต่ละรอบ ลองใช้ =COUNTIF ก็ต้องมีตัวอ้างอิงด้วย ซึ่งข้อมูลที่นับจะเปลี่ยนในแต่ละเดือน ต้องเขียนสูตรหรือเงื่อนไขแบบใหนครับ

ขอบคุณครับอาจารย์ ส่วนคำว่าล็อคภาษาของผมหมายถึง ตรงเซลล์ A2 ใช้ยิงบาร์โค๊ด บ่อยครั้งที่ตรงภาษาของคีย์บอร์ดลืมเปลี่ยนเป็นภาษาอังกฤษ เวลายิงบาร์โค๊ดแทนที่จะขึ้นเป็นตัวเลขก็กลายเป็น "ฅจตตภจจจๅุถถจๅจจจ/จจๅจุึึุุตถคๅๅจๅภึ-ถภ" ประมาณนี้ครับ ยังไงก็ขอบคุณอาจารย์มากๆครับ

ผมต้องการให้ค่าตัวเลขในเซลล์ B4 เป็นวันที่ เหมือนเซลล์ A4 เพื่อจะได้หาวันครบกำหนดชำระครับ
และอีกหนึ่งคำถาม เราสามารถล็อคแป้นคีย์บอร์ดให้เป็นเฉพาะภาษาอังกฤษ เฉพาะในเซลล์ A2 ได้มั้ยครับ รบกวนอาจารย์และท่านผู้รู้ทุกท่านด้วยนะครับ

ขอบคุณ คุณ DhitiBank ด้วยครับที่ช่วยปรับสูตรให้ เพราะถ้าให้ผมลองปรับก่อน น่าจะยาวครับ เพราะไม่มีความรู้ทางด้านนี้เท่าไหร่

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

ได้คืบแล้วอยากได้ศอก รบกวนอีกนิดนะครับทั้งอาจารย์และท่านผู้รู้ ถ้าต้องการให้ตรวจสอบข้อมูลซ้ำใน Sheet "รายงาน" แล้วแจ้งเป็น MsgBox "ข้อมูลซ้ำ" ต้องเขียน Code ต่อยังไงครับ

ได้แล้วครับ ขอบคุณมากครับอาจารย์

อาจารย์ครับ มันขึ้น error อย่างนี้ครับ

ผมต้องการบันทึกข้อมูลจากเซลล์ D3,D4,D5,D8,D11,D6,I3,I6,H2 ใน Sheet "ป้อนข้อมูล" ไปเก็บไว้ใน "รายงาน" ลองดัดแปลง Code แล้วได้ดังนี้ Sub save() Sheets("ป้อนข้อมูล").Range("D3").Copy With Sheets("รายงาน") .Range("A" & .Range("A" ...

ได้แล้วครับ ขอบคุณมากๆครับ