□ 戻る　 □VBAのサロン　 □ 使用方法　 □ 新着記事 　□ 新規に質問する！　 □ トピック一覧　 □ 検索 　□ 過去ログ
[ 親トピックをトピックトップへ ]
このトピックに書きこむ
Name/
E-Mail/

└>このツリーのレス記事をメールで受信しますか? YES/ NO/
Title/
URL/
Comment/ 通常モード->　 図表モード-> (←の場合適当に改行を入れて下さい)
タグが使用できます。例 ⇒ <font color="blue">文字</font>
解決！！ありがとうございました！ 解決       保留中です・・・ 保留        迷宮入りorほかあたって見ます・・ 迷宮入       すいませ〜ん。誰か〜！ Help! ←※回答者専用
解決したらチェック       保留(コードテスト中など・・)         解決不可orレスが全く付かなくてほかのサイトに行くときなど・・
削除キー/
(半角8文字以内)　

このトピック参照回数 :
Re[13]: 和暦生年月日の一桁の場合、空欄にしたい-

    [134530] Re[13]: 和暦生年月日の一桁の場合、空欄にしたい--

    ■記事引用/メール受信=OFF■

    □投稿者/ Mike -(2024/06/04(16:05))
    □U R L/ 
      ちなみに、セル G2、　H2、　I2、　…、 O2  には
　　　　　　　 ＿１、＿２、＿３、…、＿９ 
をそれぞれ入力しています。＿は全角スペースのことです。



    [134529] Re[12]: 和暦生年月日の一桁の場合、空欄にしたい--

    ■記事引用/メール受信=OFF■

    □投稿者/ Mike -(2024/06/04(15:56))
    □U R L/ 
      　　A　　 B　　　　　C　　　　　D　　　　　E　　　　　F　G　　H　　I　　J　　K　　L　　M　　N　　O
1966/9/30 → Ｓ４１．０９．３０ → Ｓ４１．　９．３０　 ０１ ０２ ０３ ０４ ０５ ０６ ０７ ０８ ０９
2023/3/16 → Ｒ０５．０３．１６ → Ｒ　５．　３．１６　　 １　 ２　 ３　 ４　 ５　 ６　 ７　 ８　 ９
1995/12/3 → Ｈ０７．１２．０３ → Ｈ　７．１２．　３
 1960/1/9 → Ｓ３５．０１．０９ → Ｓ３５．　１．　９
2019/4/30 → Ｈ３１．０４．３０ → Ｈ３１．　４．３０
 2019/5/1 → Ｒ０１．０５．０１ → Ｒ　１．　５．　１

C1: =JIS(TEXT(A1,"gee"))&"．"&JIS(TEXT(MONTH(A1),"00"))&"．"&JIS(TEXT(DAY(A1),"00"))
E1: =SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(JIS(TEXT(A1,"gee"))&"．"&JIS(TEXT(MONTH(A1),"00"))&"．"&JIS(TEXT(DAY(A1),"00")),G$1,G$2),H$1,H$2),I$1,I$2),J$1,J$2),K$1,K$2),L$1,L$2),M$1,M$2),N$1,N$2),O$1,O$2)



      ++++++++++++++++++++
      OS      ⇒Windows 10
      Version⇒Excel 2019
      ++++++++++++++++++++



    [134528] Re[11]: 和暦生年月日の一桁の場合、空欄にしたい--

    ■解決！！ありがとうございました！ / 記事引用/メール受信=OFF■

    □投稿者/ どう -(2024/06/03(12:37))
    □U R L/

      　ねむねむさん

      　再度、条件付き書式　ありがとうございます。
      　こちらも試します。
      　私は、セルの消去をＤeleteとＢakeＳpaceで消す場合の違い
      　書式を残して消す方法が掴めず・・・恥ずかしいばかりです。
      　どちらの方法を選択するかは、作業によってですね。
      　関数と条件付き書式、勉強になります。
      　もっともっと、エクセルを利用しようと思えました。
      　感謝、感謝です。　ありがとうございます。　　　　　　
      　　　　　　　　　　　　　　　　　　　　　　　　　　　―どう―

      　



    [134527] Re[10]: 和暦生年月日の一桁の場合、空欄にしたい--

    ■記事引用/メール受信=OFF■

    □投稿者/ ねむねむ -(2024/06/03(10:47))
    □U R L/ 
      解決済みだが。

