セルの書式設定「ユーザー定義」でセル参照して単位を表示させたい

Question

例えばA1には「箱(10コ入)とあって、B1に「10」と入れると、「10 箱(10コ入)」というようにあるセルを参照させたユーザー定義は設定できないのでしょうか？

色々調べてみたのですが、なかなか情報がなくご存知でしたら教えていただけると嬉しいです。

Answer 1

状況がよく分かりませんが、「単位は別シートからvlookupで取得」してらっしゃるとのことですので、仮に[単位]シートのC2～C10に単位が入っているとします。
その上で、Sheet1のA1～A10に単位を入力しておくと、B1～B10に数値を入力した時、当該単位を伴って表示するには、以下のプロシジャを実行して、条件つき書式を設定しておくというのはいかがでしょうか。

Function f_blnSetFormatConditions() As Boolean
    Const cDQ = """"
    Dim fc As FormatCondition
    Dim rng As Range
    
    Worksheets(1).Range("B1:B10").FormatConditions.Delete
    For Each rng In Worksheets("単位").Range("C2:C10")
        Set fc = Worksheets(1).Range("B1:B10").FormatConditions.Add(Type:=xlExpression, Formula1:="=$A1=" & cDQ & rng.Value & cDQ)
        fc.NumberFormat = "G/標準" & cDQ & rng.Value & cDQ
    Next rng
    
End Function

Comments

[Tetsuya3456]

条件付き書式を利用するというのは全く思いつきませんでした。

先ほど、試したところうまくいきました！
コードまで作成してくださってありがとうございますm(__)m

Answer 2

ユーザー定義を下記のようにしてください。
@"箱("@"コ入)"

注意点として、数値を入力するときは「'10」のようにシングルクォートを先頭に付けてください。

Comments

[Tetsuya3456]

ご回答ありがとうございます！

この「箱(10コ入)」の部分がよく変わる(単位は別シートからvlookupで取得)ので、ユーザー定義で「@=A1」みたいにしたかったのですが、こういった機能はないのでしょうか？

Answer 3

私ならどこか適当なセル(例えばC1)に数値を入力し、B1 に　=C1 & " " & A1 と入力します。

Comments

[Tetsuya3456]

回答ありがとうございます！

ユーザー定義も、数式のようにセル参照できるかなと思っていたのですが、そういった機能はなさそうですね＾＾;

[vann_2921]

エクセルはあくまでも表計算ソフトなので文字列の見た目をいじるのは苦手なようです。
例えばこの方法だと上付き文字(m^2)などは通常の大きさになってしまします。
見た目にこだわる場合はA1に値、B1に単位を入力しなければなりません。
以上、ご参考までに。

[Tetsuya3456]

返信いただきありがとうございます！

＞エクセルはあくまでも表計算ソフトなので文字列の見た目をいじるのは苦手なようです。
この部分、非常に参考になりました。

Answer 4

セルの書式設定「ユーザー定義」ではありませんが、数式ではどうでしょうか？
※ユーザー定義では数値を含むと駄目なようです

Comments

[Tetsuya3456]

回答ありがとうございます！

単位がよく変わるので、ユーザー定義に「@=A1」みたいなイメージでセル参照して単位をつけれないかなと思っていたのですが、そういった使い方はできなそうですね＾＾；

[meg_]

> 単位がよく変わるので
質問にはこの情報はなかったので考慮していません。必要であれば単位の部分も他のセルを参照すれば良いのでは？

[Tetsuya3456]

ご返信ありがとうございます！

単位の部分、記述しておらず申し訳ありませんm(__)m