初心者です。いろいろ調べてみて、ここまでたどりつきましたが(どなたかの質問を参考に)、これ以上わからなくなったのでこちらに投稿しました。

Private Sub 詳細_Print(Cancel As Integer, PrintCount As Integer)

Me.ScaleMode = 1
Me.ForeColor = 0

'一番左の縦線
Me.Line (0, 120)-(0, 6680)

End Sub

上記のコードで、罫線を引く方法はわかりました。ただ、私がやりたいことは、全てのレコードに対して線を引く方法でなく(それであれば、VBAを使うほどでもないので)、特定の位置に線を引く方法なのです。
もっとわかりやすく言うと、A4用紙に2つのレコードが印刷されるレポートになっております。その2つのレコードの真ん中に、いつも線を引く、ということをさせたいのです。
(要するに、切り取り線です)

このような場合、どうしたら可能になるか、どなたかヒントをいただけないでしょうか。

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

A 回答 (2件)

LINEは論理的な位置ではなく、物理的な位置に線を引くだけです。


わたしが言う論理的とは、レコードの内容によってや、レコードの画面における出現数(2つおき)などによって(レコードの内容や数に関連づけて)線を引くようなことを言ってます。
これらは両者を結びつけた位置を計算して、直線を描くのは難しいでしょう。
ですから別の方のことの知識を得ないといけないとおもいます。
>、罫線を引く方法はわかりました
は、質問者のニーズに限って言えば、外れていると思います。
ーー
2レコード分の印刷レイアウトを上下に、1レコード分ずつ配置する設計を考え、真中にツールバーの直線(プロパティの指定で点線・太さ指定・色指定もあります)で引けばよいでしょう。
ーーー
しかし
アクセスのレポートでは、レコード処理はアクセス任せが標準なので、単純な1行ー1レコード明細印刷以外は、やさしくないと思う。
>レポート1ページに2レコード表示したい 、のほうが初心者には難しいのでは。
レポートの「オートレポートの単表形式」で「詳細」の高さ(1レコード分)を1ページの半分程度に拡げて、1ページ2レコード印刷にして、詳細で1レコード分の下のほうに直線を引いておくと
明細(奇数番レコード)
ーーー
明細 (偶数番レコード)
ーーー
になって下にも線が出てしまう。
そのため、これ以外の方法が無いか、あらためて質問したらどうですか。
    • good
    • 0
この回答へのお礼

どうもありがとうございます。わかりました。
もしかしたら私の書き方が間違っていたかも、という箇所があったのですが、それは2レコードを表示させる、と書いたことです。
1ページに、2ページ分が表示される、ということを意味して書きました。

おそらく書き方が悪かったと思いましたので、お詫びして訂正します。

お礼日時:2011/04/14 11:23

「詳細」の「印刷時」ではなく


「レポート」の「ページフォーマット時」で。

数値は試行錯誤で最適になるようにしてください。
    • good
    • 0

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

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

このQ&Aを見た人はこんなQ&Aも見ています

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

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

Q大学のレポートの書き方について質問します。手書きで書かなければならない

大学のレポートの書き方について質問します。手書きで書かなければならないレポートなのですが、書き方や、筆記用具は何を使うなど詳しくのっているサイトはありますか?

Aベストアンサー

基本的には市販のレポート用紙にボールペンで書けば問題ないと思いますが、先生によってA4またはB5の指定があったり、鉛筆でもよかったりするのでそれに従えばいいと思います。
http://www.report.gusoku.net/kihon/reportyousi.html
先輩の過去レポが手に入ると書き方のお手本になるので楽なんですけどね。

QエクセルVBAで罫線を引きたいのですが

コマンドボタンを押すと、対応するVBAが実行される
ところまでできたのですが

10行目のA1~G10まで、アンダーラインを引きたいのです

下記はそれらしいVBAをコピーして実行したものです
これでは、各セルに二重線で縁取りされました
それを、アンダーラインを引きたいのですが、教えてください

For Each myRange In Worksheets(1).Range("A10:g10") '←(1)
myRange.Borders.LineStyle = xlDouble
Next myRange

できれば、For Each、なんか使わないでできると
ありがたいのですが
よろしくお願いします

Aベストアンサー

アンダーラインですか?罫線ですか?
一応、ボトムの罫線ということで回答します。

With Range("A10:G10").Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With

Qレポートの書き方

