Excel Forum

ผมจะกรอกข้อมูลลงใน Sheet Stock
และเมื่อผมจะค้นหาข้อมูล ผมก็จะนำรหัสสินค้าไปค้นหาในหน้า report ข้อมูลก็จะแสดงขึ้นมาทั้งหมดที่มีการบันทึกลงไป
แต่ตอนนี้ข้อมูลที่ผมกรอกไปตั้งแต่บรรทัดที่ 2221 จะไม่แสดงมาในหน้า report
ผมเคยเพิ่ม บรรทัดไปในสูตรได้ แต่ตอนนี้ผมจำวิธีการเพิ่มบรรทัดที่จะนำมาแสดงไม่ได้ครับ ...

:D ใช้วิธีการ Cut หรือตัดสูตรเดิมไปใช้ได้เลยครับ

วิธีการ
คลุมA25:K40 แล้วคลิกขวา > เลือก Cut > ไปยังชีทปลายทาง > คลิกเซลล์ที่ต้องการวาง > กดแป้น Enter

ไม่ต้องเขียนสูตรใหม่แต่อย่างใดครับ

ขอบคุณครับอาจารย์ ผมทำสำเร็จแล้วครับ

ปีใหม่ขอให้อาจารย์มีความสุข สุขภาพแข็งแรง สมหวังทุกประการครับ..... :cp ...

snasui wrote: ให้ Cut A25:K40 ไปวางในชีทปลายทางที่ต้องการก็จะได้การอ้างอิงแบบข้ามชีทครับ

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

:D หลังจากคีย์สูตรที่ A28 แล้ว ให้คลิกขวาที่ A28 > เลือก Copy จากนั้นคลุม B28:K28 > คลิกขวา > เลือก Paste Special > Formulas > OK

:roll: อันนี้เป็นการ Copy ไปด้านขวา ที่เหลือคือ Copy สูตรทั้งหมดลงด้านล่าง ลองทำดูก่อนว่าติดอะไรหรือไม่ครับ

ได้แล้วครับอาจารย์
ผมรบกวนอีกข้อครับถ้าเราจะทำข้าม Sheet ...

:D ยังทำไม่ครบตามทีผมแจ้งไปครับ :ard:
Ctrl+Shift+Enter (กด 3 แป้นพร้อมกันเพื่อรับสูตร ไม่ใช่กดแค่ Enter แป้นเดียว) > Copy เฉพาะสูตร (ไม่ Copy Format ไปด้วย) ไปด้านขวาและลงด้านล่าง


Ctrl+Shift+Enter กดแล้วจะได้ตัวเลขมา
แล้ว Copy เฉพาะสูตร ไม่ Copy Format ไปด้วย ไปด้านขวาและลงด้านล่าง ค ...

snasui wrote: สูตรที่ผมให้ไปก็แสดงเฉพาะสินค้า AA เท่านั้น ลองเขี่ยนดูก่อน แล้วแนบสิ่งที่เป็นปัญหาหรือไม่ตรงกับที่ต้องการมาถามกันต่อครับ

ตามไฟล์แนบครับอาจารย์

ตารางบนคือตารางจริงที่จะใช้ในการค้นหาครับให้ได้ข้อมูล AA ออกมาอย่างเดียว

ตารางข้างล่างคือตารางผลที่แสดงจากการค้นหา AA ครับ

:D เซลล์ A28 จะเป็นอะไรก็คีย์สูตรได้ทั้งนั้นครับ ยกเว้นมีการ Merge เซลล์หรือ Protect เอาไว้ ไม่ทราบว่ามีปัญหาใดจึงคี่ย์สูตรไม่ได้ครับ

ควรระบุให้ชัดเจนว่าต้องการผลลัพธ์ที่เซลล์ใด ด้วยค่าเท่าใดบ้าง เพื่อจะได้เข้าใจตรงกัน สำหรับสูตรนั้นจะดึงมาทุกค่าในบรรทัดเดียวกัน หากว่า D5:D16 มีค่าเท่ากับ D25 ครับ ...

:D เซลล์ A28 คีย์สูตรตามด้านล่างครับ
=IFERROR(INDEX(A$5:A$16,SMALL(IF($D$5:$D$16=$D$25,ROW($A$5:$A$16)-ROW($A$5)+1),ROWS(A$28:A28))),"") Ctrl+Shift+Enter (กด 3 แป้นพร้อมกันเพื่อรับสูตร ไม่ใช่กดแค่ Enter แป้นเดียว) > Copy เฉพาะสูตร (ไม่ Copy Format ไปด้วย) ไปด้านขวาและลงด้านล่าง

ขอบคุณครับอาจารย ...

Stock ZCE.xlsx สวัสดีครับอาจารย์ทุกท่าน
ผมขอคำแนะนำในการเรียกข้อมูลมาแสดงครับ
ตัวอย่างในไฟล์แนบครับ

ผมต้องการให้ข้อมูลรายการแสดงเมื่อผมพิมพ์ชื่อสินค้าในช่องค้นหา
เช่นผมต้องการดูสินค้า AA โดยการพิมพ์ชื่อสินค้า AA ในช่องค้นหา ต้องการให้ขูลของของ AA แสดงอย่างเดียว ไม่ต้องการให้ BB,CC,FF,YY แสดงข ...

