ขอวิธี ส่งค่าจาก textbox ไปยัง cellที่ต้องการครับ

[sdmania]

รบกวนด้วยครับ
++ ในไฟล์ตัวอย่างที่แนบมาผมยังแก้code ไม่ได้ครับ มันยังขึ้น compile error ครับผม

[joo]

ลองแบบนี้ดูไหมครับวิธีการสร้าง Textbox กับการกำหนดค่าให้ลิงค์ไปยังเซลล์เป้าหมาย
1.ไปที่ View > Toolbar > Control Toolbox
2.ลาก Text Box วางลงบนซีท
3. คลิกขวาที่ Text Box เลือก Property
4.ที่ LinkedCell พิมพ์ A1
5.คลิกปุ่ม Exit Design Mode
6.ทดลองพิมพ์ข้อมูลในTexBox ข้อมูลก็จะไปปรากฏที่ A1

[sdmania]

ขอบคุณคุณ joo ครับผมทำตามได้แล้วครับ แต่มีปัญหาอีกแค่จุดเดียวครับ รบกวนถามต่อครับ

--ปัญหาที่ว่าคือ เมื่อผมพิมพ์ ตัวเลขมันถูกส่งไปที่ a1 ได้ครับ แต่มันเป็นตัวเลขที่เป็นข้อความครับ มีิวิธีตั้งค่าเมื่อพิมพ์เลขใส่textboxนี้แล้วเป็นตัวเลขได้เลยไหมครับ ??

[joo]

เบื้องต้นลองแบบนี้ดูครับ คลิกที่เซลล์ A1 แล้วไปที่ Data > Text To Colums > Next > Next > Finish

[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

[sdmania]

ผมลองทำตามวิธีของคุณ joo แล้วครับ หลังแก้ให้เป็นตัวเลข ได้เฉพาะครั้งที่แก้ครับครั้งที่2เมื่อกรอกข้อมูลชุดใหม่เข้าไป ก็ถูกส่งไปเป็นข้อความเหมือนเดิมครับ
ผมแนบไฟล์มาให้ตรวจดูครับ Book1นะครับ ว่าผมทำถูกไหม

ส่วนที่เซล b1 ผมใช้ฟังก์ชั่น Isnumber เอาไว้ตรวจ A1 ครับ
เซลG1ผมลองรับค่าจาก A1(ที่เป็นตัวเลขข้อความ)เอามาลองตั้งค่าใหม่ดู ปรากฏว่าก็ได้ค่าตัวเลขเป็นข้อความครับ
เซล H1 ผมใช้ฟังก์ชั่น Isnumber เอาไว้ตรวจ G1 ครับ

[sdmania]

อาจารย์ครับ codeของอาจารย์ ผมลองเอามาวาง ลองแก้ ไม่ผ่านตรงบรรทัดสีเหลืองครับ
รบกวนอาจารย์สอนด้วยครับ

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

*** คำว่าtextbox ของอาจารย์ คือในตัวอย่างbook2หรือเปล่าครับ วิธีที่คุณjooแนะนำผมมา ก็เป็นTextbox(ในตัวอย่างBook1) เหมือนกันน่ะครับ คือผมไม่ทราบจริงๆครับว่า textbox2ตัวนี้เหมือนหรือแตกต่างกันครับ

[sdmania]

อันนี้เป็นรูปในcode ที่ผม error ครับ

[snasui]

กรณีทำตามที่คุณ joo แนะนำ ลองเพิ่ม Code เข้าไปช่วยตามภาพด้านล่างครับ

[sdmania]

กรณีทำตามที่คุณ joo แนะนำ ลองเพิ่ม Code เข้าไปช่วยตามภาพด้านล่างครับ

ขอบคุณครับ วิธีนี้ได้ผลเลยครับอาจารย์ ขอบคุณครับ
ขอบคุณ คุณjoo ด้วยนะครับ


++อาจารย์ครับ วิธีที่อาจารย์แนะนำมา (ที่ตัวอย่าง book2.xls ) ผมยังไม่ผ่านผมควรแก้ไขอย่างไรดีครับ เพราะการกดปุ่มเผื่อว่าผมจะได้นำไปประยุกต์ในวันหน้าครับ

[snasui]

ลองปรับ Code เป็นตามด้านล่างครับ

Code: Select all

Sub click001()
    With ActiveSheet
        .Range("A1").Value = .TextBoxes("Text Box 1").Text
    End With
End Sub

[sdmania]

ขอบคุณครับอาจารย์ ได้ผลลัพธ์ตามที่ต้องการครับผม ขอบคุณอาจารย์ครับ