こんばんは。
冬休みの課題で、「美術館に行ってレポートを書く」というものが出ました。
ですが、あまりレポートを書いたことが無いので書き方がわかりません。
アイヌ文様の美というのに行こうと思っているんですが・・・
やはり写真もレポートには入れた方がいいでしょうか?
レポートの書き方に次いでわからなくて困っています。
美術が好きなので、良いレポートを書きたいと思っています。
どうか、書き方を教えてください。お願いいたします。

Aベストアンサー

美術大学に在籍しています。ご参考程度に、私の経験からアドバイスをさせて頂きます。


全体の構成としては
(1)表紙(主題タイトル)
(2)本文

主題について、どういうところが自分にとって魅力的なのか、
それにはどういう由来や歴史があるのか、何を意味するのか など
いくつかの項目に分けて考えると書きやすいと思います。

例えば…「印象派について モネの魅力」が主題だとすると
1.印象派とは
2.モネの生きた時代とその功績
3.代表作『睡蓮』の連作とその変化
(以下必要なだけ項目を設ける。最終的に、
ある程度自分の主観を入れた論述があったほうが「美術館に行って」という部分が活かされるので、良い と
私は思います。)

…など
主題の背景(アイヌの文化でしたら、アイヌ民族のことなど)から
徐々に幅を狭めていって、主題を浮彫りにしていくと読み手がすんなり入り易く、
印象に残るレポートができるのではないでしょうか。
又、写真は効果的に入れていったほうが良いと思います。
レポートの読み手はその内容について知らないわけですから
いわば教科書や新聞のようによりわかりやすく情報を伝えることを考えると…
あったほうが、親切なように感じます。

(3) まとめ
上にも記述しましたが、「美術館に行って」ということなので
美術館に対する感想、今回レポートを作ったことによって気付いたことや良かったことを書き、あとがきとします。
ある程度の長さがあったほうが説得力があると思います。
又、最後に
参考にした文献(本やWEBページ)について「参考文献」として記述しておきます。(箇条書きで大丈夫です)
本はタイトルとISBN、WEBはタイトルとURLを記述します。
版権的な問題のためもありますが、これだけ色々調べました というアピールにも繋がると思います。


私は以上のような手順で、レポートを書いています。
わりと高評価を頂くこともあるので…ある程度参考にして頂けると思います。

余談ですが
「美術館の入場券の半券を
表紙かはじめのほうに展示タイトル・日時・場所 の明記と共に貼って提出しなさい」という指定で
レポートを作ったことがありまして…
指定が無くてもそうすると、なんだかそれらしくなる気がしますので、
ちょっと使える手かもしれません。


レポート制作 頑張ってくださいませ!
微力ながらお力添えできていましたら幸いです。

美術大学に在籍しています。ご参考程度に、私の経験からアドバイスをさせて頂きます。


全体の構成としては
(1)表紙(主題タイトル)
(2)本文

主題について、どういうところが自分にとって魅力的なのか、
それにはどういう由来や歴史があるのか、何を意味するのか など
いくつかの項目に分けて考えると書きやすいと思います。

