サイトスワップ掲示板

Re: エクセルマクロによるジャグリングエディター及び簡易シミュレーター

No.107: 2018-10-08(月) 06:59:57
投稿者: セバスちゃん
Sheet1用

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim a As Long
Dim b As Long
Dim gyou As Long
Dim retu As Long
Dim motoss As Long
Dim motoiki As Long
Dim taisiss As Long
Dim taisiiki As Long
Dim kosuu As Long
Dim nagasa As Long
Dim sisp(100) As Long
Dim sssa As Long
Dim saigoss As Long
Const ss0 As Long = 9
Const sslast As Long = 28

gyou = Target.Row
retu = Target.Column
For a = 1 To 20
If Cells(1, a).Value <> "" Then
sisp(a) = Cells(1, a).Value
kosuu = kosuu + sisp(a)
nagasa = a
Else
kosuu = kosuu / nagasa
Exit For
End If
Next a
If gyou > ss0 And gyou <= sslast Then
motoss = Cells(1, retu).Value
motoiki = Cells(2, retu).Value
taisiss = Cells(gyou, retu).Value
taisiiki = taisiss - motoss + motoiki
If motoiki = taisiiki Then
MsgBox "かわらない"
Exit Sub
End If
b = 0
Do While b = 0
If taisiiki < 1 Then
taisiiki = taisiiki + nagasa
ElseIf taisiiki > nagasa Then
taisiiki = taisiiki - nagasa
Else
b = 1
End If
Loop
If motoiki = taisiiki Then
MsgBox "個数が変わってしまいます"
Exit Sub
End If
sssa = taisiss - motoss
For a = 1 To nagasa
If Cells(2, a).Value = taisiiki Then
saigoss = Cells(1, a).Value - (sssa)
If saigoss < 0 Then
MsgBox "-値になります"
Exit Sub
End If
Cells(1, a).Value = saigoss
End If
Next a
Cells(1, retu).Value = taisiss
joutai
End If
End Sub

関連ツリー

【1】 エクセルマクロによるジャグリングエディター及び簡易シミュレーター No.106 セバスちゃん 2018-10-08(月) 06:53:47
Re: エクセルマクロによるジャグリングエディター及び簡易シミュレーター No.107 セバスちゃん 2018-10-08(月) 06:59:57
Re^2: エクセルマクロによるジャグリングエディター及び簡易シミュレーター No.108 セバスちゃん 2018-10-08(月) 07:02:00
Re^3: エクセルマクロによるジャグリングエディター及び簡易シミュレーター No.109 セバスちゃん 2018-10-08(月) 07:10:46

掲示板に戻る