• 締切済み

EXCEL2003　マクロ　特定の条件下での罫線

会計ソフトから落とした財務データを体裁のよい、ひな型へ変換するマクロを作成しています。 2シート構成で、シート"DB"に会計ソフトからの生のデータを読み込み、シート"財務諸表"に"DB"データを編集加工して形成させる仕様です。 データ読込やある程度の書式まではできていますが、罫線については現在は「（とある）セルの下に実線」となっており、読込元で勘定科目が増減した場合などは罫線位置がずれてしまうお粗末な内容です。 ただし、シート"DB"には罫線区分というデータを持っており、罫線なしの科目なら”0”、罫線ありなら"1"という色があるので、シート"DB"上で罫線区分＝"1"の科目の下にのみ、シート"財務諸表"上で実線を引くような仕様が理想です。 （何もしなくでもこの罫線区分はダウンロードされ、会計ソフト側でマスタ管理しています） これを実現する為のコードをどなたご教示いただけますでしょうか？

みんなの回答

noname#145478
noname#145478
回答No.2

セルの下側に罫線をつけるのなら with 目的のセル.bordars(edgebottom) .linestyle = xlcontinuous .color = 0 .width = xlThin end with これでセルの下側に細い実線が黒色で表示されます

回答No.1

始めまして。 If Range("") = 1 then Selection.Borders(xlEdgeBottom).LineStyle = xlContinuous end if 0、1の区分分けで条件式をくみ、その間に実線を引く。

  1. カテゴリ
  2. ビジネス・キャリア
  3. 職種
  4. SE・インフラ・Webエンジニア

