No.5ベストアンサー
- 回答日時:
No1,4です。
kintouとkintou()がかぶってますね・・・・すいません。
for i=0 to 5000
kintou(i)=除算の整数部
next
kannkaku = 5000\除算の整数部
for i=kannkaku to 5000 step kannkaku
kintou(i)=kintou(i) + 1
next
又は
除算の整数部=15100\3
kannkaku=5000/除算の整数部
for i=0 to 5000
kintou(i)=除算の整数部 + (i\kannkaku)^0
next
と、ちょっと修正させてください。
皆様、回答ありがとうございます。
このプログラムは、サーボモーターの移動量を均等にするのに使うつもりです。
全移動量、mパルスをn回に分けて移動させます。
あまりを無視すると、移動量が短くなってしまい、均等に載せないと移動量が偏ってしまいます。
あまりの載せ方で、移動量が偏りを防ぐつもりです。
早速皆様の方法を試してみます。
No.4
- 回答日時:
No2の方のを見てよーやく理解しました。
kintou(0) = 3
kintou(1) = 3
・・・・
kintou(49) = 3
kintou(50) = 4
kintou(51) = 3
・・・
ですか。
なら、
除算の整数部=15100\3
for i=0 to 5000
kintou(i)=除算の整数部
next
kintou = 5000\除算の整数部
for i=kintou to 5000 step kintou
kintou(i)=kintou(i) + 1
next
又は
除算の整数部=15100\3
kintou=5000/除算の整数部
for i=0 to 5000
kintou(i)=除算の整数部 + (i\kintou)^0
next
ですかね。
下のほうが毎回計算しているので実行速度は遅そうですが、ソースが短いと思います。
毎度ですが、試してないので改良が必要かと思います。
No.3
- 回答日時:
簡単に作ってみました。
Sub kintoh()
Dim cnt As Integer
Dim answer() As Integer
Dim gokei, kosu As Long
' 割り振る元の合計値 '
gokei = 15100
' 均等割の個数 '
kosu = 5000
' 結果配列初期化 '
ReDim answer(kosu) As Integer
For cnt = 1 To kosu
' Excelシミュレート用の出力 '
answer(cnt) = Int(cnt * gokei / kosu) - Int((cnt - 1) * gokei / kosu)
' 確認用 '
Debug.Print answer(cnt)
Next cnt
End Sub
実際に作ってみました。
上手く説明出来ませんが
貴方の式はパーペキ(パーフェクトに完璧)でした。
どのケースに於いても完全に均等に割り振れました。
ありがとうございました。
No.2
- 回答日時:
n番目の「位置」=15100÷5000×nを切り捨て
n番目の「データ」=n番目の「位置」-(n-1)番目の「位置」
では?
Pos(00)=0
Pos(01)=3
Pos(02)=6
~
Pos(49)=147
Pos(50)=151
Pos(51)=154
となりますから、
Data(01)=Pos(01)-Pos(00)=3
Data(02)=Pos(02)-Pos(01)=3
~
Data(50)=Pos(50)-Pos(49)=4
Data(51)=Pos(51)-Pos(50)=3
となるハズ。
No.1
- 回答日時:
あまりを均等に分けるのは
kintou=5000\100
for i=0 to 5000 step kintou
kintou(i) = 1
next
見たいな感じじゃないですか?
あんまり考えないで作ったので修正必要と思います。大体の考え方はこれでいいと思います。
>3333...<--3のデーターが49個50個目が1加えられて4というような。
この部分意味分からなかったので、自分でどうにかしてください。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- その他(コンピューター・テクノロジー) 動画編集のためにDVDをデーター化ができない原因を知りたい。 7 2022/12/28 14:32
- Excel(エクセル) エクセルで割り振りをする方法 7 2022/08/02 14:02
- Excel(エクセル) Excelのデーターが消える 1 2022/04/21 17:42
- その他(Microsoft Office) excel テーブル 4 2023/03/18 16:11
- 物理学 ここで回答している相対論信者って全員、相対性理論を理解できてないですよね? 4 2023/03/08 12:40
- Visual Basic(VBA) エクセルVBAで次の様にデーターをテンプレートに反映したいのですが、よろし 5 2022/04/17 15:52
- 健康保険 賦課限度額は現在、医療分(65万円)・支援金分(20万円)ですが、この金額は平等割と均等割を含めた物 1 2022/07/18 19:29
- 法人税 外形標準課税の名古屋市への均等割りについて 1 2022/05/06 03:03
- 物理学 気体分子の力積の平均について質問です。 参考書で以下の様に解説されていました。 「気体が長さLの立方 4 2023/03/24 13:29
- 減税・節税 自営業のideco加入した際の税金について 2 2022/03/26 18:55
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
excel2007 VBA countif関数
-
Excelで金銭出納帳。繰越残高を...
-
エクセルの複数シートの保護を...
-
エクセルのシート名をリスト化...
-
EXCEL:同じセルへどんどん足し...
-
「マクロ」の足し算の式を教え...
-
VBAでシートコピー後、シート名...
-
エクセルで前シートを参照して...
-
エクセルで複数シートを別のシ...
-
VBA セルの値と同じ名前のシー...
-
別シート参照のセルをシート毎...
-
エクセル マクロ実行時エラー’...
-
EXCELで1ヶ月分の連続した日付...
-
シート1に列挙したNGワードを...
-
エクセル 計算式も入っていない...
-
複数のシートの同じセルに入力...
-
至急お願いします。エクセルシ...
-
エクセルVBA 串刺し計算の際、...
-
エクセルでシートの数を数える...
-
Excel2007で、太字にした行のみ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
excel2007 VBA countif関数
-
EXCEL(2003) VBA Option Baseに...
-
『あまり』を均等に割り当てる方法
-
Listbox配列
-
エクセルの複数シートの保護を...
-
Excelで同じシートのコピーを一...
-
条件に応じて特定の行を非表示...
-
VBAでシートコピー後、シート名...
-
別シート参照のセルをシート毎...
-
EXCEL:同じセルへどんどん足し...
-
エクセルでファイルを開いたと...
-
エクセルVBAでパスの¥マークに...
-
Excelで金銭出納帳。繰越残高を...
-
前の(左隣の)シートを連続参...
-
EXCELで1ヶ月分の連続した日付...
-
Excel VBについての質問です。
-
複数シートの特定の位置に連番...
-
Excel2007で、太字にした行のみ...
-
エクセルで前のシートを連続参...
-
Excelで連続印刷をするマクロ
おすすめ情報