教えてください。

質問

教えてください。
これは、以前に回答いただいたものなのですが、ＶＢＡ初心者のため、
しらべましたが、わかりませんでした。どなたか、説明していただける方
回答お願いします。

For i=1 To 人数
氏名(i)=Cells(4+i,1)
回数(i)=Cells(4+i,2)

ReDim 担当（期間*2)

n=0
For i=1To人数
n1=0
n2=0
For j=1To 人数
Ｉｆ回数(j)=回数(i)Then
n1=n1+1
If j<=i Then n2=n2+1
End If
Next j

p=期間/回数(i)
For j=1To　回数(i)
q=p*(n2-0.5)/n1+p*(j-1)

こんな感じです。n1,n2とは、セル番地のことでしょうか？
まったくつながって理解できないので、
回答よろしくおねがいします。

回答No.5

layy · ベストアンサー

こういうときは、
ｎ１が最初は０でＪのループの時回数の比較で１加算されて、ループが終わったらこうなってる、Ｉが１から２になったらどう？、という感じで処理の流れを面倒でも順番に追いかけます。
値がどう変わっていったかがわかれば見えてくると思います。
どのタイミングで処理されるかというのも何やってるかのヒントになります。

作業の進め方に問題ありと感じます。
設計書、フローチャートはないですか。コードを日本語で書いてみるのも手です。本来はコードより前に設計書やフローチャート、日本語でのラフな走り書き等あります。
だれかに回答してもらったようですが、コードのロジックについて説明不十分な回答者も悪い、結果コードだけ提示したのでしょう。
例えば、セル番地でなくＸＸのカウントの意、とズバリ回答もらったところで、なぜそんな解釈に至ったかはわからないままのはず、これでは上達せず同じ失敗の繰り返しです。わからないうちは、答えだけ、コードだけ聞いてもダメです。
不安要素を解決させないまま次の作業にとりかからない方が良いです。理解できるまで、自分で解決手段をマスターするまで、は繰り返し質問しましょう。
質問の仕方も工夫。

やり方をマスターできてきたら、質問投稿は少なくなるし、応用効くし、作業後戻りも減ります。

お礼

率直なご意見ありがとうございます。
もう一度、いちから、勉強しなおします。
ありがとうございました。

回答No.4

hananoppo

n1,n2という変数には、何かをカウントした数が入るようです。
このコードだけではそれ以上は分かりません。
また、VBAの基本を理解されてない方にプログラム内容を説明するのは不可能です。
基本を勉強されてから質問してください。

お礼

はい、そのようにします。
すべての、言語を書き記すことが、できなかったのも、いけなかったんだとおもいます。
いちから、やり直します。
ありがとうございました。

回答No.3

nattocurry

コードの意味を聞く場合は、最低でも、コードを正確にそのまま提示するようにしましょう。

そして、コードを見て手入力で書き写すと、書き写し間違いが発生する可能性があります。
あなたが提示したコードも、そのままコピペすると、エラーになるところがあります。

それに、最初のForループを閉じるNextが見当たりません。

こんな、実際のコードとは異なるコードを解読されても、困るのはあなたですよ。

お礼

言語を抜粋して、書き記したのが、悪かったとおもいます。
もういちど、はじめから、勉強するつもりです。
ありがとうございました。

回答No.2

MackyNo1

＞n1,n2とは、セル番地のことでしょうか？

少なくともセル番地と判断された理由はどこにあるのでしょうか？

コードの一部しか提示されていないようですが、それらの値は　q=p*(n2-0.5)/n1+p*(j-1)　の数式の値を求めるために算出している値だということが分かると思います。

すなわち、それらの数値を出すために、For ～　Next　の構文で一致するデータがいくつあるか調べているわけです。

少なくともVBAを使用して処理する場合は、コードを十分に検証しないと重大なミスにつながりますのので、他の人に提案してもらったコードの計算のロジックを十分理解してから使用するようにすることをお勧めします（自分で編集できるのに必要な最低の基本部分を理解できない場合は管理上からも使用しないほうが良いと思います）。

お礼

そうなんです。抜粋して書き記したものです。
もう一度はじめから調べて勉強します。
ありがとうございました。

回答No.1

szk9998

n1,n2は変数です

お礼

ありがとうございます。
もっと勉強してから質問したいと思います。