Results of 0 - 1 of about 0 (0.000 sec.)
- [[20020824150914]]
- @digest: 8177380e080662d9b63684069f03d9bd
- @id: 450
- @mdate: 2008-09-05T02:05:13Z
- @size: 1737
- @type: text/plain
- #keywords: adrs1 (21460), chibi (13013), 稿-- (7055), 言欄 (6721), adrs2 (6648), じ割 (5958), 時9 (4390), 分頃 (3401), ーd2 (3110), 頃投 (2975), 所望 (2099), 数有 (2004), totl (1978), 待値 (1883), 割合 (1823), 事足 (1695), 算対 (1561), 社c (1540), 日15 (1462), 社b (1340), 社10 (1309), 月24 (1275), 弥太 (1254), 社を (1227), 点第 (1202), 年8 (1086), 未解 (937), address (843), 数宣 (814), data (814), 第1 (668), と設 (602)
- 『データを同じ割合で変更するには?』（ちび）
データの編集で（例）A社100としてB社を65C社を70と設定した後で、 今度はB社を100として、あとのA社、C社のデータを同じ割合で変更する関数を作成したいのです。 ちなみに小数点第1位まで計算対象にしています。 関数は何を使えば良いでしょうか?宜しくお願いいたします。 ---- これは2002年8月24日15時9分頃投稿された未解答の過去ログです。 A1から下へA社B社C社と書き込み B1から100 65 70 と設定します。 C1へ=B1/SUM(B$1:B$3)下方向へコピー D2へ100と書き込んだばやい D1=C2*D2/B2*C1/C2*B1/C1 D3=C2*D2/B2*C3/C2*B3/C3 どうも冴えないなぁ・・・。 （弥太郎） ---- 上の式は D1=C1*D2/B2*B1/C1 D3=C3*D2/B2*B3/C3 で事足ります。 こんな関数有ったような気ぃがするんですけど（期待値を返す）どなたかご存じ おまへんけ? 関数をご所望みたいなんで、とりあえず。 B1〜B3を選択して=Chibi(B1:B3,B2,100)をCtrl+Shift+Enterで確定します。 （弥太郎） '-------------------------- Function Chibi(adrs1 As Range, adrs2 As Range, data As Double) Dim i As Integer, data_1 As Double, totl As Long, x, y totl = WorksheetFunction.Sum(adrs1) ReDim y(1 To adrs1.Rows.Count) For i = 1 To adrs1.Rows.Count y(i) = adrs1(i) / totl If adrs1(i).Address = adrs2.Address Then data_1 = adrs1(i) Next i ReDim x(1 To adrs1.Rows.Count) For i = 1 To adrs1.Rows.Count If adrs1(i).Address <> adrs2.Address Then x(i) = Round(y(i) * data / data_1 * adrs1(i) / y(i), 1) Else x(i) = data End If Next i Chibi = Application.Transpose(x) End Function 2008/9/5 投稿 ---- 2008/9/5 11:04 変数宣言欄をしゅうせぇ。 （弥太郎）... - https://www.excel.studio-kazu.jp/wiki/kazuwiki/200208/20020824150914.txt - [detail] - similar
PREV
NEXT
Powered by Hyper Estraier 1.4.13, with 97049 documents and 608241 words.
訪問者：