Snasui Excel Forum

สวัสดีครับ
ผมมีปัญหาในการสร้างสูตรตัดสินใจสำหรับ Scatter Chart
คือผมมีจุด Co-ordinate อยู่ 4 จุดสร้างเป็นพื้นที่ดังลักษณะในกราฟ

ผมต้องการสร้างสูตรตัดสินใจว่าข้อมูลจุด x,y ที่ผมได้มานั้นอยู่ในพื้นที่จุด Co-ordinate หรือไม่
ถ้าไม่อยู่ในพื้นที่ให้ตัดสินใจว่า NG ถ้าอยู่ในพื้นที่ให้ขึ้นว่า OK
(ตรง ...

ขอโทษครับลืมแนบไฟล์
Result ที่ต้องการคือใน TableC ครับ

TableA TableB TableC
Size Value Size Value Size Value
A 10 C 45 A 10
B 20 B 11 B 11
C 30 E 6 C 45
D 22 D 22
E 6


จากข้อมูลด้านบนมีตาราง A , ตาราง B และตาราง C
ผมอยากให้ตาราง C ทำการแสดงผลเก็บข้อมูลจากตาราง A และตาราง B
โดยมีเงื่อนไขคือ

1.เมื่อข้อมูลตาราง A เปรียบเทียบกับตาราง B แล้วพบว่าค่าซ้ำก ...

มีปัญหา Code Error ครับตรงบรรทัดที่เขียน Code
"Controls("C" & i).Value = Worksheets("Itemcode").Range("A" & i).Value"
"Controls("A" & i).Value = Worksheets("Itemcode").Range("B" & i).Value"

จุดประสงค์ของ Code สองบรรทัดนี้คือ
1.ดึงข้อมูลใน Worksheets ชื่อ Itemcode ในเซลล์ A5-A52 มาแสดงใน TextBox ช ...

ขอบคุณมากครับอาจารย์
โปรแกรม Run ได้สมบูรณ์แล้วครับ

สังเกตวิธีแก้ของอาจารย์คือไม่ใช้คำสั่ง .Select เลยใช่ไหมครับ ?
โดยใช้เทคนิค With กับ End with มาแทน
แสดงว่า VB มักจะ Error ถ้าเราใช้คำสั่ง Select sheet หรือ cells มากเกินไปใช่ไหมครับ ?

ทดลองเพิ่มแล้วก็ยัง Error บรรทัดเดิมครับ
"ม่ทราบว่าถ้าจะแก้ไข Code ด้านล่างให้เป็นแบบอื่น
จะเปลี่ยนวิธีแบบไหนได้อีกครับอาจารย์?
หรือเกี่ยวกับคำสั่ง count,offset หรือเปล่าครับ ?

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

ตัวผมเองตอนแรกแค่จะให้ Insert ปุ่มเข้ามาแล้วกดให้ Show userForm ยังทำไม่เป็นเลยครับ
ก็ซื้อหนังสือพื้นฐานมาอ่านแล้วค่อย ๆ หัดทำ ติดตรงไหนก็เข้าไปด ...

รบกวนอาจารย์ตรวจสอบครับ
ผมแนบไฟล์ให้แล้วครับ

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

ขึ้น Run time error '1004' , Select method of range class failed ครับ
พอเปิดโปรแกรมเข้าไปก็ขึ้นสีเหลืองตรงบรรทัดที่แจ้ง Code นี้ครับ

สอบถามเพิ่มเติมครับอาจารย์

คำสั่งให้หาเซลล์สุดท้ายที่ใช้เพื่อนำข้อมูลไปบันทึกต่อท้ายมีปัญหาครับ
ตอนแรกผมใช้คำสั่งนี้คือ
Range("A65000").End(xlUp).Offset(1, 0).Select
ซึ่ง Run เครื่องผมไม่มีปัญหา แต่พอไปใช้กับเครื่องอื่นมันขึ้น Run time error ที่บรรทัดนี้ตลอดเลยครับ

พอทดลองเปลี่ยนคำสั่งเป็น ...

ขอบพระคุณมากครับอาจารย์
โปรแกรมใช้ได้ดีเลยครับ

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

มีปัญหาเพิ่มเติมนิดนึงครับตรง Code ด้านล่างจะมีปัญหาว่าถ้าเซลล์ว่างไม่มีข้อมูล
หรือข้อมูลบรรทัดเว้นบรรทัดมันจะ Error ครับ ไม่ทราบว่าพอมีทางแก้ไขสูตรใหม่
ให้ Copy range ที่มีข้อมูลทั้งหมดแม้จะเว้นบรรทัดหรือถ้าเป็นเซลล์ว่างก็ไม่ Error ได้ไหมครับ ?

ActiveSheet.Range("A2 ...

ผมต้องการเขียน VBA code ให้คัดลอกข้อมูลจาก Cell A2 และเลือกทั้งหมดในไฟล์ชื่อ db1.xlsx
และมาวางต่อแถวว่างในไฟล์ชื่อ db.xlsx ตอนนี้ทำได้แล้วครับ
แต่มีคำถามว่าถ้าสมมติว่าผมมีไฟล์ข้อมูลหลายไฟล์ เช่น db1,db2,db3,.....dbxxx
ผมจะเขียนคำสั่งให้มันวนลูป Copy และบันทึกต่อท้ายไปเรื่อย ๆ อย่างไรครับ ?

ขอบค ...

ขอบคุณครับ

แต่มีปัญหาทำไมเวลาใช้คำสั่ง Call ChangeTextBox
แล้วมันขึ้น Compile Error ตรง KeyAscii ว่า Variable not difined ครับ
งงๆ ว่ามันเกิดอะไรขึ้นครับ ?

สวัสดีครับผมมีความต้องการที่จะเปลี่ยนสีของ TextBox ทุก ๆ TextBox ใน UserForm เมื่อมีการ Input ข้อมูลลงไป
TextBox มีอยู่ทั้งหมด 80 TextBox ชื่อ TextBox1,TextBox2,.....,TextBox80

ปกติผมใช้คำสั่งให้เปลี่ยนสีเมื่อมี KeyPress Event โดยกำหนดให้ทุก ๆ TextBox ดัง Code ด้านล่างครับ
แต่ปัญหาคือถ้ามี TextBox ...