下記のようなエクセルのデータがあります。
品名の計の行のa列文字を小計の文字に直して小計の文字の下の行に
罫線の太線を横に引きたい。倉庫のデータが入っているb列の行には罫線の実線を横に
引きたい。c列には倉庫のコード、d列からY列までデータが入っています。
マクロではどうやって作成すれば良いですか教えてください。
尚、外枠と2行目の下にはすでに横の線が入っています。g列からY列にもデータ
が入っています。

a列      b列  c列  d列  e列   f列  
品名     倉庫
TR160 セ新港  870 150
TR160 セ門司van 001
TR160 セ宇都宮 A91 800
TR160 セ東大阪 533 575 150
TR160 計 575 1100
TR380 セ新港 870
TR380 セ宇都宮 A91  25
TR380 セ東扇島 386 1200
TR380 セ東大阪 533 2050
TR380 計 3275
総計        

このQ&Aに関連する最新のQ&A

A 回答 (7件)

#4ですが、回答がたくさん出ているので


追加の投稿はしません。失礼しました。
    • good
    • 0

A列の行1~9行目まで、任意の数字を入力し、10行目に「183f計」を入れて、モデル的にテストしました。


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Worksheets("sheet1").Range("a1:a100").Find("計").Select
Selection = "合計" ’小計か
a = Selection.Row
Range(Cells(a, 1), Cells(a, 25)).Select
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThick
End With
End Sub
を実行すると「計」は「合計」となり、そのセルの底の罫線は
AからY列まで太線になりました。
そのセルの値が「計」そのものでなくても、「計」の文字を含むとFindメソッドは見付けてくれるようです。
「計」のある行がA列に複数有る時(本件も)の処理はFindの解説
やヘルプで調べてください。
合計行を入れるときは
Selection.offset(1,0)="合計"
を最後の「計」の発見の後に使って出来るでしょう。(Offsetの利用)
    • good
    • 0
この回答へのお礼

実際やってみます。ありがとうございました。

お礼日時:2002/02/16 08:44

質問の意味を捉えきれているか疑問ですが・・・


質問にある表が何行目からなのか分からないので、表の最終行から処理しています。
コメントをつけていますので、不要な処理をしていたら削除して下さい。

『QNo214254.Excel95とExcel2000でのマクロでの動作違いについて』と同じような処理ですか。
『QNo214254』のコードも短く書き換えられそうですね。


Sub 小計の罫線()
  Dim rw As Long '行カウンタ
  For rw = Range("A65536").End(xlUp).Row - 1 To 1 Step -1
    '*** B列に下線を引く ***
    If Range("A" & rw) <> "" And Range("A" & rw) <> "品名" Then
      Range("B" & rw).Borders(xlEdgeBottom).Weight = xlThin
    End If
    '*** 小計の処理 ***
    If InStr(Range("A" & rw), "計") > 0 Then
      '*** 小計を書く ***
      With Range("A" & rw)
        .Value = "小計"
        .HorizontalAlignment = xlCenter
      End With
      '*** 小計がある行に下線(太線)を引く ***
      With Range("A" & rw & ":Y" & rw).Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlThick
      End With
    End If
  Next
End Sub
    • good
    • 0

少し時間を下さい。


ここを閉めずに少しお待ちください。
1.計を小計に
2.小計の下には太い罫線
ですね。

1.A列で"計"を検索
(個人的にはA2を読み込み
Instrb関数で検索
無ければ行数プラスしてA3へとします)

2.見つかったら"小計"と置き換え
(小を追加してセルに戻す)

3.その行の下に太い罫線を引く
(上から順番に降りてくれば
何行目かわかるのでそこでAからYに罫線)

4.最終行まで繰り返す


データが連続している、
途中に空白行が無いことを前提にします。
またはデータ数(行数)がわかるでも可

これで分かれば閉めてもらって構いませんので。
    • good
    • 0

「する意味」と「したいこと」が伝わりません。


私の理解できた程度からすると、なぜコンなこと程度で
マクロを使うのか、手動でやれば良いじゃないかと思いました。実はなにか面倒なことが潜んでいるのでしょうが
それが読めません。

この回答への補足

質問の仕方が悪くてすいません。
なぜマクロを使うかと言うと、列はあらかじめ固定されていますが、
行の位置が変わってきますので、合計されている行の位置は固定でありません。
結果がその都度変わるということです。

補足日時:2002/02/10 09:03
    • good
    • 0

メニューの「ツール」→「マクロ」→「新しいマクロの記録」を選択して、そのままマクロの記録を停止させずに、


