:D snasui.com ยินดีต้อนรับ :D
ยินดีต้อนรับสู่กระดานถามตอบ Excel and VBA และอื่น ๆ ที่เป็นมิตรกับทุกท่าน มีไฟล์แนบมหาศาล ช่วยให้ท่านค้นหาและติดตามศึกษาได้โดยง่าย :thup: สมาชิกท่านใดที่ยังไม่ได้ระบุ Version ของ Excel ที่ใช้งานจริง สามารถทำตาม Link นี้เพื่อจะได้รับคำตอบที่ตรงกับ Version ของท่านครับ :arrow: ระบุ Version ของ Excel
:!: โปรดทราบ :!:
  1. กรุณาอ่านกฎการใช้บอร์ด (Forum rules) ในตำแหน่งด้านบนของแต่ละบอร์ด
  2. การสมัครสมาชิก การ Login การกู้คืนรหัสผ่าน
    1. สมัครสมาชิกดูขั้นตอนได้ที่ :arrow: สมัครสมาชิก
    2. Login เข้าระบบโดยคลิกปุ่ม Login ตรงมุมขวาบนของหน้านี้ :roll:
    3. การ Login ผ่าน Facebook ดูวิธีที่ :arrow: Login ผ่าน Facebook
    4. ลืมรหัสผ่านสามารถรับรหัสใหม่ได้ที่ :arrow: Reset รหัสผ่าน
  3. มีปัญหาการใช้งาน แจ้งผู้ดูแลระบบได้ที่ :arrow: ติดต่อผู้ดูแลระบบ
  4. กำหนดการตั้งค่าส่วนตัว เช่นตั้งค่าภาษาเป็นไทยหรืออังกฤษดูได้ที่ :arrow: ตั้งค่าส่วนตัว
  5. การตั้งและตอบกระทู้ดูได้ที่ :arrow: วิธีการตั้งและตอบกระทู้
  6. การจัดรูปแบบตัวอักษรด้วย bbcode ในช่องแสดงความคิดเห็นดูได้ที่ :arrow: จัดรูปแบบตัวอักษร
  7. กำหนดขนาดตัวอักษรใน Browser ดูได้ที่ :arrow: กำหนดขนาดตัวอักษรใน Browser

แสดงข้อมูลในฟอม ในชีท 2 และ ListBox1 ในชีท 1

ฟอรัมถาม-ตอบปัญหาการใช้งานสูตรและฟังก์ชัน Excel
Forum rules
  1. ไม่อนุญาตให้ใช้ภาษาแชทในการถามและตอบปัญหา ไม่ใช้คำว่า "คับ" หรือ "อ่ะครับ" แทนคำว่า "ครับ" ไม่ใช้คำว่า "เด๋ว" แทนคำว่า "เดี๋ยว" เป็นต้น เนื่องจากเมื่อแปลเป็นภาษาต่างประเทศแล้วจะให้ความหมายผิดไปจากที่ควรจะเป็น
  2. ห้ามถามโดยระบุชื่อผู้ตอบและต้องตั้งชื่อกระทู้ให้สื่อถึงปัญหาที่จะถาม ไม่ตั้งชื่อว่า ช่วยด้วยครับ, มีปัญหามาปรึกษาครับ เป็นต้น
  3. กรุณาอธิบายปัญหาและระบุคำตอบที่ต้องการมาในกระทู้ด้วยเสมอถึงแม้จะอธิบายไว้ในไฟล์แนบแล้วก็ตาม ทั้งนี้เพื่ออำนวยความสะดวกแก่เพื่อนสมาชิกในการค้นหาข้อมูล
  4. กรุณาแนบไฟล์ตัวอย่างพร้อมแสดงคำตอบที่ถูกต้องมาในไฟล์ด้วยเพื่อให้ง่ายต่อการทำความเข้าใจและสะดวกต่อการตอบคำถาม (ขนาดไฟล์ไม่เกิน 500Kb ขนาดภาพไม่เกิน 800*600 Pixel) ไม่แนบเป็น Link มาจากแหล่งอื่นที่อาจจะถูกลบทิ้งไปโดยต้นทางในภายหลัง นอกจากนี้ไม่ควรแนบไฟล์ที่มีข้อมูลสำคัญอันก่อให้เกิดความเสียหายกับตนเองและผู้อื่น
  5. กรณีเป็นคำถามเกี่ยวกับ Programming เช่น VBA, VB.Net, C#, SQL ฯลฯ ต้องลองเขียนมาเองก่อนเสมอ ถามเฉพาะที่ติดปัญหา ระบุ Module, Procedure ที่ติดปัญหาให้ชัดเจน กรุณาโพสต์ Code ให้แสดงเป็น Code คือเปิดด้วย [code] และปิดด้วย [/code] ตัวอย่างเช่น [code]dim r as range[/code] เพื่อให้แตกต่างจากข้อความทั่วไป สะดวกในการอ่านและทดสอบ (คลิกเพื่อดูตัวอย่าง)
  6. กรุณาแจ้งผลการใช้งานเมื่อได้รับคำตอบว่าตรงกับความต้องการหรือไม่
