Excel Forum

ขอบพระคุณมากครับอาจารย์ ผมได้รูปแบบคำสั่งโปรแกรมที่อาจารย์ชี้ทางให้ นำไปปรับเล็กน้อย ก็สามารถส่งข้อมูลเข้า ปพ.5 ได้อย่างแม่นยำครับผม ขอบคุณครับผม

หากเราต้องการให้ cell H8 ของชีท บันทึกข้อความ ในแต่ละ workbook ตามชื่อไฟล์ ใน คอลัมน์ A ของชีท MinGoPP5T1 ไฟล์ ส่งเลขที่นักเรียนเข้าปพ.5.xlsm ที่อยู่ไดร์ฟ D:\ปพ.5\ปีการศึกษา2564\ประถม\เทอม1-2 รับค่าเลขที่ ที่คัดลอกมาจาก คอลัมน์ H ชีท MinGoPP5T1 ของไฟล์ ส่งเลขที่นักเรียนเข้าปพ.5.xlsm เหมือนรูปแบบตามต ...

ขอบพระคุณมากๆ ครับอาจารย์ โค๊ดใช้ได้ดีครับ
แต่สงสัยตรงจุดนึงครับ มี Run-time error แจ้งบอกว่า ไม่สามารถตั้งค่าคุณสมบัติ Locked ของคลาส Range ได้ เกิดจากสาเหตุใดครับผม

เราสามารถทำให้
Range("F8:F62") ล็อค โดยไม่ต้องไป ยกเลิกการป้องกันแผ่นงาน หรือ ป้องกันแผ่นงาน เพียงแค่กรอกคะแนนเต็มที่ cell F7 ...

เรียนสอบถามอาจารย์ครับ
ผมอยากทราบครับว่า ถ้าเราจะกำหนดให้ Sheet1 เซลล์ F8:F62 มีสถานะเป็นเซลล์ที่ถูกล็อคอยู่ ถ้ามีการกรอกค่าตัวเลขใดๆ ที่เซล์ F7 เซลล์ที่ถูกล็อคอยู่คือเซลล์ F8:F62 ให้มันปลดล็อค เรากำหนดแบบใดให้ได้ค่าที่ถูกต้องครับ
ข้อมูลที่ต้องการคือ ถ้าไม่มีการกำหนดคะแนนเต็มก่อน จะไม่สามารถป ...

ผมลองปรับดูแล้วได้ครับ ใช้ Small แทน

Sub MinLow3_Click()
Dim directory As String, fileName As String, bookStr As String
Dim j As Integer, iMin As Double, iCount As Integer, rw As Integer
Dim r As Range, rFind As Range
Dim tempBook As Workbook, thsBook As Workbook
Dim aRR() As Variant ...

เรียนอาจารย์ ที่เคารพครับ
ผมเขียน VBA ดังนี้ครับ

Sub MinLow3_Click()
Dim directory As String, fileName As String, bookStr As String
Dim j As Integer, iMin As Double, iCount As Integer, rw As Integer
Dim r As Range, rFind As Range
Dim tempBook As Workbook, thsBook As Workbook
Dim aRR() As ...

ใช่ครับอาจารย์ พอผมมาเปิดไฟล์ดูอีกที พบว่า ไฟล์ผมเละเลยครับ เลข 0 เต็มกระดาน ขอหัวเราะให้กับตรรกะอันน้อยนิดของผมครับอาจารย์ ^^
ขอบพระคุณอาจารย์มากๆ ครับผม ที่คอยชี้แนะกระผมครับ

อาจารย์ครับ ผมลองปรับเป็น

'...
With tempBook.Sheets("คะแนน1")
.Range("AJ7:AJ62").resize(,c).Value = _
thsBook.Worksheets("จปสคะแนนสอบกลางภาค").Cells(6, j + rw).Resize(55, c).Value
With Cells
.Replace "0", ""
.SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp
End With
End With
'...


ผลคือ ...

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

