スプレッドシート関数についての質問です。お願いします。

画像のように、それぞれ特定の色に合わせて、固定の数字を入力しようと思っています。
(G列の色に合わせて、E列で指定している数字を自動でH列に入力したい)

どのようにしたら良いかわからず時間を浪費してしまっており、みなさんのお力添えをいただきたと思って質問させていただきました。
よろしくお願い致します。

mako1972

2020/08/08 09:48 編集

スプレッドシートといいますが、Googleスプレッドシートで、とか具体的に言わないと使っていない人にはわかりませんよ。（そういう人いないとはおもいますけど）時間を浪費してもいいので、調べるといいと思います。

m.ts10806

2020/08/08 09:50

タイトルになにも要件がないので要件のみ記載してください。それにプログラミングとどう関係するのでしょう。

m.ts10806

2020/08/08 09:52

あと、なにも調べたこと試したことが書いてないので、他者には何も調べてないのと同じです。時間だけ書いてもなにも伝わりません。投入したキーワードと参照した記事とそれによって試したことはセットです。

mako1972

2020/08/08 10:04 編集

こういうプログラムロジックと関係ないような、質問を突き詰めると、単に、関数を知りたいとか、ググればいいかと。思うんですけどね。グダグダ条件をならべるわりには、質問者自身が何がわからないか日本語で表現できない、整理できないまま、質問してしまうやからがふえているのは間違いない。そういう訓練のために、このサイトがあるはずなんでしょうけど。 m.ts10806さんのおっしゃっているとおりで、質問がずれてんだよな・・。（エクセルだと=セル番地でいいと思うという）最低限のチュートリアルをしてから質問されたほうがよろしいかと。

dodox86

2020/08/08 11:14

> G列の色に合わせて、E列で指定している数字を自動でH列に入力したいいえ、例としてそのようになっていません。一番最初の行はE列は3,569.845であり、H列は970,968になっています。更に既にコメントで指摘されているように、ExcelなのかGASなのか分かりません。タグはVBAであり、Googleであり、中途半端です。

行動規範の内容に同意します

回答2件

ベストアンサー

Microsoft Scripting Runtime
を参照設定して、連想配列を使ってやってみました。
［再計算］などのボタンを押下したタイミングでこのプロシジャを実行すると、数字をH列に入力します。
色を設定・変更したタイミングで直ちに数字を入力する機能をお望みでしたら、この投稿は無視してください。

VBA
1Function f_blnTest() As Boolean
2    Const cnsColRuikei = "E"
3    Const cnsColCtJuni = "G"
4    Const cnsColUriage = "H"
5    Const cnsRowBgn = 4
6    Dim lngRow As Long
7    Dim lngRowRuikeiEnd As Long
8    Dim lngRowCtJuniEnd As Long
9    Dim wsh As Worksheet
10    Dim dctUriageRgb As Dictionary
11    
12    Set dctUriageRgb = New Dictionary
13    Set wsh = ThisWorkbook.Worksheets(1)
14    
15    lngRow = cnsRowBgn
16    lngRowRuikeiEnd = wsh.Range(cnsColRuikei & Rows.Count).End(xlUp).Row
17    Do Until lngRow > lngRowRuikeiEnd
18        If Trim(wsh.Range(cnsColRuikei & lngRow).Value) <> "" Then
19            dctUriageRgb.Add wsh.Range(cnsColRuikei & lngRow).Interior.Color, wsh.Range(cnsColRuikei & lngRow).Value
20        End If
21        lngRow = wsh.Range(cnsColRuikei & lngRow).End(xlDown).Row
22    Loop
23
24    lngRowCtJuniEnd = wsh.Range(cnsColCtJuni & Rows.Count).End(xlUp).Row
25    For lngRow = cnsRowBgn To lngRowCtJuniEnd
26        wsh.Range(cnsColUriage & lngRow).Value = dctUriageRgb.Item(wsh.Range(cnsColCtJuni & lngRow).Interior.Color)
27    Next lngRow
28    
29    Set wsh = Nothing
30    Set dctUriageRgb = Nothing
31    
32End Function