8行の表があります。
最初の3行は5列になります。あとの5行は7列になります。

あとの5行の方に項目を増やす部分ができて2列ほど増やさなくてはなりません。
3列目と4列目の間と、6列目と7列目の間です。

最初の3行のレイアウトを変えずに、後の5行に列を追加する簡単な方法があれば
教えてください。何せこれが30ほどあるので、難しい方法だとかなり時間がかかりそうなので・・・。よろしくお願いします。

A 回答 (2件)

> あとの5行の方に項目を増やす部分ができて2列ほど増やさなくてはなりません。


> 3列目と4列目の間と、6列目と7列目の間です。

「3列目と4列目の間」の方について。

4行目~8行目の3列目、5つのセルを選択します。メニューの「罫線」→「セルの分割」で
「分割する前にセルを結合する」のチェックを外して、列数を2にして「OK」。

同様に6列目のセルを2列に分割します。

これで、数だけはご希望通りになりました。でも、列の幅が偏っているのが気に入らないでしょうか?
では、4行目~8行目のセルを全部同じ幅にしてみましょう。

4行目~8行目の全てのセルを選択して、メニューの「罫線」→「列の幅をそろえる」です。


いかが?
    • good
    • 0
この回答へのお礼

参考になりました。ありがとうございました。列の幅はそれぞれ変えてあるので、揃えたらいけないんですよ~。

お礼日時:2002/02/14 23:01

横幅を考えずに単にセルを増やすだけならば


ワードの上部のメニューから「罫線」-「罫線を引く」を選択。
(罫線ツールバーが表示されていたら鉛筆マークの罫線を引くを選択)
するとカーソルが「鉛筆マーク」になります。

この状態で、上から4行目、左から3列目のセルの真中上当たりから
8行目、左から3列目のセル真中下当たりまで線を引くと1列増えます。
同じように上から4行目、左から6列目のセルから
8行目、左から6列目のセルまで線を引くと1列増えます。

増やした列の幅が気に入らないのでしたら
縦8行×横9列の表を新規作成して、「罫線」「セルを結合」で
気に入るレイアウトにする方が早いと思います。
    • good
    • 0
この回答へのお礼

回答ありがとうございます。この方法はすでに試してみていたのですが、うまくいかなかったんですよ。新規で作成といっても40ページありますから、ちょっと・・・。

お礼日時:2002/02/14 22:59

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

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

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

Q2行目と3行目を1行目に右側につけて、空白を削除してつめるコードが知りたいです。

1
2
3

4
5
6

7
8
9
.
.
.

A1「1」、A2「2」、A3「3」A4空白、A5「4」、、、と言う風なデータがあるの
ですが、
これを

123
456
789
...

と言う風に2行目と3行目を1行目に右側につけて、空白を削除してつめるコー
ドが知りたいです。

実際のデータは数値ではなく文字列です。
よろしくお願いします。

Aベストアンサー

#02です
>2をB列、3をc列と言う風にしたいです

関数なら、以下を同じシートの適当なセルに貼り付けて右方向、下方向にコピー
=OFFSET($A$1,INT((ROW(A1)-1)*4)+COLUMN(A1)-1,0)

マクロなら以下でできるでしょう
Sub Macro1()
Const trg As String = "A" '文字列が入力された列を指定する
Dim idx, cnt As Long
Dim act As Worksheet
Set act = ActiveSheet
Worksheets.Add after:=act
For idx = 1 To act.Cells(65536, trg).End(xlUp).Row Step 4
  cnt = cnt + 1
  Cells(cnt, trg).Value = act.Cells(idx, trg).Value
  Cells(cnt, trg).Offset(0, 1).Value = act.Cells(idx, trg).Offset(1).Value
  Cells(cnt, trg).Offset(0, 2).Value = act.Cells(idx, trg).Offset(2).Value
Next idx
End Sub

#02です
>2をB列、3をc列と言う風にしたいです

関数なら、以下を同じシートの適当なセルに貼り付けて右方向、下方向にコピー
=OFFSET($A$1,INT((ROW(A1)-1)*4)+COLUMN(A1)-1,0)

マクロなら以下でできるでしょう
Sub Macro1()
Const trg As String = "A" '文字列が入力された列を指定する
Dim idx, cnt As Long
Dim act As Worksheet
Set act = ActiveSheet
Worksheets.Add after:=act
For idx = 1 To act.Cells(65536, trg).End(xlUp).Row Step 4
  cnt = cnt + 1
  Cells(cnt, trg).Va...続きを読む

Qwordで1行目と2行目の間を狭くする方法教えてください。

wordで1行目と2行目の間を狭くする方法教えてください。

6CM×7CMの大きさに文字をすべて書きたいのですが、1行目を改行して2行目を入力すると結構間があくので もっと行の間を狭くする方法を教えてください。

Aベストアンサー

ご参考のURLです。

