word,excelで、2cmのマス目(方眼用紙みたいなもの)をひきたいと思っています。センチメートル(ミリ)で、指定した罫線が、ひければいいと思うのですが、どうやってひけば簡単ですか?急ぎませんので、教えてください。

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

A 回答 (3件)

こんにちは



 以下のページが役に立つのでは?

mm 単位でセルサイズを設定するアドイン
http://member.nifty.ne.jp/housaka/sizemm.html

参考URL:http://www2.odn.ne.jp/excel/
    • good
    • 2
この回答へのお礼

エクセルのセルが、cmになるなんて…ありがとうございました.

お礼日時:2001/03/23 01:08

Excelでは、


オートシェイプで、四角形を描いて、右クリックの「オートシェイプの書式設定」の「サイズ」で、高さ、幅を指定します。
セルの枠線を四角形に合わせて調節し、セルの幅、高さを計ります。
「書式」-「行」でセルの高さを、「列」で、セルの幅を指定します。
2cmの方眼ですと、高さ=57、幅=88.8くらいになるようです。正確に2cmと言う訳にはいきませんが、誤差は0.1mmくらいだと思います。
    • good
    • 2
この回答へのお礼

ありがとうございます.参考になりました.

お礼日時:2001/03/23 01:10

Wordだと表を作って、セルのプロパティで幅と高さをミリメートル単位で指定できますが、Excelの行と列はポイント指定なので実際に

印刷してから実測し、逆算してポイント数を指定しないとダメじゃないですかね?
    • good
    • 0
この回答へのお礼

お礼が大変遅くなってしまいました.ありがとうございました.

お礼日時:2001/03/23 01:11

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

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

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

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

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

Qマクロで罫線をひく

いつもお世話になっております。

下記コードで罫線を引こうとすると、
四つのセルにそれぞれ四角の罫線が引かれて
しまいます。

ex.Range(ex.Cells(1,1),ex.Cells(4,1)).Select
exApp.Selection.Borders.LineStyle = 1

実現したいのは、一度に四つのセルを一つの四角で
囲みたいのですが、方法がわかりません。

お手数ですが、お分かりのかたがおられましたら、
よろしくお願いいたします。

Aベストアンサー

exAppというのが良くわからなかったので書き換えました。
こんな感じでは?

ex.Range(ex.Cells(1, 1), ex.Cells(4, 1)).Select
With Selection
With .Borders
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
.Borders(xlInsideVertical).LineStyle = xlNone
.Borders(xlInsideHorizontal).LineStyle = xlNone
End With

Qワークシートのセルの書式設定の罫線をマクロでひく。

ワークシートのセルの書式設定の罫線をマクロでひく。
下記マクロを実行すると  (1)のところでBORDERクラスのlinestyle プロパティを設定できません。がでる対策をおしえてください。

Sub Macro1()
' Dim d As Long
Sheets("abc").Select
'罫線を引く
d = Range("A65536").End(xlUp).Row
Range("A1", Cells(d, 1)).Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous  ‘(1)
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
End Sub

ワークシートのセルの書式設定の罫線をマクロでひく。
下記マクロを実行すると  (1)のところでBORDERクラスのlinestyle プロパティを設定できません。がでる対策をおしえてください。

