Snasui Excel Forum

:D การเขียน Code จะต้องมีเงื่อนไขที่ชัดเจน การที่สร้างปุ่มเพิ่มให้เลือกคลิกเฉพาะวันได้ก็แสดงว่าสร้างเงื่อนไขได้ ยกตัวอย่าง คลิกแล้วให้ผู้ใช้เลือกว่าจะดำเนินการกับคอลัมน์ไหน เมื่อผู้ใช้ระบุแล้วก็ให้ดำเนินการกับคอลัมน์นั้น ฯลฯ ครับ

ผู้ใช้สามารถระบุลงมาในเซลล์หรือว่าให้ขึ้น Input Box ให้ใส่ค่าตอนคล ...

:D ตัวอย่างการปรับ Code ครับ

Sub Macro1()
'
' Macro1 Macro
'

'
' Range("B2").Select
' ActiveCell.FormulaR1C1 = "=Table1[@Jan]"
Dim ad As String
ad = Worksheets("2").Cells(2, "xfd").End(xlToLeft).Offset(0, 1).Address
Worksheets("2").Range(ad).Value = Worksheets("1").Range(ad).Value
End Sub ...

ผมได้แนบไฟล์มาแล้วนะครับ โดยวิธีการทำงานคร่าวๆ คือพอกดปุ่มที่ Sheet 2 ก็จะไปดึงข้อมูลจาก Sheet 1 มากรอกครับ
อันนี้ภาพก่อนกดปุ่ม
before.jpg

อันนี้ภาพหลังกด ทั้ง 3 ปุ่ม
After.jpg

อันนี้คือ code ทั้ง 3 ปุ่ม
Sub Macro1()
'
' Macro1 Macro
'

'
Range("B2").Select
ActiveCell.FormulaR1C1 ...

คือตอนนี้
ผมเขียนmodule1 ใส่ใน button1 ให้ดึงข้อมูลมาคำนวนแล้วใส่ข้อมูลนั้นลงในเซลล์ A1 ถึง A20
ผมเขียนmodule2 ใส่ใน button2 ให้ดึงข้อมูลมาคำนวนแล้วใส่ข้อมูลนั้นลงในเซลล์ B1 ถึง B20
........
..........
...........
ผมเขียนmodule10 ใส่ใน button10 ให้ดึงข้อมูลมาคำนวนแล้วใส่ข้อมูลนั้นลงในเซลล์ J1 ถึง ...