常連

### 実現したいこと
「按分率累計」列の数字が100になるたびに、それまでの按分粗利の合計を出したいです。
100以外の箇所は空白にします。
ただし、２回目の100の時の累計は、一回目の100が登場した時の累計（＝41,200）を差し引きます。
それを繰り返す処理を行いたいです。

![イメージ説明](https://ddjkaamml8q8x.cloudfront.net/questions/2024-07-26/e8612394-3950-449e-a334-85df38967e24.png)

### 発生している問題・分からないこと
累計は出せるのですが、その上までの累計を差し引いて表現する方法がわかりません。



### 該当のソースコード

```
特になし
```

### 試したこと・調べたこと
- [x] teratailやGoogle等で検索した
- [ ] ソースコードを自分なりに変更した
- [ ] 知人に聞いた
- [x] その他

##### 上記の詳細・結果

![イメージ説明](https://ddjkaamml8q8x.cloudfront.net/questions/2024-07-26/680d91d5-833d-49fa-82e0-722beb577f9b.png)
累計の差し引きでなくても、回答としてChatGPTで出したH列のような結果が得られればやり方は問いません。

下記の計算式では希望の結果は得られませんでした。

H2セルの数式（H列の最初のセル）：
=IF(F2=100, SUM(FILTER(G$2:G2, ROW(G$2:G2) <= ROW())) - SUM(FILTER(G$2:G2, F$2:F2 = 100)), "")


H3セル以降の数式：
=IF(F3=100, SUM(FILTER(G$2:G3, ROW(G$2:G3) <= ROW())) - SUM(FILTER(G$2:G2, F$2:F2 = 100)), "")



### 補足
質問内容を補足します


要望としては、取引先のプロジェクト別の累計（合計？）を出したいです。

下の画像（※上記の詳細・結果に掲載した画像）では、取引先Aの売上が20万円となっていますが、実際には取引先別のプロジェクトは一個ではなく、複数あります。

例えば、
取引先A　プロジェクト甲　200,000円　担当社員：佐藤、鈴木、山本、加藤（※按分率＝20：30：25：25）　
取引先A　プロジェクト乙　100,000円　担当社員：田中、山田（50：50）
取引先A　プロジェクト丙　 50,000円　担当社員：佐藤（100）

ここで分かっているのは、
①取引先Aのプロジェクト合計額が350,000円であること
②各プロジェクトでの担当社員の売上金額と比率

つまり、200,000円、100,000円、 50,000円という各プロジェクトの売上が判明していないという前提です。

なので、比率の合計が100になるごとに累計を出す＝プロジェクト別の売上を表示したいと思いました

当然、担当者の比率と売上がわかっているので、手動で計算すればいいだけなのですが、取引先数が膨大なので、自動でできないかと考えた次第です。

素人考えでやろうとしているので、なにかもっとシンプルな方法に心当たりなどございましたらご助言いただけますと幸いです。よろしくお願いいたします。


------------------------------------------------------------

~~いただいたコメントで希望にかなり近いものができました。【2024-07-29　追加添付】
~~

------------------------------------------------------------

私が回答を理解できていませんでした。今確認したら上手く機能しました。失礼しました。【2024-07-30　追加添付】

※「プロジェクト売上」の列（＝D8セル）に下記を入力しています


=IF(B8<>100,"",SUM(offset(C8,1-MATCH(100,SORT(B$2:B7,ROW(B$2:B7),0),0),0):C8))


![イメージ説明](https://ddjkaamml8q8x.cloudfront.net/questions/2024-07-30/b7a9cd54-b007-414d-8627-b37b09e42321.png)



スプレッドシートのシート関数で特定の累計を計算したい

### 実現したいこと
まず初めに、私はGASは初心者の為、説明不足な点や見当違いな箇所があれば申し訳ございません。
ご指摘いただけますと幸いです。
また、教えていただく際にコードを記載していただけると助かります。
出来れば教わった内容をそのまま使うだけでなく、自分なりにアレンジを加えたり内容を調整したい為
ここでなんの処理をしているかなどもコード内に記載していただけるとより助かります。

実現したいこととして
様々な文章の特定の単語の色付けを、GoogleスプレッドシートのAppsScriptを使って効率化したいです。
①、セルA1に文章を挿入
②、Apps Scriptを実行
③、設定した条件に沿ってセルA1の文章に色がつく
このような流れができる事を期待しております。

条件としては現時点では下記のような内容を想定しております。
- "〇"から始まる行はその行全体を青色に変更する。(〇を含む先頭から改行するまでの文字列)
- "・"から始まっていて、上の行に"注意"の単語が含まれている場合、行全体を赤色に変更する。
- "・"から始まっていて、上の行も赤色の場合、行全体を赤色に変更する。(元文章は全て黒字の為、上記で変更した赤色を参照している前提の為、処理順的に難しければ他の条件を考えたい)
- "1時間"の文字を赤色に変更する。(これは行ではなく「1時間」だけが赤くなって欲しい)
- "00:00"などの、時間を表す文字を赤色に変更する。

あくまで、現時点ではなので応用が利きやすいコードであればより嬉しいです。

### 発生している問題・分からないこと
現時点で困っている部分は下記になります。

1.特定の文字列を参照して、行全体の色を変更するスクリプトの書き方
   ※〇〇から始まる行の～といった条件指定が上手くいきません
2.複数の条件を指定する方法
3.if関数のように、この場合はこう、この場合はこう、といったスクリプトの書き方




### 該当のソースコード

```
function changeTextColor() {
  // 対象のスプレッドシートを取得
  var spreadsheet = SpreadsheetApp.getActiveSpreadsheet();
  
  // 対象のシートを取得
  var sheet = spreadsheet.getSheetByName("シート1");
  
  // 変更したい文字列が含まれるセルを取得
  var cell = sheet.getRange("A1");
  
  // セルの値を取得
  var cellValue = cell.getValue();
  
  // richTextBuilderを使って、特定の文字列の色を変更
  var richTextBuilder = SpreadsheetApp.newRichTextValue()
                        .setText(cellValue)
                         // この部分のスクリプトを変更したいが、変更の仕方が分からない
                        .setTextStyle(0, 5, SpreadsheetApp.newTextStyle().setForegroundColor("blue").build())
                        .build();
  
  // 変更したrichTextを再度セルに設定
  cell.setRichTextValue(richTextBuilder);
}

```

### 試したこと・調べたこと
- [x] teratailやGoogle等で検索した
- [x] ソースコードを自分なりに変更した
- [ ] 知人に聞いた
- [x] その他

##### 上記の詳細・結果
AIやGoogle検索などを使い初心者ながらスクリプトを書いています。
セル全体ではなく、セルの中身の一部を変更する場合は「setRichText」でないとダメなようなので
現在はこれを使ってなんとかならないかと考えております。

### 補足
特になし

Googleスプレッドシートのセル内の文章の一部を、条件付きで色を変えたい。

### 実現したいこと

現在書いているコードを短縮してシンプルにしたい

### 詳細

よろしくお願いいたします。

```GAS

function myFunction() {


//HTMLを取得
  const url = "URL";
  const response = UrlFetchApp.fetch(url);
  const html = response.getContentText("UTF-8")

//テーブルデータを取得
  const tabledatas = Parser.data(html).from('<tbody>').to("</tbody>").build();

  //テーブルデータから特定の文字列に囲まれたデータをすべて抽出.iterate();（東G)
  let tabledata1 = Parser.data(tabledatas).from('<td>東G</td>').to('</td>').iterate(); 


  //テーブルデータから特定の文字列に囲まれたデータをすべて抽出.iterate();（東S）
  let tabledata2 = Parser.data(tabledatas).from('<td>東S</td>').to('</td>').iterate();


  //テーブルデータから特定の文字列に囲まれたデータをすべて抽出.iterate();（東P）
  let tabledata3 = Parser.data(tabledatas).from('<td>東P</td>').to('</td>').iterate();


  //テーブルデータから特定の文字列に囲まれたデータをすべて抽出.iterate();（東2）
  let tabledata4 = Parser.data(tabledatas).from('<td>東2</td>').to('</td>').iterate();


  //テーブルデータから特定の文字列に囲まれたデータをすべて抽出.iterate();（東1）
  let tabledata5 = Parser.data(tabledatas).from('<td>東1</td>').to('</td>').iterate();

  //テーブルデータから特定の文字列に囲まれたデータをすべて抽出.iterate();（JQ）
  let tabledata6 = Parser.data(tabledatas).from('<td>JQ</td>').to('</td>').iterate();

  
  //テーブルデータから特定の文字列に囲まれたデータをすべて抽出.iterate();（東マ）
  let tabledata7 = Parser.data(tabledatas).from('<td>東マ</td>').to('</td>').iterate();



//スプシのデータ取得
  const spreadFile = SpreadsheetApp.getActiveSpreadsheet();

//スプシのシート名を指定してデータ取得
  const spreadSheet = spreadFile.getSheetByName("シート1");

let tabledata11,tabledata22,tabledata33,tabledata44,tabledata55,tabledata66,tabledata77

//すべてのテーブルデータをスプシに記入
  
  //テーブルデータ（東G)をスプシに記入
    for (let i = 0; i < tabledata1.length; i++) {

    //抽出した無駄な部分を削除
    tabledata11 =tabledata1[i].replace("<td>","");  
        tabledata11 =tabledata1[i].replace(/[\s\t\n]/g,""); 
        tabledata11 = tabledata1[i].replace("<td>", ""); 
      spreadSheet.getRange(spreadSheet.getLastRow()+1,2).setValues([[tabledata11]])

    }

  
  //テーブルデータ（（東S)）をスプシに記入
    for(let i=0;i<tabledata2.length;i++){  

      //抽出した無駄な部分を削除
    tabledata22 =tabledata2[i].replace("<td>","");  
        tabledata22 =tabledata2[i].replace(/[\s\t\n]/g,""); 
        tabledata22 = tabledata2[i].replace("<td>", ""); 

      spreadSheet.getRange(spreadSheet.getLastRow()+1,2).setValues([[tabledata22]])
    }


  
  //テーブルデータ（（東P)）をスプシに記入
    for(let i=0;i<tabledata3.length;i++){  

                //抽出した無駄な部分を削除
    tabledata33 =tabledata3[i].replace("<td>","");  
        tabledata33 =tabledata3[i].replace(/[\s\t\n]/g,""); 
        tabledata33 = tabledata3[i].replace("<td>", ""); 

      spreadSheet.getRange(spreadSheet.getLastRow()+1,2).setValues([[tabledata33]])

    }

  

  //テーブルデータ（（東2)）をスプシに記入
    for(let i=0;i<tabledata4.length;i++){  

                //抽出した無駄な部分を削除
    tabledata44 =tabledata4[i].replace("<td>","");  
        tabledata44 =tabledata4[i].replace(/[\s\t\n]/g,""); 
        tabledata44 = tabledata4[i].replace("<td>", ""); 

      spreadSheet.getRange(spreadSheet.getLastRow()+1,2).setValues([[tabledata44]])
    }


  //テーブルデータ（（東1)）をスプシに記入
    for(let i=0;i<tabledata5.length;i++){  

                //抽出した無駄な部分を削除
    tabledata55 =tabledata5[i].replace("<td>","");  
        tabledata55 =tabledata5[i].replace(/[\s\t\n]/g,""); 
        tabledata55 = tabledata5[i].replace("<td>", ""); 

      spreadSheet.getRange(spreadSheet.getLastRow()+1,2).setValues([[tabledata55]])

    }

  //テーブルデータ（（JQ)）をスプシに記入
    for(let i=0;i<tabledata6.length;i++){  

                //抽出した無駄な部分を削除
    tabledata66 =tabledata6[i].replace("<td>","");  
        tabledata66 =tabledata6[i].replace(/[\s\t\n]/g,""); 
        tabledata66 = tabledata6[i].replace("<td>", ""); 

      spreadSheet.getRange(spreadSheet.getLastRow()+1,2).setValues([[tabledata6[i]]])
    }

  //テーブルデータ（（東マ)）をスプシに記入
    //for(i of tabledata7){
    //spreadSheet.appendRow([tabledata7[i]]);
        for(let i=0;i<tabledata7.length;i++){  

                    //抽出した無駄な部分を削除
    tabledata77 =tabledata7[i].replace("<td>","");  
        tabledata77 =tabledata7[i].replace(/[\s\t\n]/g,""); 
        tabledata77 = tabledata7[i].replace("<td>", ""); 

      spreadSheet.getRange(spreadSheet.getLastRow()+1,2).setValues([[tabledata77]])


}

}
```


現在書いているコードを短縮してシンプルにする方法を教えてください

### 実現したいこと


- [ ] できあがるグラフの色をそれぞれわけたい

### 前提
コードは正しく動く

【データセット】
B1:K1に店舗名
A1:月
A2：A16に月データ
B2:K16に売上数値
B17:K17に総計



### 発生している問題・エラーメッセージ


コードそのものはただしく機能するが、グラフの色がすべて同じ色になる


### 該当のソースコード

```GAS

function chuou_per() {
  area = "中央エリア"

  createLineChartForSpecificNames(area)
}



function createLineChartForSpecificNames(area) {

  let ss = SpreadsheetApp.getActiveSpreadsheet();
  let pivotSheet = ss.getSheetByName(area);
  let lastColumn = pivotSheet.getLastColumn();//最終列を取得
  let lastColumnName = getColumnLetter(lastColumn);

  // ピボットテーブルシートのB1:K1から対象の名前リストを取得
  let nameRange = pivotSheet.getRange("B1:" + lastColumnName + "1");
  let targetNames = nameRange.getValues()[0]; // 1行目のデータを取得

  let chartTop = 23; // グラフの縦方向の配置位置

  for (let i = 0; i < targetNames.length; i++) {
    let targetName = targetNames[i];
    let dataColumn = i + 2; // B列から始まるため、インデックス+2が対応する列番号
    let color = i


    createLineChartFromPivotTable2(targetName, dataColumn, chartTop, area,color);
    chartTop += 18; // グラフ間の縦方向のスペースを調整

  }
}


function createLineChartFromPivotTable2(targetName, dataColumn, chartTop, area,color) {
  // シートを取得
  let ss = SpreadsheetApp.getActiveSpreadsheet();
  let pivotSheet = ss.getSheetByName(area);

  // 使用するデータのセル範囲を取得
  let lastRow = pivotSheet.getLastRow() - 1; // 最終行の一つ前の行番号を取得
  let xRange = pivotSheet.getRange("A1:A" + lastRow);
  let dataRowCount = xRange.getNumRows(); // データ行の数
  let yRange = pivotSheet.getRange(1, dataColumn, dataRowCount, 1); // C列のデータ範囲

  // データ範囲内の最大値を取得
  let lastColumn = pivotSheet.getLastColumn();//最終列を取得
  let lastColumnName = getColumnLetter(lastColumn);
  let range = pivotSheet.getRange("B1:" + lastColumnName + lastRow);//dataすべて
  let dataValues = range.getValues();
  let dataMaxValue = 0;

  // データ範囲内の最大値を探す
  for (let i = 1; i < dataValues.length; i++) {
    for (let j = 0; j < lastColumn; j++) {
      let cellValue = parseFloat(dataValues[i][j]);
      if (!isNaN(cellValue)) {
        dataMaxValue = Math.max(dataMaxValue, cellValue);
      }
    }
  }

  // 最大値を1.1倍して切り上げた値を設定
  let roundedMaxValue = Math.ceil(dataMaxValue / 1000000) * 1000000; // 100万単位で切り上げたラウンド値



  // タイトルのスタイルを設定
  let titleTextStyle = {
    fontSize: 14, // タイトルのフォントサイズ
    bold: true,   // ボールドフォントを使用
    alignment: "center" // 中央揃え
  };

  // 横軸の設定
  let hAxisOptions = {
    slantedText: true,
    slantedTextAngle: 45,
    textStyle: {
      fontSize: 10
    }
  };

  // gridlines オプションの設定
  let gridlinesOptions = {
    count: dataRowCount
  };

  //縦軸の設定
  // vAxisの設定
  let vAxisOptions = {
    maxValue: roundedMaxValue, // ここに最大値を指定
    minValue: 0, // ここに最小値を指定
    format: "¥#,###", // 縦軸の表示フォーマットを指定
    textStyle: {
      fontSize: 10
    }
  };

  //データ系列の色を設定
  let seriesOptions = {
    0: { color: "#8AB3F8" },     // データ系列 0 の色を赤に設定
    1: { color: '#EF7268' },    // データ系列 1 の色を青に設定
    2: { color: '#FCCD43' },   // データ系列 2 の色を緑に設定
    3: { color: '#34A853' },
    4: { color: '#FF6D01' },
    5: { color: '#46BDC6' },
    6: { color: '#7BAAF7' },
    7: { color: '#F07B72' },
    8: { color: '#FCD04F' },
    9: { color: '#71C287' },
    // 必要なだけデータ系列の色を設定してください
  };

  let colors = Object.values(seriesOptions).map(option => option.color);

  // チャートを作成
  let chart = pivotSheet.newChart()
    .setChartType(Charts.ChartType.LINE) // チャートの種類を設定
    .addRange(xRange) // X軸のデータ範囲を追加
    .addRange(yRange) // Y軸のデータ範囲を追加
    .setNumHeaders(1) // ヘッダーとして扱う行・列の数
    .setPosition(chartTop, 13, 0, 0) // グラフの配置位置を設定
    .setOption("title", targetName) // タイトルを設定
    .setOption("titleTextStyle", titleTextStyle) // タイトルのスタイルを設定
    .setOption("hAxis", hAxisOptions)
    .setOption("hAxis.gridlines", gridlinesOptions)
    .setOption("colors", colors[color])
    .setOption("vAxis", vAxisOptions) // vAxisのオプションを設定
    .build(); // チャートを作成

    

  // シートにチャートを挿入
  pivotSheet.insertChart(chart);
}

```

### 試したこと

  .setOption("colors", colors[color])

colors[color]を直接一つの色を指定すると、その色に正しくなる



GASでグラフごとの色分けができないので改善策を知りたい

CSVファイルからデータを取得し身長を元に名前を昇順に並び替えてセルに出力したいです。
データを取得し身長と体重、名前を出力するコードはかけたのですが昇順にするコードがわかりませんどのようにすれば身長を元に名前を昇順に並べ替えることができますか？
```VBA
Option Explicit
Public Const path_A = "パス名"

Sub()
Dim free_int As Integer
Dim temp_str, split_data As Variant
Dim i, j As Integer
Dim LotNo配列(500, 5) As Variant
Dim Flag As Boolean

 'txt,csvファイルオープン時にメモリ上のからデータを指定する
 ' LotNo配列(i, 0)= 名前
'  LotNo配列(i, 1)＝身長
'  LotNo配列(i, 2)＝体重
'  LotNo配列(i, 1) - LotNo配列(i, 2)＝体型スペック
    free_int = FreeFile
        If Dir(path_A, vbNormal) <> "" Then
            FileCopy path_A, ActiveWorkbook.Path & "/data.txt"
            Open ActiveWorkbook.Path & "/data.txt" For Input As #free_int
            Do Until EOF(free_int)
                Line Input #free_int, temp_str
                split_data = Split(temp_str, ",")
                
                Flag = False
                
                j = 0
                Do Until LotNo配列(j, 0) = ""
                    If split_data(3) = LotNo配列(j, 0) Then
                        If split_data(0) = "計画" Then
                            LotNo配列(j, 1) = LotNo配列(j, 1) + Application.WorksheetFunction.RoundUp(split_data(4), 0)
                        Else
                             LotNo配列(j, 2) = CInt(LotNo配列(j, 2)) + split_data(4)
                        End If
                        Flag = True
                        Exit Do
                    End If
                    j = j + 1
                Loop
                
                If Flag = False Then
                    LotNo配列(j, 0) = split_data(3)
                    If split_data(0) = "計画" Then
                         LotNo配列(j, 1) = Application.WorksheetFunction.RoundUp(split_data(4), 0)
                    Else
                        LotNo配列(j, 2) = CInt(split_data(4))
                    End If
                End If
                
                Loop
                
                Close #free_int
                Kill ActiveWorkbook.Path & "/data.txt"
                
        End If
             
        Cells.Clear
        
        i = 0
        Do Until LotNo配列(i, 0) = ""
            Cells(2 + i, 1).Value = LotNo配列(i, 0)
            Cells(2 + i, 2).Value = LotNo配列(i, 1)
            Cells(2 + i, 3).Value = LotNo配列(i, 2)
            Cells(2 + i, 4).Value = LotNo配列(i, 1 - LotNo配列(i, 2)
            i = i + 1
        Loop
End Sub
```

