Option Explicit Dim ç½®æ対象ææ¸å As String Dim æ¬æé å As Range Dim ã»ã³ãã³ã¹æ° As Integer Dim åèªæ° As Long Dim ããã¯ã¹æ° As Integer Dim ããã¯ã¹å As String Dim éå§è¡ As Integer Dim æåå As String Dim å¦çè¡ As Integer Public éå§æ¥æ As Variant Public çµäºæ¥æ As Variant Dim ç¾å¨ã®ãã¹ As String Sub æ¨æºæ¸å¼ã«åããã() Dim ãããã¼ããã¿ã¼ã®è¦å¦ As Integer Call 対象ææ¸ãæå®ãããã¤ã¢ãã° ãããã¼ããã¿ã¼ã®è¦å¦ = _ MsgBox("ãããã¼ããã¿ã¼ããã³ãã¬ã¼ãããã³ãã¼ãã¾ããï¼" _ , vbInformation + vbYesNo +
{{#tags}}- {{label}}
{{/tags}}