Excel Forum

สอบถามครับ
ผมมีบาร์โค๊ดอยู 1 ชุดครับ ซึ่งบาร์โค๊ดตัวนี้ผมได้ทำการยิงเข้า Excel โดยใช้ปืนสแกนบาร์โค๊ดครับเวลายิงแล้ว
โค๊ดที่ขึ้นจะเป็น 220080220300140009024 ตรงนี้ผมได้ทำการตั้งเป็น Text ไว้
แต่โค๊ดที่ถูกต้องตามหน้าป้ายคือ 20080220300140009024

รบกวนอาจารย์ช่วยดูให้หน่อยครับ

Dim strSQL As String
strSQL = "INSERT INTO tblScore(SName,Score, Folder ) VALUES("
strSQL = strSQL & "'" & SName & "',"
strSQL = strSQL & "" & Score & ","
strSQL = strSQL & "" & Folder & ")"
Dim comm As New ADODB.Command
With comm
.ActiveConnection = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source ...

Dim strSQL As String
strSQL = "INSERT INTO tblScore(SName,Score, Folder ) VALUES("
strSQL = strSQL & "'" & SName & "',"
strSQL = strSQL & "" & Score & ","
strSQL = strSQL & "" & Folder & ")"
Dim comm As New ADODB.Command
With comm
.ActiveConnection = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source ...

Dim strSQL As String
strSQL = "INSERT INTO tblScore(SName,Score) VALUES("
strSQL = strSQL & "'" & SName & "',"
strSQL = strSQL & "" & Score & ")"
strSQL = strSQL & "" & Folder & ")"
Dim comm As New ADODB.Command
With comm
.ActiveConnection = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source ...

ถ้าไฟล์ powerpoint อยู่คนละ โฟรเดอร์กับ Access ข้อมูลยังคงบันทึกลงไฟล์ Access ที่เราตั้งไว้ไหมครับ

มีตัวอย่างการปรับไหมครับ

ได้แล้วครับ ผมสงสัยครับเรากำหนดโค๊ดตรงไหนเพื่อเซฟครับ
-ผมยากให้เซฟชื่อชีตที่ทำลงไปใน Access ด้วยครับ Score Qc.accdb

ด้แล้วครับ ผมสงสัยครับเรากำหนดโค๊ดตรงไหนเพื่อเซฟครับ
-ผมยากให้เซฟชื่อชีตที่ทำลงไปใน Access ด้วยครับ Score Qc.accdb

ได้แล้วครับ ผมสงใสครับเรากำหนดโค๊ดตรงไหนเพื่อเซฟครับ

ขึ้นแบบนี้ครับ

ปัญหาคือข้อมูลไม่สามารถบันทึกได้ครับ

ครับ

Private Sub cmdResult_Click()
Dim answer(70) As String
answer(1) = "A"
answer(2) = "C"
answer(3) = "C"
answer(4) = "C"
answer(5) = "C"
answer(6) = "A"
answer(7) = "C"
answer(8) = "C"
answer(9) = "A"
answer(10) = "D"
answer(11) = "A"
answer(12) = "A"
answer(13) = "C"
answer(14) = "A"
answer(15 ...

ขอบพระคุณมากครับ

งานสามารถเซฟได้ปกติกครับแต่ทำไมถ้าเป็นภาษาญี่ปุ่นไม่สามารถเซฟได้ครับ

ไฟล์ครับ คือสิ่งที่ต้องการคือผมต้องการให้เมื่อคนที่ 1 ทำ ครบ 50 ข้อแล้ว แล้วข้อมูลได้ทำการบันทึกเรียบร้อยแล้วแล้วเมื่อคนที่มาทำต่อให้สลับข้อกันเช่น ข้อ 50 มาเป็นข้อ 1 ข้อ 1 ไปเป็น 50 แบบนี้ ครับ

ผมยากทำ test พนักงานครับแต่ตอนนี้ติดปัญหาคือยากให้ทุกข้อสลับกันทุกครั้งที่ทำเสร็จครับ
Dim answer(50) As String
answer(1) = "A"
answer(2) = "B"
answer(3) = "A"
answer(4) = "A"
answer(5) = "D"
answer(6) = "D"
answer(7) = "B"
answer(8) = "A"
answer(9) = "C"
answer(10) = "A"
answer(11) = "B"
answer(12 ...

=IFERROR(INDEX(Sheet1!D:D,MOD(AGGREGATE(15,6,COUNTIF(Sheet1!$D$2:$D$9999,"<="&Sheet1!$D$2:$D$9999)*10^10+COUNTIF(Sheet1!$E$2:$E$9999,"<="&Sheet1!$E$2:$E$9999)*10^5+ROW(Sheet1!$E$2:$E$9999)/(Sheet1!$C$2:$C$9999=$S$2)/(Sheet1!$A$2:$A$9999=$A$1)/ISERROR(MATCH(Sheet1!$D$2:$D$9999&Sheet1!$E$2:$E$9999,$A ...

ผมลองเปลี่ยนเป็น 5000 ดูครับแต่ เวลานำข้อมูลไปใส่ถึง row 5000 ข้อมูลกับไม่รวมครับตามสูตรครับ