□ 戻る　 □VBAのサロン　 □ 使用方法　 □ 新着記事 　□ 新規に質問する！　 □ トピック一覧　 □ 検索 　□ 過去ログ
[ 最新記事及び返信フォームをトピックトップへ ]
このトピック参照回数 :
日報に記載する個体識別番号の羅列

    [133489] 日報に記載する個体識別番号の羅列-

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

    □投稿者/ 肉まん -(2022/12/30(17:54))
    □U R L/

      メールベタ打ち(フォーマット固定)で業務日報を送信する必要があるのですが、同一の項目が複数出てきたりとケアレスミスの可能性があるため、日報作成のためのツールを作成しています。
      基本的文字列と該当セルを&でくっつけるだけなので問題はないのですが、イレギュラーの個体識別番号を羅列する必要があり、1件ごとに改行するので発生した件数によって行数が変わる為、どうするべきか悩んでいます。
      私自身エクセルの知識が浅いため、考え付くのがIF条件を何度も使い力技のみの為、もう少しスマートな方法があればどなたかご教示頂けないでしょうか？


      ++++++++++++++++++++
      OS      ⇒OTHER
      Version⇒OTHER
      ++++++++++++++++++++



    [133491] Re[1]: 日報に記載する個体識別番号の羅列-

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

    □投稿者/ 半平太 -(2022/12/30(19:03))
    □U R L/ 
      その説明だけでは、具体的に何を悩んでいるのか他人には分かりません。

具体例を使ってご説明下さい。
セルの位置も分かる様にお願いします。


あと、エクセルのバージョンは何ですか？
複数ある場合は、一番古いバージョンを申告してください。



    [133492] Re[2]: 日報に記載する個体識別番号の羅列-

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

    □投稿者/ 肉まん -(2022/12/31(09:11))
    □U R L/

      使用環境
      OS：Windows10home
      Excel:2013
      具体的には
      セルの位置はなんでもいいんですが、
      仮に
      A1:個体識別番号1
      A2:個体識別番号2
      A3:個体識別番号3
      とした場合は
      B1:個体識別番号1
      　 個体識別番号2
      　個体識別番号3
      で出力し

      A1:個体識別番号1
      A2,A3:空白
      の場合は
      B1:個体識別番号1
      で出力したいという感じです。



    [133495] Re[3]: 日報に記載する個体識別番号の羅列-

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

    □投稿者/ 半平太 -(2022/12/31(11:07))
    □U R L/ 
       ＞スマートな方法があれば
   
 うーむ、バージョンが古いので、思いつかないですね・・
   
 VBAなら可能ですけども(以下、参考まで）
   
 １．標準モジュールに後記コードを貼り付ける。
   
 ２．B1に以下の数式を入れる。※(A1:A3)に実際の範囲を入れる
   　　 =rptTool(A1:A3)
   
’標準モジュールにコピぺするVBA　↓

 Function rptTool(r As Range)
     Dim aCell As Range
     
     For Each aCell In r
         If aCell <> "" Then
             rptTool = rptTool & vbLf & aCell.Value
         End If
     Next
     rptTool = Mid(rptTool, 2, Len(rptTool))
 End Function
   
   <結果図>
   行  ______A______  ______B______
    1  個体識別番号1  個体識別番号1　　※←B1セルの書式は「折り返して全体を表示する」に設定しておく
                      個体識別番号2
                      個体識別番号3
    2  個体識別番号2 
    3  個体識別番号3 
 


      この記事にはVBAのコードが含まれています。

      緑の太文字→注釈
      茶色の太文字→条件分岐
      赤の太文字→ループ
      青の太文字→その他



    [133496] Re[4]: 日報に記載する個体識別番号の羅列-

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

    □投稿者/ 肉まん -(2022/12/31(12:14))
    □U R L/

      有難うございます。
      やはり古いバージョンだと難しいですよね。
      私自身エクセルは関数をほぼ使わなくていい程度の業務にしか使っていなかったのですが、これを期にサブスク使ってみます。

      また、VBA有難うございます。
      問題なく使用できましたので活用させていただきます。

      ご回答いただき有難うございました！



このトピック内容の全ページ数 / [0]

このトピックに書きこむ
Name/
E-Mail/

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

- Child Forum -
Edit:ゆう-Ｇ