- ベストアンサー
エクセルで文章作成
TTakの回答
- TTak
- ベストアンサー率52% (206/389)
VBAならこんな感じでしょうか。 動作確認 WIN98SE+EXCEL200 やってみるとおもしろいですね。 Private Sub Worksheet_Change(ByVal Target As Range) Dim myLen As Integer, myRow As Integer Dim mySt As String On Error GoTo Errhand If Len(Range(Target.Address)) < 2 Then Exit Sub '1文字なら実行しない myLen = Len(Range(Target.Address)) '入力（変換後）文字数 mySt = Range(Target.Address).Value '入力済み（変換後）値 myRow = Range(Target.Address).Row '現在の行数 rtnCul = 100 '横マス上限 Application.EnableEvents = False For i = 1 To myLen Range(Target.Address).Offset(, i - 1).Value = _ Mid(mySt, i, 1) Next i Cells(myRow, rtnCul).End(xlToLeft).Offset(, 1).Select Errhand: Application.EnableEvents = True End Sub しかし、本来ならばWORDを使用された方がいいでしょう。
関連するQ&A
- エクセルの文章入力についてです。
エクセルの文章入力についてです。 「折り返して全体を表示する」のように一定の文字列の幅でセルごとに分ける事はできないでしょうか？ 一つのセルにある文章を入力するのは容易です。 しかし、与えられた横書きの書式は一定の文字数を入力すると、わざわざ下のセルに移動して途切れの悪い文字からの入力を強いられることになります。 要は、一旦１つのセルに入力した文章を、「折り返して全体を表示する」のように行が変わる毎に一つ下のセルに移動して一定数の列幅まで文字を入力したら一つしたのセルに移動して…を繰り返す表示は可能でしょうか。 「長さ」がキーワードかと思い、vbaのlenやlenbで試してみましたが一定の列幅に対して文字列の長さが一定せず「折り返して全体を表示する」のようには綺麗に表示されません。 ちなみにLenB(StrConv(Cells("Ａ1"), vbFromUnicode))も試して見ましたがイマイチです。 もしかしたら、vbaなど使わなくても簡単にできるものなのでしょうか？ 「折り返して全体を表示する」のように一定の文字列の幅でセルごとに分ける事はできないでしょうか？
- ベストアンサー
- その他MS Office製品
- エクセルＶＢＡで実行する対象を選択文字列にするには？
エクセルＶＢＡで文字列を半角や全角にするマクロをつくっています。 私は、”あるセルに対して”はできるんですが、 その対象文字列を、”カーソルで選択して反転したところに対して”実行できるようにしたのです。できるんでしょうか。 よろしくおねがいします。
- 締切済み
- オフィス系ソフト
- ＥＸＣＥＬで、自動実行
お世話になります。 仕事でＥＸＣＥＬを使用しているのですが、毎回同じ作業をすることがあります １．セルＥを切り取って、セルＢの前に「切り取ったセルを挿入」 ２．セルＨを切り取って、セルＣの前に挿入 ３．セルＩを切り取って、セルＥの前に挿入・・・ ４．セル１の文字を、中央揃えで、折り返し表示する ５．セル２～？（その時々で違います）の行の高さを１５にする ６．セルＡの列幅を６にする ７．セルＢの列幅を１５にする ８．セルＣの列幅を２５にする・・・ こんな感じです。毎回同じ作業なので、わざわざ手作業するというのが馬鹿々々しいです。 こういうことを、自動で出来るようにする方法があったような気がするのですが。それがマクロやＶＢＡというものなのでしょうか。 （ちなみに、マクロとＶＢＡの違いってなんでしょう？）
- 締切済み
- オフィス系ソフト
- Excelで列幅を自動的に調整
Excelで文字を入力していて、自動的に列幅を変更したいのですが、 その際、列と列の間にカーソルを持っていってダブルクリックすれば 変わることは変わりますが、それはあくまでも「手動」と思っています。 そうではなく、文字数に応じて勝手に列幅が広がるという やり方はないのでしょうか？ よろしくお願い致します。
- ベストアンサー
- オフィス系ソフト
- 印刷するとエクセルの「列」からはみだしてしまう
基本的なことかもしれません。すいません。 WIN98,EXCEL2000を利用しています。 10列×1000行程度のデータをエクセルからＡ４の紙に印刷する必要があります。データはほとんど、文字（日本語）です。 各セルには各々30字～50字程度の文字（全角）が入っています。 [セルの書式設定] で [文字の制御]-[折り返して全体を表示] に設定を行い、 かつ [書式]-[行]-[自動調整] で行間を整えると、ワークシート上はすべての文字を表示しています。 しかし印刷プレビューで確認すると、列幅の中にすべての文字がセル内に入らず、途中で切れてしまいます。折り返された、最後の文字は、印刷に表示されません。 どうすればよいでしょう？ すごく困っているのです。 だれか助けてください。
- 締切済み
- オフィス系ソフト
- エクセルの文章作成について教えてください。
エクセルの文章作成について教えてください。 よろしくお願い致します。初心者です。 ワードは苦手ですのでエクセルで作成したいです。 現在、内容証明書を作成しよう思っております。 ↓↓内容証明書作成のルールを読むと↓↓ 謄本の字数・行数は1行20字（記号は、1個を1字とします。以下同じとします。）以内、1枚26行以内で作成していただきます。ただし、謄本を横書きで作成するときは、1行13字以内、1枚40行以内または1行26字以内、1枚20行以内で作成することができます。 とあります。 【質問】 例えば、一行に２０文字以上打ち込むと自動的に改行してくれるようなことはできますか？ 初心者で説明がヘタですみません。わかる方がいらっしゃいましたら、宜しくお願い致します。
- 締切済み
- その他MS Office製品
- ＶＢＡにてエクセルのセルを結合するには？
ＶＢＡにて、エクセルのセルを結合したいのですが？ やっていることは、Ａｃｃｅｓｓ97よりＶＢＡで、 Ｅｘｃｅｌ97へファイルを落とし込んでいるのですが 罫線を引いたり、列幅等をかえることはできたのですが セルを結合する方法がわかりません。 よろしくおねがいします。
- ベストアンサー
- その他（インターネット・Webサービス）
- EXCELでセルの高さを変えずに縦書きしたい。
エクセルで文章を書く場合、横書きでは隣のセルに次々と、文字が移っていって、しかも隣のセルの幅は、変わりませんが、縦書きにすると、最初のセルだけが高さが高くなって伸びていきます。 これでは他の所とのバランスが崩れるので、下のセルの高さを変えずに、セルの上に次々と文字を書いていくにはどうしたらいいでしょうか？ きわめて幼稚な質問で申し訳ありませんが、よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- エクセルでの列幅の自動設定
何百行のデータがあるエクセルの表があります。ある列には文字列が入っているのですが、この文字列長が短いのから長いのまでいろいろあります。列幅を適当に決めて印刷してみると、文字が長くてその列幅からはみ出てしまし、再度列幅を設定して印刷してみるなんてことをやってます。これを全ての文字列がちゃんと入るような列幅を自動的に設定することはできないでしょうか？文字列は１行で表示したいので、書式→セルの「折り返して全体を表示する」は使いたくありません。よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- word文章をexcelで…
wordの文章をexcelで編集することは不可能でしょうか？ word文章を切り取り、excelのセルに貼り付けるというのではなく、word文章で改行されている箇所が自動でexcelでも1つ下のセルに入力されるような方法はないでしょうか？詳しい方がいらしたら教えてください。
- ベストアンサー
- オフィス系ソフト