Excel Forum

เปิดไม่ออกที่ว่านั้นได้ทำขั้นตอนอะไรไปบ้างจะได้แนะนำได้ครับ

หากว่ามีการ Double Click แล้วไม่เห็นหน้าต่าง Code ให้คลิกดูที่เมนู Windows ว่ามีอยู่ที่ Windows เราสามารถจัดเรียง Windows ต่าง ๆ เพื่อใหแสดงขึ้นมาให้เห็นได้ครับ

:D กรณีเป็น O365 สามารถทำตามนี้ครับ เพื่อตรวจสอบประวัติของไฟล์ Excel ใน Microsoft Excel ครับ คุณสามารถทำตามขั้นตอนดังนี้: เปิดไฟล์ Excel ที่คุณต้องการตรวจสอบ เลือกแท็บ “File” เลือกแท็บ “Recent” เลือก “See All” เพื่อดูรายการของไฟล์ Excel ที่เปิดใช้ล่าสุด พร้อมกับเวลาและวันที่ของการแก้ไขครับ :arrow: ต...

:D ลองทำตามที่ Copilot ให้คำตอบมาตามด้านล่างว่าใช้ได้หรือไม่ครับ เพื่อกำหนด ComboBox ใน Microsoft Access ให้ผู้ใช้สามารถเลือกค่าได้เท่านั้นโดยไม่สามารถพิมพ์ได้ คุณสามารถทำตามขั้นตอนดังนี้ครับ: 1. สร้าง ComboBox: - เปิดฟอร์มหรือรายงานที่คุณต้องการเพิ่ม ComboBox - สลับไปที่ Design View. - คลิกขวาที่พื...

ลองให้เครื่องอื่นเปิดและลอง Save ดูว่าได้หรือไม่ครับ

ถ้าได้แสดงว่า Excel ในเครื่องอาจจะมีปัญหา ลอง Repair ดู ถ้าหากเป็นเหมือนกันหลายเครื่องแสดงว่าไฟล์มีปัญหาครับ

บรรทัดที่ทำให้เกิดการสะสมค่าไปเรื่อย ๆ คือ

sumRange.Cells(1, j).Value = sumRange.Cells(1, j).Value + cellValue หากไม่ต้องการให้สะสม ให้แก้เป็น sumRange.Cells(1, j).Value = cellValue ครับ

กรุณาปลด Lock ใน VBE แล้วแนบไฟล์นั้นมาอีกครั้งครับ

สามารถทำเร็ว ๆ ได้ด้วย Code ครับ

หากทำด้วยมือมีวิธีทำให้เร็วขึ้นได้ด้วยเทคนิคตามภาพครับ

:D Code ที่ตอบไปในเครื่องผมสามารถทำงานได้ ก็เป็นที่น่าแปลกอยู่เหมือนกันครับ ลองอีก Code ใช้วิธีหน่วงเวลาเข้าไปช่วย ในเครื่องผมสามารถทำงานได้เช่นกันครับ Sub Button_ok() Dim l As Long, tg As Range, ttg As Range Dim i As Integer, k As Integer, tt As Integer Dim j As Integer, m As Integer, n As Integer ...

:D ตัวอย่างสูตรที่จะเขียนใน Page 1 ครับ =OR(AND($K4="P",COUNTIFS($E$4:$E$25,$E4)=COUNTIFS($E$4:$E$25,$E4,$K$4:$K$25,"P")),VLOOKUP($E4,$E$27:$K$43,5,0)="P") สูตรนี้ใช้ฟังก์ชัน OR, AND, COUNTIFS, และ VLOOKUP ใน Excel เพื่อตรวจสอบหลายเงื่อนไข AND($K4="P",COUNTIFS...

:D ลองปรับ Code เป็นด้านล่างครับ Sub Button_ok() Dim l As Long, tg As Range, ttg As Range Dim i As Integer, k As Integer, tt As Integer Dim j As Integer, m As Integer, n As Integer i = 0 j = 0 On Error GoTo ResumeAgain: Application.Calculation = xlCalculationManual Application.ScreenUpdating = False...

ปรับสูตรที่เซลล์ AB2 เป็นด้านล่างครับ

=IFERROR(INDEX($A:$A,AGGREGATE(15,6,ROW($AB$11:$AB$200)/(($AA$11:$AA$200=$G5)*($AB$11:$AB$200=$N$7)),COLUMNS($AB5:AB5))),"")

คัดลอกไปด้านขวาและลงด้านล่าง

ถ้าจะทำแบบอัตโนมัติต้องใช้ VBA ช่วย ลองเขียนด้วยการบันทึก Macro หรือหา Code มาเองก่อน ติดตรงไหนค่อยถามกันต่อครับ

Upgrade Form จาก Version 3.3.11 เป็น 3.3.12 เมื่อ 16 Jun 2024 เพื่อให้มวลมหาสมาชิกได้ใช้ Forum ที่ทันสมัยอยู่ตลอดเวลาไม่น้อยหน้าใครในโลกครับ

ตัวอย่างการปรับสูตรใน AB5 ครับ

=IFERROR(DAY(INDEX($A:$A,AGGREGATE(15,6,ROW($AB$11:$AB$20)/(($AA$11:$AA$20=$G5)*($AB$11:$AB$20=$N$7)),COLUMNS($AB5:AB5)))),"")

:D ตัวอย่างสูตรตามด้านล่างครับ ที่ C2 คีย์ =MID(SUBSTITUTE(B2,",","@",LEN(B2)-LEN(SUBSTITUTE(B2,",",""))),FIND("@",SUBSTITUTE(B2,",","@",LEN(B2)-LEN(SUBSTITUTE(B2,",",""))))+2,5) Enter > Copy ลงด้านล่าง สูตรข้า...

:D ตัวอย่างสูตรตามด้านล่างครับ ที่ AB5 คีย์ =IFERROR(DAY(INDEX($A:$A,AGGREGATE(15,6,ROW($AB$11:$AB$20)/($AA$11:$AA$20=$G5),COLUMNS($AB5:AB5)))),"") Enter > Copy ไปด้านขวาเท่าที่คิดว่าข้อมูลขยายไปถึงแล้ว Copy ลงด้านล่างถึงบรรทัดที่ 7 ที่ J5 คีย์ =SUBSTITUTE(TRIM(SUBSTITUTE(AB5&",&q...

ตอนบันทึก Macro ให้เก็บไว้ที่ Personal Macro Workbook ดังภาพครับ

ลองเขียนเกี่ยวกับการแนบภาพมาเองก่อน ติดแล้วค่อยถามกันครับ

:D ตัวอย่าง Code ครับ Sub GetFile() Dim sFullPath As String Dim tFolderPath As String tFolderPath = Range("A9").Value ChDir (tFolderPath) sFullPath = Application.GetOpenFilename(FileFilter:="Excel Files (*.xlsx),*.xlsx", _ Title:="Please select an Excel file") End Sub

:D ควรแนบไฟล์ประกอบคำถาม โดยสร้างเป็นตัวอย่างไฟล์ขึ้นมาใหม่ ใช้วิธีง่าย ๆ คือเปลี่ยนข้อมูลเดิมให้เป็นข้อมูลตัวอย่างจะได้ไม่เปิดเผยข้อมูลที่ถือเป็นความลับ ผู้ตอบจะได้เห็นปัญหาเดียวกัน หากจะลองแก้ปัญหาไปเฉพาะหน้าก่อนให้ลอง Cut PivotTable ใน Sheet2 ไปไว้ที่ไฟล์อื่น เช่นไฟล์ที่สร้างขึ้นใหม่ เปลี่ยนเป็นร...