[[20181006140634]] 『「桁数の違う数字から1つずつ数字を取り出す」[に』(うさぎ) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『「桁数の違う数字から1つずつ数字を取り出す」[にじ] について』(うさぎ)

投稿
[[[20160304221749]]? 『桁数の違う数字から1つずつ数字を取り出す』(にじ) 
について...とても参考になりました。ありがとうございます。
そこで取り出した数字の前に¥を表示させることはできるでしょうか。
A1は通貨記号を使っています。

	A	B	C	D	E	F	G	H
1	1234			\	1	2	3	4
2	12345		\	1	2	3	4	5

宜しくお願い致します。

< 使用 Excel:Excel2016、使用 OS:Windows10 >


 必須バックアップ、エラー処理。。。ありません ^^;

 Option Explicit
Sub main()
    Dim i As Long, j As Long, y As Long, buf(), rr As Range, r As Range
    With Worksheets("Sheet1")
        .Range("C:H").Clear
        y = 1
        Set rr = .Range("A1").CurrentRegion
        For Each r In rr.Rows
            If r.Cells(1) = "" Then Exit Sub
            For i = 1 To Len(r.Cells(1))
                ReDim Preserve buf(i - 1)
                buf(i - 1) = Mid(r.Cells(1), i, 1)
            Next
            j = UBound(buf) + 1
            .Cells(y, 8 - j).NumberFormatLocal = "\"
            .Cells(y, 8 - j) = 0
            For i = 0 To UBound(buf)
                .Cells(y, 8 - j + 1 + i) = buf(i)
            Next
            y = y + 1
            Erase buf
        Next
    End With
End Sub
(隠居じーさん) 2018/10/06(土) 16:01

 >A1は通貨記号を使っています。

 ↑ どういうこと? 表示形式の話?

 だとして

 B1 =TRIM(LEFT(RIGHT(" \"&$A1,8-COLUMN(A1))))

 右と下にコピー

 セル位置を変えても、COLUMN(A1)の A1 を変更してはいけません。

 以上です
(笑) 2018/10/06(土) 16:33

早々のご返信ありがとうございます。
申し訳ございません。私はVBAはほとんどわかりませんので出来れば
関数でやりたいと思っています。

>A1は通貨記号を使っています。表示形式です。説明がうまく出来ず

すみません。B1にはA1から取り出だすための式、教えていただいた

 B1 =IFERROR(MID(TEXT($A1,"???????"),COLUMN(A1),1)*1,"")が
入っています。この場合どのようにすればよいでしょうか
わかりずらい説明ですみません。

(うさぎ) 2018/10/06(土) 20:02


コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.