実際に手動で罫線を引いてみてください。
罫線を引き終わったら記録を停止し、モジュールの内容を確認すると、コードが出来ています。範囲指定(Range)を変更すれば、罫線を引く範囲も調整されます。
    • good
    • 0

質問の表内容のスペースが詰まって、よく分かりませんね。

『_』などを使うか、全角スペースを使って再度、表を表示されたほうが考えやすいです。

疑問点としては、
>計の行
この『計』が入っているのは、B列ですか?
この行のA列を『小計』にして、『計』の文字はそのままですか?

>倉庫のデータが入っているb列の行には罫線の実線を横に引きたい
b列には全ての行について罫線を引く?または『計』のある行だけ?

>外枠と2行目の下にはすでに横の線が入っています。g列からY列にもデータが入っています
この意味は?2行目の下にある罫線と同じ罫線を全ての行に引くことですか?いわゆる升目のようにしてしまうのでしょうか。

>総計
表の『総計』はA列にあり、これが最終行でしょうか。

『各行、2行目と同じ下罫線を引いて、A、B列の罫線種は変えて強調したい』という風にも読めますが、補足をお願いします。

この回答への補足

いつも質問の仕方が悪くてすいません。
よろしくお願いします。


この『計』が入っているのは、B列ですか?
A列です。例:TR160計→小計
       TR380計→小計
A列に入っている、TR160計→小計の文字にかえて表示する
         TR380計→小計 〃

b列には全ての行について罫線を引く?
全ての行に線を引く

この意味は?2行目の下にある罫線と同じ罫線を全ての行に引くことですか?
A列には引きません。
A列に引きたいのは計の入っている行の下に罫線の太線をA列からY列まで引きたい

補足日時:2002/02/10 10:19
    • good
    • 0

このQ&Aに関連する人気のQ&A

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

Q葉書の罫線がある素材サイト

仕事柄人との交流が多く、名刺交換をした人にお礼状を手書きで書いています。
無地のインクジェット葉書に罫線を書きたいのですが、そういった罫線の
あるデザインをダウンロードできる素材サイトってありますでしょうか?

罫線だけでなく、ビジネス文書に差し障りない程度のうっすらとデザインが
入っていてもOKです。

宜しくお願いします。

Aベストアンサー

罫線入りの葉書って便利なのに、
テンプレートは少ないですよねぇ。

こちらのサイトはいかがでしょうか?

参考URL:http://ruriri.aisnet.jp/keisen.htm

Qエクセル関数でA列(品名)D列(金額)・・品名ごとに合計

A列に品名があり、D列に金額があります。

  A   B   C   D
1 商品1        ¥100     
2 商品2        ¥150
3 商品1        ¥100
4 商品3        ¥200
5 商品2        ¥100

求めたい答えは各商品ごとの合計金額なのですが、関数で可能ですか?(VBAになりますか?)

 商品1  ¥200
 商品2  ¥250
 商品3  ¥200

宜しくお願いします。(アクセスでやれと言われそうですが・・)

Aベストアンサー

こんにちは。

■作業列を使う方法です。

Sheet1 の F列を作業列にします。(作業列はどの列でもかまいません)

Sheet1 の F1に↓
-----------------------------------
=IF(COUNTIF($A$1:A1,A1)=1,ROW(),"")
-----------------------------------
この数式を予測されるA列の最大行までコピーしてください。
A500 までデータが入るだろうと思えば、F500までコピー。

Sheet2 の A1に↓
-----------------------------------------------
=IF(COUNT(Sheet1!F:F)<ROW(A1),"",INDEX(Sheet1!A:A,SMALL(Sheet1!F:F,ROW(A1))))
-----------------------------------------------

Sheet2 の B1に↓
-----------------------------------------------
=IF(A1="","",SUMIF(Sheet1!A:A,A1,Sheet1!D:D))
-----------------------------------------------
上の2つの数式を、商品の種類の数+アルファ、コピーしてください。
商品の種類が最大50種類ぐらいだと思えば、50行+アルファ

作業列が目障りなら非表示にしてください。

こんにちは。

■作業列を使う方法です。

Sheet1 の F列を作業列にします。(作業列はどの列でもかまいません)

Sheet1 の F1に↓
-----------------------------------
=IF(COUNTIF($A$1:A1,A1)=1,ROW(),"")
-----------------------------------
この数式を予測されるA列の最大行までコピーしてください。
A500 までデータが入るだろうと思えば、F500までコピー。

