Page 1 of 1
ให้ปุ่มสามารถเลื่อนขึ้นลง ตามเมาส์ได้
Posted: Wed Oct 26, 2016 4:59 pm
by sakajohn
ผมสร้างปุ่มคำสั่งมาโคร ให้ลบแถวครั้งละ 10 แถวครับ แต่ติดปัญหาตรงที่จะทำให้ปุ่มมันเลื่อนขึ้นลงตามที่เราเลื่อนเมาส์ เช่น ถ้าเราเลือกแถวข้อมูลสุดท้ายก็ให้ปุ่มเลื่อนตามลงมาที่แถวสุดท้าย พอดีผมมี 2 ปุ่มคำสั่งคือ ปุ่มย้อนกลับและปุ่มลบแถว ผมเขียนCODEดังนี้ครับ
Code: Select all
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Shapes("Button 1").Top = Target.Top
End Sub
มันสามารถเลื่อนได้ปุ่มเดียว ถ้าผมอยากให้เลื่อนได้ทั้งสองปุ่ม จะต้องเขียนcodeใหม่ยังไงครับ
Re: ให้ปุ่มสามารถเลื่อนขึ้นลง ตามเมาส์ได้
Posted: Wed Oct 26, 2016 6:21 pm
by snasui
แนบไฟล์ตัวอย่างมาด้วย ชี้ให้เห็นว่าปุ่มไหนต้องการจะทำอะไร ที่ไหน อย่างไร จะได้สะดวกต่อการทำความเข้าใจครับ
Re: ให้ปุ่มสามารถเลื่อนขึ้นลง ตามเมาส์ได้
Posted: Thu Oct 27, 2016 9:09 am
by sakajohn
snasui wrote: แนบไฟล์ตัวอย่างมาด้วย ชี้ให้เห็นว่าปุ่มไหนต้องการจะทำอะไร ที่ไหน อย่างไร จะได้สะดวกต่อการทำความเข้าใจครับ
ผมแนบไฟล์มาแล้วครับ ปุ่มสีฟ้ามี มาโคร สั่งให้ไปหน้าถัดไป จากsheet1 ไป Sheet2 หรือจาก Sheet2 กลับมา Sheet1 ส่วนปุ่มสีแดง จะทำหน้าที่ลบแถวที่ละ 3 แถว ผมต้องการให้ปุ่มทั้งหมด เลื่อนขึ้นลงตามที่เราคลิ๊กcell ปุ่มสีฟ้าผมเขียนโค๊ดได้แล้ว แต่ถ้าจะให้ปุ่มสีแดงเลื่อนด้วยจะต้องเพิ่ม code อย่างไรครับ
Re: ให้ปุ่มสามารถเลื่อนขึ้นลง ตามเมาส์ได้
Posted: Thu Oct 27, 2016 6:44 pm
by snasui
เขียนเหมือนกับปุ่มสีฟ้าแต่ต้องไปอ้างชื่อปุ่มสีแดงครับ
หากต้องการให้ปุ่มไม่ซ้อนกันก็ต้องปรับ Code กันนิดหน่อย ยกตัวอย่างเช่นด้านล่างครับ
Code: Select all
Shapes("picture 2").Top = Target.Top - 60
Re: ให้ปุ่มสามารถเลื่อนขึ้นลง ตามเมาส์ได้
Posted: Fri Oct 28, 2016 4:25 pm
by sakajohn
snasui wrote: เขียนเหมือนกับปุ่มสีฟ้าแต่ต้องไปอ้างชื่อปุ่มสีแดงครับ
หากต้องการให้ปุ่มไม่ซ้อนกันก็ต้องปรับ Code กันนิดหน่อย ยกตัวอย่างเช่นด้านล่างครับ
Code: Select all
Shapes("picture 2").Top = Target.Top - 60
ขอบคุณอาจารย์มากครับ