Excel Forum

Google Form จะมี Google Sheet ที่ถูกสร้างขึ้นมาคู่กันเพื่อใช้แสดงข้อมูลที่ได้จากการ Submit Form ดังนั้นเราสามารถเขียนสูตรที่ปลายทางเพื่อนำค่าที่ได้นี้ไปใช้ต่อได้ตามต้องการครับ

:D งานลักษณะที่แจ้งมานั้นเข้าใจว่าเป็นการเขียนโปรแกรมด้วย VBA เข้าไปช่วย ยกตัวอย่างเช่น เมื่อคีย์ข้อมูลในชีตที่ 1 แล้วคลิกปุ่มเพื่อเก็บข้อมูลเข้าชีต 3 ส่วนชีต 2 ดูเร็ว ๆ แล้วใช้สูตรเข้ามาช่วยได้ สำหรับการเขียนโปรแกรมจำเป็นต้องเขียนมาเองก่อนตามกฎการใช้บอร์ดข้อ 5 ด้านบน :roll: ติดตรงไหนค่อยถามกันต่อครับ

:D ตัวอย่างสูตรตามด้านล่างครับ ที่ A2 คีย์ =IFERROR(LEFT(INDEX(input!$A$1:$A$11,INT((ROWS(C$1:C1)-1)/40)+1),5),"") Enter > Copy ลงด้านล่าง ที่ B2 คีย์ =IF(A2="","",MID(INDEX(input!$A$1:$A$11,MATCH(A2&"*",input!$A$1:$A$11,0)),MOD((ROWS(C$1:C1)-1),40)+7,1)) ...

ช่วยแจ้ง Version ของ Excel ที่ใช้อยู่จริงตาม Link นี้ด้วยครับ https://snasui.com/viewtopic.php?p=103177#p103177

สำหรับตัวอย่างสูตรเพื่อหาว่าอีกกี่วันสิ้นเดือนตามด้านล่างครับ

=EOMONTH(TODAY(),0)-TODAY()+1

กรุณา Update Version ของ Excel ที่ใช้ตาม Link นี้ด้วย https://snasui.com/viewtopic.php?p=103177#p103177 เพื่อจะได้ตอบให้ตรงกับ Version ที่ใช้งานอยู่จริงครับ

น่าจะเกิดจากการย่อหน้าต่างแล้วทำให้หลุดจาก Windows ออกไป ลองใช้วิธีการเรียงหน้าต่างตามด้านล่างครับ

1. กดแป้น Ctrl+N เพื่อเปิดไฟล์ว่างขึ้นมาใหม่
2. เข้าเมนู View เลือก Arrange All
3. เลือก Vertical หรือ Horizontal เพื่อให้หน้าที่หลุดขอบ Windows มาแสดงเรียงด้วยกันกับไฟล์ที่ได้ตามข้อ 1

:D ทำการกำหนดค่าตั้งต้นให้กับ j ใหม่ในแต่ละไฟล์ที่ Loop ครับ ตัวอย่างการปรับ Code 'Other code a = VBA.Split(Contents, Chr(7)) j = 0 For i = 0 To UBound(a) 'Other code ผมรบกวนแปะเลขที่บัญชีไว้ให้ผมด้วยครับมีค่ากาแฟให้ ขอบคุณสำหรับน้ำใจครับ :thup: การตอบในฟอรัมยินดีช่วยเหลือสมาชิกเพื่อการช่วยเหลือเผื่...

:D ตัวอย่างการปรับ Code ครับ Option Explicit Sub ImportDOCX() Dim FName As String, FullName As String Dim wdApp As Object 'Word.Application Dim wdDoc As Object 'Word.Document Dim Coordinates As String, Contents As String Dim Dest As Range, a As Variant, i As Integer, j As Integer 'Prepare Set Dest =...

