セルの書式設定でKB,MB,GB,TBで表示させたい。

Question

以下のサイトを参考に、「セルの書式設定」を設定し、セルの数値によってKB~TBまで単位が切り替わるコードを作成しました。
URL:https://www.ipentec.com/document/office-excel-cell-tgmk-unit-representation

3つ迄しか設定できないようなので、If分岐でKBMBとGBTBの書式設定を分けています。
作成したコードだと、KBMBは問題なく表示されるのですが、GBTBは数値が大きく表示されてしまいます。

 If Cells(5, 2) > 999999999 Then
  Cells(5, 2).NumberFormatLocal = "[>=1000000000000]#,###,,""T"";[>=100000000]#,###,""G"";#,##0"
 Else
  Cells(5, 2).NumberFormatLocal = "[>=1000000]#,###,,""M"";[>=1000]#,###,""K"";#,##0"
 End If

解決策についてご教授いただきたく質問させていただきました。

VBAで書式を設定する際、「[>=100000000]#,###で、1000000000より大きければ、上4桁(#,###)を表示する」という覚え方をしていました。
間違いあれば（恐らく間違えていると思いますが・・・。）指摘いただければ有難く思います。

よろしくお願いします。

Answer 1

[>=1000000000000]#,###,,,,"T";[>=1000000000]#,###,,,"G";#,##0

じゃないでしょうか。VBAで書くと、

  Cells(5, 2).NumberFormatLocal = "[>=1000000000000]#,###,,,,""T"";[>=1000000000]#,###,,,""G"";#,##0"

Comments

[ice930]

ありがとうございます！
今回の書式設定のイメージですが、「000」を一つ省略すると「,」が増える
というイメージでしょうか。

[otn]

そういう事だと思います。あと、0の個数が一つおかしかったです。

[ice930]

0の個数気づきませんでした！
ありがとうございます！