shikaku https://blog.hatena.ne.jp/shikaku/ shikaku's blog https://blog.systemjp.net/ Excel IFSを自前で実装する Function IFS(ParamArray par()) Dim i As Integer IFS = CVErr(xlErrNA) If UBound(par) Mod 2 = 0 Then Exit Function End If For i = LBound(par) To UBound(par) - 1 Step 2 If par(i) Then IFS = par(i + 1) Exit Function End If Next End Function ネタ元 https://www.excelspeedup.com/ifs/ 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fblog.systemjp.net%2Fentry%2F2019%2F09%2F18%2F113256" title="Excel2013、Excel2010、Excel2007等古いエクセルでIFSを使う方法 - shikaku&#39;s blog" class="embed-card embed-blogcard" scrolling="no" frameborder="0" style="display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;"></iframe> Hatena Blog https://hatena.blog 2019-09-18 11:32:56 rich https://blog.systemjp.net/entry/2019/09/18/113256 1.0 100%