[[20051228091033]]　『セルの中の行頭禁則を解除したい』（ナップ）　ページの最後に飛ぶ

『セルの中の行頭禁則を解除したい』（ナップ）

　「調査書」の枠をエクセルで作りました。セルの一つの枠は大きくなるのですが、その中に文章（２００文字くらい）を入れてます。その際に行頭に「っ」がついてもいいので行末が一文字開かないようにしたいのです。いろいろ調べましたが、エクセルの行頭禁則を見つけられませんでした。どこかにありますか。ワードや一太郎ではだめなんです。（成績の入力をリンクしているので）よろしくお願いします。

 こちら↓が参考になるかもしれません。
[[20031024170333]]『エクセルで文章入力』

 >その際に行頭に「っ」がついてもいいので行末が一文字開かないようにしたいのです。
 もしかして、フォントの関係かしら？
 等幅フォントを使ってみたらどうでしょう。フォント名に「P」が付いてないものです。

 >エクセルの行頭禁則を見つけられませんでした
 エクセルに行頭禁則の設定は無いと思います。

 有料のようですが、記号の禁則ならアドインがあるようです。
 行頭の句読点はＮＧ、禁則処理を行いたい！
 http://www.freeformat.co.jp/FFFunc123.htm
 　　(Hatch)

 > >その際に行頭に「っ」がついてもいいので行末が一文字開かないようにしたいのです。
 > もしかして、フォントの関係かしら？
 > 等幅フォントを使ってみたらどうでしょう。フォント名に「P」が付いてないものです。
 >>エクセルの行頭禁則を見つけられませんでした
 >エクセルに行頭禁則の設定は無いと思います。
 さっそく、ヒントをいただきありがとうございます。アドインを調べてみます。
　エクセルには行頭禁則の設定が元々してあるのだと思います。
そのレベルを変更するVBAを見たことがあるような気がするのですが・・・。
　行頭に「っ」がくると行末を一文字減らして勝手に改行してしまいます。
行頭禁則をさせないようにしたいのですが何かありませんでしょうか。
今は、ALT＋改行でなんとかしのいでいます。

 相談文、Hatchさんの回答部分復活＆編集。
「初めての方へ」を読んでから掲示板に参加しましょう。
先の書き込みを消さずに、最後に追加する形で書き込みます。(みやほりん)(-_∂)b

 失礼しました。（ナップ）

 Alt+Enter（ラインフィード文字）で禁則をキャンセルできるようなので、
マクロで一定文字間隔でラインフィードを強制挿入するとか。
Alt+F11でVBEが起動します。
VBEのメニューから挿入＞標準モジュール　とします。
(General)などと表示されたすぐ下のウィンドウへ下記のコードを貼り付け。
　
 Sub kaigyou()
      Rem TEST_20051229
      Dim Rng As Range, C As Range, Spl As Long
      Dim MyStr As String, MyAry() As String
      Dim s As Long, i As Long
      Set Rng = Selection
      Spl = Application.InputBox(prompt:="文字数をバイト数で指定", Type:=1)
      For Each C In Rng
          MyStr = Replace(C.Value, Chr(10), "")
          s = Int(LenB(MyStr) / Spl) + 1
          ReDim MyAry(1 To s)
          For i = 1 To s
              MyAry(i) = MidB(MyStr, (i - 1) * Spl + 1, Spl)
          Next i
          MyStr = Join(MyAry(), Chr(10))
          If Right(MyStr, 1) = Chr(10) Then MyStr = Left(MyStr, Len(MyStr) - 1)
          C.Value = MyStr
      Next C
      Set Rng = Nothing
 End Sub
　
貼り付けたらAlt+Qでエクセルに戻り、
処理するセルを選択、Alt+F8で　kaigyou　を実行してみてください。
(みやほりん)(-_∂)b

おみごとです。
結構ワードでなくエクセルで文章を打つ人には便利ではないでしょうか。
助かりました。　（ナップ）

コメント返信：

[ 一覧(最新更新順) ]

[[20051228091033]] 『セルの中の行頭禁則を解除したい』（ナップ） ページの最後に飛ぶ

[[20051228091033]]　『セルの中の行頭禁則を解除したい』（ナップ）　ページの最後に飛ぶ