返回列表下一主題上一主題發帖

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

icestormer

中學生 Rank: 2

帖子: 127
主題: 28
精華: 0
積分: 160
點名: 0
作業系統: W7
軟體版本: 2003
閱讀權限: 20
性別: 男
註冊時間: 2010-11-1
最後登錄: 2017-5-20

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

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

樓主熱帖

icestormer

中學生 Rank: 2

帖子: 127
主題: 28
精華: 0
積分: 160
點名: 0
作業系統: W7
軟體版本: 2003
閱讀權限: 20
性別: 男
註冊時間: 2010-11-1
最後登錄: 2017-5-20

5^#

發表於 2012-5-3 12:30 | 只看該作者

回復 4# kevin681024

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

TOP

kevin681024

中學生 Rank: 2

帖子: 23
主題: 0
精華: 0
積分: 51
點名: 0
作業系統: WIn7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
註冊時間: 2011-3-30
最後登錄: 2013-7-10

4^#

發表於 2012-5-3 11:10 | 只看該作者

回復 3# icestormer

我會用這樣子的寫法，如下

Dim MyArr(), Str As String
MyArr = Array(10,9,8,7,6,5)
For i = 0 To UBound(MyArr)
Str = Str & MyArr(i) & vbNewLine
Next
TextBox1.Text = Str

複製代碼

80 字節以內
不支持自定義 Discuz! 代碼

TOP

icestormer

中學生 Rank: 2

帖子: 127
主題: 28
精華: 0
積分: 160
點名: 0
作業系統: W7
軟體版本: 2003
閱讀權限: 20
性別: 男
註冊時間: 2010-11-1
最後登錄: 2017-5-20

3^#

發表於 2012-5-3 10:57 | 只看該作者

回復 2# kevin681024

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

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

10
9
8
7
6
5