รบกวนอาจารย์แก้ไขข้อมูลให้หน่อย

[wuth]

อาจารย์ครับ
ข้อมูล
ครู 175 คน
นักเรียน 3200 คน
ต้องการกรอกข้อมูล ใบเหลือง ใบเขียว
และสรุปข้อมูลครับ

[wuth]

รบกวนแก้ไข error หน่อยครับ

[bank9597]

รบกวนแก้ไข error หน่อยครับ

ลองตามนี้ครับ

ที่ชีทรายชื่อครู เซลล์ HD6 คีย์ =TRIM(B6) คัดลอกลงมา

จากนั้นคัดลอกค่าที่ได้ในคอลัมน์ HD ไปวางทับข้อมูลในเซลล์ B6 ลงมา ครับ

[wuth]

StudentPoint_V02_test2556.rar

อาจารย์ดูให้หน่อยครับ
StudentPoint_V02_test2556.rar

[bank9597]

เป็นการใช้ VBA ซึ่งไม่ถนัดครับ เดี๋ยวรอท่านอื่นมาช่วยดูอีกทีครับ

[wuth]

รบกวนอย่างสูง ท่านผู้รู้

[snasui]

E9 และ E14 ค่าที่ถูกต้องคือค่าใดครับ

[wuth]

อาจารย์ ผมแก้ error E9 และ E14 ได้แล้ว

เหลือเฉพาะปุ่ม บันทึกครับ

[snasui]

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

[wuth]

1.อาจารย์ครับ ต้องการกดปุ่มบันทึกใบเหลือง ข้อมูลลงฐานข้อมูลนักเรียน แต่ปุ่มบันทึกใบเขียวไม่ทำงาน
และต้องการกดปุ่มบันทึกใบเขียว ข้อมูลลงฐานข้อมูลนักเรียน2 แต่ปุ่มบันทึกใบเหลืองไม่ทำงาน จะทำอย่างไร

2.ต้องการให้ข้อมูลใบเหลืองและ ใบเขียว หลังกดปุ่มบันทึกจากข้อ 1 ให้ข้อมูลบันทึกลงในตารางรายชื่อครู เพื่อสรุปยอดที่ครู 1 คน ออกใบเหลือง ใบเขียวกี่ใบ ครับ

3.ต้องการปุ่มค้นหา ชื่อ-สกุล แล้วมีรหัส โชว์ครับ

รบกวนอาจารย์ได้โปรดแก้ไขหน่อยครับ
ดังไฟล์แนบครับ

[snasui]

ค่อย ๆ ถามตอบกันไปครับ

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

[wuth]

ข้อที่ 1ยังไม่ เขียน Code ครับ ช่วยหน่อยครับ VB ไม่เป็นครับ

[snasui]

หากยังไม่เขียนก็ต้องเขียนมาก่อนตามกฎการใช้บอร์ดข้อ 5 ด้านบนครับ

[wuth]

code ปุ่มใบเหลือง ครับ

Code: Select all

Option Explicit

Sub Button6_Click()
Dim iRow As Integer
Dim iCol As Integer
Dim rSource As Range
Dim rTarget As Range
On Error Resume Next
With Worksheets("Input")
    Set rSource = .Range("D12")
    iRow = .Range("E8").Value
    iCol = .Range("E9").Value
End With
If Err.Number <> 0 Then
    MsgBox "µÃǨÊͺÇѹ à×´×͹ »Õ"
    Exit Sub
End If
With Worksheets("°Ò¹¢éÍÁÙŹѡàÃÕ¹")
    Set rTarget = .Range("F6").Offset(iRow - 1, iCol - 1)
End With
rTarget = rSource
MsgBox "ºÑ¹·Ö¡¢éÍÁÙÅàÃÕºÃéÍÂáÅéÇ"
End Sub

[snasui]

การวาง Code VBA ในกล่องความเห็นให้ดูจาก Link นี้ครับ viewtopic.php?f=2&t=1187 เพื่อจะได้สะดวกในการอ่านและ Copy ไปทดสอบ

สำหรับ Code ที่เขียนมาตามด้านบน ติดปัญหาใดครับ

[wuth]

1.อาจารย์ครับ ต้องการกดปุ่มบันทึกใบเหลือง ข้อมูลลงฐานข้อมูลนักเรียน แต่ปุ่มบันทึกใบเขียวไม่ทำงาน
และต้องการกดปุ่มบันทึกใบเขียว ข้อมูลลงฐานข้อมูลนักเรียน2 แต่ปุ่มบันทึกใบเหลืองไม่ทำงาน จะทำอย่างไร

Code: Select all

Option Explicit

Sub Button6_Click()
Dim iRow As Integer
Dim iCol As Integer
Dim rSource As Range
Dim rTarget As Range
On Error Resume Next
With Worksheets("Input")
    Set rSource = .Range("D12")
    iRow = .Range("E8").Value
    iCol = .Range("E9").Value
End With
If Err.Number <> 0 Then
    MsgBox "?????????? ?????? ??"
    Exit Sub
End If
With Worksheets("?????????????????")
    Set rTarget = .Range("F6").Offset(iRow - 1, iCol - 1)
End With
rTarget = rSource
MsgBox "?????????????????????????"
End Sub

[quote][/quote]

[snasui]

อย่าเพิ่งไปพูดถึงปุ่มไหน ๆ ขอให้อธิบายว่า Code ที่เขียนมานั้นต้องการจะทำอะไร และที่ติดขัดอยู่คืออะไร หรือนั่นคือ คำตอบจาก Code นี้เป็นอย่างไร แล้วที่ต้องการเป็นอย่างไร

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

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