VBAのプログラム

質問

VBAのプログラム

数字の相性を知るプログラムをしりたいのですが。

たとえば

4-7-10
1-4-9

だとしたら

　1　2　3　4　5　6　7　8　9　10
1 1 1
2
3
4 1 1 1 1
5
6
7 1 1
8
9 1 1
10 1 1

みたいな感じなんですが

回答No.4

fujiponxx · ベストアンサー

まず、どういう風に相性判断するかを
説明できるように文章にしましょう。

０～９までの数字を使うとか、
数字と数字を引いて３になったら良いとするとか

言葉で説明できない（設計書が起こせない）ものは
プログラムにはできないのです。

回答No.5

_Kyle

参考動画のようなことでしたら、例えばこんな感じで。

'------------↓　ココカラ　↓----------------------------------------
Sub Sample()

　Dim orgRng As Range
　Dim rtnRng As Range
　Dim i　　　As Long
　Dim j　　　As Long
　Dim k　　　As Long

　Set orgRng = Range("A1:C2")　 '元データ範囲
　Set rtnRng = Range("C5:L14")　'書き出し範囲

　'書き出し範囲をクリア
　rtnRng.ClearContents

　'行数(組数)分回す
　For i = 1 To 2
　　'列数(要素数)分回す
　　For j = 1 To 3
　　　'列数(要素数)分回す
　　　For k = 1 To 3
　　　　'自分自身は含めない
　　　　If j <> k Then
　　　　　'書き出す
　　　　　rtnRng(orgRng(i, j).Value, orgRng(i, k).Value).Value = 1
　　　　End If
　　　Next k
　　Next j
　Next i
End Sub
'------------↑　ココマデ　↑----------------------------------------

お礼

あんなわからない質問で完璧な答えをだしてもらってありがとうございました。

これぞベストアンサーです。

もうあきらめかけて、削除するためにベストアンサーを押してしまって、失敗しました。

さすが天才はいるものですね。

ありがとうです。感謝してます。

回答No.3

nak777r

結果の部分が崩れているのか
どういう結果にしたいのかわかりませんが

1-4-9から、
１行目は、４・９列目が１

4-7-10と1-4-9から
４行目は、１・７・９・10列目が１

4-7-10から
７行目は、４・10列目が１

1-4-9から、
９行目は、１・４列目が１

4-7-10から
10行目は、４・７列目が１

という結果でしょうか？

回答No.2

fujiponxx

まったく説明の意味がわからないのもあれですが、
プログラムのどこがわからないのですか？

１．入力する方法
２．判断する方法
３．計算する方法
４．画面（シート？）に出力する方法
５．相性判断するロジック？

まぁ、全部教えてって感じにもみえますが、
もっと詳しくかかないとね。

補足

4-7-10
1-4-9

Ａ１に　4
Ｂ1に　 7
Ｃ1に　 10

Ａ2に　1
Ｂ2　　4
Ｃ2　　9
と言う入力方法で相性判断するものなんですが
説明が非常に難しく、プログラムの最初も思いつかないので
最初だけとか
ヒントとか
しりたいです。

回答No.1

ToOrisugaru

説明の意味わかりません。その数値の過程を説明してください。