Sub Macro1()
' Dim d As Long
Sheets("abc").Select
'罫線を引く
d = Range("A65536").End(xlUp).Row
Range("A1", Cells(d, 1)).Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(...続きを読む

Aベストアンサー

xlInsideVertical は、選択範囲内の「内部垂直線」の事だと思います。
このマクロの選択範囲はA列のみなので内部垂直の部分が無いことが原因かと思います。
ためしに
Range("A1", Cells(d, 1)).Select

Range("A1", Cells(d, 2)).Select
にしてやってみて下さい。

QEXCELで作ったカレンダー(縦6マス×横7マス:カレンダーシート)の表の中から、隣のシート(スケジ

EXCELで作ったカレンダー(縦6マス×横7マス:カレンダーシート)の表の中から、隣のシート(スケジュールシート)にある横並びのカレンダーへ該当する予定内容を転記したいです。

1日は固定の場所になく、表の中にランダムに置かれ(大体は1~2行目にはあるが、確実ではないです)そこからカレンダーのような書き方で表があるところまで入力されます。

なるべくシンプルな数式でと思っているのですが、なかなかうまくいきません。

翌月以降も日付を直して使いたいです。
わかりにくくて申し訳ありませんが、もしよい数式があればどうかご教授頂ければと思います。
よろしくお願いいたします。

Aベストアンサー

7列でもいいとのことですので、Aを日曜、Fを土曜とします。
(式を加工すればどの曜日から始まるのであっても修正はできます)
WEEKDAY(日付となるセルなり式)とすれば、その日付の曜日が日=1~土=7という数字になります。
前回のものと合わせて具体的な式を書いてみましょう。

※スケジュールシートのB1には1日と書かれていますが、ここにはその月の初めの日付(この場合2017年3月1日)を入力し、書式によって日付のみ表示するようにしてください。
もしくは、どこかに年と月を入力するセルを作り、そのセルによって日付を取得しましょう。
(A1に年、A2に月があるとすれば、B1=DATE(A1,A2,1)とします)
日付でないと曜日が分からないからです。
C1以降はC1=B1+1というように、左のセル+1日で表示できます。
2月などの月末で31日までない部分を空白として表示する場合は、
C1の式を=IF(B1="","",IF(DAY(B1+1)=1,"",B1+1))としましょう。
これであれば、左のセルの次の日の日付が1日であった場合に空白、違っていれば左のセルの次の日を表示させることができ、左のセルが空白であれば空白となります。
(2月28日の次の日が3月1日なら、1日なので空白となり、その右のセルは左側のセルが空白なのでやはり空白となります)
C1の式を必要なだけ(31日まで?)コピーしてください。

なお無いとは思いますが、カレンダーシートの日付の下にある予定の部分には、数字のみの入力はないものとします。(日付の検索に予定の欄がヒットしないように)


WEEKDAY(B1)でB1の曜日を数字に変えて、
ADDRESS(1,WEEKDAY(B1),4)でその曜日の1行目のセル番地(日曜ならA1、土曜ならG1)を取得。
A~G列つまりアルファベット1文字と分かっているので、
LEFT(ADDRESS(1,WEEKDAY(B1),4),1)でその列のアルファベットを取得。
INDIRECT("カレンダー!"&LEFT(ADDRESS(1,WEEKDAY(B1),4),1)&":"&LEFT(ADDRESS(1,WEEKDAY(B1),4),1))で、カレンダーシートのその曜日の列全体を指定できます。

カレンダーの方は1日と書かずに1と書いていますが、数字の1が入っているのか、2017年3月1日と入っているのか分からないです。
よってカレンダーのセルに年月日のデータで入っている場合、
MATCH(B1,INDIRECT("カレンダー!"&LEFT(ADDRESS(1,WEEKDAY(B1),4),1)&":"&LEFT(ADDRESS(1,WEEKDAY(B1),4),1)),FALSE)
日にちの数字だけの場合、
MATCH(DAY(B1),INDIRECT("カレンダー!"&LEFT(ADDRESS(1,WEEKDAY(B1),4),1)&":"&LEFT(ADDRESS(1,WEEKDAY(B1),4),1)),FALSE)
とします。これで、その列の中でB1に一致する日のセルが何番目にあるかを取得します。

これによって該当するセルの列と行が分かったので、その1つ下のセルのデータをINDIRECTによって取得します。


※※まとめです。※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※

カレンダーが年月日なら
=INDIRECT("カレンダー!"&LEFT(ADDRESS(1,WEEKDAY(B1),4),1)&MATCH(B1,INDIRECT("カレンダー!"&LEFT(ADDRESS(1,WEEKDAY(B1),4),1)&":"&LEFT(ADDRESS(1,WEEKDAY(B1),4),1)),FALSE)+1)

カレンダーが日にちの数字だけなら
=INDIRECT("カレンダー!"&LEFT(ADDRESS(1,WEEKDAY(B1),4),1)&MATCH(DAY(B1),INDIRECT("カレンダー!"&LEFT(ADDRESS(1,WEEKDAY(B1),4),1)&":"&LEFT(ADDRESS(1,WEEKDAY(B1),4),1)),FALSE)+1)

をスケジュールシートのB2に入れる。
必要なだけコピーする。B1が1日なら31日はAF1です。

スケジュールシートのB1は年月日データを入れる。
年月を別のセルで指定する場合は、
B1=DATE(A1,A2,1) (A1,A2はそれぞれ年、月、を入力するセルを指定)
とする。

C1=IF(B1="","",IF(DAY(B1+1)=1,"",B1+1))
として、必要なだけコピーする。

7列でもいいとのことですので、Aを日曜、Fを土曜とします。
(式を加工すればどの曜日から始まるのであっても修正はできます)
WEEKDAY(日付となるセルなり式)とすれば、その日付の曜日が日=1~土=7という数字になります。
前回のものと合わせて具体的な式を書いてみましょう。

※スケジュールシートのB1には1日と書かれていますが、ここにはその月の初めの日付(この場合2017年3月1日)を入力し、書式によって日付のみ表示するようにしてください。
もしくは、どこかに年と月を入力するセルを作り、そのセルに...続きを読む

Qエクセルで罫線をひきたい

エクセルで罫線をひきたいのですが、その際に
ペンをアイコンを使って引いている人を見たのですが
私のエクセルには出てきません。現在エクセル2000です。バージョンが古いのでしょうか?

Aベストアンサー

1さんも2さんも勘違いをされているようですが、エクセル2000で手動罫線は引けないはずですよ。

Q方眼用紙の作成

中学の頃やった一次関数のグラフを書くための方眼用紙をソフトを使って作ろうとしましたが、なかなかうまく作れません。
エクセル、一太郎、花子で作れる方法があったら、教えて下さい!
他のものでもいいです。
よろしくお願いします♪

Aベストアンサー

エクセルでも、行高と列幅を調節して(現実には狭めたセルにして)、試し印刷して、等しくなるようにして、罫線をセルの上下左右にひき(書式-罫線の□と+で田の字を指定)、罫線の太さを細く、色を淡色系統にして印刷すれば良いのでは。


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

人気Q&Aランキング

おすすめ情報