Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

1697 / 76734

←次へ　｜　前へ→


	【80684】Re:ユーザー関数からセルの背景色の変更

よろずや - 19/4/4(木) 13:03 -


	引用なし

	パスワード

' ThisWorkbookモジュール
Option Explicit

Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
　　Call test(Sh)
End Sub

' 標準モジュール
Option Explicit
Dim Dic1 As Object ' Scripting.Dictionary

Function CellColor(Value, ColorIndex)
　　CellColor = Value
　　If Dic1 Is Nothing Then
　　　　Set Dic1 = CreateObject("Scripting.Dictionary")
　　End If
　　If Dic1.Exists(Application.Caller.Address(External:=True)) Then
　　　　Dic1.Item(Application.Caller.Address(External:=True)) = ColorIndex
　　Else
　　　　Dic1.Add Application.Caller.Address(External:=True), ColorIndex
　　End If
End Function

Sub test(Sh) 'マクロ一覧に出さないために引数を付加
Dim Address As Variant
　　For Each Address In Dic1.Keys
　　　　Range(Address).Interior.ColorIndex = Dic1.Item(Address)
　　　　Dic1.Remove Address
　　Next Address
End Sub

5 hits

▼

【80680】ユーザー関数からセルの背景色の変更 いびき 19/4/3(水) 17:54