[問題] 選定兩欄位,增加線條

作者: yenwang (孤狼)   2017-09-27 00:28:07
想請問大家
目前想在選定兩欄位
譬如D3和F7之間畫線條
小程式大概如下
Sub LINE_P()
With ActiveSheet.Shapes.AddLine([D3].Left, [D3].Top, [F7].Left, [F7].Top).Line
.DashStyle = msoLineDashDotDot
.ForeColor.RGB = RGB(112, 48, 160)
End With
但想要改成兩欄位由使用者定義
不知到要怎麼改
想讓[D3], [F7]改成變數輸入
想請問版上高手,可否解惑!
作者: soyoso (我是耀宗)   2017-09-27 01:04:00
如使用者定義以變數=inputbox取得儲存格字串的話range(變數).left或top如以set 變數= application.inputbox,type為8的話,則以變數.left或top

Links booklink

Contact Us: admin [ a t ] ucptt.com