เรียนอาจารย์ครับ มี workbook ที่มีชื่อเหมือนกันดังภาพนี้ครับ
img1.png
คือข้อมูลวางตำแหน่งที่ถูกต้อง ตามวิชา สังคมศึกษา ศาสนาและวัฒนธรรม ฉ.1 คอลัมภ์ AJ7 ข้อมูลลงไฟล์ ส31103-1.xlsm แต่ วิชา สังคมศึกษา ศาสนาและวัฒนธรรม ฉ.2 คอลัมภ์ AK7 ไม่มีข้อมูลลงไฟล์เดียวกัน ส31103-1.xlsm (ไฟล์เดียวกัน ลงแต่ คอลัมภ ...

เรียน อาจารย์ครับ ผมมีโค๊ด VBA แล้วเกิดปัญหาคือ ไฟล์ ดึงจปส.-2-2563-ม.4-1-SendMarkToPP5 - TEST.xlsm ข้อมูลในชีท จปสคะแนนสอบกลางภาค ส่งข้อมูลจากปุ่ม ส่งคะแนน Miterm2 เข้า ปพ.5 แล้วข้อมูลก็เข้า Workbook อื่น ใน Drive D:\ปพ.5\ปีการศึกษา2563\มัธยม\เทอม2\ม.4-1 ของ sheet "คะแนน1" ในแต่ละไฟล์ ซึ่งลงข้อม ...

จากที่อาจารย์กล่าวมานั้น ผมทำตามได้ดังนี้

' เพิ่มข้อมูลเข้าชีท Home
With tempBook.Sheets("Home")
.Range("C9").Value = r.Offset(0, 10).Value
.Range("C10").Value = r.Offset(0, 11).Value
.Range("C11").Value = r.Offset(0, 12).Value
.Range("C12").Value = r.Offset(0, 13).Value
.Unprotect Password ...

Sub CopyDataRenameFiles()
Dim src As String, dst As String, fl As String
Dim rfl As String, rall As Range, r As Range

Dim directory As String, fileName As String, room As String
Dim sheet As Worksheet, j, i As Integer
Dim tempBook As Workbook, thsBook As Workbook

Set thsBook ...

ขอบพระคุณมากครับอาจารย์ ความรู้จากข้อความ

สังเกตว่า if กับ End If ต้องวางให้ตรงกัน With กับ End With จะต้องตรงกัน For กับ Next จะต้องตรงกัน
นอกจากนี้กรุณาสังเกตการใช้ With...End With เพื่อความกระชับของ Code จากที่ผมปรับมาให้ว่าเป็นการใช้ในลักษณะใด

ได้รับความเข้าใจเพิ่มขึ้นอีกระดับ จากที่ไม ...

Code อยู่ในไฟล์ Copy-Rename-Files-ม.1-3-Term2-62.xlsm ใน ชีท copyrenamefiles ครับ
โดยการคลิกที่ปุ่ม CopyDataRenameFiles (สร้างไฟล์ได้สำเร็จครับอาจารย์) แต่ไม่สามารถนำข้อมูลใน
ชีท copyrenamefiles ที่ เซลล์ N3 คัดลอกไปไฟล์ที่สร้างใหม่คือ ท21102-1.xlsm ใน ชีท Home ที่ เซลล์ C9
ชีท copyrenamefiles ท ...

เรียนอาจารย์ครับ จะเขียน VBA อย่างไร เมื่อ i=3
ให้นำข้อมูลเข้าที่ชีท copyrenamefiles Cell N3 เข้าไปที่ชีท Home ลง Cell C9
ให้นำข้อมูลเข้าที่ชีท copyrenamefiles Cell O3 เข้าไปที่ชีท Home ลง Cell C10
ให้นำข้อมูลเข้าที่ชีท copyrenamefiles Cell P3 เข้าไปที่ชีท Home ลง Cell C11
ให้นำข้อมูลเข้าที่ชีท ...

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

ใช้ได้ดีมากครับ ขอเรียนสอบถามอาจารย์อีกประการครับ ที่เซล์ BC8 ถ้าเราจะเลือกช่วงต่อ จาก =IF(B8=0,"",IF(SUMPRODUCT(--(G$7:Q$7)+0>0,--(G8:Q8=""),AND(--(T$7:AC$7)+0>0,--(T8:AC8=""))),"ร")) เหตุใดสูตรมันไม่คำนวณค่าดังกล่าวครับ
กล่าวคือ เลือกตรวจสอบตั้งแต่ G7:Q7 และ T7:AC7 เป็น 2 ช่วงคะแนนครับ

ที่ชีท sheet1 เซลล์ S8 ต้องการผลลัพธ์เป็น ร ถ้าช่องคะแนน G8:Q8 มีค่าว่าง โดยเทียบค่ากับการกรอกหัวคะแนน
หัวคะแนน G7:Q7 ถ้าเป็นค่าว่าง ก็ให้แสดงค่า "" (ว่างเปล่า) แต่ถ้าหัวคะแนนมีคะแนนปรากฏ แล้วนักเรียนไม่มีคะแนน ต้องติด ร ที่เซลล์ S8 ถ้าหัวคะแนนไม่มีคะแนนปรากฏ แล้วนักเรียนไม่มีคะแนน และไม่มีรหัสน ...

เรียนอาจารย์ครับ
1. จะมีวิธีการใดที่ทำให้สูตรด้านล่างนี้ สั้นกว่าเดิมหรือครับ
=IF(B8="","",IF(OR(OR(OR(OR(OR(OR(OR(OR(OR(OR(OR($G$7="",$G8="",$B8="",$H$7="",$H8="",$B8="",$I$7="",$I8="",$B8="",$J$7="",$J8="",$B8="",$K$7="",$K8="",$B8="",$L$7="",$L8="",$B8="",$M$7="",$M8="",$B8="",$N$7="",$N8="",$B8 ...