かにざ

2022/6/28 22:37

11回答

エクセルのユーザー定義関数で最大５個隣まで右隣を見たときに最初にあるセル値（空欄もしくは0でない）を得るものが欲しくて、こんな感じかなと思って作ってみたのですがだめみたいでした。

エクセルのユーザー定義関数で最大５個隣まで右隣を見たときに最初にあるセル値（空欄もしくは0でない）を得るものが欲しくて、こんな感じかなと思って作ってみたのですがだめみたいでした。 そのような関数は作製可能でしょうか？ だめだったやつ Function bbb() Application.Volatile GetAddrs = Application.ThisCell.Address(False, False) For i = 0 To 5 With bbb = Application.Sum(Range(GetAddrs).Offset(, 1).Resize(, i)) If bbb <> 0 Then i = 5 End If End With Next i End Function

Excel | Visual Basic・90閲覧・xmlns="http://www.w3.org/2000/svg">100

ベストアンサー

0
Q*******

2022/6/28 22:56

>最初にあるセル値（空欄もしくは0でない）を得るものが欲しくて Application.Sum ? 合計になっちゃうので Function bbb() Dim i As Integer Application.Volatile For i = 1 To 5 With Application.ThisCell.Offset(, i) If .Value <> 0 And .Value <> "" Then bbb = .Value Exit For End If End With Next End Function

かにざ

質問者2022/6/28 23:11

すばらしいです！ありがとうございます。 ちなみにbbb=""を最初の方のどこかに入れたら範囲内に値がなかった場合に何事もなかったことになりますでしょうか？問題ない？