:D ตัวอย่างการปรับ Code ครับ Sub CopyCDataToNextColumn() Dim ws As Worksheet Dim lastRow As Long Dim i As Long Dim value As String Dim data As Variant Set ws = ThisWorkbook.Sheets("Sheet1") With ws lastRow = .Cells(.Rows.Count, 1).End(xlUp).Row data = .Range(.Cells(1, 1), .Cells(lastRow, 1...

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

ตัวอย่างสูตรครับ

เซลล์ I4 คีย์

=COUNTIFS($B$4:$B$13,$H4,$C$4:$C$13,RIGHT(I$3),$A$4:$A$13,$G4)

Enter > Copy ไปทางขวาถึง K4 แล้ว Copy ลงด้านล่าง

กรุณาอธิบายว่าตัวเลขผลลัพธ์แต่ละช่องมีวิธีคำนวณมาอย่างไร เพื่อนสมาชิกจะได้ช่วยเหลือได้ครับ

กรุณาเขียน Code มาในไฟล์ Excel แล้วแนบไฟล์นั้นมาใหม่ อ่านกฎการใช้บอร์ดข้อ 4 และ 5 ด้านบนประกอบครับ

พวกที่เป็น LastRow ShRow ListRow FindRow หรือ ColHead เป็นตัวแปรหรือไม่ และต้องประกาศตัวแปรหรือเปล่า :D คำเหล่านั้นเป็นตัวแปรทั้งนั้นครับ ตัวแปรควรจะมีการประกาศเอาไว้ก่อนเสมอ เป็นการจัดสรร Memory ให้เหมาะสมกับประเภทของข้อมูล ทั้งจะได้ติดตาม แก้ไข เปลี่ยนแปลง ได้โดยง่าย การไม่ประกาศตัวแปรจะทำให้ชนิด...

สามารถใช้ข้ามไฟล์ได้แต่ต้องเปิดไฟล์ต้นทางไว้ด้วยเสมอครับ

ไม่สามารถตั้งค่าให้ทำเช่นนั้นได้ครับ

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

ตัวอย่างสูตรครับ

1. เซลล์ F2:F8 คีย์ชื่อชีตที่ต้องการตรวจสอบข้อมูล
2. เซลล์ C2 คีย์สูตร
   =IFERROR(INDEX($F:$F,AGGREGATE(15,6,ROW($F$2:$F$8)/COUNTIFS(INDIRECT(INDEX("'"&$F$2:$F$8&"'!A2:J100",0)),B2),1)),"Not found")
   Enter > Copy ลงด้านล่าง

:D เหตุการณ์เช่นนี้เป็นปกติของ Excel ทั้งนี้เพราะ Excel ถือว่าหัวคอลัมน์ของ Table เป็น Text จึงมีการ Fill แบบ Text หากตัวเลขถูกเก็บเป็น Text มันก็จะเพิ่มที่ตัวท้ายเสมอ สำหรับ Header ของ Table นี้ Excel ไม่อนุญาตให้เขียนสูตรครับ หากต้องการทำในแนวคอลัมน์ ที่เซลล์ใด ๆ คีย์ '1/11/2023 แล้วลากลงจะเห็นว่า...

:D ตัวอย่าง Code ตามด้านล่าง ลองปรับใช้ดูครับ Dim isUpdated As Boolean Private Sub ComboBox7_Change() Dim iRow As Long Dim ws As Worksheet Set ws = Worksheets("Database") ws.Cells(127, 135).Value = Me.ComboBox7.Value isUpdated = True End Sub Private Sub CommandButton1_Click() Dim i As Inte...

:D ก็ต้องเปลี่ยนเป็นการ Loop ไปที่แต่ละตัวของคอลัมน์ K เพื่อตรวจสอบว่าเป็นคำว่าลาออกแล้วหรือไม่ ถ้าใช่ก็ให้ข้ามไปยังเซลล์อื่น สิ่งที่ทำมาคือวางสูตรพร้อมกันทุกเซลล์ ซึ่งเป็นวิธีที่ไม่สามารถให้ผลลัพธ์ได้ตามที่ต้องการ เปลี่ยนไปตรวจสอบทีละเซลล์แล้วค่อยวางสูตรหรือใส่ค่าตามเงื่อนไขแทน การทำงานกับ Code เรา...