返回列表 上一主題 發帖

[發問] 請問要如何 改這程式碼呢?(不同worksheets間的設定)(已解決)

kevin681024

帖子
23 
主題
0 
精華
0 
積分
51 
點名
0  
作業系統
WIn7 
軟體版本
Office 2010 
閱讀權限
20 
性別
男 
註冊時間
2011-3-30 
最後登錄
2013-7-10 
1# 跳轉到 »
發表於 2012-5-3 09:51 | 顯示全部帖子
回復 1# icestormer


    不要Select直接用，試試看
  1.   .Range(.Cells(最後一筆位置, 115), .Cells(最後一筆位置, 115).End(xlToRight)).Interior.ColorIndex = 45
複製代碼
80 字節以內
不支持自定義 Discuz! 代碼

TOP

kevin681024

帖子
23 
主題
0 
精華
0 
積分
51 
點名
0  
作業系統
WIn7 
軟體版本
Office 2010 
閱讀權限
20 
性別
男 
註冊時間
2011-3-30 
最後登錄
2013-7-10 
2#
發表於 2012-5-3 11:10 | 顯示全部帖子
回復 3# icestormer


    我會用這樣子的寫法，如下
  1. Dim MyArr(), Str As String
  2. MyArr = Array(10,9,8,7,6,5)
  3. For i = 0 To UBound(MyArr)
  4.     Str = Str & MyArr(i) & vbNewLine
  5. Next
  6. TextBox1.Text = Str
複製代碼
80 字節以內
不支持自定義 Discuz! 代碼

TOP

        靜思自在 : 一個人不怕錯，就怕不改過，改過並不難。
返回列表 上一主題