http://kokoro.kir.jp/word/gyoukan2.html

http://www.relief.jp/itnote/archives/000104.php

参考URL:http://kokoro.kir.jp/word/gyoukan2.html,http://www.relief.jp/itnote/archives/000104.php

QACCESSで行数指定(5万行目~8万行目のような)

教えてください。
抽出した件数が100万件ほどあるのですが、
まだ加工をしないといけないため、csvではなく
エクセルに分割して落とす必要があります。
そのために、5万件づつくらい出したいのですが、
TOP50000では、頭からの5万件となってしまい、
6万件~10万件目などの指定が出来ません。

どのようにしたらいいのでしょうか?

Aベストアンサー

スマートな方法ではありませんが、急いでおられるならば
クエリをテーブル作成クエリで仮のテーブルを作成。
このテーブルを編集、列を増やしてデータ形式をオートナンバーにして
保存。
このテーブルでオートナンバーの所を抽出条件にして
BETWEEN 1 AND 50000とか BETWEEN 50001 AND 100000等として
とりあえず作業を進められては。。。

QWord2003で1行目と2行目が微妙にずれます。

Word2003で1行目と2行目が微妙にずれます。

どうしたらなおるのでしょうか?

調べましたがよく分かりませんでした。

どなたか知ってらっしゃいましたら教えてください。

宜しくお願いいたします。

Aベストアンサー

>Word2003で1行目と2行目が微妙にずれます。
どのようなずれのことを言われているのか想像できませんが・・・
文字列のずれのことでしたら、下記の設定を行ってみてください。
既に入力済みの場合は、Ctrl+Aですべて選択した状態で行います。

1) ファイル→ページ設定→[文字数と行数]タブの、文字数と行数の指定を「原稿用紙の設定にする」で作成する。

2) 上記の原稿用紙の設定にする以外を使用の場合は、
・書式→フォント→[文字幅と間隔]タブの、「カーニングを行う」をオフにするか、値を大きくする。
・書式→段落→[体裁]タブの、文字幅と間隔の日本語と英字、日本語と数字の間隔を自動調整するのチェックを外す。
・更に上記で[オプション]を指定し、文字間隔の調整の間隔を詰めないにする。

文字列の書き始めの位置を合わせたい場合は、タブとインデントを使うと楽に合わせることができます。

Word(ワード)基本講座:タブ揃えとリーダー
http://www.eurus.dti.ne.jp/~yoneyama/Word/w-tab.htm
Word(ワード)基本講座:インデント(字下げ)の使い方
http://www.eurus.dti.ne.jp/~yoneyama/Word/w-indent.htm
縦方向に文字が揃わない場合は
http://www.konomiti.com/Wo_08.html#1231
 

>Word2003で1行目と2行目が微妙にずれます。
どのようなずれのことを言われているのか想像できませんが・・・
文字列のずれのことでしたら、下記の設定を行ってみてください。
既に入力済みの場合は、Ctrl+Aですべて選択した状態で行います。

1) ファイル→ページ設定→[文字数と行数]タブの、文字数と行数の指定を「原稿用紙の設定にする」で作成する。

2) 上記の原稿用紙の設定にする以外を使用の場合は、
・書式→フォント→[文字幅と間隔]タブの、「カーニングを行う」をオフにするか、値を大きくする...続きを読む

Q2ページ目以降の行タイトルを3行目にしたいのですが

1ページ目は普通に印刷して、2ページ目以降の行タイトルを3行目にもって行きたいのですが、どの様にしたらいいか教えて下さい。
宜しくお願いします。

With Worksheets("Sheet1")
.PageSetup.PrintTileRows = "$A3:$P3"
.PageSetup.Orientation = xlLandscape
.PageSetup.PrintArea = Range("A1",Range("P65536").End(xlUp)).Address
.PrintPreview
End With

Aベストアンサー

(1)エクセルの仕組みとしてそのようなものはない。
(2)印刷が始まって、各ページの印刷に入る前に介入させてくれるイベントなどは無いので出来ない
と思う。
ーー
基本的には無理ということ。
唯一思い付いたのが、、プログラムの手が込むが、1ページ目の終わる行をHPageBreaksででも割り出して,タイトル+1ページデータを別セル範囲にでも作成して、そのセル範囲を1ページに収まるように(普通に印刷すると2ページになってしまうから)印刷することを、最終ページまで繰返すコードを作成するほか無いでしょう。
参考
ファイルー印刷プレビューして、プレビュー画面を閉じて下記を実行してみてください(ただし質問の直接の回答ではない)
Sub test01()
i = 3
MsgBox "第" & i & "ページ目は"
MsgBox ActiveSheet.HPageBreaks(i - 1).Location.Row & "行-" _
& ActiveSheet.HPageBreaks(i).Location.Row - 1 & "行まで"
End Sub


人気Q&Aランキング

おすすめ情報