ให้ปุ่มสามารถเลื่อนขึ้นลง ตามเมาส์ได้

[sakajohn]

ผมสร้างปุ่มคำสั่งมาโคร ให้ลบแถวครั้งละ 10 แถวครับ แต่ติดปัญหาตรงที่จะทำให้ปุ่มมันเลื่อนขึ้นลงตามที่เราเลื่อนเมาส์ เช่น ถ้าเราเลือกแถวข้อมูลสุดท้ายก็ให้ปุ่มเลื่อนตามลงมาที่แถวสุดท้าย พอดีผมมี 2 ปุ่มคำสั่งคือ ปุ่มย้อนกลับและปุ่มลบแถว ผมเขียนCODEดังนี้ครับ

Code: Select all

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Shapes("Button 1").Top = Target.Top
End Sub

มันสามารถเลื่อนได้ปุ่มเดียว ถ้าผมอยากให้เลื่อนได้ทั้งสองปุ่ม จะต้องเขียนcodeใหม่ยังไงครับ

[snasui]

แนบไฟล์ตัวอย่างมาด้วย ชี้ให้เห็นว่าปุ่มไหนต้องการจะทำอะไร ที่ไหน อย่างไร จะได้สะดวกต่อการทำความเข้าใจครับ

[sakajohn]

แนบไฟล์ตัวอย่างมาด้วย ชี้ให้เห็นว่าปุ่มไหนต้องการจะทำอะไร ที่ไหน อย่างไร จะได้สะดวกต่อการทำความเข้าใจครับ

ผมแนบไฟล์มาแล้วครับ ปุ่มสีฟ้ามี มาโคร สั่งให้ไปหน้าถัดไป จากsheet1 ไป Sheet2 หรือจาก Sheet2 กลับมา Sheet1 ส่วนปุ่มสีแดง จะทำหน้าที่ลบแถวที่ละ 3 แถว ผมต้องการให้ปุ่มทั้งหมด เลื่อนขึ้นลงตามที่เราคลิ๊กcell ปุ่มสีฟ้าผมเขียนโค๊ดได้แล้ว แต่ถ้าจะให้ปุ่มสีแดงเลื่อนด้วยจะต้องเพิ่ม code อย่างไรครับ

[snasui]

เขียนเหมือนกับปุ่มสีฟ้าแต่ต้องไปอ้างชื่อปุ่มสีแดงครับ

หากต้องการให้ปุ่มไม่ซ้อนกันก็ต้องปรับ Code กันนิดหน่อย ยกตัวอย่างเช่นด้านล่างครับ

Code: Select all

Shapes("picture 2").Top = Target.Top - 60

[sakajohn]

เขียนเหมือนกับปุ่มสีฟ้าแต่ต้องไปอ้างชื่อปุ่มสีแดงครับ

หากต้องการให้ปุ่มไม่ซ้อนกันก็ต้องปรับ Code กันนิดหน่อย ยกตัวอย่างเช่นด้านล่างครับ

Code: Select all

Shapes("picture 2").Top = Target.Top - 60

ขอบคุณอาจารย์มากครับ