Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


14548 / 76738 ←次へ | 前へ→

【67679】Re:分数計算、if文。
発言  SS  - 10/12/24(金) 16:31 -

引用なし
パスワード
   ▼cosuke さん:
metabeauxさんの回答を確認してみたら、私の場合条件が不足していましたので
修正しました。

>作ってみました。
>初めにa,b,cの大小関係を逆に考えていたので出力の並びが良くないですが
>一応リストアップできていると思います。
>変数lastで検討数を調整できるようにしましたがn+1の場合必要なさそうです。
>
>Sub test()
>  Dim a As Long, b As Long, c As Long, d As Long, n As Long
>  Dim a1 As Long, b1 As Long, c1 As Long
>  Dim last As Long
>  Dim i As Long
>  
>  last = 100
>  i = 1
>  Cells.ClearContents
>  Cells(1, 1).Value = "a"
>  Cells(1, 2).Value = "b"
>  Cells(1, 3).Value = "c"
>  Cells(1, 4).Value = "n"
>  Cells(1, 5).Value = "n+1"
>  Cells(1, 6).Value = "(n+1)/a"
>  Cells(1, 7).Value = "(n+1)/b"
>  Cells(1, 8).Value = "(n+1)/c"
>  Cells(1, 9).Value = "和"
>  
>  For c = 1 To last - 3
>    For b = c + 1 To last - 2
>      For a = b + 1 To last - 1
>        d = (a * b + b * c + c * a)
>        If (a * b * c - d) = 0 Then
>          
>        ElseIf d Mod (a * b * c - d) = 0 Then
>          n = d / (a * b * c - d)
          If n+1 >= a And (n + 1) Mod a=0 And (n + 1) Mod b=0 _
                  And (n + 1) Mod c = 0 Then
>            i = i + 1
>            a1 = (n + 1) / a
>            b1 = (n + 1) / b
>            c1 = (n + 1) / c
>            Cells(i, 1).Value = a
>            Cells(i, 2).Value = b
>            Cells(i, 3).Value = c
>            Cells(i, 4).Value = n
>            Cells(i, 5).Value = n + 1
>            Cells(i, 6).Value = a1
>            Cells(i, 7).Value = b1
>            Cells(i, 8).Value = c1
>            Cells(i, 9).Value = a1 + b1 + c1
>          End If
>        End If
>      Next a
>    Next b
>  Next c
>End Sub
>
>>返答ありがとうございます。
>>x+y+zは1ではないですね。
>>
>>例えば(a,b,c,N)=(6,4,2)のとき、x+y+z=11/12です。

1 hits

【67635】分数計算、if文。 cosuke 10/12/20(月) 16:50 質問
【67636】Re:分数計算、if文。 momo 10/12/20(月) 17:36 発言
【67642】Re:分数計算、if文。 cosuke 10/12/20(月) 22:06 発言
【67650】Re:分数計算、if文。 momo 10/12/21(火) 8:45 発言
【67673】Re:分数計算、if文。 山猿 10/12/22(水) 22:08 発言
【67675】Re:分数計算、if文。 SS 10/12/24(金) 11:23 発言
【67679】Re:分数計算、if文。 SS 10/12/24(金) 16:31 発言
【67669】Re:分数計算、if文。 metabeaux 10/12/22(水) 17:21 回答
【67677】Re:分数計算、if文。 metabeaux 10/12/24(金) 16:13 回答

14548 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free