Excel Forum

:D เข้าใจว่าเกิดจากการกำหนด Regional and language ไว้เป็นภาษาไทย เครื่องผมกำหนดไว้เป็น English (United Kingdom) ลองปรับตัวแปร yr ใหม่จากเดิม yr = vba.year(.text) เป็น yr = vba.right(.text,4) ดูครับ Statement นี้เป็นการตัด String ด้านขวาสุดใน TextBox1 มา 4 อักขระมาตรง ๆ แทนการการสกัดมาด้วยฟังก์ชัน Ye...

Code นั้นเป็นการเช็คว่าตัวแปร yr มีค่าน้อยกว่า 2400 หรือไม่ หากน้อยกว่าแสดงว่าระบุค่าปีผิดพลาด

ลองใช้ MessageBox แสดงค่าตัวแปร yr ตามภาพ จากนั้นทดสอบรันแล้วสังเกตว่าได้ค่าใด น้อยกว่า 2400 หรือไม่ หากระบุปีเป็น 2566 แต่ค่าปีเป็นค่าอื่นแสดงว่ามีสิ่งผิดปกติครับ

เนื่องจากไม่เห็นไฟล์แนบและ Code

การทำงานแบบง่าย ๆ ถ้าต้องการให้ไปต่อกับข้อมูลบรรทัดล่างสุดก็ให้ยกเลิกการ Filter เสียก่อนครับ

ในเครื่องผมทำงานได้ปกติครับ

ไม่ทราบว่าโปรแกรมฟ้องว่าอย่างไร หรือไม่ ช่วยอธิบายรายละเอียดประกอบมาด้วยครับ

ไม่สามารถตอบได้จนกว่าจะได้เห็นและทดสอบการทำงานของ Code ที่เขียนไว้ครับ

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

:D ตัวอย่างการปรับ Code ครับ Private Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean) Dim yr As Integer With TextBox1 If IsDate(.Text) Then yr = VBA.Year(.Text) If yr < 2400 Then MsgBox "กรุณากรอกวันเดือนปีเป็นรูปแบบ พ.ศ. ตัวอย่างเช่น 2/2/2566" .BackColor = vbYellow .Value ...

:D ตัวอย่างการปรับ Code ครับ Sub RecordCheck() Dim mylastrow As Long Dim lc As Variant Dim sh As Worksheet Application.ScreenUpdating = False Set sh = Sheet12 If sh.Range("B3").Value = "" Then MsgBox ("คุณยังไม่กรอกรายการ !!!") sh.Range("C9").Select ElseIf sh....

:D ตัวอย่างการปรับ Code ครับ 'Other code Sheets("Input").Range("E6").Value = Me.ListBox1.List(i, 3) If Sheets("Input").Range("E6").Value = "Male" Then Sheets("Input").OptionButton1.Value = True Sheets("Input").OptionButton2.Value ...

:D ตัวอย่างสูตรครับ เซลล์ O1 คีย์ =IFERROR(AGGREGATE(15,6,MID(SUBSTITUTE(TRIM(CONCAT($A$1:$N$27&" "))," ",REPT(" ",50)),50*(ROW($1:$1000)-1)+1,50*ROW($1:$1000)^0)+0,ROWS(O$1:O1)),"") ลอง Enter อย่างเดียวเพื่อรับสูตรดูก่อน หากไม่ได้ให้ Edit เซลล์ (คลิกเซลล์...

Code นั้นเป็นการเปิดไฟล์มาแล้ว Export ไปเป็น PDF ต้องการให้หน้าไหนขึ้นก่อนต้องไปเรียงข้อมูลใหม่ ข้อมูลไหนต้องการอยู่ก่อนก็ให้เรียงไว้ก่อนข้อมูลอื่นครับ

ใน Excel 2010 ให้เข้าเมนู File > Option แล้วกำหนดค่าตามภาพเพื่อให้มีการแทรกบรรทัดของ Table เมื่อเราเพิ่มข้อมูล Excel จะเพิ่มสูตรต่าง ๆ จากบรรทัดบนเข้าไปในบรรทัดใหม่ครับ

ปกติมันจะเป็นเช่นนั้น ผู้ใช้ต้องเลือกทุกตัวเลือกใหม่เองครับ

1. ที่ textbox1 คีย์ข้อมูลเป็นวัน เดือน ่ปี แล้วคลิกปุ่ม add ส่งข้อมูลไปไว้ที่ชีท Data ต้องเขียนโค๊ดอย่างไรให้ข้อมูลที่ส่งไปนั้นแสดงผลเป็วันเดือนปี ในแบบ วัน เดือน ปี พ.ศ. :D ตัวอย่าง Code ครับ Dim arrDte As Variant 'Other code arrDte = VBA.Split(TextBox1.Value, "/") sh.Range("B"...

ยกตัวอย่างเช่น แก้ไขให้ตารางแรกมีค่า Week ที่ไม่ซ้ำถึงจะนำไปสร้างความสัมพันธ์ได้ครับ

ปกติแล้วการจะนำไปสร้างความสัมพันธ์จะต้องเป็น One to Many หากเป็น Many to Many จะต้องสร้างตารางที่เป็น One to Many เข้ามาช่วยครับ

เนื่องจากข้อมูลใน 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 ไปทางขวาและลงด้านล่าง