🔊 โปรดทราบ Image
  1. กรุณาอ่านกฎการใช้บอร์ด (Forum rules) ในตำแหน่งด้านบนของแต่ละบอร์ดครับ Image
  2. การสมัครสมาชิกเพื่อโพสต์คำถาม ดาวน์โหลดไฟล์แนบไปศึกษา ทำตามขั้นตอนด้านล่างครับ
    1. สมัครสมาชิก ดูขั้นตอนตาม Link นี้ครับ => สมัครสมาชิก กรณีลืมรหัสผ่านสามารถรับรหัสใหม่ได้ที่นี่ครับ => Reset รหัสผ่านImage
    2. Login เข้าระบบโดยคลิก Login ตรงมุมขวาบนของหน้านี้ Image กรณีมีปัญหาในการเข้าใช้งาน คลิก Link นี้เพื่อแจ้งผู้ดูแลระบบครับ => ติดต่อผู้ดูแลระบบ
  3. เมื่อ Login แล้วสามารถกำหนดการตั้งค่าส่วนตัว เช่นตั้งค่าภาษาเป็นไทยหรืออังกฤษได้ที่ Link นี้ครับ => ตั้งค่าส่วนตัว Image
  4. วิธีการตั้งและตอบกระทู้ดูได้ที่ Link นี้ครับ => วิธีการตั้งและตอบกระทู้ Image
  5. การจัดรูปแบบตัวอักษรด้วย bbcode ในช่องแสดงความคิดเห็นดูได้ที่ Link นี้ครับ => จัดรูปแบบตัวอักษร และสามารถกำหนดขนาดตัวอักษรใน Browser ได้ที่นี่ครับ => กำหนดขนาดตัวอักษรใน Browser Image

ย้ายข้อมูลอัตโนมัติ

ฟอรั่มถาม-ตอบปัญหาการใช้งาน MS Excel and VBA
Forum rules
  1. ไม่อนุญาตให้ใช้ภาษาแชทในการถาม-ตอบปัญหา ไม่ใช้คำว่า "คับ" หรือ "อ่ะครับ" แทนคำว่า "ครับ" ไม่ใช้คำว่า "เด๋ว" แทนคำว่า "เดี๋ยว" เป็นต้น เนื่องจากเมื่อแปลเป็นภาษาต่างประเทศแล้วจะให้ความหมายผิดไปจากที่ควรจะเป็น
  2. ห้ามถามโดยระบุชื่อผู้ตอบ ต้องตั้งชื่อกระทู้ให้สื่อถึงปัญหาที่จะถาม ไม่ตั้งชื่อว่า ช่วยด้วยครับ, มีปัญหามาปรึกษาครับ เป็นต้น
  3. อธิบายปัญหาและระบุคำตอบที่ต้องการมาในกระทู้ด้วยเสมอถึงแม้จะอธิบายไว้ในไฟล์แนบแล้วก็ตาม ทั้งนี้เพื่ออำนวยความสะดวกแก่เพื่อนสมาชิกในการค้นหาข้อมูล
  4. ควรแนบตัวอย่างไฟล์มาที่ฟอรั่มนี้เพื่อเพิ่มความสะดวกในการตอบคำถาม (ขนาดไฟล์ไม่เกิน 500Kb ขนาดภาพไม่เกิน 800*600 Pixel) ไม่แนบเป็น Link มาจากแหล่งอื่น นอกจากนี้ไม่ควรแนบไฟล์ที่มีข้อมูลสำคัญอันก่อให้เกิดความเสียหายกับตนเองและผู้อื่น
  5. สำหรับคำถามเกี่ยวกับ VBA ให้ลองเขียนมาเองก่อนเสมอ ถามเฉพาะที่ติดปัญหา ระบุ Module, Procedure ที่ติดปัญหาให้ชัดเจน ควรโพสต์ Code ให้แสดงเป็น Code เพื่อสะดวกในการอ่านและทดสอบ (คลิกเพื่อดูตัวอย่าง)
  6. แจ้งผลการใช้งานเมื่อได้รับคำตอบว่าตรงกับความต้องการหรือไม่
thawatchai1977
Member
Member
Posts: 10
Joined: Tue Jul 15, 2014 4:04 pm

ย้ายข้อมูลอัตโนมัติ

#1

Post by thawatchai1977 » Fri Mar 16, 2018 1:25 pm

รบกวนด้วยครับ
เครื่องวัดงานจะส่งข้อมูลมาที่คอลัมน์ D
เงื่อนไขคือ
1.ถ้าข้อมูลที่ AC2 เป็น 2
- ให้ย้ายข้อมูลจาก D7:D36 ไปที่ E7:E36
- ลบข้อมูล D7:D36 ออกเพื่อรอเครื่องส่ค่ามาที่ D7:D36