:D ที่ H3 คีย์ =COUNTA(Masterrecord)

เพิ่มเติมโค๊ดดังนี้

Sub Add()
'
' Add Macro
'
' Keyboard Shortcut: Ctrl+Shift+S
'
If Sheets("Input").Range("H3") = 6 Then
Application.Goto Reference:="MasterRecord"
Selection.Copy
Application.Goto Reference:="ulMyData1"
Selection.End(xlDown).Select ...

:D แนบไฟล์ตัวอย่างมาด้วยครับ จะได้เห็นค่าการป้อนค่าว่างที่ว่านั้นเป็นอย่างไร หากไม่ได้ป้อนแต่ปล่อยให้ว่าง การดักด้วย Validation จะไม่ฟ้องออกมาให้เห็นว่าไม่เป็นไปตามเงื่อนไขที่กำหนด ถ้าต้องการให้ฟ้องก็ต้องพึ่ง VBA เข้ามาช่วยครับ


อาจารย์ผมรบกวนสอบถามหน่อยครับ ผมต้องการให้มีข้อความฟ้องขึ้นเม ...

Set r = Sheets("Sheet1").Columns("d:d").Find(ValForFind, LookIn:=xlValues) //ผมไม่เข้าใจตรงส่วนนี้ครับคำสั่ง Set r คืออะไร เป็นการ Assign เซลล์ที่ค้นพบค่าตัวแปร ValForFind ให้เป็น Range
i = r.Address // i มันเก็บค่าอะไรและ r.address มีไว้ทำไมครับ Code นี้ผมเขียนผิด จริง ๆ ต้องการจะเขียนเป็น i = r ...

:D ควรยกมาถามเฉพาะส่วนที่ไม่เข้าใจครับ


Sub Edit()
Dim ValForFind As String
Dim r As Range
Dim i As Integer
ValForFind = Sheets("Input").Range("b8").Value8
Set r = Sheets("Sheet1").Columns("d:d").Find(ValForFind, LookIn:=xlValues) //ผมไม่เข้าใจตรงส่วนนี้ครับคำสั่ง Set r คืออะไร
If r Is ...

:D ตัวอย่าง Code ลองปรับใช้ดูครับ
Sub Edit()
Dim ValForFind As String
Dim r As Range
Dim i As Integer
ValForFind = Sheets("Input").Range("b8").Value
Set r = Sheets("Sheet1").Columns("d:d").Find(ValForFind, LookIn:=xlValues)
If r Is Nothing Then
MsgBox "Not found"
Exit Sub
Else
i = r ...

snasui

เรียนอาจารย์ snasui

ใน Sheet Input ในส่วนแก้ไขข้อมูลเครื่อง ผมต้องการเอา เมนู Position คือ FINANCE CONTROLLER นำไปค้นหาใน Sheet1 ถ้าตรงกันให้ Copy เมนู COMPUTER MODEL ไปว่างแทนที่ COMPUTER MODEL ตัวเก่า ในSheet1
เมื่อผมคลิกปุ่มแก้ไข แล้วจะcopyใน Sheet1 แต่มันจะcopyไม่ต้องตำแหนงที่ต ...

snasui wrote: Code ที่เขียนมาแล้วอยู่ที่ Module ไหน ชื่อว่าอะไร ติดขัดบรรทัดใดครับ

เรียนอาจารย์ snasui

ผมยังไม่ได้เขียนโค็ดเลยครับ โค้ดที่เป็นการบันทึกผมก็ไปก็อบเขามาครับ

อาจารย์มีเว็ปหรือโค้ดอะไรแนะนำในการบันทึกข้อมูลแบบที่ค้นหาข้อมูลที่มีอยู่แล้ว แล้วก็บันทึกทับลงไปเลยครับ

รบกวนอาจารย์ทุกท่าน

ผมอยากจะทำการแก้ไขข้อมูลข้าม Sheet จากไฟล์ตัวอย่างในSheet Input ที่ Repair Record.xlsm แก้ไขข้อมูลเครื่อง ผมต้องการแก้ไข Computermodel ตามที่ต้องการและกดปุ่ม แก้ไขข้อมูล computermodel ที่ผมได้พิมพ์ลงไปก็จะไปบันทึกว่าที่ Sheet 1 คอลัม D ครับ

ตัวอย่าง ผมต้องการแก้ไขCOMPUTER MODEL ...

ขอบคุณมากครับ อาจารย์ทุกท่าน ผมจะลองทำดูครับ

ผมต้องการทำ Drop down list แบบมีรายการย่อยไปอีกโดยผมมี แผนกอยู่ 3 แผนก ในแต่ละแผนกจะมีตำแหน่งอยู่หลายตำแหน่ง ผมรบกวนสอบถามการทำ drop down list แบบมีรายการย่อย ด้วยครับ ถ้าเรื่อง สมุติ ถ้าเลือก EXECUTIVE OFFICE ทางด้วนขวาก็จะมี เมนูให้เลือกตำแหน่ง ครับผม
ตามไฟล์แนบนะครับผมลองใช้ =INDIRECT() ไม ...