【エクセル2013】セルの書式だけ変更したい！

伊豆栄本店。
今回の個別コンサルは上野でしたので、久しぶりにこちらでお昼をいただきました。

老舗だけあって、平日昼間にもかかわらず、けっこうお客さんは入ってましたねー。

梅雨の合間の天気がいい日は貴重ですからね。
…で、そう思ってついでに上野公園を散歩していたらみるみる曇ってきてゲリラ豪雨！

またコンビニで傘を買わされるハメになってしまいました。
今月3本目なんですけど…
皆さんも気を付けましょう。。。
f^_^;

ﾟ･*:.｡..｡.:*･ﾟﾟ･*:.｡..｡.:*･ﾟ ﾟ･*:.｡..｡.:*･ﾟ

さて、本日はセルの書式のみ置き換える方法です。

「赤字で強調したけれど、やっぱり黒のボールドにすれば良かった…」
というようなときは、
置換のオプションボタンを利用します。

[ホーム]タブ→[検索と選択]ボタン→[置換(R)]
から、[オプション(T)]ボタンをクリックすると、[書式(M)]ボタンが現れます。

「検索する文字列(N)」の段の[書式(M)]ボタンのドロップダウンリストから[セルから書式を選択(C)]をクリックし、カーソルがスポイトマークになったら、赤字で強調したセルのどれか一つをそのまま選択します。
（ドロップダウンリストを使わなくても「書式の検索」ダイアログが開くのでそこで設定してもできます。）

次に、「置換後の文字列(E)」の段の[書式(M)]ボタンをクリックし、[フォント]タブから「太字」の「黒色」を選択して[OK]。

この状態で[すべて置換(A)]ボタンをクリックすると、書式のみの置換ができます。
o(^▽^)o

【エクセル2013】離れたセルに一括入力

Real MEN Dining 杉島改。
よく行く大番と清水屋が両方しまってたので、そういえばあのへんになんかラーメン屋っぽいのがあったな…と思い出して行ってみたらギリであいてました。。

そしたら予想外にかなりうまかったっ！！
(　 ﾟ ▽ ﾟ ;)

今回は終電直前で、食べたかったメニューが終わってたりしたので、今度はちょっと余裕を持って行ってみたいと思います。
(^-^)/

ﾟ･*:.｡..｡.:*･ﾟﾟ･*:.｡..｡.:*･ﾟ ﾟ･*:.｡..｡.:*･ﾟﾟ･*:.｡..｡.:*･ﾟ ﾟ･*:.｡..｡.:*･ﾟ

さて、データ入力の際、同じデータを何度も繰返し入力しないといけないときってありますよね…？
あれ、面倒ですよね。。＾＾；

まぁコピペすればいいのですが、次の方法で一気に入力できるのでお試しください。

[CTRL]キーを押しながら、入力が必要なセルを事前に複数選択。

データを入力後、[CTRL]キーを押しながら [ENTER]キーで確定。

意外と使えますよ。
(*^-^)b

【エクセル2013】マクロで顔文字を走らせてみよう（4）

また雨か…
この季節、軽井沢にちょくちょく行くのですが、どうしても雨になってしまうんですよね…
雨オトコなのかな。。。
(^_^;)

東京も来週あたりから梅雨入りという話なので、傘が手放せなくなりますね。

外出不要なときは家の中で雨音を聞けるのでいいんですけどね。

海の波の音とか雨の音とかは気持ちが落ち着くので好きなんですよね。

…やっぱり雨オトコなのかな。。。
(｀∀´)

ﾟ･*:.｡..｡.:*･ﾟﾟ･*:.｡..｡.:*･ﾟ ﾟ･*:.｡..｡.:*･ﾟ

さて、前回完成させた、顔文字を走らせるマクロですが、
最初にあなたに、何行目に走らせたいかを確認して、入力された行に顔文字を走らせるようにしてみます。

そのようなマクロを作成したい場合は、InputBox文を使って、gyouという変数に、あなたが入力した数値を入れるようにします。

gyou = InputBox("何行目に走らせる？", "行数指定")


これで、「行数指定」というタイトルのダイアログボックスで、「何行目に走らせる？」という質問を表示させ、あなたからの回答を gyou という変数に入れます。

セルを指定しているところは、

Cells( 5, i).Select

というプログラムでしたね。

この一行によって、顔文字は、最初に5行目の1列目に表示され、その後、2列目，3列目，…というように表示位置を変えて走っているように見せていました。

ここで出てくる「5」のところに、あなたが gyou という変数で指定した行数を入れてやれば、gyou行目の1列目，2列目，3列目，…
というように表示位置が変わっていくはずです。

では、冒頭部分に InputBox 文を追加し、「5」のところを gyou に置き換えて全コードを確認してみましょう。

=============================================
Sub Macro1()
'
' Macro1 Macro
'
' Keyboard Shortcut: Ctrl+k
'

gyou = InputBox("何行目に走らせる？", "行数指定")

Range("A1:B1").Select
Selection.Copy

For i = 1 To 50

Cells( gyou , i).Select
ActiveSheet.Paste

Next i

End Sub
=============================================

[CTRL]＋[k] で実行して、次のように、「何行目に走らせる？」と聞いてくればOKです。

10でも15でも、好きな数値を入力して[OK]ボタンをクリックしてみてください。
その行で顔文字くんが走り出すはずです。
('-^*)/