Excel VBA質問箱 IV

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

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


14548 / 76734 ←次へ | 前へ→

【67675】Re:分数計算、if文。
発言  SS  - 10/12/24(金) 11:23 -

引用なし
パスワード
   ▼cosuke さん:
作ってみました。
初めに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 > 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
          'If n > a Then
            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です。
0 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 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free