例えば…「印象派について モネの魅力」が主題だとすると
1.印象派とは
2.モネの生きた時代とその功績
3.代表作『睡蓮』の連作とその変化
(以下必要なだけ項目...続きを読む

QExcel VBAで罫線を引くマクロを書きたい

Excel VBAで罫線を引くマクロを書きたいと思っています。
で、文末のコードを書きました。(というかマクロ記録したものほぼそのもの)
これだとある程度動くのですが、内側線が無いような範囲を選択した場合にはエラーになってしまいます。
内側の線を引く際にIF文をかまさなければならないように思うのですが、イマイチわかりません。
この点について教えてください。
また、コードが冗長であるようにも思えます。もう少しスマートな書き方があればあわせて教えてください。
よろしくお願いします。

Sub 枠線基本()

' 周囲
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With

' 内側
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlHairline
.ColorIndex = xlAutomatic
End With

With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.Weight = xlHairline
.ColorIndex = xlAutomatic
End With

End Sub

Excel VBAで罫線を引くマクロを書きたいと思っています。
で、文末のコードを書きました。(というかマクロ記録したものほぼそのもの)
これだとある程度動くのですが、内側線が無いような範囲を選択した場合にはエラーになってしまいます。
内側の線を引く際にIF文をかまさなければならないように思うのですが、イマイチわかりません。
この点について教えてください。
また、コードが冗長であるようにも思えます。もう少しスマートな書き方があればあわせて教えてください。
よろしくお願いします。

Sub ...続きを読む

Aベストアンサー

選択範囲の行数が2以上なら内側の水平線を、列数が2以上なら垂直線を引くようにしてあげれば良いのでは?
と思ったら、複数エリアを選択している時にちょいと面倒が・・・
(そんな場合を、想定しなくてもいいのかも知れませんが)

ということで、こんなのでどうでしょうか?
Sub test()
Dim rng As Range
Dim i As Integer

For Each rng In Selection.Areas
'//全部の罫線(内・外とも)
 rng.Borders.LineStyle = xlContinuous
 rng.Borders.Weight = xlThin
 rng.Borders.ColorIndex = xlAutomatic

'//内側の罫線
 For i = 11 To 12
  If (i = 11 And rng.Columns.Count > 1) Or (i = 12 And rng.Rows.Count > 1) Then
   rng.Borders(i).LineStyle = xlContinuous
   rng.Borders(i).Weight = xlHairline
   rng.Borders(i).ColorIndex = xlAutomatic
  End If
 Next i
Next rng
End Sub

複数エリアを想定しなければ、外側のループは不要です。

選択範囲の行数が2以上なら内側の水平線を、列数が2以上なら垂直線を引くようにしてあげれば良いのでは?
と思ったら、複数エリアを選択している時にちょいと面倒が・・・
(そんな場合を、想定しなくてもいいのかも知れませんが)

ということで、こんなのでどうでしょうか?
Sub test()
Dim rng As Range
Dim i As Integer

For Each rng In Selection.Areas
'//全部の罫線(内・外とも)
 rng.Borders.LineStyle = xlContinuous
 rng.Borders.Weight = xlThin
 rng.Borders.ColorIndex = xlAut...続きを読む

Qレポートの書き方を教えて下さい。

今日、学校でレポートの宿題を出されたんですが、今までにレポートを書いた事がありません。なのでどんな事でもいいので簡単なレポートの書き方を教えて下さい。宜しくお願い致します。

Aベストアンサー

とりあえず提出するレポートには表紙をつけましょう。
用紙は中身のものと同じものでかまいません。

表紙に「課題名」、「学年・組・出席番号」、「氏名」をかきます。

レポートの宿題、とありますがどのようなレポートなのか解らないので中身についてはアドバイスのしようがありません。

提出時には、レポート用紙がバラバラになってしまわないようにしっかりとホッチキスなり何なりでとめましょう。

QEXCEL2000 VBA 罫線を引く その2

http://www.okweb.ne.jp/kotaeru.php3?q=564008

こちらで質問させていただき、#2の方法で出来たと思い締め切ったのですが、どうやらセルの高さが初期値でない場合、全部のセルに罫線を引く事がわかりました(汗)

1)あくまでも、データが入っている場合のみ罫線を引く方法

2)データが入っている行のみあとから行の高さを80にする方法

他に解決策があれば、よろしくお願いします。

Aベストアンサー

先ほども回答して滑り込みアウトだった者ですが・・・
以下の方法ではどうでしょう?

※必要に応じて、
Const myCol As Long = 4や
Const myKey As Long = 2の
数字の値を書き換えて使用してください。

Sub Sample()
Dim myRow As Long
Const myCol As Long = 4 'データ全体の列数(D列までデータがあるなら、4)
Const myKey As Long = 2 '必ずデータがある列の番号(たとえばB列なら、2)

’範囲指定する
myRow = ActiveSheet.Rows.Count
myRow = Cells(myRow, myKey).End(xlUp).Row 'データ項目数を取得
Range(Cells(1, 1), Cells(myRow, myCol)).Select

’罫線を引く
With Selection
.Borders.LineStyle = xlContinuous
End With

End Sub

先ほども回答して滑り込みアウトだった者ですが・・・
以下の方法ではどうでしょう?

※必要に応じて、
Const myCol As Long = 4や
Const myKey As Long = 2の
数字の値を書き換えて使用してください。

Sub Sample()
Dim myRow As Long
Const myCol As Long = 4 'データ全体の列数(D列までデータがあるなら、4)
Const myKey As Long = 2 '必ずデータがある列の番号(たとえばB列なら、2)