Post Reply
ponhuahin
Member
Member
Posts: 16
Joined: Sat Nov 16, 2013 10:48 pm

แสดงข้อมูลในฟอม ในชีท 2 และ ListBox1 ในชีท 1

#1

Post by ponhuahin »

อาจารย์คับ ผมต้องการ ให้มันแสดง ใน
ชีท "หน้าแรก" ใน ListBox1 ด้วย และใน
ชีท "รายการสินค้า" ด้วย

Code: Select all

Private Sub CommandButton1_Click()
Row = 1
    Do
    Row = Row + 1
    Loop Until Worksheets("รายการสินค้า").Cells(Row, 1) = ""
    Worksheets("รายการสินค้า").Cells(Row, 1) = TextBox1
    TextBox1 = ""
    If OptionButton1.Value Then
    Worksheets("รายการสินค้า").Cells(Row, 2) = OptionButton1.Caption
Else
    If OptionButton2.Value Then
    Worksheets("รายการสินค้า").Cells(Row, 2) = OptionButton2.Caption
    End If
    If OptionButton3.Value Then
    Worksheets("รายการสินค้า").Cells(Row, 2) = OptionButton3.Caption
    End If
    If OptionButton4.Value Then
    Worksheets("รายการสินค้า").Cells(Row, 2) = OptionButton4.Caption
    End If
    If OptionButton5.Value Then
    Worksheets("รายการสินค้า").Cells(Row, 2) = OptionButton5.Caption
    End If
    If OptionButton6.Value Then
    Worksheets("รายการสินค้า").Cells(Row, 2) = OptionButton6.Caption
    End If
    If OptionButton7.Value Then
    Worksheets("รายการสินค้า").Cells(Row, 2) = OptionButton7.Caption
    End If
    If OptionButton8.Value Then
    Worksheets("รายการสินค้า").Cells(Row, 2) = OptionButton8.Caption
    End If
    If OptionButton9.Value Then
    Worksheets("รายการสินค้า").Cells(Row, 2) = OptionButton9.Caption
    End If
    If OptionButton10.Value Then
    Worksheets("รายการสินค้า").Cells(Row, 2) = OptionButton10.Caption
    End If
    If OptionButton11.Value Then
    Worksheets("รายการสินค้า").Cells(Row, 2) = OptionButton11.Caption
    End If
    If OptionButton12.Value Then
    Worksheets("รายการสินค้า").Cells(Row, 2) = OptionButton12.Caption
    End If
End If
OptionButton1.Value = 0
OptionButton2.Value = 0
OptionButton3.Value = 0
OptionButton4.Value = 0
OptionButton5.Value = 0
OptionButton6.Value = 0
OptionButton7.Value = 0
OptionButton8.Value = 0
OptionButton9.Value = 0
OptionButton10.Value = 0
OptionButton11.Value = 0
OptionButton12.Value = 0
Worksheets("รายการสินค้า").Cells(Row, 3) = ComboBox1
ComboBox1 = ""
Worksheets("รายการสินค้า").Cells(Row, 4) = ComboBox3
ComboBox3 = ""
Worksheets("รายการสินค้า").Cells(Row, 5) = TextBox3.Value
TextBox3 = ""
Worksheets("รายการสินค้า").Cells(Row, 6) = Now()
Worksheets("รายการสินค้า").Cells(Row, 7) = Now()

