VBAã®å‹‰å¼·ã‚’始ã‚ã¦ã¿ãŸä»Šå›žã¯ã€å¯è¦–セルã®ã¿ã‚’å–å¾—ã™ã‚‹SpecialCells(xlCellTypeVisible)メソッド使用時ã®ãƒã‚°ã¨ã€ãƒã‚¯ã®å›žé¿æ–¹æ³•ã«ã¤ã„ã¦è€ƒãˆã¦ã¿ãŸã„ã¨æ€ã„ã¾ã™ã€‚ VBAç•Œã§ã¯æœ‰å？ãªã®ã‹ã©ã†ã‹åˆ†ã‹ã‚Šã¾ã›ã‚“ãŒã€éžè¡¨ç¤ºã®è¡Œã¾ãŸã¯åˆ—ãŒã‚·ãƒ¼ãƒˆå†…ã«1以上ã‚る状態ã§ã€å˜ä¸€ã‚»ãƒ«å¯¾ã—ã¦SpecialCells(xlCellTypeVisible)メソッドを使用ã™ã‚‹ã¨è¬Žã®ãƒã‚°ãŒç™ºç”Ÿã™ã‚‹ã‚ˆã†ã§ã™ã€‚ 下ã®ã‚³ãƒ¼ãƒ‰ã§è©¦ã—ã¦ã¿ãŸã„ã¨æ€ã„ã¾ã™ã€‚（å˜ç´”ã«ã€é¸æŠžã—ã¦ã„ã‚‹å¯è¦–セルã«çµµæ–‡å—を入力ã™ã‚‹ã ã‘ã®ã‚‚ã®ã§ã™ï¼‰ Sub test() Dim myRange As Range For Each myRange In Selection.SpecialCells(xlCellTypeVisible) myRange.Value = "(ï¼ _ï¼ ;)" DoEvents Next myRange End Sub ã“ã®ã‚³ãƒ¼ãƒ‰ã‚’下ã®
{{#tags}}- {{label}}
{{/tags}}