Snasui Excel Forum

:D ขอบคุณสำหรับข้อมูลดีๆครับอาจารย์

:D สามารถใช้งานได้ปกติครับ

มีข้อจำกัดบางประการเช่นการสร้างเมนูขึ้นมาใช้เอง จะต้องแปลงนามสกุลไฟล์กลับไปเป็น .xlsm เสียก่อน เมื่อสร้างเมนูเสร็จแล้วค่อยแปลงกลับมาเป็น .xlsb ซึ่งปกติหากไม่ใช่ Developer มักจะไม่ได้สร้างเมนูขึ้นมาใช้เอง จึงไม่ต้องกังวลครับ

อ่านเพิ่มเติมได้ที่นี่ครับ http://blog.datasafexl.com/excel-articles/advantages-of-xlsb-excel-binary-format/

สอบถามเพิ่มเติมครับ ผมลอง save as file.xlsm(macro) to file.xlsb (Binary) เพราะจะได้ขนาดไฟล์ที่เล็กลง มีข้อสงสัยคือ
- เพราะเหตุใด code vba ต่างๆยังทำงานได้ปกติ ถ้าเพิ่ม code vba ภายหลัง จะมีจุดบกพร่องจุดใดจุดหนึ่งหรือไม่ ไฟล์ชนิดนี้จะเหมาะสมกับ vba หรือไม่ครับ

:D ใช่เลยครับที่ต้องการ ขอบคุณมากครับอาจารย์

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("b8:b33")) Is Nothing Then
        Sheets("Target").Range("c8").Value = Target.Value
    End If
End Sub

:D เข้า VBE > ดับเบิ้ลคลิกชีต Source > วาง Code ด้านล่าง > กลับมายัง Excel > ลองทดสอบเลือกข้อมูลและสังเกตดูผลครับ

[code]Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("b8:b33")) Is Nothing Then
Sheets("Target").Range("c8").Value = Target.Value
End If
End Sub
[/code]

Sub SendData()
 
    Data = Range("B11")  'Cell B11 มีชุด data "DDDDM" ส่งไปที่ Target ถ้า cell ที่เลือกเปลี่ยนไปจะต้องปรับโค้ดอย่างไร
    Range("Target") = Data
    Sheets("Target").Select
    
End Sub

จุดประสงค์คือเมื่อ Cell ใด Cell หนึ่งใน Cell ("B8:B33") Sheet Source ถูกคลิกเลือกจะให้ส่งชุด Data ใน Cell นั้นๆไปที่ Cell "C8" Sheet Target [color=#0000FF]"โดยไม่ต้องสร้างปุ่ม Run macro อยากให้เป็นการดักจับการเปลี่ยนแปลงการคลิกเลือก cell ในช่วง Range ที่ระบุแทน"[/color]
เช่น
- ถ้าคลิกเลือกที่ cell "B8" (Sheet Source) ค่า AAAAM จะถูกส่งไปที่ Cell "C8" (Sheet Target)
- ถ้าคลิกเลือกที่ cell "B15" (Sheet Source) ค่า HHHHM จะถูกส่งไปที่ Cell "C8" (Sheet Target)
- ถ้าคลิกเลือกที่ cell "B24" (Sheet Source) ค่า QQQQM จะถูกส่งไปที่ Cell "C8" (Sheet Target) เป็นต้น

[code]
Sub SendData()

Data = Range("B11") 'Cell B11 มีชุด data "DDDDM" ส่งไปที่ Target ถ้า cell ที่เลือกเปลี่ยนไปจะต้องปรับโค้ดอย่างไร
Range("Target") = Data
Sheets("Target").Select

End Sub
[/code]