エクセルの計算式が必要です。個々の数字に「9」の数字をそれぞれ控えてください。

Question

楽しい時がありますか？私は何か特定のものが必要です。

まず、私が何をしているのか説明しなければなりません。私は小売店での商品価格の単純な体系化を使用しています。なぜなら、人々が自分自身の本当の価格を知りたいからです。だから私は元の番号を別の番号にそれぞれの番号の9を引いて変更します。 通常は、すべての製品についてこのコード化を使ってすべての価格を手動で書き留めます。

だから..例えば、数10は、89（9-1 = 8）及び（9-0 = 9） 他の例のようになります。

1. $ = 128 871
2. $ = 75 24
= 763
3. $ 9 = 0

$ 236は最終的に私は、2数件のナインは、（9）も成文化された価格の初めに、人々を混乱させることに誰を置くと思うかもしれません数は価格かもしれない。

だから私は前に使用される例は、このようなものです：

1. 99871（$ 128意味）
2. 9924（$ 75意味）
3. 99763（$ 236意味）
4. 990（$ 9意味）

私は実際の価格の前に2（2）ナインが必要であることを覚えておいてください。実際の価格は決して0で始まらないので、初めのナインは人々を混乱させるだけです。

だから、あなたが理解したので、ここでは2番目の部分が来ます。 私は何百もの製品を価格、説明などで追加しました。そして、私はそれがプリンタを使用し、この情報をExcelから印刷し始める時だと決めました。私はそれを行うためのソフトウェアを持っていますが、最初に私はコード化された価格をExcelでも持っている必要があります。

楽しい部分は、すでに私のExcel文書に書き込まれている実際の価格を自動で新しい列に変換したいときに始まります。それで、私は将来私が追加する古いものと新しいもののためのコード化された形式ですべての価格をもう一度タイプする必要はありません。

誰かがこれを手伝ってくれますか？それも可能ですか？

私は= A1-9999で試しましたが、2文字の数字だけでうまく動作します。実際の価格が5であれば、9994（コード）という3つのナインが得られます。そして価格が234なら私は9765（コード）を1 9だけ得るでしょう。そして、それは私が最初に2つのナインを持っている必要がある条件です。

ありがとうございました！

Answer 1

ヘルパーセルを使用しますが、4文字しか扱っていないので、必要ならば1つのセルにすべてダンプできます。

この例では、元の価格表がB11から始まると仮定しています。あなたがG11にD11からそれを持っているようにD11に右の3回にコピー

=IFERROR(9-MID($B11,COLUMN(A1),1),"") 

場所。その数式はあなたの価格から1文字を取り除いて、その文字を9から引きます。次の列に行くと、繰り返します。そのような文字がない場合、 ""が返されます。 C11では

あなたは次の式を使用して、隣接する4列に基づいて、あなたの番号を構築します：

="99"&D11&E11&F11&G11 

それは、隣接する4列から数字を追加し、フロントに99を配置します。

セルC11〜G11を選択し、データ列の横にコピーして、必要な限り貼り付けます。

代替より簡潔な方法は、次のようになります。あなたが式のために要求したものの

=REPT(9,LEN(B11)+2)-B11 

Answer 2

、私は私には非常に便利なようだVBAプログラムを示唆しています。 VBEを開いてモジュールを挿入し、プログラムをコピーする必要があります。シートなどの要件に合うように、コードの行を変更してください。

Sub NumberCode() 
    Dim c As Range 
    Dim LR As Integer 
    Dim numProbs As Long 
    Dim sht As Worksheet 
    Dim s As Integer 
    Dim v As Long 
    Dim v1 As Long 
    Set sht = Worksheets("Sheet1") ' change as per yr requirement 
    numProbs = 0 
    LR = sht.Cells(Rows.Count, "A").End(xlUp).Row 
    For Each c In sht.Range("A1:A" & LR).Cells 
    s = Len(c) 
    v = c.Value 
    v1 = 99 
    For s = 1 To Len(c) 
     v1 = v1 & (9 - Mid(c, s, 1)) 
    Next 
    c.Offset(0, 1).Value = v1 
    v1 = 99 
    numProbs = numProbs + 1 
    Next 
    MsgBox "Number coding finished" 
End Sub 

サンプルシートは以下のとおりです。

Answer 3

単にのにおそらく、私は、何かが欠けている：

=REPT(9,2+LEN(A1))-A1

は私に良いそうです。

ありがとうございます。