vba, 可不可以自動判決是在那個 cell, row?

cat5678

問問, 如用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

1. For Each icell In Worksheets(1).UsedRange
   
2.     If icell.Font.Bold Then
   
3.         icell.Interior.Color = RGB(255, 0, 0)
   
4.     End If
   
5. Next icell

複製代碼

cat5678

謝謝,
如我想做到, 在是但一格, 打入 =apple52("thisisatest"),
原本個方格會有返"文字thisisatest", 及會自動在旁邊的, colums + 1 會自動有返個D文字 "thisisatest". 及 會 bold 的.

看上應該如如何入手?

nissin

回覆 3# cat5678

1. Private Sub Worksheet_Change(ByVal target As Range)
   
2.     If Left(target.Formula, 9) = "=apple52(" Then
   
3.         With ActiveSheet.Range(target.Address).Offset(0, 1)
   
4.             .Value = Mid(target, 3, Len(target) - 2)  'Assume length of "文字" = 2
   
5.             .Font.Bold = True
   
6.             .Interior.Color = 65535
   
7.         End With
   
8.     End If
   
9. End Sub  

複製代碼