Excel Forum

รบกวนสอบถามอาจารย์ คะ ถ้าเราจะปรับเปลี่ยนการ Filter ที่ระบุเป็นตัวเลข เป็นค่า ที่เรา รับมาจากการคีย์ ตอนนี้ใช้โค้ด
Sub Macro6()
'
' Macro6 Macro
'

'
Sheets("StandardData ").Select
ActiveSheet.Range("$D$2:$F$6").AutoFilter Field:=1, Criteria1:=">=100", _
Operator:=xlAnd, Criteria2:="<=200 ...

ไม่ได้อะคะ พอใส่โค้ด ที่กำหนด แต่ machine ลง ไปแล้ว ข้อมูลมี 2 ข้อมูล ของวันที่ 24/7/2560 เครื่อง 1 กับ 25/7/2560 เครื่อง 1 พอใส่ 26/7/2560 เครื่อง1 ไป กลับไปดึง Datanew ของ วันที่ 24/7/2560 แทน แต่ตามจริงต้องดึงของวันที่ 25/7/2560 เครื่อง 1 ค่ะ

ตัวอย่างตามไฟล์แนบมาค่ะ

Private Sub Machine_AfterUpdate()
Dim dLast As Variant, stData As String

dLast = DMax("[Date]", "tblruntime", "[Machine] = " & Me.Machine)
If IsNull(dLast) Then
stData = ""
Else
stData = DLookup("[DataNew]", "tblruntime", "[Date] = " & CDbl(dLast))
End If

Me.Dataold ...

รบกวนดูโค้ดให้หน่อยค่ะ ว่าผิดตรงไหน

ในตาราง tblRuntime เวลา คีย์ข้อมูลไปโดย จะ ใช้ ฟิลด์ Date กับ Machine เป็นหลัก ในการดึงข้อมูลของ Datanew ก่อนหน้า เพื่อมาเป็น ข้อมูลใน Data old ในเรคคอร์ดถัดไป

ใส่โค้ดไว้ ที่ Machine AfterUpdate ()

Private Sub Machine_AfterUpdate()
Dim dLast As Variant ...

