Excel Forum

เนื่องจากข้อมูลใน Sheet4 เป็น Text จึงควรปรับสูตรเป็นด้านล่างครับ

=VLOOKUP($B2&"",data,4,0)

สูตรอ้างอิงถึง Named range ที่เขียนไว้ในไฟล์อื่นและเป็น Error ดังภาพ ต้องแก้ไขไม่ให้เกิด Error เสียก่อนครับ

การใส่สีแล้วให้เกิดการประมวลผลจะต้องพึ่ง VBA เข้ามาช่วย ลองเขียนมาเองดูก่อน ติดปัญหาแล้วค่อยถามกันต่อครับ

อ่านแล้วไม่เข้าใจครับ

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

ตัวอย่างสูตรตามด้านล่างครับ

1. ที่ P3 คีย์
   =SUM(OFFSET('2023(round)'!C3,0,0,1,MATCH(TEXT(TODAY(),"mmm"),'2023(round)'!$C$2:$N$2,0)))
   Enter > Copy ลงด้านล่าง

ตัวอย่างสูตรตามด้านล่างครับ

1. ที่ I7 คีย์
   =UNIQUE(TEXT(B3:B122,"mmm/yyyy"))
   Enter
2. ที่ J7 คีย์
   =LOOKUP(2,1/(TEXT($B$3:$B$122,"mmm/yyyy")=$I7),C$3:C$122)
   Enter > Copy ไปทางขวาและลงด้านล่าง

ต้องการไปยังโฟลเดอร์ที่เก็บไฟล์ไว้ (โฟล์เดอร์อยู่ใน Drive C: ชื่อว่า Teacher)เพื่อเลือกไฟล์มาใช้งาน :D ตัวอย่าง Code ครับ 'Other code Application.ScreenUpdating = False ChDir ("C:\Teacher") fileFilterPattern = "Excel Files (*.xls; *.xlsx),*.xls;*.xlsx ,Text Files (*.txt; *.csv),*.txt...

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

เซลล์ C2 คีย์

=IFERROR(INDEX(A:A,AGGREGATE(15,6,ROW($A$2:$A$9)/($A$2:$A$9<>""),ROWS(C$2:C2))),"")

Enter > Copy ลงด้านล่าง

:D ตัวอย่างการปรับ Code ครับ 'Other code Dim srb As Workbook, tgb As Workbook, srcRngs As Range Set srb = ThisWorkbook Set tgb = Workbooks("Copy_runLastdata.xlsx") With srb.Worksheets("0324") Set srcRngs = .Range("b" & .Rows.Count).End(xlUp).Resize(, 4) End With Wit...

:D Excel สามารถสร้าง QR Code ได้ แต่ตัว Scan จะต้องซื้อแยกต่าง เช่นตัว Scan ที่เป็น Hand held อย่างที่เห็นใน Seven - eleven หรือใช้โปรแกรม Scan ที่มีในโทรศัพท์มือถือ เข่นนี้เป็นต้น ส่วนเรื่อง Scan แล้วจะให้มันค้นพบว่าเคยมาสมัครไว้แล้วหรือไม่นั้นมันจะต้องมีระบบอื่นเข้ามาด้วยไม่ใช่แค่ Scan QR code เท่...

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

เซลล์ E28 คีย์

=TEXTJOIN(CHAR(10),TRUE,FILTER($C$9:$C$25,E9:E25=1))

Enter > Copy ไปทางขวา

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

วิธีที่ 2 ในเครื่องผมไม่สามารถทำงานได้ ติด Error ครับ

การเขียนลักษณะนี้ต้องคอยกด Run เองครับ

หากใช้ Change Event จะทำงานอัตโนมัติดูตัวอย่างได้ที่ https://learn.microsoft.com/en-us/offic ... eet.change

:D ตัวอย่าง Code ครับ Sub Macro1() ' ' Macro1 Macro ' If Range("B1").Value = 0 Then ActiveSheet.Shapes.Range(Array("Straight Connector 11")).Visible = False Else ActiveSheet.Shapes.Range(Array("Straight Connector 11")).Visible = True End If If Range("B2").Valu...

:D ผมให้แนวทางแล้วลองนำไปเขียนเองดูก่อน ติดแล้วค่อยถามกันต่อ โจทย์ลักษณะนี้ไม่ยากเกินไปที่จะฝึกเขียนให้เป็นครับ เซลล์ N2 เขียนสูตรเพื่อนับว่ามีข้อความ "ยังไม่สมัคร" ในช่วงอยู่กี่เซลล์ =Countif(h2:l2,"ยังไม่สมัคร") Enter > Copy ลงด้านล่าง หากได้คำตอบเป็น 0 แสดงว่าไม่เจอเลยหรือหมาย...

:D ตัวอย่าง Code ครับ 'Other code For i = 2 To lastRow If Worksheets("Bget").Cells(i, 11).Value = ProductId Then If IsNumeric(Worksheets("Bget").Cells(i, 3).Value2) Then If Worksheets("Bget").Cells(i, 3).Value2 < 200000 Then TextBox2.Text = Worksheets("Bget")....

สามารถทำได้ด้วย VBA ลองเขียนมาเองดูก่อน ติดตรงไหนค่อยถามกันต่อครับ

การเช็คค่าตรง ๆ แบบนั้นไม่ได้เขียนสั้น ๆ แบบที่เขียนมาได้ครับ วิธีที่ผมทำตัวอย่างไว้นี้เป็นการทำให้สามารถทำงานต่อได้ หากพบว่าวิธีเดิมทำได้แบบง่าย ๆ รบกวนนำมาแชร์ด้วยครับ

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

:D ตัวอย่างการ Query ข้อมูลจาก Google Sheet มาเทียบกับค่าเป้าหมายใน Excel ครับ Sub Import_Sheets_to_Excel() Dim QRT As QueryTable, ul As String, ky As String With Worksheets("Main") If .QueryTables.Count > 0 Then .QueryTables(1).Delete .Range("b1:b2").ClearContents End If ky = &q...

:D ตัวอย่างวิธีการทำงานครับ แทรกบรรทัดว่าง 2 บรรทัดแรก เซลล์ D3 คีย์ =SUMPRODUCT(--(A$3:A3="<tr>")) Enter > Copy ลงไปจนสุดข้อมูล (D17) เซลล์ E3 คีย์ =COUNTIF(D$3:D3,D3)<=3 Enter > Copy ลงไปจนสุดข้อมูล (E17) คลุม E2:E17 > เข้าเมนู Data > Filter > เลือกเฉพาะ True Copy ข้อมูลในคอลัมน์ D ที่ได...