Go to Qiita Advent Calendar 2024 Top
LoginSignup
qii-yah
@qii-yah

Are you sure you want to delete the question?

If your question is resolved, you may close it.

Leaving a resolved question undeleted may help others!

We hope you find it useful!

エクセル・テーブルの書式拡張

Q&A

Excel

問題

テーブルを作成し、セル毎に書式設定などを行っていますが、
同じテーブルに新しく追加した行（テーブルとして）に対して、
その設定が拡張されている場合とされない場合などの問題があります。

エクセルバージョン：365
●反映しない場合がある書式設定種類
①B列はD列の左から12文字取得
②M列に特定の文字が入力されるとその行の色が変わる

●行追加の問題
③テーブルとして行が増えない
シート1からシート2へデーター移動（切り取りペースト）した際に
テーブルとして追加されない。

テキストも確認、ネット検索をしても解決できません。
ご存じの方お教えいただけます様
お願い申し上げます。

@jinbei230525　様

アドバイスありがとうございます。
また、返信が遅くなり申し訳ございませんでしよいの

@nak435 様
いつもありがとうございます。
この形式での投稿が正しいかどうか若干不安がありますが
引き続きよろしくお願い申し上げます。

①データが追加されない件エラー1.png
ですが、ソースを編集しましたが
違うエラーがでております（元のソースでも同じエラーがでるようになってしまいました）
正常であった時との違いは、
記憶にある限り、を日本語に変更しただけなのですが。
状況のスクショ添付いたします。
よろしくお願い申し上げます。

nak435さま

この度はお世話になりありがとうございます。
引き続き、以下についてご報告させていただいております。

問題①：B列はD列の左から12文字取得できない現象
7・8行目（②③）
➡何故か、本日は正常に取得できました。

●B7セル、B8セルに設定している「数式」を見せてください（式が参照するセルに誤りがあると思われます）。
➡念の為、以下にてご報告させていただいております。（エラーの時にも確認はしたつもりなのですが。）
B7セルの数式➡=LEFT(D7,12)
B8セルの数式➡=[@注文ID　：]　これはメールから取得する式として設定しています。

問題②：②M列に特定の文字が入力されるとその全て行の色が変わらない現象
テーブルの元の色は（2行目以降）：グレー
1・7・8行目（①②③）

●もし、「リストの行追加」を修正しても、この現象が起きる場合は、このシートに設定している「条件付き書式」をすべて見せてください。

➡このテーブルはデータ追加の際に、テーブルとして取得できておりますので
このシートに設定している「条件付き書式」をすべてを
ご報告させていただきます。

よろしくお願い申し上げます。条件設定.png
条件4.png
条件3.png
条件2.png
条件1.png

nak435さま

お世話になっております。
ご返事ありがとうございます。
問題②：②M列に特定の文字が入力されるとその全て行の色が変わらない現象
について、ご指摘箇所を修正（100行迄設定）しましたら、修正完了しました。

テーブルの場合、項目行の下の行（テーブルの2行目）だけに設定する場
3行目以降も設定が自動引継ぎされると思っていたのですが
これは誤った理解でしょうか？
それとも、テーブルの設定でどこかがおかしいからでしょうか？
何度もすみません。new.png

0

4Answer

nak435
@nak435

すみませんが、
文章だけだと、問題の内容が理解しにくいです。
シート（テーブル）のスクショとかをとって そこに書き込むなど、
問題を図で説明してもらえると、理解が早いと思います。ご検討ください。
また、もし、シートの操作をマクロで行っている場合は、該当する処理のコードもご提示ください。

0Like

Comments

  1. @nak435

    ①データが追加されない件
    ですが、ソースを編集しましたが
    違うエラーがでております（元のソースでも同じエラーがでるようになってしまいました）

    ws2.ListObjects(1).ListRows.Addを追加したことで、Selection.Cutが無効になってしまったことが原因でした。
    すみませんが、以下のように修正してください。

    ⭐️を追加、❌を⭕️に変更してください。
    （+0に変更したところを、 +1に戻しています）

    Sub 処理済み注文シート移動処理()
    ' データを＆貼り付け
ws2.ListObjects(1).ListRows.Add
Selection.Cut   '⭐️
ActiveSheet.Paste ws2.Range("A" & lastRow2 + 0) '❌
ActiveSheet.Paste ws2.Range("A" & lastRow2 + 1) '⭕️

  2. @nak435

    問題①：B列はD列の左から12文字取得できない現象
    7・8行目（②③）
    ➡何故か、本日は正常に取得できました。

    エラー（#REF）になった時の「数式」を見せてください。

    問題②：②M列に特定の文字が入力されるとその全て行の色が変わらない現象
    テーブルの元の色は（2行目以降）：グレー
    1・7・8行目（①②③）
    ●もし、「リストの行追加」を修正しても、この現象が起きる場合は、このシートに設定している「条件付き書式」をすべて見せてください。
    ➡このテーブルはデータ追加の際に、テーブルとして取得できておりますので
    このシートに設定している「条件付き書式」をすべてを
    ご報告させていただきます。

    vb2.png

    「適用先」が全部見えていませんが、見えている範囲では、3〜4行か3〜5行目だけとなっているので、2・7・8行目（①②③）は対象外です。範囲を適切に設定してみてください。

    また、「このテーブル」以外に「条件付き書式」はありませんか？

