Excel VBA質問箱 IV

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

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


24 / 75061 ←次へ | 前へ→

【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

59 hits

【80680】ユーザー関数からセルの背景色の変更 いびき 19/4/3(水) 17:54 質問[未読]
【80681】Re:ユーザー関数からセルの背景色の変更 γ 19/4/3(水) 18:38 回答[未読]
【80683】Re:ユーザー関数からセルの背景色の変更 γ 19/4/4(木) 6:21 回答[未読]
【80687】Re:ユーザー関数からセルの背景色の変更 γ 19/4/8(月) 22:07 質問[未読]
【80682】Re:ユーザー関数からセルの背景色の変更 マナ 19/4/3(水) 20:23 発言[未読]
【80684】Re:ユーザー関数からセルの背景色の変更 よろずや 19/4/4(木) 13:03 回答[未読]
【80691】Re:ユーザー関数からセルの背景色の変更 よろずや 19/4/10(水) 16:21 回答[未読]

24 / 75061 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free