icac
中學生
 離線
文章: 21
|
text
|
|
|
|
« 最後編輯時間: 2005-10-31, 23:25:04 由 oobird »
|
已記錄
|
|
|
|
DoDo
中學生
離線
文章: 11
|
例如我在A1儲存格輸入1，則A1儲存格本身會跑出從右上到左下的"斜線"出來，也就是自動畫線。 像下面這個圖  以下方式請參考 Private Sub Worksheet_Change(ByVal Target As Range) If [a1] = 1 Then With [a1].Borders(xlDiagonalUp) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic End With End If End Sub 然後我在B2儲存格輸入2，則B2儲存格本身會跑出從右上到左下的"斜線"、再從左上到右下的"斜線"出來(但這條比較短)。 這問提用框線方式無法達成因,Excel並不支援此方式框線,變通方式可利用多個儲存格組合成,或者是利用手繪圖形搭配框線,你參考 |
|
|
|
|
已記錄
|
|
|
|
oobird
凸槌的木工
論壇維護群
離線
文章: 4679
|
想了很久，那半條斜線不知如何處理，用繪圖的如何？
[附件已被管理員刪除]
|
|
|
|
|
已記錄
|
結廬待慧君
|
|
|
|
fangdr
|
長的那條線可以用設定格式化條件來自動畫 格式化條件不能畫斜線 |
|
|
|
|
已記錄
|
三人行必有我師
|
|
|
沙拉油
台灣水電工
尊貴會員
離線
會員性別: 
文章: 313
|
試試看
Private Sub Worksheet_Change(ByVal Target As Range)
Dim shp As Shape
If Target.Count = 1 Then
xs = Target.Left
xe = xs + Target.Width
ye = Target.Top
ys = ye + Target.Height
If Target = 1 Or Target = 2 Then
Set shp = ActiveSheet.Shapes.AddLine(xs, ys, xe, ye)
If Target = 2 Then
xs = xs + Target.Width / 2
ys = ye + Target.Height / 2
ye = Target.Top + Target.Height
Set shp = ActiveSheet.Shapes.AddLine(xs, ys, xe, ye)
End If
Else
For Each shp In ActiveSheet.Shapes
If shp.AutoShapeType = -2 And shp.TopLeftCell.Address = Target.Address Then
shp.Delete
End If
Next
End If
End If
End Sub
|
|
|
|
|
已記錄
|
|
|
|
icac
中學生
離線
文章: 21
|
fangdr 對,只能畫框線,不能畫斜線
沙拉油
您太厲害了,真感謝您,偶像!
|
|
|
|
|
已記錄
|
|
|
|
ccp
中學生
離線
文章: 38
|
真厲害! 用VBA方式去控繪圖物件!
|
|
|
|
|
已記錄
|
|
|
|
沙拉油
台灣水電工
尊貴會員
離線
會員性別:
文章: 313
|
要是有書看就容易多了，不用想這麼多天 個人覺得應該不會有人會去寫所有的物件、方法、屬性、事件的書籍的，那可能得寫很........久。 然而有需要寫這類的書籍嗎？沒有吧？！因為 vba 的線上說明已經非常詳細了，而且會附在 office 安裝光碟內等著你去安裝及運用它。 |
|
|
|
|
已記錄
|
|
|
|
yahawa
小學生
離線
文章: 2
|
我目前也是在用excel製作統計的相似性矩陣和親緣圖  ，help裏面的介紹是很詳盡。但遇到繪圖這檔事兒，ms的大哥們應該不會用對角1/2斜線來作為範例程式。而且，許多屬性還是要慢慢試，才知道到底是哪些控制了那個部份的格式設定。也常常是像這題一樣，試到最後，發現沒有現成屬性或方法，還是得自創屬性方法，或是用巨集函數湊合一下。 這部份比較活用的「題組」，目前好像沒有書本提到。小弟也只能靠help...help，再自己組合出一套方法。看到這個問題和解法，都覺得真是太厲害了。  |
|
|
|
|
已記錄
|
|
|
|
|
作者
