クロスファイアミッション攻略

私自身まだ理解不足ですが、チラホラやり方が分からないなどの声が聞こえてるので、情報交換と仮説の検証などヲを行っていきたいと思います。

メインカテゴリ：攻略サブカテゴリ：キャンペーン

テラジ

2023/05/31

テラジ

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Dim x, y, c As Range, e As Long, s As Long, BossHit As Integer, Boss As Range

If Intersect(Target, Range("B2:F6")) Is Nothing Then
With Range("B2:F6").Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Cancel = True
Exit Sub
End If

With Target.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
If Target = " " Then
Cells(Target.Row + 6, Target.Column) = ""
Cells(Target.Row + 6, Target.Column + 6) = ""
Cancel = True
Exit Sub
End If

Application.ScreenUpdating = False

x = Target.CurrentRegion.Cells(1).Column + 6
y = Target.CurrentRegion.Cells(1).Row

Target.CurrentRegion.Copy
Cells(y, x).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

Set Boss = Cells(1)
For Each c In Cells(y, x).CurrentRegion
If IsNumeric(c) And c < 0 Then
Set Boss = c
c = c * -1
Exit For
End If
Next
Dim B() As Range, CB As Integer
ReDim B(1): Set B(1) = Cells(Target.Row, Target.Column + 6): CB = 0: s = 0: BossHit = 0

Do
CB = CB + 1
Bom B(), CB, BossHit, Boss
Loop Until UBound(B) = 0
Set Boss = Nothing

e = 0
For Each c In Cells(y, x).CurrentRegion
If IsNumeric(c) And c > 0 Then e = e + c
Next
If e = 0 Then
With Target.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 255
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If

Cells(Target.Row + 6, Target.Column) = e
Cells(Target.Row + 6, Target.Column + 6) = CB
Cells(Target.Row + 6, Target.Column + 12) = BossHit

Cancel = True
Application.ScreenUpdating = True

End Sub

コメントする

メールでコメントを投稿します

このトピックを削除しますか?

このコメントを削除しますか?

通報

違反ユーザ：

違反種類：

違反内容

通報

違反ユーザ：

違反種類：

違反内容