[[20130109154801]]　『セル内の通貨単位』（おぴょぴょ）　ページの最後に飛ぶ

『セル内の通貨単位』（おぴょぴょ）

Ａ1セルがドルならＢ1セルもドル
Ａ2セルが円ならＢ2セルも円

という表記をしたいです。

Excel2007、Windows 7

 A列の表示形式を変更したらB列も変える。

 ってこと？

 なら、A:B列選択して表示形式を変えるだけでいいような。。。。

 具体的にどうしたいのか？がわからないんでこんな答え。

 (GobGob)

説明下手ですみません
Ａ1に入力した数値を円で表したなら、Ｂ1も円で表示される、又、ドルならドルでという意味です。

 「円」で表すってのは表示形式なの？それとも入力値なの？

 たとえば、B列に数値が入っている。

 そのあと
 ① A列に100と入力し、表示形式で円表示 → B列の表示形式を「円」にする。
 ② A列に100円と入力（文字列）したら B列の表示形式を「円」にする。

 このどちらか？ってこと？

 ①ならA:B選択して変更すればいいだけ。
 ②ならVBAになるね。

 てか、まだまだ具体的でないね。

 (GobGob)

ご免なさい、しっかり書きます。

Ａ列には表示形式がドルで設定
Ｂ列には表示形式が円で設定
同じ行（1～）には円かドルのどちらかしか入力しません。
つまりＡ1に100が入力され、$100と表示されたら、Ｂ1には何も入力しません。
その状態でＣ列にはＡかＢのどちらかを反映させたいのです。

Ａ1に$100ならＣ1も$100に。
Ｂ2が\100ならＣ2も\100に。

Ｃ列の表示形式がＡＢのどちらか入力された方に依存するという意味です。

度々恐縮ですが、ご教示ください。

	A	B	C
1	ドル	円	結果
2	$1,000		$1,000
3		\1,000	\1,000
4	$3,000		$3,000
5	$4,000		$4,000
6	$5,000		$5,000
7		\2,000	\2,000
8		\3,000	\3,000
9		\4,000	\4,000
10	-$1,000		-$1,000

 C2 =IF(COUNT(A2:B2)=1,TEXT(SUM(A2:B2),IF(A2="","\","$")&"#,##0"),"")

 ※結果は文字列になるよ。

 (GobGob)

 マクロの例です。
 シートモジュールに貼り付けて、
 初回反映するには、A：B列を再貼り付けしてください。
 以降は更新するタイミングで変更になります。
 (Mook)

 Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Columns("A:B")) Is Nothing Then Exit Sub
    For Each r In Intersect(Target, Columns("A:B"))
        If r.Value <> "" Then
            Cells(r.Row, "C").NumberFormatLocal = r.NumberFormatLocal
        End If
    Next
 End Sub

ご教示ありがとうございます。

コメント返信：

[ 一覧(最新更新順) ]

[[20130109154801]] 『セル内の通貨単位』（おぴょぴょ） ページの最後に飛ぶ

[[20130109154801]]　『セル内の通貨単位』（おぴょぴょ）　ページの最後に飛ぶ