Board logo

標題: [發問] 請問要如何 改這程式碼呢?(不同worksheets間的設定)(已解決) [打印本頁]
作者: icestormer    時間: 2012-5-3 09:26     標題: 請問要如何 改這程式碼呢?(不同worksheets間的設定)(已解決)

本帖最後由 icestormer 於 2012-5-3 12:31 編輯

Sub 將第30筆上色()'主要是在工作表(worksheets("主頁")下 對 副頁 進行 第30筆上色的動作
Dim 副頁 As Worksheet
Set 副頁 = Worksheets("查詢")


With 副頁

        最後一筆位置 = .Cells(65536, 115).End(xlUp).Row

        .Range(.Cells(最後一筆位置, 115), .Cells(最後一筆位置, 115).End(xlToRight))'.Select '<<問題出在這裡

                                                                              '沒法在 主頁 下 進行 對 副頁 的上色動作 好像卡在 用select  必需先切換到 副頁去才不會出錯
                                                                              '不知有沒有其它方法可在 不用切換情況下 全選第30行後上色?還是必要切換才行了?
        
        
            With Selection.Interior
                .ColorIndex = 45
               
            End With
        
End With
作者: kevin681024    時間: 2012-5-3 09:51

回復 1# icestormer


    不要Select直接用，試試看
  1.   .Range(.Cells(最後一筆位置, 115), .Cells(最後一筆位置, 115).End(xlToRight)).Interior.ColorIndex = 45
複製代碼
作者: icestormer    時間: 2012-5-3 10:57

回復 2# kevin681024


  好 感謝你 晚些試看看你的方法^^

另外我想請問一個問題 ,如下圖 是一個自訂表單  是用TEXTBOX1
我有寫一個陣列 是單純數字 我是想把陣列內的數字 排序如下 並顯示在 TextBox1(不知用這個好還是有其它更好的表示方法)
但我不知要怎下手寫.(如果是寫在EXCEL儲存格上我就會..),可否教我一下
PS:我有設它為MultiLine=true

10
9
8
7
6
5


作者: kevin681024    時間: 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
複製代碼
作者: icestormer    時間: 2012-5-3 12:30

回復 4# kevin681024


   感謝了 可行 我在來把它改一下就完全合用了 謝謝你



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