関連するQ&A

  • Ｅｘｃｅｌ：印刷したときに自動で罫線を表示する

    使用ソフトはＥｘｃｅｌ2007です。 自分で昔設定をしたのに忘れたのですが、罫線を引いていないセルでも印刷すると自動で罫線が表示されるように設定するにはどうしたらよいでしょうか。 昔のデータを見ると罫線が引かれていないセルには「なし」のすぐ下の薄い罫線が引かれるようになっています。

  • Excel2010 2007の条件付き書式

    Excelの条件付き書式についてお伺いします。 Excel2010 と Excel2007で 以下の書式を設定した際に表示される結果が異なります。 ・A1セルに下罫線を設定 ・A2セルに条件付き書式で空白（Empty）なら上罫線"なし"を設定 Excel2007の場合、上記設定によりA1セルに下罫線が表示されますが Excel2010の場合、下罫線なしで表示されませんでした。 Excel2010では隣接するセルの罫線設定より 条件付き書式での罫線なしが優先されている様なのですが、 そのような仕様変更をヘルプ、MSのページなどで探したのですが 見つけることができませんでした。 上記仕様変更が明記されている箇所（ヘルプやページ等）を ご存じないでしょうか。 以上、ご教示の程何卒宜しくお願い申し上げます。

  • 簿記論と財務諸表論の違いを教えてください

    皆様へ いつも親切の教えてくださり、本当にありがとうございます。 さて、素朴な疑問なのですが 日商簿記検定では「簿記」で、 税理士試験科目では「簿記論」と「財務諸表論」があり、 公認会計士試験科目では「財務諸表論」、 そもそも「簿記論」と「財務諸表論」は何がどう違うのでしょうか？ 教えてください。 よろしくお願いします。

  • Excelマクロで罫線をひきたい。

    Access2000からエクスポートした結果のExcel2000のワークシートに、線をひきたいんです。 一番最初のセルはa1と決まっているけど、一番最後のセルは毎回変わってしまうのですが、 このセルを取得するためにはどんなマクロボタンを作成すればいいでしょうか？ ただ本来の希望としては、マクロボタンひとつで、並べ替え＞セルの変更＞罫線、としたいのですけれど。 「セルの変更」というのは、エクスポートしたデータで「ランク」という項目があり、 これに「特・Ａ・Ｂ」という項目があります。 Access上はひとつのフィールドにまとまっているのですが、Excel上では、それぞれ「特・Ａ・Ｂ」という列を作成し、データがあったら、「○」を入れるというようにしたいのです。 （列が増えることになります。） また「備考1・備考2」がAccess上にあり、これは別フィールドとなっていますが、 今度はExcel上で「備考」としてひとつの列にしたいのです。 （列の減少） 別シートを作成してもかまいません。 このようなことはできるのでしょうか？ せめて罫線だけでもひければ、と思います。 よろしくお願いします。

  • 連結財務諸表と税務基準の個別財務諸表

    現在ほとんどの中小企業では減価償却など会計基準ではなく税務基準で財務諸表を作成していると思います。 そこで非上場会社が連結財務諸表を作成する場合、実務では、子会社の個別財務諸表を税務基準のまま合算しているのか、それとも、別途会計基準の財務諸表を作ったうえで合算しているのでしょうか？ また国際会計基準が適用される上場会社が連結財務諸表を作成する場合、子会社の個別財務諸表は、税務基準の他に、別途国際会計基準の個別財務諸表を作ったうえで合算しているのでしょうか？ 会計基準または国際会計基準 vs 税務基準 上記基準が実務でどのように処理されて連結しているのか教えてください。

  • 税理士の科目免除の件

    税理士の科目免除が得られる大学院に通うものです。 会計科目の免除があることはわかっています。 修士論文は財務会計論の予定です。 この場合、免除されるのは財務諸表論でしょうか？ それとも簿記論を免除にして、財務諸表論を受験することは 可能でしょうか？ 自分は理論は強いので財表の受験を希望しています。 実際に免除を受けられた方、現役院生のかたよろしくお願いします。

  • アクセス97での罫線について

    教えてください。 ACCESS97で一つのテーブルをEXCELにエクスポートする処理をマクロ (ワークシート変換)で作成しました。 EXCELシート上にデータはちゃんと書き込まれています。 次に、エクスポートされたEXCELのシート上に(セルすべてを囲む)罫線をつけて 見やすく表示したいと考えているのですが... マクロでもVBAでも構いません。そのようなことはできるのでしょうか？ また出来るとしたら、データの中のある項目(フィールド)が変更したら、その下の罫線は太くするといったことは可能でしょうか？ 参考HPでも構いません。宜しくお願い致します。

  • [Excel]罫線から数字に変換したい

    マイクロソフトのExcel2003を使ってます。 条件付き書式を使うことで、数字を書いたセルに自動で罫線を引けることは分かりました。 今回私がしたいのはその逆。「罫線から数字にする」ということです。 例えばExcelのセル上で下のように セルA1、B1、C1に対して罫線がひかれていた場合 ____________ ____________ ____________ |セルA1| セルB1 セルC1| 　￣￣￣ 四方を罫線で囲まれているセルは（今回の例ではセルA1）→8 上に罫線をひかれていたら（今回の例ではセルB1）→１ 上と右に罫線がひかれていたら（今回の例ではセルC1）→4 と言った感じにセルA1、B1、C1に表示させたいです。 やり方を知っている方がいたら教えて下さい。 MSExcel2010やOpenOfficeならできるといった情報でも構いません。 よろしくお願いしますm(_ _)m

  • 税理士資格取得としてのダブルマスターについて（１）

    　こんばんは、ghq7xyです。私は税理士試験のうち、財務諸表論に合格し、簿記論は受かっていない者です。 　さて、税理士法は改正され、今春からの大学院入学者については会計学については簿記論か財務諸表論のうちのいずれか片方のみの免除、税法学については３科目のうちの２科目までの免除となりました。 　さて、私は改正前の税理士法により今春修了して税法３科目については３科目とも免除となります。仮に私が会計学の大学院に入学したとしても財務諸表論に合格しているので、簿記論の免除が取れます。 　しかし、私は会計学の大学院に行くべきかどうかで悩んでいます。大学院に入れば確実に資格は取れます。しかし、世間の目が怖いです。また経済的に苦しいです。逆に簿記論の受験は正攻法ですが、厳しいです。　　（２）へ続く

  • エクセルで書いた覚えのない罫線が・・・。

    ご覧頂きありがとうございます。 エクセルで簡単な集計表を作っているのですが １枚のシートで上下に表を二つ作り、 印刷するとＡ４が２枚出てくるようになっているのですが 上の表と下の表の間はシート上では２段です。 もちろんその２段に罫線は見当たらないのですが 印刷プレビューを見ると２枚目(下の表)の右上に 罫線がうつっており、印刷してもうつっています。 (一番シンプルな罫線のようで長さは数センチ、セルの幅と一致します) ここの過去ログを見て、色々試しましたがわかりません。 白紙のセルをコピーして上から貼り付けたところ、 なぜか短くなりました。ますますわかりません。 どなたか、お心あたりのある方は是非教えて頂けたら助かります。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する