2.ถ้าข้อมูลที่ AC2 เป็น 3
- ให้ย้ายข้อมูลจาก D7:D36 ไปที่ F7:F36
- ลบข้อมูล D7:D36 ออกเพื่อรอเครื่องส่ค่ามาที่ D7:D36
You do not have the required permissions to view the files attached to this post.

logic
Silver
Silver
Posts: 753
Joined: Thu Mar 18, 2010 1:57 pm

Re: ย้ายข้อมูลอัตโนมัติ

#2

Post by logic » Fri Mar 16, 2018 1:38 pm

ลองโค้ดนี้ครับ

Code: Select all

Sub No2()
    If Range("AC2").Value = 2 Then
        Range("E7:E36").Value = Range("D7:D36").Value
        Range("D7:D36").ClearContents
    ElseIf Range("AC2").Value = 3 Then
        Range("F7:F36").Value = Range("D7:D36").Value
        Range("D7:D36").ClearContents
    End If
End Sub[code]

thawatchai1977
Member
Member
Posts: 10
Joined: Tue Jul 15, 2014 4:04 pm

Re: ย้ายข้อมูลอัตโนมัติ

#3

Post by thawatchai1977 » Sat Mar 17, 2018 6:28 am

มีคำสั่งให้ Run ทำงานอัตโนมัติไหมครับ

User avatar
snasui
Site Admin
Site Admin
Posts: 23171
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Contact:

Re: ย้ายข้อมูลอัตโนมัติ

#4

Post by snasui » Sat Mar 17, 2018 6:51 am

:D การ Run อัตโนมัติต้องทราบว่าจะให้ Run ตอนเกิดเหตุการณ์ใด เช่น เปิดไฟล์, เกิดการเปลี่ยนแปลงค่าในเซลล์, การเลือกเซลล์ หรืออื่น ๆ

ลองศึกษาตัวอย่าง Code ได้จาก Link นี้ครับ Change Event

การใช้งาน VBA เป็นการเขียนโปรแกรม เป็นความรู้ระดับสูงกว่าการใช้งานตามปกติทั่วไป จะต้องเขียนกันมาเองก่อน ติดปัญหาแล้วค่อยถามกันตามกฎการใช้บอร์ดข้อ 5 ด้านบนครับ

thawatchai1977
Member
Member
Posts: 10
Joined: Tue Jul 15, 2014 4:04 pm

Re: ย้ายข้อมูลอัตโนมัติ

#5

Post by thawatchai1977 » Sat Mar 17, 2018 11:33 am

จะให้ Run ตอนเกิดเหตุการณ์ AD2เท่ากับ OKให้สูตรทำงาน
1.ถ้า AC2 = 2 AD2 = OK
- ให้ย้ายข้อมูลจาก D7:D36 ไปที่ E7:E36
- ลบข้อมูล D7:D36 ออกเพื่อรอเครื่องส่งค่ามาที่ D7:D36
- และให้ลบ OK ที่ AD2

2.ถ้า AC2 = 3 เมื่อ AD2 = OK
- ให้ย้ายข้อมูลจาก D7:D36 ไปที่ F7:F36
- ลบข้อมูล D7:D36 ออกเพื่อรอเครื่องส่งค่ามาที่ D7:D36
- และให้ลบ OK ที่ AD2
- ให้ย้ายข้อมูลจาก D7:D36 ไปที่ E7:E36
-ลบข้อมูล D7:D36 ออกเพื่อรอเครื่องส่งค่ามาที่ D7:D36 ใหม่
- และให้ลบ OK ที่ AD2

ถ้าไม่ใช้ VBA พอจะมีวิธีอื่นไหมครับ

User avatar
snasui
Site Admin
Site Admin
Posts: 23171
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Contact:

Re: ย้ายข้อมูลอัตโนมัติ

#6

Post by snasui » Sat Mar 17, 2018 11:56 am

:D ที่อธิบายมาไม่ใช่เหตุการณ์ครับ เหตุการณ์เช่นการเลือกเซลล์ การเปลี่ยนค่าในเซลล์ การเลือกชีต ฯลฯ

เมื่อเกิตเหตุการณ์นั้น Code จะทำงาน จากอธิบายมาเหตุการณ์ที่เกี่ยวข้องคือ การเปลี่ยนค่าในเซลล์ เมื่อเปลี่ยนค่าในเซลล์แล้ว Code จะทำงานโดยตรวจสอบเงื่อนไขที่แจ้งมา

สำหรับการทำงานลักษณะนั้นจะต้องใช้ VBA ไม่มีทางเลือกอื่น จำเป็นต้องเขียนมาเองก่อน ศึกษาตาม Link ที่ผมให้ไปใน Post #4 ติดแล้วค่อยถามต่อครับ

Post Reply