作者: cat5678 時間: 2021-12-18 08:47 標題: vba, 可不可以自動判決是在那個 cell, row?
問問, 如用VBA,
可不可以同時做到個方格屬性, 例如text 文字 bold, 個格fill color要黃色底色.
因我都唔知自己用邊一個 cell/row.
如用 vba, 可不可以自動判決是在那個 cell, row? 及行完個function/sub code後, 傳回個一格cell/row.
謝謝.
Option Explicit
Public Function apple52(ByVal a As String) As String
apple52 = "vba-" & a
End Function
作者: a090203 時間: 2021-12-18 11:57
- For Each icell In Worksheets(1).UsedRange
- If icell.Font.Bold Then
- icell.Interior.Color = RGB(255, 0, 0)
- End If
- Next icell
作者: cat5678 時間: 2021-12-18 13:27
謝謝,
如我想做到, 在是但一格, 打入 =apple52("thisisatest"),
原本個方格會有返"文字thisisatest", 及會自動在旁邊的, colums + 1 會自動有返個D文字 "thisisatest". 及 會 bold 的.
看上應該如如何入手?
作者: nissin 時間: 2022-1-24 00:28
本帖最後由 nissin 於 2022-1-24 00:30 編輯
回覆 3# cat5678
- Private Sub Worksheet_Change(ByVal target As Range)
- If Left(target.Formula, 9) = "=apple52(" Then
- With ActiveSheet.Range(target.Address).Offset(0, 1)
- .Value = Mid(target, 3, Len(target) - 2) 'Assume length of "文字" = 2
- .Font.Bold = True
- .Interior.Color = 65535
- End With
- End If
- End Sub