’範囲指定する
myRow = ActiveSheet.Rows.Count
myRow = Cells(myRow, myKey).End(xlUp).Row 'データ項...続きを読む

Q人物レポートの書き方教えてください

中3です。
夏休みに社会の課題で歴史上の人物のレポートを提出しなければなりませんが、社会のレポートなんて、書いたことがないので、書き方がいまいちわかりません。
そもそも、原稿用紙に書くのか、普通の白い紙に書くのかもわかりません。
学校側からは何の指定もされていないので、本当になんにもわかりません。
書き方教えてください!!
ちなみに、高杉晋作を書く予定です。

Aベストアンサー

>社会のレポートなんて、書いたことがないので、書き方がいまいちわかりません。
社会科だからと言って特別な書き方がある訳ではありません。
調べたらこんなことが分かりました。ということを書けばいいだけです。

>原稿用紙に書くのか、普通の白い紙に書くのかもわかりません。
どちらでもかまいませんが、原稿用紙だと枚数が増えてしまいます。
文房具屋さんへいくとレポート用紙という用紙を売っています。
ネットでも手に入ります。
無地の白い紙だと書きにくいので、横に罫線が入ったノートのような用紙です。
一枚一枚バラバラにできるようになっています。
買ってきた時の状態でノートのように使いますが、書き損ねたら、そのページを外して捨てることができます。
書き終わったら、書いた枚数だけホッチキスで端を止めて提出します。
きれいにそろえて左端の上の一か所を止めるだけで充分です。(右端でもかまいません)
黒い小さなクリップで挟んでもかまいません。
大きさはA4版とB5版が一般的ですが、A4版の方が使いやすいでしょう。
一番上の行に「高杉晋作について」とタイトルを書きます。
二行目の右寄りに学年クラス氏名を書きます。
三行目は空欄にします。
四行目から書き始めます。

延々と文書を続けて書くと書きにくいので、箇条書きのように一行か二行の長さの文章にします。
その文章が終わったら行を変えて書きます。

調べると言っても大変でしょうから、下記のようなサイトがあります。

高杉晋作 - Wikipedia
ja.wikipedia.org/wiki/高杉晋作

高杉晋作
www.takasugi-shinsaku.com/

【写真あり】もはや漫画。27歳で亡くなった高杉晋作の生涯が恰好良 ...
bakumatsu.org/blog/2013/06/takasugi.html

上記のサイトを読んでから、何時の時代の人で、こんなことをした人です。こんなエピソードがあります。
と纏めて書けばOKです。
全部書こうとすると大変ですから、興味のあるところだけを手短にまとめて書いてください。
受験勉強もかねて、どんな時代で、何が起きていたのか、という点を注意して読んでください。

夏休みも残りがすくなくなってきました。
早めに少しづつやって下さい。
楽しい夏休みを過ごしてください。

>社会のレポートなんて、書いたことがないので、書き方がいまいちわかりません。
社会科だからと言って特別な書き方がある訳ではありません。
調べたらこんなことが分かりました。ということを書けばいいだけです。

>原稿用紙に書くのか、普通の白い紙に書くのかもわかりません。
どちらでもかまいませんが、原稿用紙だと枚数が増えてしまいます。
文房具屋さんへいくとレポート用紙という用紙を売っています。
ネットでも手に入ります。
無地の白い紙だと書きにくいので、横に罫線が入ったノートのような用紙...続きを読む

QエクセルVBA 行追加時に自動で罫線を引きたい

こんにちは。いつもお世話になっています。

エクセル2007を使用し、データーベースの表を作っています。
A列からE列まで情報の項目があり、(日付・名前等)
3行目からずっとデータを入力しています。

新しい行に、A列からE列の間に何か入力した時、
もしくは入力してある最終行にカーソルがある時、改行を押した場合
次の新規の行AからEまで、自動に罫線を引くにはどうしたらよいのでしょうか?

Aベストアンサー

>新しい行に、A列からE列の間に何か入力した時、…

ホームタブにある「テーブルとして書式設定▼」の中からてきとーに選んで付けておくと,カンペキに意図通り修飾を施し続けてくれます。

Qレポートの書き方。。。

