: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

Search found 4 matches

by titti
Thu Aug 20, 2015 10:28 am
Forum: Excel Formulas & Functions
Topic: วิธีการดึงข้อมูลจากที่เลือก เพื่อ copy ไปอีก Sheet หนึ่ง
Replies: 7
Views: 1418

Re: วิธีการดึงข้อมูลจากที่เลือก เพื่อ copy ไปอีก Sheet หนึ่ง

ขอโทษอีกครั้งครับที่ผมไม่ได้อ่าน กฏ การใช้บอร์ดครับ

Sub Macro1()
'
' Macro1 Macro
'

'
Dim j, result, lastrow, a As Long
j = Worksheets("Sheet2").Range("G3").Value
lastrow = Worksheets("Sheet1").UsedRange.Rows.Count
For Row = 3 To lastrow
If j = True Then
Sheets("Sheet2").Select
result ...
by titti
Wed Aug 19, 2015 5:49 pm
Forum: Excel Formulas & Functions
Topic: วิธีการดึงข้อมูลจากที่เลือก เพื่อ copy ไปอีก Sheet หนึ่ง
Replies: 7
Views: 1418

Re: วิธีการดึงข้อมูลจากที่เลือก เพื่อ copy ไปอีก Sheet หนึ่ง

ขอโทษด้วยครับ

ผมลอง Record Marco มาแล้ว แต่จะใส่ว่า (IF) เพื่อที่จะเลือกค่าใดที่เป็น True และการเลือกค่าใน Sheet 1 ให้ตรงกับค่า Sheet 2 ไม่ได้ครับ

Sub Macro1()
'
' Macro1 Macro
'

'
Sheets("Sheet1").Select
Sheets("Sheet2").Select
Range("B3:E3,B6:E6,B8:E8").Select
Range("B8").Activate ...
by titti
Wed Aug 19, 2015 2:50 pm
Forum: Excel Formulas & Functions
Topic: วิธีการดึงข้อมูลจากที่เลือก เพื่อ copy ไปอีก Sheet หนึ่ง
Replies: 7
Views: 1418

วิธีการดึงข้อมูลจากที่เลือก เพื่อ copy ไปอีก Sheet หนึ่ง

รบกวนทุกท่านครับ ผมมีเรื่องสอบถาม

คือ ผมต้องการเขียน Code VBA โดยมีทั้งหมด 3 sheet คือ sheet ที่ 1 เป็นเพียงแค่ชื่อ เพื่อใช้ในการเลือกว่าจะเอาค่าใดบ้าง โดยจะเลือกได้ไม่เกินกว่า 5 ค่า ตามตารางใน Sheet ที่ 3

ส่วน Sheet ที่ 2 คือ ฐานข้อมูลของ Sheet ที่ 1 โดยภายหลังจากมีการเลือกค่าใน Sheet ที่ 1 แล ...