Excel Forum

gamefunza

อีกแบบsheet Data (2) เติม Data column A เลือก A5:A17 กด F5 > special > blank > พิมพ์ = กดลูกศรขึ้น > Ctrl+ Enter E7 ลากไป F7 ลากลง =IFERROR(INDEX(B$5:B$17,AGGREGATE(15,6,(ROW(B$5:B$17)-ROW(B$4))/($A$5:$A$17=$E$4),ROWS(E$7:E7))),"") Example.xlsx ขอบคุณมากครับ ได้แล้ว :cp: :cp: :cp: :cp:

gamefunza

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

gamefunza

snasui wrote: ↑Sat Aug 18, 2018 11:28 am ตัวอย่างสูตรตามด้านล่างครับ

ที่ C13 คีย์
=INDEX($B$1:$H$1,MIN(IF($B$2:$H$9=$B11,COLUMN($B$1:$H$1)-COLUMN($B$1)+1)))
Ctrl+Shift+Enter

ที่ D13 คีย์
=INDEX($A$2:$A$9,MIN(IF($B$2:$H$9=$B11,ROW($A$2:$A$9)-ROW($A$2)+1)))
Ctrl+Shift+Enter

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

gamefunza

snasui wrote: ↑Sat Aug 18, 2018 10:34 am แนบไฟล์ล่าสุดพร้อมข้อมูลตัวอย่างตามคำถามจะได้สะดวกในการตอบต่อไปจากนั้นครับ

แนบ FIle มาแล้วครับผม

gamefunza

:D ตัวอย่างสูตรตามด้านล่างครับ ที่ C15 คีย์ =MIN(IF($B$2:$H$9=$B15,COLUMN($B$1:$H$1)-COLUMN($B$1)+1)) Ctrl+Shift+Enter > Copy ลงด้านล่าง ที่ D15 คีย์ =MIN(IF($B$2:$H$9=$B15,ROW($A$2:$A$9)-ROW($A$2)+1)) Ctrl+Shift+Enter > Copy ลงด้านล่าง Note: Ctrl+Shift+Enter เป็นการสร้างสูตร Array โดยสามารถเลือกดำ...

gamefunza

snasui wrote: ↑Sat Aug 18, 2018 9:38 am ตัวอย่างสูตรตามด้านล่างครับ

ที่ C15 คีย์
=MIN(IF($B$2:$H$9=$B15,COLUMN($B$1:$H$1)-COLUMN($B$1)+1))
Ctrl+Shift+Enter > Copy ลงด้านล่าง

ที่ D15 คีย์
=MIN(IF($B$2:$H$9=$B15,ROW($A$2:$A$9)-ROW($A$2)+1))
Ctrl+Shift+Enter > Copy ลงด้านล่าง

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

gamefunza

ผมต้องการจับคู่ข้อมูล จาก ID ในตาราง แนวนอน และ แนวตั้ง อยากจะถามว่ามีวิธีไหนบ้างครับที่จะทำได้

gamefunza

ผมต้องการจะดึงค่าเดือน

เช่น A1 = 12/5/2561 ให้ B1 = 5

อยากทราบว่าทำยังไงครับ

gamefunza

:D ในเรื่อง Scale ของแกนกราฟ หากเป็น Auto หมายถึงตั้งโดยโปรแกรม Excel เอง เมื่อเป็น Auto ย่อมจะไปกำหนดให้เป็นค่านั้นค่านี้ไม่ได้ไม่ได้ โปรแกรมจึงกำหนดค่าเองได้ ดังนั้น ถ้า Auto มันจะเป็นค่าใดก็แล้วแต่โปรแกรมเท่านั้นครับ คือผมอาจจะ อธิบายผิด คือผมหมายถึง เรา Fix ค่า Scale เริ่มต้น และ สิ้นสุด โดยใช้...

gamefunza

เราสามารถ ตั้งค่า Scale ของตารางได้ไหมครับ โดยดึงค่าจาก CELL
ตัวอย่าง C17 = 50 D17 =30

จะเป็นเริ่มจาก 30 จบที่ 50

โดยให้ Auto ไม่ต้องเข้าไป Fix

gamefunza

บรรทัดแรกครับ
=IF(A2=0,A1," ")
ส่วนเรียงรอผู้อื่นมาตอบครับ

gamefunza

B10 =LEFT($A10,FIND(" ",$A10)-1) C10 =MID($A10,FIND("+",$A10)+1,FIND(",",$A10)-FIND("+",$A10)-1) D10 =RIGHT($A10,LEN($A10)-FIND(",",$A10)) ครับ #ผมเขียนได้พอดีเลย =LEFT(A10, SEARCH(" ",A10,1)) =MID(A10,SEARCH(" ",A10,1),SEARCH(&q...

gamefunza

ผมมีค่า Standard ที่มีค่า + - ต้องการจะแยกค่านี้
ตัวอย่าง
100.98 +0.01,-0.02 แยก เป็น 100.98 0.01 -0.02
ผมลองใช้ Function Left,Right แล้ว เมื่อค่าทศนิยมเปลี่ยนไปจาก 1 ตำแหน่งเป็น 2 ตำแหน่ง ค่าที่แยกมาจะไม่ตรงครับ

