マスの中に文字を入れる

質問

25×20のマス目を作成し、そのマスの中に、一文字ずつ、入力する事は、出来ますでしょうか？
原稿用紙は、知っていますが、マス目が20×20と、20×10しか無いので、使えません。
Word・Excelもともにバージョンは2003です。（バージョンが2002もあります）
よろしくお願いします。

回答No.4

pkh4989 · ベストアンサー

EXCELで作ってみました。お試して下さい。

既に入力されたセルをマウスで逆戻りますと上手く制御が出来なくなる不便があります(次の空白セルが表すまで)

(1) Alt+F11 (ツール → マクロ → Visual Basic Editor)
(2)「Microsoft Excel Objects」のなかで入力シートを選んでマウス右Click→「コードの表示」を選択
→表示されるシートに、以下のモジュールを貼り付ける。

< マス作成及び入力・印刷方法 >
(1) 入力開始セル(A1)
(2) カラム数(25) → マクロの「カラム数:MaxCOL」 もし20する場合は20に変更する
(3) 行数(1頁:20) → マクロの「行数:MaxROW」 100頁の場合は「20*100=2000」 2000に変更する
(4) 一番最初は「Enter」を1回押してから入力してください。
(5) 印刷時は、1頁20行ずつ印刷する。
(6) シートをコピーする時は、マクロもコピーして下さい。(Ctrl+入力シートをマウス選択→右側にドラッグ)

Dim wSht As Worksheet
Dim ForCursor As Range
Dim wRow As Integer
Dim wCol As Integer
Dim wEventFlg As Boolean
Const MaxCOL As Integer = 25 'カラム数
Const MaxROW As Integer = 20 '行数 ←(100頁の場合:20*100=2000)

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim wStr As String
Dim wChr As String
'
If wEventFlg Then
Exit Sub
End If
wEventFlg = True
'
On Error Resume Next
If wRow = 0 Then
wRow = 1
End If
Set wSht = ActiveSheet
'
wStr = ForCursor.Value
For wIx = 1 To Len(wStr)
wChr = Mid(wStr, wIx, 1)
wCol = wCol + 1
If wCol > MaxCOL Then
wRow = wRow + 1
If wRow > MaxROW Then
wRow = 1
End If
wCol = 1
End If
wSht.Cells(wRow, wCol) = wChr
If wCol + 1 > MaxCOL Then
If wRow + 1 > MaxROW Then
Set Target = wSht.Cells(1, 1)
Else
Set Target = wSht.Cells(wRow + 1, 1)
End If
Else
Set Target = wSht.Cells(wRow, wCol + 1)
End If
Target.Select
Next
'
Set ForCursor = Target
wRow = Target.Row
wCol = Target.Column
If wCol > 1 Then
wCol = wCol - 1
Else
wCol = MaxCOL
If wRow > 1 Then
wRow = wRow - 1
Else
wRow = MaxROW
End If
End If
wEventFlg = False
End Sub

お礼

ありがとうございました。
出来ました。
欲を言えば、後から文章を手直す事（文字の挿入等）が出来ないのは、仕様なのでしょうか？

回答No.8

pkh4989

No4 です。
Editorではないので、難しいです。
行を挿入して対応するしかないと思いますが・・・

回答No.7

debut

Ｎｏ６です。
図をグループ解除しないで、図を選択した後
Ctrl+マウスドラッグでコピーを１つ作り、
５文字分上か下にずらしてもとのマスと重ね
ても大丈夫でした。
重ねた２つの図を両方選択して、グループ化
し、白丸ドラッグで外枠にぴったりあわせれば
あっというまにできました。

回答No.6

debut

原稿用紙ウィザードで20×20の原稿用紙を
作り、それを改造するのはどうですか？
ちょっとの手間をかけてもいいというなら、
参考までに。

背景のマス目はヘッダーに入っているので、
ヘッダーを表示してからマスをグループ解除
（２回）して、どこか１行だけを25マスにします。
（マスを５つコピーして下にくっつけるのです
が、せまいので１回目の解除のときに上の方に
行を少しずらすかドラッグで縮小しておくと
いいです。また、最初の行と最後の行だけは
位置あわせのために残しておいて、残りは
削除しておくといいでしょう）
で、この25マスをグループ化して、外枠に
ぴったり収まるように、図を選択したときに
出る白丸(一番上または一番下の真ん中）
をドラッグしてマスを縮小します。
あとはその25文字のマスをCtrlを押したまま
ドラッグか、Ctrl+Dキーでコピーし並べます。
(Ctrl+Dの方はCtrlを押したままなら、Dを
押した回数ぶんのコピーができます）
最初の行と最後の行だけはもとの原稿のマス
の位置にぴったり合わせれば、残りは適当
に並べて、図の位置調整できれいに並べられ
ます。
（図の位置調整は、図をすべて選択し、
図ツールバーの図形の調整、配置／整列から
です。上下中央ぞろえをした後、続けて
左右に並べるとするといいです）
そして、図がすべて選択された状態で
右クリックからグループ化した後、外枠に
収まるように調整し、ヘッダーを非表示に
します。
最後に、ページ設定で文字数を25文字にすれば
マス目にぴったり収まるように書けるかと
思います。

回答No.5

ktiko

ANo3です。　Word 2003です。
ページ設定画面で、余白を設定して（上下左右の余白を15mmにしてみました）
【罫線】→【挿入】→【表】　表のサイズを【20列】【25行】に設定します。

挿入された表全体を選択して、右クリック→【表のプロパティ】
【行】タブで【行の高さを指定する】にチェックを入れ、【10mm】に設定します。

表全体が選択されている状態で、右クリック→【セルの配置】
このセルの配置で、中央を選択すると、段落記号がマス目の中央にきます。

このようなマスではいかがでしょうか？

お礼

ありがとうございます。
言われる方法ですと、ひとマスづつに入力する方法ですよね？
要は、文章を連続して打ち込んで、その文字が、ひとマスづつに収まる方法を模索しております。

回答No.3

ktiko

上下左右の余白を、15mmにして、25行、20列の表を挿入して、
表のプロパティで、行の高さを10mに設定し、
次に、セルの配置で文字の位置（段落記号）を中央にするやりかたで、
マスにフォントサイズ12までの文字入力出来ますがいかがでしょうか？

補足

ありがとうございます。
wordでしょうか？
ちょっと回答内容が分かりませんでした。

回答No.2

ktiko

用紙は、A4でしょうか？
余白のサイズは、どれくらいでしょうか？

回答No.1

tjqjx

今、Ｗｏｒｄが手元にないので自信がないのですが、原稿用紙を
の後、ページ設定の文字数変更でできませんか。