条件付き書式での回答。
まずセルの書式設定で表示形式を
gee.mm.dd
と設定する。

次に条件付き書式の数式を使用して、書式設定するセルを決定で

数式　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　表示形式
=AND(LEN(TEXT(A1,"e"))=1,LEN(TEXT(A1,"m"))=1,LEN(TEXT(A1,"d"))=1)　　 g e. m. d

=AND(LEN(TEXT(A1,"e"))=1,LEN(TEXT(A1,"m"))=1,LEN(TEXT(A1,"d"))=2)     g e. m.dd

=AND(LEN(TEXT(A1,"e"))=1,LEN(TEXT(A1,"m"))=2,LEN(TEXT(A1,"d"))=1)     g e.mm. d

=AND(LEN(TEXT(A1,"e"))=1,LEN(TEXT(A1,"m"))=2,LEN(TEXT(A1,"d"))=2)     g e.mm.dd

=AND(LEN(TEXT(A1,"e"))=2,LEN(TEXT(A1,"m"))=1,LEN(TEXT(A1,"d"))=1)     gee. m. d

=AND(LEN(TEXT(A1,"e"))=2,LEN(TEXT(A1,"m"))=1,LEN(TEXT(A1,"d"))=2)     gee. m.dd

=AND(LEN(TEXT(A1,"e"))=2,LEN(TEXT(A1,"m"))=2,LEN(TEXT(A1,"d"))=1)     gee.mm. d
と設定、ではどうだろうか？



    [134526] Re[9]: 和暦生年月日の一桁の場合、空欄にしたい--

    ■解決！！ありがとうございました！ / 記事引用/メール受信=OFF■

    □投稿者/ どう -(2024/06/03(10:21))
    □U R L/

      　Ｍｉｋｅさん、ねむねむさん　ありがとうございます。

      　質問が上手くできておりませんで、分かりにくくご迷惑をお掛けいたしました。
      　ねむねむさんの表示通りに、したかったのです。
      　ねむねむさん、ありがとうございます。
      　Ｍｉｋｅさんにも、いろんな事を教えていただき感謝です。

      　お力添えくださり、誠にありがとうございます。
      　
      　



    [134525] Re[8]: （削除）-

    ■記事引用/メール受信=OFF■

    □投稿者/ ねむねむ -(2024/06/03(09:32))
    □U R L/

      あとMikeさん、

      >上記の一桁の０ゼロを空欄で揃えたいのですが・・・

      Ｓ４１．０９．３０ → Ｓ４１．　９．３０
      Ｒ０５．０３．１６ → Ｒ　５．　３．１６
      Ｈ０７．１２．０３ → Ｈ　７．１２．　３
      Ｓ３５．０１．０９ → Ｓ３５．　１．　９
      としたいということなのでは？



    [134524] Re[7]: （削除）-

    ■記事引用/メール受信=OFF■

    □投稿者/ ねむねむ -(2024/06/03(09:29))
    □U R L/

      別セルに関数でよければ、元の値がA1セルにあるとして
      =TEXT(A1,"g")&TEXT(TEXT(A1,"ee"),"?0.")&TEXT(MONTH(A1),"?0.")&TEXT(DAY(A1),"?0")
      ではどうだろうか？

      もし全角表記にするのであれば
      =JIS(TEXT(A1,"g")&TEXT(TEXT(A1,"ee"),"?0.")&TEXT(MONTH(A1),"?0.")&TEXT(DAY(A1),"?0"))
      で。



    [134523] Re[6]: （削除）-

    ■記事引用/メール受信=OFF■

    □投稿者/ Mike -(2024/06/01(16:39))
    □U R L/ 
      余計なお世話かもは承知之助ですが、同じ西暦年で和暦元号が異なるリストです。
