帖子: 169
主題: 41
精華: 0
積分: 219
點名: 0
作業系統: WIN10
軟體版本: office 2007
閱讀權限: 20
性別: 男
註冊時間: 2012-7-31
最後登錄: 2023-9-15

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2018-11-16 23:54 | 只看該作者

label中是否能產生格子線呢??

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

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

圖.JPG (27.97 KB)

12.rar (34.58 KB)

樓主熱帖

bobomi

中學生 Rank: 2

帖子: 181
主題: 5
精華: 0
積分: 197
點名: 0
作業系統: XP
軟體版本: 2000
閱讀權限: 20
性別: 女
註冊時間: 2014-3-9
最後登錄: 2024-4-29

2^#

發表於 2018-11-19 16:52 | 只看該作者

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

because it is no handle

TOP

sillykin

中學生 Rank: 2

帖子: 169
主題: 41
精華: 0
積分: 219
點名: 0
作業系統: WIN10
軟體版本: office 2007
閱讀權限: 20
性別: 男
註冊時間: 2012-7-31
最後登錄: 2023-9-15

3^#

發表於 2018-11-20 23:41 | 只看該作者

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

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 104
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2025-4-30

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

4^#

發表於 2018-11-21 16:31 | 只看該作者

回復 1# sillykin

用180個Label來顯示TEXTBOX的文字內容

180標籤.zip (20.7 KB)

學海無涯_不恥下問

TOP

sillykin

中學生 Rank: 2

帖子: 169
主題: 41
精華: 0
積分: 219
點名: 0
作業系統: WIN10
軟體版本: office 2007
閱讀權限: 20
性別: 男
註冊時間: 2012-7-31
最後登錄: 2023-9-15

5^#

發表於 2018-11-27 18:28 | 只看該作者

回復 4# Hsieh

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

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 104
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2025-4-30

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

6^#

發表於 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

學海無涯_不恥下問

TOP