Sub Bom(B() As Range, CB As Integer, BossHit As Integer, Boss As Range)
Dim i As Integer, c As Range, N() As Range, j As Integer, f
j = 0: ReDim N(j): f = 0
For i = 1 To UBound(B)
For Each c In B(i).CurrentRegion
If c.Row = B(i).Row Or c.Column = B(i).Column Then
Select Case True
Case Not IsNumeric(c)
Case c < 0
Case c = 1
c = -1
j = j + 1
ReDim Preserve N(j)
Set N(j) = c
Case c.Address = Boss.Address
If B(i).Address = Boss.Address Then
If CB = 1 Then
BossHit = BossHit + 1
c = c - 1
End If
Else
BossHit = BossHit + 1
c = c - 1
If f = 0 Then
f = 1
j = j + 1
ReDim Preserve N(j)
Set N(j) = c
End If
End If
Case Else
c = c - 1
End Select
End If
Next
Next
Set c = Nothing
B = N
Erase N
End Sub
コメントする
人が嫌がる発言や､喧嘩になるような発言はやめましょう。
ルールに違反する投稿は禁止されています。禁止行為が確認された場合､予告無く削除退会等の処理をさせて頂く事がありますので予めご了承ください。
※ 一部端末/ブラウザでは画像投稿機能は非対応です。
※ 投稿された画像は実際の画像とは色、向き、解像度が異なる可能性があります。
入力した内容をご確認ください。よろしければ「コメントする」ボタンを押してください。
投稿内容が不正です
入力した内容をご確認ください。
メールでコメントを投稿します
画像を添付してから、本文を変更せずに指定された宛先にメールを送信してください。
送信後は投稿完了のメールをご確認ください。