　　　A　　　 B　　　　 C　　　　　D　　 E　　　　　　 F
1　1912/7/29 → Ｍ４５．０７．２９ → M45.07.29 → 1912/07/29
2　1912/7/30 → Ｔ０１．０７．３０ → T01.07.30 → 1912/07/30
3 1926/12/24 → Ｔ１５．１２．２４ → T15.12.24 → 1926/12/24
4 1926/12/25 → Ｓ０１．１２．２５ → S01.12.25 → 1926/12/25
5　 1989/1/7 → Ｓ６４．０１．０７ → S64.01.07 → 1989/01/07
6　 1989/1/8 → Ｈ０１．０１．０８ → H01.01.08 → 1989/01/08
7　2019/4/30 → Ｈ３１．０４．３０ → H31.04.30 → 2019/04/30
8　 2019/5/1 → Ｒ０１．０５．０１ → R01.05.01 → 2019/05/01



    [134522] Re[5]: （削除）-

    ■記事引用/メール受信=OFF■

    □投稿者/ Mike -(2024/06/01(16:01))
    □U R L/ 
      [134519] Re[2]の一部訂正です。m(_._)m
↓
E1: =ASC(C1)
G1: =C1*1 with 書式: yyyy/mm/dd



    [134521] （削除）-

    ■記事引用/メール受信=OFF■

    □投稿者/ / -(2024/06/01(15:56))
    □U R L/

      この記事は削除されました



    [134520] （削除）-

    ■記事引用/メール受信=OFF■

    □投稿者/ / -(2024/06/01(15:52))
    □U R L/

      この記事は削除されました



    [134519] Re[2]: 和暦生年月日の一桁の場合、空欄にしたい-

    ■記事引用/メール受信=OFF■

    □投稿者/ Mike -(2024/06/01(15:46))
    □U R L/ 
      　　　A　　 B　　　　　C　　　　　D　　 E　　　F　　　G
1 1966/9/30 → Ｓ４１．０９．３０ → S41.09.30 → 1966/09/30
2 2023/3/16 → Ｒ０５．０３．１６ → R05.03.16 → 2023/03/16
3 1995/12/3 → Ｈ０７．１２．０３ → H07.12.03 → 1995/12/03
4　1960/1/9 → Ｓ３５．０１．０９ → S35.01.09 → 1960/01/09

C1: =JIS(TEXT(A1,"gee"))&"．"&JIS(TEXT(MONTH(A1),"00"))&"．"&JIS(TEXT(DAY(A1),"00"))
D1: =ASC(C1)
G1: =C1*1 with 書式: yyyy/mm/dd



      ++++++++++++++++++++
      OS      ⇒Windows 10
      Version⇒Excel 2019
      ++++++++++++++++++++



    [134518] Re[1]: 和暦生年月日の一桁の場合、空欄にしたい-

    ■記事引用/メール受信=OFF■

    □投稿者/ Mike -(2024/06/01(15:21))
    □U R L/ 
      　　　A　　 B　　　　 C
1 1966/9/30 → Ｓ４１．０９．３０
2 2023/3/16 → Ｒ０５．０３．１６
3 1995/12/3 → Ｈ０７．１２．０３
4　1960/1/9 → Ｓ３５．０１．０９

C1: =JIS(TEXT(A1,"gee"))&"．"&JIS(TEXT(MONTH(A1),"00"))&"．"&JIS(TEXT(DAY(A1),"00"))



      ++++++++++++++++++++
      OS      ⇒Windows 10
      Version⇒Excel 2019
      ++++++++++++++++++++



    [134517] 和暦生年月日の一桁の場合、空欄にしたい-

    ■親トピック/記事引用/メール受信=ON■

    □投稿者/ どう -(2024/06/01(11:58))
    □U R L/

      　
      　セル入力は、カッコ()で
      　ユーザー定義を[＄-ja-JP]ge.mm.dd

      　Ｓ４１．０９．３０　(1966/9/30)
      　Ｒ０５．０３．１６ (2023/3/16)
      　Ｈ０７．１２．０３ (1995/12/3)
      Ｓ３５．０１．０９ (1960/1/9)

      　上記の一桁の０ゼロを空欄で揃えたいのですが・・・
      　方法を御教授お願いします。

      　


      ++++++++++++++++++++
      OS      ⇒Windows 10
      Version⇒Excel 2010
      ++++++++++++++++++++



このトピック内容の全ページ数 / [0]
- Child Forum -
Edit:ゆう-Ｇ