Sheet2 の A1に↓
-----------------------------------------------
=IF(COUNT(Sheet1!F:F)<ROW(A1),"",INDEX(Sheet1!A:A,SMALL(S...続きを読む

QWindows 7で罫線又は表作成ができるフリーのワープロソフトを探し

Windows 7で罫線又は表作成ができるフリーのワープロソフトを探しています。

OpenOfficeのWriterは存じていますので、これ以外でお願いいたします。
イメージとしては、ワードパッドに追加で罫線又は表作成ができる軽いものを探しています。
表計算は不要です。
文書の体裁として縦横の線が要るだけで、印刷のみに使います。
教えていただけば、Windows 7で動くかどうかは調べられますので、どうぞよろしくお願いいたします。

Aベストアンサー

何度もすみません。
プログラムの追加と削除に登録されています。
「CYPAC BeatWord 3.0」として登録されていますのでそこから削除できます。
そそっかしくてすみませんでした(汗!)

Qエクセルにて品名:A 価格:B 品名(重複無):Cが反映されている際、D列に価格平均を反映させるには

エクセルに
A列:品名
B列:価格
C列:品名(重複なし)
が反映されております。
このとき、D列にB列:価格の平均を反映させるには、どのような数式を記載すればよろしいでしょうか?
添付した画像のD1に記載する数式を教えていただけるとありがたいです。
何卒よろしくお願いいたします。

Aベストアンサー

× =AVERAFEIF(A1:A12,C1,B1:B12)
○ =AVERAGEIF(A1:A12,C1,B1:B12)
綴り間違えたw

Q飾り枠・罫線をフリーで使えるHPを教えて下さい!

ビジネス用に使う飾り枠で見積書の外側を囲う飾り枠なのですが、
WORDの罫線では使えそうなのが見つかりません。

HP上でイメージにピタッ!っとくるようなのをフリーで探しています。
あくまでもビジネス用なので落ち着いた感じです・・。

フリーじゃないけどこれはいい!というようなものもあれば・・・。
よろしくお願いします。

Aベストアンサー

>ダウンロードするとすぐにクリップオーガナイザが起動され、

その時点で、ダウンロードしたものが表示されているはずです。
Office XPのクリップオーガナイザなら、それだけで、すでに分類もされていると思います。
どこに分類されているかは、ダウンロードした画像のカテゴリを自動判別しますので、自分が選択したものになります。
今回の場合で言えば、おそらく「罫線と飾り」か「境界線と枠」になっていると思います。
分類を変えたければ、表示させておいて、「コレクションの一覧」の好きな分類の上にドラッグ&ドロップすればコピーされます。
また、右の窓に適当なものが表示されていなければ、「コレクションの一覧」をクリックして切り替えてください。
MS-WORDなどの貼り付けるには、ドロップダウンメニューからコピーしてWORD上で貼り付けをするか、WORD上で「挿入」→「図」→「クリップアート」で検索・表示させておいて、図をクリックすれば挿入されます。

QExcel2013 VBA A列とB列の文字をA列とB列とC列に移動させる方法

A列とB列に文字が入っているのですが、下記のようにA列とB列とC列に文字を移動させたいです。
(A列の数字は必ず奇数のA列に入っています。)
VBAのコードを教えて下さい。

例えば
A1 1  B1 cat
A2 空白 B2 猫
A3 空白 B3 dog
A4 空白 B4 犬
A5 2  B5 whale
A6 空白 B6 クジラ
A7 3  B7 rabbit
A8 空白 B8 ウサギ

とデータがある場合

A1 1  B1 cat  C1 猫
A2 空白 B2 dog  C2 犬
A3 2  B3 whale  C3 クジラ
A4 3  B4 rabbit C4 ウサギ

としたいです。

実際、データは、A5196まであります。

Aベストアンサー

No.1です。

>実際、データは、A5196まであります。

前回のコードは一つずつカット&ペーストしていますので
かなりの時間を要すると思います。
↓のコードに変更してみてください。

Sub Sample2()
Dim lastRow As Long
lastRow = Cells(Rows.Count, "B").End(xlUp).Row
Application.ScreenUpdating = False
With Range(Cells(1, "C"), Cells(lastRow, "C"))
.Formula = "=IF(MOD(ROW(),2)=1,B2,"""")"
.Value = .Value
.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End With
Application.ScreenUpdating = True
MsgBox "完了"
End Sub

少しは短縮できると思います。m(_ _)m

No.1です。

>実際、データは、A5196まであります。

前回のコードは一つずつカット&ペーストしていますので
かなりの時間を要すると思います。
↓のコードに変更してみてください。

Sub Sample2()
Dim lastRow As Long
lastRow = Cells(Rows.Count, "B").End(xlUp).Row
Application.ScreenUpdating = False
With Range(Cells(1, "C"), Cells(lastRow, "C"))
.Formula = "=IF(MOD(ROW(),2)=1,B2,"""")"
.Value = .Value
.SpecialCells(xlCellTypeB...続きを読む

Qフリー素材

フリー素材を探しています。
花柄で、小さな花模様でフリーの素材はないでしょうか?
ポスターとかはがきにその花柄を印刷しまして、
そのポスターやはがきを販売しますので、
印刷物に使用でき、販売目的でもOKのフリー素材は
ないでしょうか。教えてください。

Aベストアンサー

素材辞典
http://www.sozaijiten.com/

プロの素材
http://www.hakata-good.co.jp/

満タンWEB
http://www.dex.ne.jp/mantan/index.html

上記は、商用OKのロイヤリティフリー素材を販売されているサイトです。
使えそうな画像がある素材集を購入すればご要望の用途にかなうかもしれません。

また、検索エンジンなどで、キーワードを「ロイヤリティフリー」「素材」「商用」などで検索されれば、その他の商用可能なフリー素材も見つかるかもしれません。

Q【EXCEL】条件付き書式、A列、C列、D列、E列が同じ値の時にB列の背景色を変えたい

お世話になります。

エクセルの条件付き書式の数式の使い方について教えて下さい。
A列、C列、D列、E列の値が同じ時にB列のセルの背景を青に
塗りつぶしたいと思っています。

なので、「数式を使用して、書式設定するセルを決定」、
「次の数式を満たす場合に値を書式設定」で、数式を
「=A1=C1=D1=E1」と入力し、書式、塗りつぶし、青、
を選択して、条件付き書式を設定しました。
すると、、、画像のような結果になります。

私の感覚だと画像でセルの値が「11」~「15」の時だけ
B列が青になると思うのですが実際の結果は画像の通りです。

先の話の通りA列、C列、D列、E列の値が同じ時だけ
B列のセルの背景を青にしたい場合はどうい数式になるのでしょうか?

すいませんが、詳しい方、数式(関数?)で説明できる方よろしくお願い致します。

追記
可能でしたらA列、C列、D列、E列が空白の時はB列の背景色をなしにしたいと思っております。
→A列、C列、D列、E列に値があって、かつ同じ値の場合のみB列の背景を青にしたいです。

お世話になります。

エクセルの条件付き書式の数式の使い方について教えて下さい。
A列、C列、D列、E列の値が同じ時にB列のセルの背景を青に
塗りつぶしたいと思っています。

なので、「数式を使用して、書式設定するセルを決定」、
「次の数式を満たす場合に値を書式設定」で、数式を
「=A1=C1=D1=E1」と入力し、書式、塗りつぶし、青、
を選択して、条件付き書式を設定しました。
すると、、、画像のような結果になります。

私の感覚だと画像でセルの値が「11」~「15」の時だけ
B列が青にな...続きを読む

Aベストアンサー

AND関数を使えば判定ができるのでは?
 =AND(A2<>"",A2=C2,C2=D2,D2=E2)

A列には常に判定する数値が入っているなら「A2<>""」は不要です。

参考サイト
http://www.relief.jp/itnote/archives/003940.php

Qフリーソフトで簡単に罫線が引けるソフト

1 簡単に罫線を引くことができる
2 線と線の間に文字を書くことができる。
3 表計算のように表に入力した数字を計算しなくてもい  い
4 印刷機能がある

というフリーソフトはありますでしょうか?

Aベストアンサー

フリーですべてを満たすのはOpenOfficeでしょうね。

参考URL:http://ja.openoffice.org/start/

Qエクセル2007で小計機能を使い、集計しています。 小計を2回つかい、

エクセル2007で小計機能を使い、集計しています。 小計を2回つかい、ある数値を、「学年」→「氏名」で集計しています。画面では氏名で集計され、その見えているまま別シートに貼り付けしたいのですが、
貼り付けをすると、隠されているデータもすべてが貼り付けされます。(人により氏名データが1~30くらいありそれを集計している)
見えているまま、貼り付けできる方法を教えていただけないでしょうか?

Aベストアンサー

見えているセルだけをコピーしたいと言う事ですよね?
以下は2003での操作ですが、2007でも大差ないでしょう。

1.コピーする範囲選択
2.「Ctrl」+「G」を同時に押し、「ジャンプ」画面を表示
3.ジャンプ画面の「セル選択」ボタンを押下
4.「可視セル」にチェック、「OK」
5.「Ctrl」+「C」でコピー

あとは、普通に「Ctrl」+「V」で貼り付け

これで如何でしょう


人気Q&Aランキング

おすすめ情報