hong912

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

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2016-9-14 10:48 | 只看該作者

一個變色問題

大大們, 安好
有一個儲存格變色問題請教, 圖片有明細說明, 先行謝過各大大們,

樓主熱帖

hong912

中學生 Rank: 2

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

21^#

發表於 2016-10-13 13:51 | 只看該作者

回復 21# zyzzyva
謝謝前輩無私教導，現時正工作中，待今晚放工後試用，但真心感謝，祝願健康。

hong912

TOP

zyzzyva

中學生 Rank: 2

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

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

20^#

發表於 2016-10-13 12:36 | 只看該作者

回復 20# hong912
可以試著理解一下code，執行合併儲存格的是merge，只要把它刪除就可以了。
沒有合併的話，wraptext可以正常作用，另一個change事件也可以刪掉。

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
.WrapText = True
End If
End With
End Sub

複製代碼

TOP

hong912

中學生 Rank: 2

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

19^#

發表於 2016-10-12 22:38 | 只看該作者

回復 18# zyzzyva
謝謝前輩, 衷心感謝!

hong912

TOP

zyzzyva

中學生 Rank: 2

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

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

18^#

發表於 2016-10-12 20:09 | 只看該作者

回復 17# hong912
是2個事件，要放在同一個worksheet。按右鍵後會變色同時合併儲存格，如果在裡頭輸入，會有換列的效果(但不是很漂亮)。
個人覺得，如果會需要操作公式或程式，非必要盡量避免使用合併儲存格，儲存格合併之後，容易有很多奇奇怪怪的問題。

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
.WrapText = True
End If
End With
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Vhight As Single
If Target.WrapText = True Then
With Target
.Select
.RowHeight = 1
.WrapText = True
.UnMerge
.EntireRow.AutoFit
Selection.Merge
Vhight = .Width * .Height / Selection.Width
If Vhight < 16 Then Vhight = 16
.RowHeight = Vhight
.VerticalAlignment = xlCenter
End With
End If
End Sub

複製代碼

TOP

hong912

中學生 Rank: 2

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

17^#

發表於 2016-10-12 19:52 | 只看該作者

回復 16# zyzzyva
前輩, 你好,
可否明確說明, 如何放於同一程式區內, 受教了, 感恩賜!

hong912

TOP

zyzzyva

中學生 Rank: 2

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

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

16^#

發表於 2016-10-12 10:00 | 只看該作者

回復 15# hong912
儲存格合併後不太好操作，請參考13F的回覆。

TOP

hong912

中學生 Rank: 2

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

15^#

發表於 2016-10-11 19:53 | 只看該作者

本帖最後由 hong912 於 2016-10-11 19:55 編輯

回復 13# zyzzyva
大大好,
癹問了一個變色問題, 帶出另一個換列問題, 若能把兩個程式融合, 就是否可以, 謝謝!!

hong912

TOP

周大偉

中學生 Rank: 2

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

14^#

發表於 2016-9-29 20:54 | 只看該作者

回復 13# zyzzyva
感謝大大,
我會鑽研, 若有不問處, 再請教, 謝謝,

TOP

zyzzyva

中學生 Rank: 2

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

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

13^#

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

回復 12# 周大偉
那是合併儲存格的問題，excel合併儲存格有很多問題，用vba設定wraptext也沒用(可以手動在目標列的下緣按兩下，會發現一樣無效)，詳細可以參考：
http://blog.contextures.com/archives/2015/12/03/autofit-merged-cells-row-height-update-20151203/
我想您應該是合併、變色完儲存格要在裡頭輸入文字？把下面的code加到同一個worksheet裡試試看。

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Vhight As Single
If Target.WrapText = True Then
With Target
.Select
.RowHeight = 1
.WrapText = True
.UnMerge
.EntireRow.AutoFit
Selection.Merge
Vhight = .Width * .Height / Selection.Width
If Vhight < 16 Then Vhight = 16
.RowHeight = Vhight
.VerticalAlignment = xlCenter
End With
End If
End Sub

複製代碼

TOP