セル色を指定ã—ã¦ãƒ‡ãƒ¼ã‚¿æŠ½å‡º:エクセルマクãƒãƒ»Excel VBAã®ä½¿ã„æ–¹/ユーザー定義関数ã©ã†ã—ã¦ã‚‚セル色を指定ã—ã¦ãƒ‡ãƒ¼ã‚¿ã®çµžè¾¼ã¿ã‚’è¡Œã„ãŸã„ã¨ã„ã†ã“ã¨ã§ã‚ã‚Œã°ã€ã‚»ãƒ«è‰²ã‚’å–å¾—ã™ã‚‹ãƒ¦ãƒ¼ã‚¶ãƒ¼å®šç¾©é–¢æ•°ã‚’作æˆã—ã€ãã®ãƒ¦ãƒ¼ã‚¶ãƒ¼å®šç¾©é–¢æ•°ã‚’使ã£ã¦ã‚»ãƒ«ã®è‰²ã‚’別ã®åˆ—ã«è¡¨ç¤ºã•ã›ã€ãã®åˆ—を使ã£ã¦ãƒ•ã‚£ãƒ«ã‚¿ãƒªãƒ³ã‚°ã‚’ã—ã¾ã—ょã†ã€‚ ▼セル色ã®ColorIndexã‚’å–å¾—ã™ã‚‹ãƒ¦ãƒ¼ã‚¶ãƒ¼å®šç¾©é–¢æ•° Function CellColor(objCell As Range) As Integer Application.Volatile CellColor = objCell.Interior.ColorIndex End Function 上記ã®ã‚³ãƒ¼ãƒ‰ã‚’標準モジュールã«è²¼ã‚Šä»˜ã‘ã€ä¾‹ãˆã°B2セルã«ã€Œ=CellColor(A2)ã€ã¨ã„ã†è¨ˆç®—å¼ã‚’入力ã™ã‚‹ã¨ã€B2セルã«A2セルã®å¡—ã‚Šã¤ã¶ã—色ã®ColorIndex値ãŒè¡¨ç¤ºã•ã‚Œã‚‹ã‚ˆã†ã«ãªã‚Šã¾ã™ã€‚ è¡Œã£ã¦ã„る処ç†ã¨ã—ã¦ã¯ã€å¼•æ•°ã§æŒ‡å®šã•ã‚ŒãŸobjCellã®ã€Interior.Color
{{#tags}}- {{label}}
{{/tags}}