Worksheets("หน้าแรก").Cells (ListBox1)
End Sub
Top
ponhuahin
Member
Member
Posts: 16
Joined: Sat Nov 16, 2013 10:48 pm

Re: แสดงข้อมูลในฟอม ในชีท 2 และ ListBox1 ในชีท 1

#2

Post by ponhuahin »

ลืมแนบไฟล์คับ
You do not have the required permissions to view the files attached to this post.
Top
User avatar
snasui
Site Admin
Site Admin
Posts: 31253
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 2019
Contact:
Contact snasui

Re: แสดงข้อมูลในฟอม ในชีท 2 และ ListBox1 ในชีท 1

#3

Post by snasui »

ponhuahin wrote:อาจารย์คับ ผมต้องการ ให้มันแสดง ใน
ชีท "หน้าแรก" ใน ListBox1 ด้วย และใน
ชีท "รายการสินค้า" ด้วย
ponhuahin wrote:ลืมแนบไฟล์คับ
:D อ่านกฎข้อ 1 ด้านบนแล้วแก้ไขข้อความด้วย ย้ำว่าต้องแก้ ถ้าแก้ไม่ได้เนืองจากเลยเวลาที่กำหนดให้โพสต์ใหม่ให้ถูกต้องครับ

สำหรับที่ถามมานั้นช่วยอธิบายให้ละเอียดว่าต้องการให้ข้อมูลใดไปแสดงที่ใด ชีทหน้าแรกที่จะเอาไปไว้ใน ListBox1 คือข้อมุูลใดครับ :?:
Top
ponhuahin
Member
Member
Posts: 16
Joined: Sat Nov 16, 2013 10:48 pm

Re: แสดงข้อมูลในฟอม ในชีท 2 และ ListBox1 ในชีท 1

#4

Post by ponhuahin »

ขอโทษจริงๆครับอาจารย์ แก้ไม่ได้แล้วครับ ผมต้องตั้ง กระทู้ใหม่ หรือเปล่าครับ
Top
User avatar
snasui
Site Admin
Site Admin
Posts: 31253
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 2019
Contact:
Contact snasui

Re: แสดงข้อมูลในฟอม ในชีท 2 และ ListBox1 ในชีท 1

#5

Post by snasui »

:D เขียนคำถามใหม่ด้วยความระมัดระวังอย่าเผลอใช้ภาษาแชท อธิบายให้ละเอียดว่าต้องการจะทำอะไร ปัญหาคืออะไร ต้องการคำตอบเป็นอย่างไร โดยโพสต์ต่อในกระทู้นี้ได้เลย ระบุวิธีทดสอบมาด้วยเพื่อจะได้เข้าใจตรงกันสามารถเข้าถึงปัญหาได้โดยไวครับ
Top
ponhuahin
Member
Member
Posts: 16
Joined: Sat Nov 16, 2013 10:48 pm

Re: แสดงข้อมูลในฟอม ในชีท 2 และ ListBox1 ในชีท 1

#6

Post by ponhuahin »

ผมต้องการ ให้ข้อมูลที่เรากรอก ในฟอร์ม มาแสดง ใน
ชีท "หน้าแรก" ในชีทหน้าแรกนี้ผมสร้าง ListBox1 ไว้ด้วย เพื่อแสดงข้อมูลที่เรากรอกในวันนั้นนั้น
พอบันทึกหรือปิดไป ข้อมูลใน ListBox1 จะหายไป
และผมต้องการให้แสดงข้อมูลที่ ผมกรอกในฟอร์ม เข้าไปใน
ชีท "รายการสินค้า" นี้ด้วย

ผมใส่ข้อมูลลงให้ ชีท "รายการสินค้า" ได้แต่ ลงใน ListBox1 ที่อยู่ใน ชีท "หน้าแรก" ไม่ได้ครับ
Top
User avatar
snasui
Site Admin
Site Admin
Posts: 31253
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 2019
Contact:
Contact snasui

Re: แสดงข้อมูลในฟอม ในชีท 2 และ ListBox1 ในชีท 1

#7

Post by snasui »

:D Code ที่เขียนให้บันทึกรายการใน ListBox ในหน้าแรกเขียนไว้แล้วยัง ชือ Procedure ว่าอะไร ติดบรรทัดใดครับ
Top
Post Reply

Return to “Excel Formulas & Functions”