標題: label中是否能產生格子線呢?? [打印本頁]

---

作者: sillykin    時間: 2018-11-16 23:54     標題: label中是否能產生格子線呢??

本帖最後由 sillykin 於 2018-11-16 23:58 編輯

能否在userform內label產生格子（跟圖表中的一樣）嗎??或者有高手提供個意見

---

作者: bobomi    時間: 2018-11-19 16:52

userform 自帶標轉的控制項裡面就只有 label 不行

because it is no handle

---

作者: sillykin    時間: 2018-11-20 23:41

謝謝大大的回覆
想請問
=MID($A$45,(ROW(1:1)-1)*20+COLUMN(A:A),1)
函數改為vba要如何改呢???
格數有160格

---

作者: Hsieh    時間: 2018-11-21 16:31

回復 1# sillykin

用180個Label來顯示TEXTBOX的文字內容
[attach]29705[/attach]
[attach]29706[/attach]

---

作者: sillykin    時間: 2018-11-27 18:28

回復 4# Hsieh


    謝謝Hsieh版主
原來這樣的方式可行,但要文字置中,要如何處置
不是加入 .HorizontalAlignment = xlCenter '文字置中對齊
但還是執行會發生錯誤

---

作者: Hsieh    時間: 2018-11-28 09:35

回復 5# sillykin


        With Me.Controls.Add("forms.Label.1")
         .Top = t
         .Width = 20
         .Height = ct.Height
         .Left = ct.Left + ct.Width + (j - 1) * 20
         .Name = k
         .Object.BorderStyle = 1
         .Object.TextAlign = 2 '置中
      End With

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)