Page 1 of 1
ขอวิธี ส่งค่าจาก textbox ไปยัง cellที่ต้องการครับ
Posted: Mon May 13, 2013 2:10 pm
by sdmania
รบกวนด้วยครับ
++ ในไฟล์ตัวอย่างที่แนบมาผมยังแก้code ไม่ได้ครับ มันยังขึ้น compile error ครับผม
Re: ขอวิธี ส่งค่าจาก textbox ไปยัง cellที่ต้องการครับ
Posted: Mon May 13, 2013 3:40 pm
by joo
ลองแบบนี้ดูไหมครับวิธีการสร้าง Textbox กับการกำหนดค่าให้ลิงค์ไปยังเซลล์เป้าหมาย
1.ไปที่ View > Toolbar > Control Toolbox
2.ลาก Text Box วางลงบนซีท
3. คลิกขวาที่ Text Box เลือก Property
4.ที่ LinkedCell พิมพ์ A1
5.คลิกปุ่ม Exit Design Mode
6.ทดลองพิมพ์ข้อมูลในTexBox ข้อมูลก็จะไปปรากฏที่ A1
Re: ขอวิธี ส่งค่าจาก textbox ไปยัง cellที่ต้องการครับ
Posted: Mon May 13, 2013 4:52 pm
by sdmania
ขอบคุณคุณ joo ครับผมทำตามได้แล้วครับ แต่มีปัญหาอีกแค่จุดเดียวครับ รบกวนถามต่อครับ
--ปัญหาที่ว่าคือ เมื่อผมพิมพ์ ตัวเลขมันถูกส่งไปที่ a1 ได้ครับ
แต่มันเป็นตัวเลขที่เป็นข้อความครับ มีิวิธีตั้งค่าเมื่อพิมพ์เลขใส่textboxนี้แล้วเป็นตัวเลขได้เลยไหมครับ ??
Re: ขอวิธี ส่งค่าจาก textbox ไปยัง cellที่ต้องการครับ
Posted: Mon May 13, 2013 5:01 pm
by joo
เบื้องต้นลองแบบนี้ดูครับ คลิกที่เซลล์ A1 แล้วไปที่ Data > Text To Colums > Next > Next > Finish
Re: ขอวิธี ส่งค่าจาก textbox ไปยัง cellที่ต้องการครับ
Posted: Mon May 13, 2013 5:46 pm
by snasui
ลองปรับ Code เป็นตามด้านล่างครับ
Code: Select all
Sub click001()
Dim ddd As Double
With ActiveSheet
ddd = .Shapes.Range(Array("Text Box 1")). _
TextFrame2.TextRange.Characters.Text
.Range("A1") = ddd
End With
End Sub
Re: ขอวิธี ส่งค่าจาก textbox ไปยัง cellที่ต้องการครับ
Posted: Tue May 14, 2013 3:13 pm
by sdmania
ผมลองทำตามวิธีของคุณ joo แล้วครับ หลังแก้ให้เป็นตัวเลข ได้เฉพาะครั้งที่แก้ครับครั้งที่2เมื่อกรอกข้อมูลชุดใหม่เข้าไป ก็ถูกส่งไปเป็นข้อความเหมือนเดิมครับ
ผมแนบไฟล์มาให้ตรวจดูครับ Book1นะครับ ว่าผมทำถูกไหม
ส่วนที่เซล b1 ผมใช้ฟังก์ชั่น Isnumber เอาไว้ตรวจ A1 ครับ
เซลG1ผมลองรับค่าจาก A1(ที่เป็นตัวเลขข้อความ)เอามาลองตั้งค่าใหม่ดู ปรากฏว่าก็ได้ค่าตัวเลขเป็นข้อความครับ
เซล H1 ผมใช้ฟังก์ชั่น Isnumber เอาไว้ตรวจ G1 ครับ
Re: ขอวิธี ส่งค่าจาก textbox ไปยัง cellที่ต้องการครับ
Posted: Tue May 14, 2013 3:22 pm
by sdmania
อาจารย์ครับ codeของอาจารย์ ผมลองเอามาวาง ลองแก้ ไม่ผ่านตรงบรรทัดสีเหลืองครับ
รบกวนอาจารย์สอนด้วยครับ
ผมแนบไฟล์ book2 มาให้อาจารย์ตรวจดูครับ
*** คำว่าtextbox ของอาจารย์ คือในตัวอย่างbook2หรือเปล่าครับ วิธีที่คุณjooแนะนำผมมา ก็เป็นTextbox(ในตัวอย่างBook1) เหมือนกันน่ะครับ คือผมไม่ทราบจริงๆครับว่า textbox2ตัวนี้เหมือนหรือแตกต่างกันครับ
Re: ขอวิธี ส่งค่าจาก textbox ไปยัง cellที่ต้องการครับ
Posted: Tue May 14, 2013 3:25 pm
by sdmania
อันนี้เป็นรูปในcode ที่ผม error ครับ
Re: ขอวิธี ส่งค่าจาก textbox ไปยัง cellที่ต้องการครับ
Posted: Tue May 14, 2013 3:29 pm
by snasui
กรณีทำตามที่คุณ joo แนะนำ ลองเพิ่ม Code เข้าไปช่วยตามภาพด้านล่างครับ
Re: ขอวิธี ส่งค่าจาก textbox ไปยัง cellที่ต้องการครับ
Posted: Tue May 14, 2013 3:48 pm
by sdmania
snasui wrote: กรณีทำตามที่คุณ joo แนะนำ ลองเพิ่ม Code เข้าไปช่วยตามภาพด้านล่างครับ
ขอบคุณครับ วิธีนี้ได้ผลเลยครับอาจารย์ ขอบคุณครับ
ขอบคุณ คุณjoo ด้วยนะครับ
++อาจารย์ครับ วิธีที่อาจารย์แนะนำมา (ที่ตัวอย่าง book2.xls ) ผมยังไม่ผ่านผมควรแก้ไขอย่างไรดีครับ เพราะการกดปุ่มเผื่อว่าผมจะได้นำไปประยุกต์ในวันหน้าครับ
Re: ขอวิธี ส่งค่าจาก textbox ไปยัง cellที่ต้องการครับ
Posted: Tue May 14, 2013 4:22 pm
by snasui
ลองปรับ Code เป็นตามด้านล่างครับ
Code: Select all
Sub click001()
With ActiveSheet
.Range("A1").Value = .TextBoxes("Text Box 1").Text
End With
End Sub
Re: ขอวิธี ส่งค่าจาก textbox ไปยัง cellที่ต้องการครับ
Posted: Wed May 15, 2013 10:33 am
by sdmania