返回列表 上一主題 發帖

請教一些 關於 矩陣指定 相關問題

mark15jill
　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生Rank: 3Rank: 3

帖子
852 
主題
79 
精華
0 
積分
918 
點名
0  
作業系統
Windows 7 , XP 
軟體版本
Office 2007, Office 2003,Office 2010,YoZo Office 
閱讀權限
50 
性別
男 
來自
宇宙 
註冊時間
2011-4-8 
最後登錄
2024-2-21 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2012-9-11 10:50 | 只看該作者

請教一些 關於 矩陣指定 相關問題

Q1 若想將下列程式 改為 顯示LABEL 的NAME 應該要怎修改比較妥當  ( Userform1   內有 LABEL 1~10)
Q2 矩陣 表示  Label 想請問Q2 code 程式碼要怎修改?


Q1 code
  1. Dim st As Range

  3. For pgx = 1 To 10
  4.    
  5.     Set s1t = 工作表1.Cells(pgx, 1)
  6.     s1t.Value = pgx
  7.    
  8.     Set s2t = 工作表1.Cells(1, pgx)
  9.     s2t.Value = s1t.Value

  11.     Set s3t = 工作表1.Cells(s1t, s2t)
  12.     s3t.Value = s1t.Value
  13.    

  15. Cells(s1t, s2t).Select
  16.     Selection.ColumnWidth = 5
  17.     Selection.RowHeight = 25



  21. Next pgx
複製代碼
Q2 code
for i = 1 to 10
i = label & i .caption
cells(i,1)=label & i  



next i
收藏 分享

  多做多想多學習，少看少錯少迷途

  多做=多多練習，多多編寫。
  多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
  多學習=學習人家的發問並解答，學習人家的寫法

  少看=只看不做也枉然

Hsieh

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

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
2#
發表於 2012-9-11 11:43 | 只看該作者
回復 1# mark15jill
看不懂你的需求
我猜是你無法指定到Label
TypeName.rar (12.76 KB)
學海無涯_不恥下問

TOP

        靜思自在 : 人生不一定球球是好球，但是有歷練的強打者，隨時都可以揮棒。
返回列表 上一主題