:D ต้องขออภัยที่ไม่มีตัวอย่างให้ครับ :(

รบกวนช่วยดูโค้ดให้หน่อยค่ะ ว่าถูกต้องมั้ย

จะสร้างตาราง มาใหม่ โดย มี ฟิลด์ คือ rptnanme(text) / PrintDate(date/time) / PrintUser (txt)

แล้วใส่โค้ด นี้ ในปุ่มคำสั่งปริ้น report
Private Sub Command34_Click()
DoCmd.RunSQL "Insert Into tbReportHistory Value ...

snasui wrote: ต้องเก็บครั้งที่พิมพ์ไว้ใน Table ที่เกี่ยวข้องเมื่อสั่งพิมพ์ โปรแกรมจึงจะทราบว่ารายการใดพิมพ์ไปแล้วครั้งที่เท่าใดจึงจะครั้งที่พิมพ์นี้ไปแสดงในที่ใด ๆ ตามที่ต้องการได้ครับ

ยัง งง กับการ เพิ่ม table ครั้งที่พิมพ์ ค่ะ มีตัวอย่างไหมค่ะ รบกวนด้วยค่ะ ยังมือใหม่อยู่ค่ะ

ขอบคุณค่ะ

รบกวนสอบถามอาจารย์ค่ะ ในการสร้าง Report แล้วใน Report ต้องการให้ แสดงจำนวนครั้งที่ พิมพ์ report นั้นๆ ในแต่ละเดือน

เช่น รายการการใช้เครื่อง เดือนที่ 1 พิมพ์ ครั้งที่ 1
-------------"------- เดือนที่ 1 พิมพ์ครั้งที่ 2 .

แล้วพอเริ่มเดือน ใหม่ เดือนที่ 2 พิมพ์ครั้งที่ 1

โดยให้ข้อมูลนี้ไปแสดงในหน ...

รบกวนอาจารย์ทุกท่านด้วยค่ะ ...ได้สร้างListbox สำหรับดึงข้อมูลมาแสดง แล้วก็ใส่action ไปว่า ถ้าดับเบิ้ลคลิ๊กจะไปแสดงในหน้าที่บึนทึกเพิ่มเติม แล้วปัญหาคือ ต้อการให้เวลาเลือกข้อมูลที่ต้องการแก้ไข ใน Listbox แล้วทำการอัพเดทเรียบร้อย ให้ข้อมูลนั้นๆใน Lsit box หายไปได้ไม่ให้มาแสดงในListbox อีก แต่ข้อมูลย ...

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

ตามไฟล์แนบมาค่ะ

รบกวนอาจารย์ด้วยน่ะค่ะ ขอบคุณค่ะ

รบกวนขอ โค้ด ปุ่ม เพิ่ม ลบ แก้ไข ยกเลิก Mc asscss หน่อยค่ะ

มือใหม่หัดเขียนค่ะ

snasui wrote: ไม่พบว่ามีสูตรที่ผมตอบตามด้านบนอยู่ในไฟล์แนบ ลองแนบมาใหม่ครับ

รบกวนด้วยค้ะ

:D ตัวอย่างสูตรใน Sheet1 เซลล์ A8 ครับ

=IFERROR(INDEX('แผนการใช้เครื่อง CNC'!A$8:A$107,SMALL(IF('แผนการใช้เครื่อง CNC'!$B$8:$B$107=$E$3,IF('แผนการใช้เครื่อง CNC'!$I$8:$I$107="จบ",ROW('แผนการใช้เครื่อง CNC'!$A$8:$A$107)-ROW('แผนการใช้เครื่อง CNC'!$A$8)+1)),ROWS(A$7:A7))),"")

Ctrl+Shift+Enter ...

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

ขอโทษด้วยค่ะแนบไฟล์ผิดไป :tt: :tt: 2 เงือนไขประกอบด้วย Cell E3 และ I3 ในหน้า Sheet 1 โดยดึงข้อมูล จาก หน้า DATA ตั้งแต่ cell A8 ถึง I8 ค้ะ

แล้วให้ข้อมูลไปแสดง ที่ A8 ถึง I8 ที่ หน ...

รบกวนสอบถาม สอบถามการดึงข้อมูลข้าม Sheet 2 เงื่อนไขค่ะ โดยที่ จะสร้าง List กำหนด ไว้ 2 คอลัมน์ โดยเลือก ข้อมูลที่จะนำมาแสดง 2 เงื่อนไข แล้วให้ข้อมูลมาแสดง ในอีกชีทที่กำหนด รายละเอีดยตามเอกสารแนบมาค่ะ อธิบายไม่ค่อยเข้าใจต้องขออภัยด้วยน่ะค่ะ ไม่ถนัด Excel เลย

ที่ B4=IFERROR(INDEX(รายชื่อ!$A$2:$H$100,SMALL(IF(รายชื่อ!$E$2:$E$1000=$C$1,ROW($D$2:$D$1000)-ROW($D$2)+1),ROWS($B$4:$B4)),INDEX({1,2,4,6,7,8},COLUMNS($B$4:B4))),"") แล้วกด Shift + Ctrl แล้ว Enter แล้วคัดลอกไปยังเซลที่เกี่ยวข้องครับ



ถ้าใส่2 เงื่อนไขได้มั้ยค่ะ แบบว่าตามตัวอย่าง (ขออนุญาติอ้างอ ...

แล้วพอจะมีวิธีไหนบางค่ะ อยากทำแบบว่า มีข้อมูลอยู 3 แถว ข้อแถวท่ี่ 1 ดำเนินการเสร็จแล้ว ต้องการจะซ่อนออกจาก ชีทงาน โดยที่เราสามารถกรองดูงานที่เหลือได้โดยไม่มี งานแถวที่ 1 ติดมาด้วย

รบกวนสอบถามค่ะ เวลาเรา Hide แถวไว้ แล้วเวลาเราจะใช้ Filtter file จะไม่ให้ปรากฎข้อมูลที่เรา Hide ไว้ ทำยังไงค่ะ

ขอบคุณค่ะ

ทำได้ล่ะค่ะ

ขอบคุณคะ ใช้สูตรนี้ ....^^... =IF(I13="",VLOOKUP($D13,List!$B:$C,2,0),IF(I13="จบ",VLOOKUP($D13,List!$B:$C,2,0),VLOOKUP($D13,List!$B:$D,3,0)))

chutchas wrote:ขอดูตัวอย่างไฟล์หน่อยครับ
อ่านไม่เข้าใจโจทย์

ตามไฟล์ แนบนี้เลยค่ะ ^^*

ตามไฟล์ แนบนี้เลยค่ะ ^^*