qii-yah
@qii-yah

マクロ1.png
マクロ2.png
マクロ3.png
@nak435 さま

おはようございます。
今回も迅速なご連絡ありがとうございます。
昨日は返信できず、申し訳ありませんでした。

まず＜●反映しない場合がある書式設定種類＞についてご連絡させていただきます。

＜使用マクロ＞
●このデータはメールソフト（Outlook）から取得したデータです。（マクロ実行・添付させていただいております。記述が長く、3枚になってしまいました。）
★このマクロは私が考案したのではなく、ネット検索であったものです。

＜エクセル画面＞
添付ピクチャーの
●正常な状態：3行目から6行目

問題①：B列はD列の左から12文字取得できない現象

7・8行目（②③）
現象.png

問題②：②M列に特定の文字が入力されるとその全て行の色が変わらない現象
テーブルの元の色は（2行目以降）：グレー

1・7・8行目（①②③）

＜備考＞
●1行目は空白の行に上書きしたかも知れませんが、（色々な動作確認作業中で記憶がなく）
7行目、8行目は新たにマクロを実行し、取得したデータです。

●データー並びは、基本は取得順です。

●試したこと、各セルを全指定して再度書式設定（条件設定など）を試しましたが
修正できませんでした。

●商品の合計金額：ここに反映していないデータは、メール取得の最新設定前のデータですので
問題は発生しておりません。

よろしくお願い申し上げます。

0Like
qii-yah
@qii-yah

リスト.png
@nak435 さま
お世話になっております。
引続き、以下について送信させていただきます。
●行追加の問題
③テーブルとして行が増えない
シート1からシート2へデーター移動（切り取りペースト）した際に
テーブルとして追加されない。

●ピクチャーの1行目はテーブルですが
2行目を上記要領で追加しても、テーブルとして追加されないのです。
試したこと：手動で追加した場合はテーブルとして追加されます。

●その他：
昨日教えていただきましたマクロを使用させていただいております！
昨日は対象が<O列＞でしたが、他の作業の時にも影響するようですので
対象を＜A列＞にして使用させていただいております。

とても多い資料で申し訳ありません。
何卒、よろしくお願い申し上げます。
リストマクロ2.png

0Like
qii-yah
@qii-yah

@nak435 さま

何度も申し訳ありません。
③テーブルとして行が増えない
についての、マクロ(切り取りなど）の添付が抜けておりましたので
送信させていただきます。

よろしくお願い申し上げます。
リストマクロ1.png

0Like

Comments

  1. @jinbei230525

    横から失礼します。回答欄を新たに立てるのではなくて、質問欄を修正して追記したほうがみやすいのでは？

  2. @nak435

    回答が遅くなりすみません。

    ●行追加の問題
    ③テーブルとして行が増えない
    シート1からシート2へデーター移動（切り取りペースト）した際に
    テーブルとして追加されない。
    ●ピクチャーの1行目はテーブルですが
    2行目を上記要領で追加しても、テーブルとして追加されないのです。
    試したこと：手動で追加した場合はテーブルとして追加されます。

    コードを見ましたが、『行追加』は行っておらず、リストの最終行の次の行位置を求めて、その行の各セルに値を設定する処理になっています（リストの続きに（リストの外に）データを書き込んだだけ）。

    そこで、『リストに行追加』を行った上で、データを書き込みますが、対象のコードが、次の(1)(2)のどちらか判断できませんでした。どちらか一方（もしくは両方？）を修正してください。

    (1) ⭐️印の1行を追加する

    Sub 受注確認メールを抽出して保存()
    Dim row As Long
'行番号を初期化。最後の行
row = 2 + xlWorksheet.ListObjects(1).ListRows.Count
xlWorksheet.ListObjects(1).ListRows.Add    '⭐️

Dim clm as Long

    (2) ⭐️を追加、❌を⭕️に変更

    Sub 処理済み注文シート移動処理()
    ' Sheet2の最終行を取得
ws2.ListObjects(1).ListRows.Add    '⭐️
lastRow2 = ws2.Cells(ws2.Rows.Count, "A").End(xlUp).row
' データを＆貼り付け
ActiveSheet.Paste ws2.Range("A" & lastRow2 + 1) '❌
ActiveSheet.Paste ws2.Range("A" & lastRow2 + 0) '⭕️

    ●反映しない場合がある書式設定種類
    ①B列はD列の左から12文字取得
    ②M列に特定の文字が入力されるとその行の色が変わる

    問題①：B列はD列の左から12文字取得できない現象
    7・8行目（②③）

    B7セル、B8セルに設定している「数式」を見せてください（式が参照するセルに誤りがあると思われます）。
    　

    問題②：②M列に特定の文字が入力されるとその全て行の色が変わらない現象
    テーブルの元の色は（2行目以降）：グレー
    1・7・8行目（①②③）

    このシートに「条件付き書式」が設定されていると思われます。が、行を追加した際に、「条件付き書式」の対象セル範囲が追従していないのでは無いかと想定します。
    これであれば、上記の「リストの行追加」を修正することで、解消される可能性があるので、マクロを修正して、再度確認してください。
    もし、「リストの行追加」を修正しても、この現象が起きる場合は、このシートに設定している「条件付き書式」をすべて見せてください。

Your answer might help someone💌

LoginSign Up