一個變色問題

帖子: 250
主題: 59
精華: 0
積分: 313
點名: 0
作業系統: XP
軟體版本: 2003
閱讀權限: 20
性別: 男
來自: 澳門
註冊時間: 2010-9-11
最後登錄: 2020-1-6

12^# 跳轉到 »

發表於 2016-9-29 19:06 | 只看該作者

回復 11# zyzzyva
明確說, 樓上樓主發問一個變色問題, 我把程式套入小弟工作表中, 而我在工作表儲存格格式>對齊方式中>勾選自動換列, 這情況下, 輸入文字過長列高便自行調整, 但現時文字過長,儲存格沒有調整列高, 因而沒法把全部輸入的文字顯示, 心想我己勾選了自動換列, 為何有此情況, 故想如果加入vba程式是否可以做到文字過長列高自行調整, 以便把輸入文字全部顯示, 謝,

TOP

zyzzyva

中學生 Rank: 2

帖子: 109
主題: 1
精華: 0
積分: 116
點名: 0
作業系統: win7
軟體版本: 2007
閱讀權限: 20
註冊時間: 2016-8-4
最後登錄: 2018-10-22

論壇榮譽勳章論壇贊助勳章

11^#

發表於 2016-9-29 09:00 | 只看該作者

回復 10# 周大偉
不好意思，不是很了解這跟變色問題的關聯。如果只是要在vba中設定自動換列，使用.WrapText = True就可以了。

TOP

周大偉

中學生 Rank: 2

帖子: 250
主題: 59
精華: 0
積分: 313
點名: 0
作業系統: XP
軟體版本: 2003
閱讀權限: 20
性別: 男
來自: 澳門
註冊時間: 2010-9-11
最後登錄: 2020-1-6

10^#

發表於 2016-9-28 18:41 | 只看該作者

回復 9# zyzzyva
謝謝回應,
自動換列是指一般輸入文字於儲存格過長時沒法全部顯示, 用家便會設定儲存格格式,在對齊方式中勾選自動換列, 這情況下輸入文字幾長都會自動調整列高,
在程式中可否加入自動換列, 是指用家輸入過長文字, 儲存格自行調整列高,
多謝回應..

TOP

zyzzyva

中學生 Rank: 2

帖子: 109
主題: 1
精華: 0
積分: 116
點名: 0
作業系統: win7
軟體版本: 2007
閱讀權限: 20
註冊時間: 2016-8-4
最後登錄: 2018-10-22

論壇榮譽勳章論壇贊助勳章

9^#

發表於 2016-9-28 14:25 | 只看該作者

回復 8# 周大偉
自動換列是什麼意思？變色後換到下一列嗎？

TOP

周大偉

中學生 Rank: 2

帖子: 250
主題: 59
精華: 0
積分: 313
點名: 0
作業系統: XP
軟體版本: 2003
閱讀權限: 20
性別: 男
來自: 澳門
註冊時間: 2010-9-11
最後登錄: 2020-1-6

8^#

發表於 2016-9-25 13:50 | 只看該作者

回復 6# zyzzyva
前輩好，小弟想請問若在程式中加入強制性自動換列，自否可以，感恩，謝謝！

TOP

hong912

中學生 Rank: 2

帖子: 97
主題: 31
精華: 0
積分: 133
點名: 0
作業系統: xp2007
軟體版本: xp2007
閱讀權限: 20
性別: 男
來自: 香港
註冊時間: 2012-8-12
最後登錄: 2020-12-25

7^#

發表於 2016-9-21 22:42 | 只看該作者

本帖最後由 hong912 於 2016-9-21 22:44 編輯

回復 6# zyzzyva
感謝大大，
我也曾用錄制巨集方式研究，但功力太淺，沒成功，衷心感謝！

hong912

TOP

zyzzyva

中學生 Rank: 2

帖子: 109
主題: 1
精華: 0
積分: 116
點名: 0
作業系統: win7
軟體版本: 2007
閱讀權限: 20
註冊時間: 2016-8-4
最後登錄: 2018-10-22

論壇榮譽勳章論壇贊助勳章

6^#

發表於 2016-9-21 22:16 | 只看該作者

加個if 判斷？

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
With Selection
If .Interior.ColorIndex = 5 Then
.Interior.ColorIndex = 3
Else
.Interior.ColorIndex = 5
.Merge
End If
End With
End Sub