Snasui Excel Forum

Posted: **Mon Sep 09, 2013 11:58 pm**

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

Posted: **Tue Sep 10, 2013 12:00 am**

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

Posted: **Tue Sep 10, 2013 12:36 am**

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

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

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

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

Posted: **Wed Sep 11, 2013 10:39 pm**

StudentPoint_V02_test2556.rar

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

Posted: **Wed Sep 11, 2013 11:34 pm**

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

Posted: **Thu Sep 12, 2013 9:26 am**

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

Posted: **Thu Sep 12, 2013 11:45 am**

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

Posted: **Thu Sep 12, 2013 5:09 pm**

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

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

Posted: **Thu Sep 12, 2013 6:58 pm**

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

Posted: **Thu Sep 12, 2013 9:13 pm**

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

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

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

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

Posted: **Thu Sep 12, 2013 9:18 pm**

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

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

Posted: **Thu Sep 12, 2013 9:35 pm**

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

Posted: **Thu Sep 12, 2013 9:36 pm**

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

Posted: **Thu Sep 12, 2013 9:40 pm**

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

Posted: **Thu Sep 12, 2013 9:46 pm**

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

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

Posted: **Thu Sep 12, 2013 10:28 pm**

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]

Posted: **Thu Sep 12, 2013 10:43 pm**

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

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

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

Snasui Excel Forum

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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