エクセルの学校：全文検索：Hyper Estraier： VLOOKUP

Results of 1 - 1 of about 7932 for VLOOKUP (0.002 sec.)

[[20240506172842]]: #score: 3345; @digest: 375c6a6d042cb94f0abb1ae81b624021; @id: 96700; @mdate: 2024-05-09T11:05:27Z; @size: 7927; @type: text/plain; #keywords: 明部 (17797), graph02 (15241), 績| (14814), 上予 (11419), 想・ (10356), 上推 (10268), 率(% (9590), 月| (9482), 月度 (7990), 発→ (7179), 度" (5966), update (5563), 予想 (5279), フ化 (4543), ラフ (4463), 体感 (4455), 透明 (4374), 予測 (4251), グラ (4012), ン名 (3563), buttons (3300), 設置 (3025), 事業 (2966), graph (2910), 推移 (2852), shname (2838), 棒グ (2517), 更新 (2497), 各月 (2387), 伸び (2377), ボタ (2286), 名称 (2223); 『グラフの表示・更新』（みお）
[[20240405155609]]でお世話になりました。続きではないのですが、お願いします。 A|B |C |D |E |F | G |H |I |J 75 | |1月度 | | | | 2月度 | | | 76 | |予想・実績|透明部分 |UP |DOWN |予想・実績|透明部分 |UP |DOWN 77 |予想 |10241 | | | | 9000 | | | 78 |予想減| | 4625 | 0 |5616 | |5600 |0 |5500 79 |予想外| | 4625 |1606 |0 | |5600 |5000 |0 80 |実績 | 6200 | | データは右に12月まで作る予定です。現状はグラフ作成用の表に計算式を入れ、別途用意したプルダウンで1月、2月をそれぞれ選択しグラフを表示しています。プルダウンでの選択より良いかなと思い相談・書き込みました。 ★グラフを一個作成しておき、開発のボタン?を12個(12月まで)用意しボタンをクリックしたときにグラフが更新する方法を考えてます。また上記よりよい方法があればご教示ください。ネットで調べるとマクロでできそうな感じですがお願いします。＜使用 Excel:Excel2013、使用 OS:Windows10 ＞ ---- 説明不足でしたので追記します。グラフは同じシート内で、種類は積み上げグラフです。宜しくお願いします（みお） 2024/05/06(月) 18:26:43 ---- 予想減とか、予想外とか、透明部分など難しい表現がいっぱい出てきて、難易度が高くて私にはよくわかりませんが^^; 回答者が現れませんので、思うところだけですいません。また、前回の相談スレをよく閲覧していないので間違いがあればすいません。これは、どんな積上げ棒グラフになっているのでしょうか? そこが見えないので想像で話をするのですが、単月だけをしているのであれば、それは意味があるのかどうかわかりません。事業の将来売上予測をして、人員確保、設備の増強などを多くの場合に当たり前のようにしますが、グラフ化をもっとシンプルにお考えされてはいかがなものでしょうか? 例 ) 普通に↓こんなんではダメなのでしょうか? |[A] |[B] |[C] |[D] |[E] |[F] |[G] |[H] |[I] |[J] |[K] |[L] |[M] [1]|売上推移 |1月 |2月 |3月 |4月 |5月 |6月 |7月 |8月 |9月 |10月|11月|12月 [2]|売上予測 | 75| 80| 85| 90| 95| 100| 105| 110| 115| 120| 125| 130 [3]|売上実績 | 68| 77| 83| 91| 98| 100| 107| 112| 119| 124| 133| 139 [4]|±増減 | -7 | -3 | -2 | 1 | 3 | 0 | 2 | 2 | 4 | 4 | 8 | 9 [5]|伸び率(%)|-9.3%|-3.8%|-2.4%|1.1%|3.2%|0.0%|1.9%|1.8%|3.5%|3.3%|6.4%|6.9% ※事業開始を1月とする。 ※伸び率(%)は、通常は前月比ですが、売上予測に対して算出しています。 ※事業開始から最初の3か月は、目標数値に届かずこけちゃいましたが 4月からは、徐々に伸びた例です。グラフ化をしなくても数値だけを見れば解りますが、資料としてはグラフ化すればより良いかなと思います。グラフを更新する方法としては、1行目の月を入力規則で変更するかして数式で別表から数値を引っ張るか、手動で貼付けしてもよいかなと思います。上記のデータ範囲を元に、棒グラフと、折れ線グラフで売上推移を VBAでグラフ化してみました。 Sub Graph_Sample() Dim ws As Worksheet Dim ShName As String Dim graph(1 To 4), i& Set ws = ThisWorkbook.Sheets("Sheet1") ShName = ws.Name Range("B:M").ColumnWidth = 7 With Charts.Add .Location Where:=xlLocationAsObject, Name:=ShName End With For i = 1 To 4 Set graph(i) = ActiveChart.SeriesCollection.NewSeries With graph(i) Select Case i Case 1 To 3 .ChartType = xlColumnClustered '棒グラフ .XValues = Range("B1:M1") '第1軸 : 月 .Values = Range(Cells(1 + i, 2), Cells(1 + i, 13)) .Name = Cells(1, 1).Offset(i, 0) '系統名 Case 4 .ChartType = xlLine '折れ線グラフ .Values = Range(Cells(1 + i, 2), Cells(1 + i, 13)) '% .Name = Range("A5") '伸び率% .AxisGroup = xlSecondary '第2軸 End Select End With Next i 'グラフの高さ幅/表示位置を指定する With ws.ChartObjects(1) .Left = Range("B7").Left .Top = Range("B7").Top .Width = Range("B7:M21").Width .Height = Range("B7:M21").Height With .Chart .HasTitle = True .ChartTitle.Text = Range("A1") 'Title End With End With Cells(1).Select End Sub ＞データは右に12月まで作る予定です。もし、どうしても示されたレイアウトでないとダメなら現状の棒グラフの説明と、各数値に対する説明が必要かと思われます。また、売上予測と実績がかけ離れているとイメージも湧きにくいとかと思います。それと、差し引き値と UP or DOWN or 透明部分などの計算が合わないと意味不明なものとしか判断できないです。 ※参考になるかわかりませんが、以上です。（あみな） 2024/05/08(水) 08:39:06 ---- あみなさん返信ありがとうございます。放置してたわけではありません。積み上げグラフを作り、最終的には滝グラフになります。半平太さんに、グラフの表の計算式を教えていただきプルダウンにて各月のグラフを更新できるようにして使用してます。やりたい事プルダウンダウンじゃなく、開発→ボタンを利用してグラフの更新はできないか教えていただけないか?でした。お願いします。（みお） 2024/05/08(水) 20:07:27 ---- ＞開発→ボタンを利用して＞グラフの更新はできないか教えていただけないか?でした。毎日更新をするなら、ボタン設置もありかもですが月に1回の更新なら、プルダウンで選択して更新するのが一番良いです。たぶん（あみな） 2024/05/09(木) 10:18:05 ---- プレゼン用で考えてまして、プルダウンよりは見栄えが良いかなと考えてました。（みお） 2024/05/09(木) 12:18:58 ---- ほー (・0・。) プレゼン用ですか。。見栄えね〜どちらが良いかわかりませんが、下の2つの方法からやってみて体感してみてください。変わらないと思うけど準備 : C90セルに設置したプルダウンは使用しません。変わりにグラフの D83セルの月が変更されれば、グラフが更新されるようにします。つまり、数式の参照先セルも変更してください。 ●元の式 D85セル =INDEX($C$77:$J$80,ROW()-84,MATCH($C$90,$C$75:$J$75,0)-4+COLUMN()) ‾‾‾‾‾‾ ●変更後の式 D85セル =INDEX($C$77:$AX$80,ROW()-84,MATCH($D$83,$C$75:$AX$75,0)-4+COLUMN()) ◆お試し版 : No.1 ボタン1つで、次月に更新します。12月度だった場合は 1月度に戻ります。連続で押して体感すればわかります。 Sub Update_Graph01() Dim key As Long On Error Resume Next key = Left([D83], InStr([D83], "月") - 1) If key <= 11 Then [D83] = key + 1 & "月度" Else [D83] = "1月度" End If End Sub ※ボタンの名称と設置場所はおまかせします。 ◆お試し版 : No.2 次は、ボタンを12コ設置するパターンです。 Update_ButtonMake を実行するとアクティブシートの 81行目に 12か月分の各月用の選択する更新ボタンが作成されます。 ※ 1回限りの使い捨てマクロです。ボタンを並べるだけ用ボタンが出来上がると、実行マクロが既に登録済みとなり好きな月のボタンを押せば、グラフが更新されます。 ※注意:ボタン名称は○月度と仮にしてあります。各ボタンを押すと、各月のボタン名称を認識してグラフの D83セルに○月度と入力するようになってます。つまり、ボタンの名称を変更してしまうと動きません。 Sub Update_ButtonMake() Dim i&, n& 'ActiveSheet.Buttons.Delete For i = 6 To 50 Step 4 n = n + 1 With ActiveSheet.Buttons.Add( _ Cells(81, i).Left, Cells(81, i).Top, Cells(81, i).Width, Cells(81, i).Height) .OnAction = "Update_Graph02" 'ボタン登録( 実行マクロ名 ) .Characters.Text = n & "月度" 'ボタン名称 End With Next i End Sub Sub Update_Graph02() Dim x$ x = ActiveSheet.Shapes(Application.Caller).TextFrame.Characters.Text [D83] = x End Sub （あみな） 2024/05/09(木) 18:04:15 ---- ありがとうございます。 2パターンも提示いただきまして! 早速試してみます。（みお） 2024/05/09(木) 20:05:27 ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/202405/20240506172842.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