こんにちは。
ポーターズのOfficeマスター見習い、近藤です。

EXCEL…　今や、こいつ無しでのオフィスワークなんて考えられない時代です。
しかし、これだけ広く使われているソフトでも、どうしても改善されないままの仕様
がいくつかあります。

特に、僕が何とかしてほしいなと思うのは１点。
「画面で正しく表示されても、印刷すると文字があふれてしまう」

たぶん、これって誰もが思っていることですよね。
頑張って資料作って印刷して手渡して文字が読めず、上司に
「ばかやろーEXCELは必ず印刷前にプレビューで確認するんじゃい！」

…とどやされるのは、どこの会社でもある光景のはず。

これを回避するためによくやるのが、セルの中に改行を1つ付け足しておくこと。
これをやってから行の高さを自動調整すれば、大体OKになります。
しかし、何百個のセルに1つ1つ改行を入れていくのって大変ですよね。
そこで、選択したセルにすべて改行を末尾に足してくれるマクロを作りました。

Sub INSERT_NEWLINE()
'
' INSERT_NEWLINE Macro
'
' 選択セルに改行を挿入する
For Each mycell In Selection
mycell.Value = mycell.Text + Chr(10)
Next

End Sub

どうです？超簡単なマクロですよね？
これをマクロで登録して、改行を挿入したいセルをすべて選択した状態で
マクロを実行すればOKです。
ばっちり、改行を1個ずつ足してくれます。

日頃ゲームセンター嵐のごとくキーボードを連打してEXCELで繰り返し行っている
手作業も、マクロで一瞬で解決することはよくあります。

そして、何の関係もありませんが、今回の花の写真です。
GWに撮った、亀戸天神の藤祭りです。
藤棚から降りている藤の花が、まるで紫のシャワーですよね！

ポーターズ/近藤

# by porters | Permalink
2006年05月30日 10:11 | ポーターズ日記 | TRACKBACK (0)

TRACKBACK URL : http://www.porters.jp/cgi-bin/mt/mt-tb.cgi/121