仕事を辞めて今年某国立大学に三年次編入した28歳の者です。
久しく学問と離れており、また、以前の大学も大した大学じゃなかったので、
ちゃんとしたレポートを書いた記憶が無く、書き方がよく分かりません・・・
一応「レポートの書き方」なる書籍を読んでみましたが、いまいちピンときません。。。
レポート作成の参考になるお薦めサイトが有ればどなたか教えてください。。。
(一応自分でも調べてます。。。)
ちなみに、レポートのテーマは「中国語方言からみた中国言語文化」です。
副題は自分で設定して良いとの事なので、関心がある事について書けばよいのでしょうが、
漠然としてて何をしたらよいのかよく分からないというのが正直な気持ちです。。。

Aベストアンサー

> レポート作成の参考になるお薦めサイトが有ればどなたか教えてください。。。
> (一応自分でも調べてます。。。)

もうこんなサイトはお読みになったと思いますが。

レポートの書き方のページ
http://www.ias.tokushima-u.ac.jp/physics/classes/reporting/wreport.html

欧米の中高等教育のなかで教えられる、論文・レポートの書き方
http://www.hibun.tsukuba.ac.jp/miyamoto/film/manual.htm

レポート・卒論の書き方初級編
http://www.ep.sci.hokudai.ac.jp/~minobe/class/how2write_1.htm

@卒業論文-卒論・レポートの書き方ポータル
http://www.mycon10ts.com/top.htm

レポートの書き方
http://www.kyoto-su.ac.jp/~oda/essay1.html

Eテキスト「レポートの書き方」
http://www2.dokkyo.ac.jp/~msemi008/index2/e_text/

レポートの書き方
http://reg.let.hokudai.ac.jp/miyauchi/report.html

> レポート作成の参考になるお薦めサイトが有ればどなたか教えてください。。。
> (一応自分でも調べてます。。。)

もうこんなサイトはお読みになったと思いますが。

レポートの書き方のページ
http://www.ias.tokushima-u.ac.jp/physics/classes/reporting/wreport.html

欧米の中高等教育のなかで教えられる、論文・レポートの書き方
http://www.hibun.tsukuba.ac.jp/miyamoto/film/manual.htm

レポート・卒論の書き方初級編
http://www.ep.sci.hokudai.ac.jp/~minobe/class/how2write_1.htm
...続きを読む

QVBAで範囲選択して合計して罫線を引く方法

過去の投稿を見て、似たような物を見つけても
どうしても応用ができません。
重複してしまっているかもしれませんが
宜しくお願い致します。

集計表の一番下にその月が20〆だったら
20 と入力します(例:A37に20と)
すると、21日であるB24から月末のB34の合計が
B37に計算され(来月送りの合計)
20日であるB23のセルの下線又は
21日であるB24のセルの上線が1ptの赤線になる
という自動処理ができるようにしたいのです。
曜日によって18日〆になったり
25日〆になったり いろいろなので
自動でできると楽になると思いました。
(月末は毎月31日のB34で構いません)

どうぞよろしくお願い致します。

Aベストアンサー

#1です。
>シート単位の処理で構わないのですが
下記で現在選択されているシートに限った処理となります。
先ほどの記述内に「.Range("A1").Value = .Range("A1").Value + 1」と
あったのですが、不要でした。すみません。ただエラーとは無関係だと思い
ます。こちらではエラーの再現ができません。型云々なので変数だと思うの
ですが・・・。申し訳ないです。

Sub test()
Dim i As Integer
Application.ScreenUpdating = False
With ActiveSheet
i = .Range("A37").Value
If i >= 1 And i <= 31 Then
.Range("A4:B35").Borders(xlInsideHorizontal).LineStyle = xlNone
.Range(Cells(i + 3, 1), Cells(i + 3, 2)).Select
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 3
End With
If i = 31 Then
.Range("B37").Value = 0
Else
.Range("B37").Value = "=SUM(B" & i + 4 & ":B34) "
End If
End If
End With
Application.ScreenUpdating = True
End Sub

#1です。
>シート単位の処理で構わないのですが
下記で現在選択されているシートに限った処理となります。
先ほどの記述内に「.Range("A1").Value = .Range("A1").Value + 1」と
あったのですが、不要でした。すみません。ただエラーとは無関係だと思い
ます。こちらではエラーの再現ができません。型云々なので変数だと思うの
ですが・・・。申し訳ないです。

Sub test()
Dim i As Integer
Application.ScreenUpdating = False
With ActiveSheet
i = .Range("A37").Value
If i >= 1 And i <= 31 ...続きを読む


このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング

おすすめ情報