Please See Attach File

gamefunza

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

gamefunza

คือผม มี Form อยู่ Form นึง ที่ต้องการคือ ใช้ Macro Save As เป็นไฟลใหม่โดย ตั้งชื่อตาม CELL ที่กำหนด เช่น FileName1 = Range("B1").Text ปัญหา : Code ที่ผมเขียนเนี่ย มัน Save ไปแค่ Value แต่ละ Cell เท่านั้น Shape หรือ รูปภาพ นั้นไม่ตามมาด้วย จุดที่อยากให้ Guide : ตอนนี้ผมทำได้แค่ กำหนด Range...

gamefunza

ปกติเราจะใช้ Function VLOOKUP ในการ หาข้อมูลของ column ผมอยากรู้ว่ามี Function ที่สามารถ เพิ่มข้อมูลเข้าไปได้ โดยดูจาก ข้อมูลใน Area ไหมครับ สร้าง Text Box1 รับค่า ID แถวที่ 1 Text Box2 รับค่า เพิ่มค่าไปที่แถวที่ 3 ตัวอย่าง รับค่า Textbox1 1234 และ Textbox2 Snow จะได้ แถว1 แถว2 แถวที่3 1234 John Sno...

gamefunza

ใช้ Macro บันทึกได้เลยครับ แล้วเอาโค๊ดที่ได้จากการบันทึกมาปรับแต่งครับ ตัวอย่างโค๊ดครับ ก่อนปรับ ActiveSheet.Range("$C$1:$C$67").AutoFilter Field:=1, Criteria1:="30023" หลังปรับ Sheets("เก็บข้อมูล").Range("$C$1:$C$67").AutoFilter Field:=1, Criteria1:=Sheets(&...

gamefunza

ผมยังไม่ค่อยเข้าใจในส่วนของ Parameter : field และ Criteria ครับ

Code: Select all

Worksheets(5).Range("A1:N15").AutoFilter _ 
 field:=1, _ 
 Criteria:="ID", _

ลองเขียนได้ประมาณนี้เองครับอยากให้ช่วยแนะนำหน่อยครับ

แนบไฟล์ และรูปภาพมาด้วยครับ

gamefunza

Dim Lrow As Integer เป็นการประกาศตัวแปร ให้ โปรแกรมรับทราบครับ Integer ประกาศเป็นจำนวนเต็มหรือตัวเลข ประมาณนี้ครับ โดยให้ Lrow เท่ากับ ค่าช่วงของชีทที่5 โดยนับช่วง ที่ Cells(Rows.Count, 1) ไปตำแหน่งสุดท้ายแล้ว นับถัดลงไป 1 Row, Offset(1, 0).Row ประมาณนี้ ต้องอาศัย แกะและTest ดูครับ ผมไม่ได้เรียนมาอ...

gamefunza

สร้างหัวคอลัมไว้ด้วยนะครับแล้วใช้โค้ดนี้ดูครับ Sub Get_Information() Dim Lrow As Integer Lrow = Sheets(5).Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row Name = Sheets(1).Cells(5, 4).Value LastName = Sheets(1).Cells(5, 5).Value Blood = Sheets(1).Cells(6, 4).Value Position = Sheets(1).Cells(7, 4).Va...

Excel Forum

EXCEL TOOLS

Search found 22 matches

Re: ดึงข้อมูลจากตารางช้อมูล ทั้งหมดที่มีอยู่ โดยอ้างอิงจากวันที่

ดึงข้อมูลจากตารางช้อมูล ทั้งหมดที่มีอยู่ โดยอ้างอิงจากวันที่

Re: การ Match ข้อมูลที่มีมากกว่า 1 ค่า

Re: การ Match ข้อมูลที่มีมากกว่า 1 ค่า

Re: การ Match ข้อมูลที่มีมากกว่า 1 ค่า

Re: การ Match ข้อมูลที่มีมากกว่า 1 ค่า

การ Match ข้อมูลที่มีมากกว่า 1 ค่า

แยกตัวเลข จาก วัน/เดือน/ปี

Re: Set ค่า Scale ของกราฟ

Set ค่า Scale ของกราฟ

Re: ขอความช่วยเหลือการนำข้อมูลมาเรียงชิดต่อกัน

Re: แยกข้อความภายใน CELL

แยกข้อความภายใน CELL

Re: COPY WORKSHEET To Another Workbook

COPY WORKSHEET To Another Workbook

Function เพิ่มข้อมูล

Re: การใช้ Filter (Macro) จากชีทนึงไปยังอีกชีทนึง

การใช้ Filter (Macro) จากชีทนึงไปยังอีกชีทนึง

Re: Macro ดึงค่าที่ได้ ไปยังอีก sheet ส่งข้อมูลไปบันทึกต่อท้ายรายการที่มีอยู่แล้ว

Re: Macro ดึงค่าที่ได้ ไปยังอีก sheet ส่งข้อมูลไปบันทึกต่อท้ายรายการที่มีอยู่แล้ว