教えて!gooを参照した上で質問させて下さい。

『様』を文字の後に付けたいのですが、フォントサイズを一回り小さく付けたいのです。どうすればよいでしょうか?

このQ&Aに関連する最新のQ&A

A 回答 (6件)

マクロで、実行できたのでしたら、前回のマクロと入れえ換えてみてください。


(別に、前回のものを残しておいても、問題はありませんが。)

使用法:最初に、マウスで変換する部分を大雑把に選んでおいてから、ツール-マクロ-マクロ-[シート名]SamaAddingをクリックしてみてください。
式以外のものは、全部、「様」をつけてしまうマクロです。
語尾に「様」がついていれば、「様」のフォントサイズだけを1ランク下げます。

Sub SamaAdding()
 Dim Rng As Range
 Dim c As Range
 Set Rng = Selection 'マスウで入力範囲を選択
 Application.ScreenUpdating = False
 For Each c In Rng
  With c
   If Not .HasFormula And _
    Right(c.Value, 1) <> "様" Then '数式でなくて、様がついていなければ
    .Value = .Value & "様" '様をつけて
   End If
   .Characters(Start:=Len(.Value), Length:=1).Font.Size = _
   .Font.Size - 1 'セルのフォントサイズより1つ下のサイズ
  End With
 Next c
 Application.ScreenUpdating = True
End Sub

なお、最初から範囲が決まっていたら、
Set Rng = Range("A1:A500") としたら、マスウ選択は必要ありません。

この回答への補足

ご回答ありがとうございます。だいぶ私の思っている仕様に近づいたのですが、マクロを扱ったことがありませんので、応用が全くできません。そのため、実際に私が行いたいことを述べます。「 "さま"を付けて、セルのフォントサイズより20下のサイズで表示」以上のことができますでしょうか?宜しくお願いします。

補足日時:2005/04/17 22:20
    • good
    • 0
この回答へのお礼

ご教授いだたいた方法を試してみましたが、これはマクロを実行することで初めて表示されるものなのでしょうか?入力した時点で自動で変換されると嬉しいのですが・・・お礼の投稿で申し訳ありませんが、他に方法がありましたら、ご教授下さいませ。

お礼日時:2005/04/18 00:08

#4 #5 に 


入力した時点で自動で変換される
実際に私が行いたいこと
「 "さま"を付けて」
「セルのフォントサイズより20下のサイズで表示」
(#4 ダブルクリック)マクロでは「他の入力」が出来ません。
を検討してみました。


(#4 ダブルクリック)マクロの代わりに
シートのモジュールに貼り付ける。

操作:入力を確定 ENTER するとそのセルに対して処理
   アルファベット、半角文字、数字を含む入力は 名前で無いので
  「他の入力」と判断して 処理しない
  「他の入力」は不明なので判断できない

 例 山田1 ENTER ⇒ 山田1(処理せず)
   山田a ENTER ⇒ 山田a(処理せず)
  山田様  ENTER ⇒ 山田様さま (さまは小さく)
  フォントサイズは 0以上なので 少し細工をしました。 


Private Sub Worksheet_Change(ByVal Target As Range)

Application.EnableEvents = False
With Target
セルの内容 = Replace(.Value, " ", "", 1, -1, vbTextCompare)
'すべて全角文字で 数字を含まない場合 名前 とみなす
If Not セルの内容 Like "*#*" And 0 < Len(セルの内容) And _
セルの内容 = StrConv(セルの内容, vbUpperCase Or vbNarrow) And _
セルの内容 = StrConv(セルの内容, vbLowerCase Or vbWide) Then



'実際に私が行いたいこと・・「 "さま"を付けて」
敬称 = "さま"

.Value = .Value & 敬称

If 30 < .Font.Size Then
'セルのフォントサイズより20下のサイズ
.Characters(Start:=Len(.Value) - Len(敬称) + 1, _
Length:=Len(敬称)).Font.Size = .Font.Size - 20
Else
'セルのフォントサイズの70%
.Characters(Start:=Len(.Value) - Len(敬称) + 1, _
Length:=Len(敬称)).Font.Size = Int(.Font.Size * 0.7) + 1
End If

End If
End With
Application.EnableEvents = True
End Sub

この回答への補足

ご回答ありがとうございます。かなり期待のできる内容のようですが、初心者であるため、どう設定したらよいのか分かりません。シートの標準モジュールに

ここから
Private Sub Worksheet
(中略)
End Sub
ここまで

貼り付けたらよいのでしょうか?
ぜひ補足をお願いします。

補足日時:2005/04/18 19:05
    • good
    • 0
この回答へのお礼

御礼が大変遅くなりましたが、期待していた通りの結果を出すことが出来ました。ずっと悩んでいただけに大変感謝の気持ちで一杯です。

お礼日時:2005/08/28 15:57

「様」まで入力した後に、F2 を押すか、数式バーのところで、「様」だけをドラッグして、右クリック-セルの書式設定で、1ランク、サイズを小さくすればよいのではありませんか?



マクロでしたら、以下のようにすれば、ダブルクリックすれば、自動的に、「様」がついてフォントサイズを1ランク下に換わります。
ワークシートの画面下の「Sheet1/Sheet2/...」のタブのところで、該当するシートを右クリックして、「コードを表示」をクリックして、以下を貼り付ければよいです。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, _
                    Cancel As Boolean)
'ダブルクリックで様をつける
With Target
   .Value = .Value & "様" '様をつけて
   .Characters(Start:=Len(.Value), Length:=1).Font.Size = _
   .Font.Size - 1 'セルのフォントサイズより1つ下のサイズ
End With
End Sub

この回答への補足

早速の回答、ありがとうございます。右クリック-セルの書式設定でサイズを小さくすれば済む話ではあるのですが、数が多いので自動的にならないかと思っています。また、教えていただきましたマクロでは他の入力が出来ません。

補足日時:2005/04/17 09:37
    • good
    • 0

マクロを使ったり,関数を使ったり,色々方法はありますが,いちばん手っ取り早いのは,



様を付けたいセルまたは列を選択
右クリック→セルの書式設定
分類を「ユーザ定義」にして,「種類」の「G/標準」となっている部分を消して「@"様"」と書けば良いです。

この回答への補足

回答ありがとうございます。そこまでは過去ログ見て分かったのですが、その自動入力した「様」のフォントを一回り小さくしたいのです。どうにかなりませんでしょうか?

補足日時:2005/04/17 09:35
    • good
    • 0

#1です。


あっ、ホントだ!(^^)同一セル内にいろんなフォントになりますね!
失礼しましたー。

セルを挿入した場合、挿入したセルの文字を「左揃え」にしてみてはどうでしょう?
(質問の意図を吐き違えていたらごめんなさい)

この回答への補足

左揃えの「様」はその左のセルの一番右に表示されるだけなので、結局は間が出来てしまいます。

補足日時:2005/04/17 05:26
    • good
    • 0

「列」に1列挿入して、「様」を入力する。


同一セル内のフォントは1サイズのみ、だったと思いますよ。

この回答への補足

列を増やしてしまうと、名前のすぐ隣に「様」がこない場合があると思います。また、同一セル内にいくつものフォントを混在させることは出来ました。素早い回答ありがとうございます。

補足日時:2005/04/17 04:18
    • good
    • 0

このQ&Aに関連する人気のQ&A

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

QCNC 掃除機自動NO.OFF

CNCで使っていた掃除機の吸引力が低くあまり役に立たなかったので、中古で掃除機を購入したのですが掃除機のスイッチの部分を気にしてなく自動ON、OFFにてこずっています。

掃除機のスイッチの部分から線を引っ張ってきてリレーにつなぎ自動ONは出来たのですが、自動OFFになってくれません。

リレーの接点の切り替わりが早いせいか自動OFFの時、掃除機が反応してくれません。

掃除機本体から延びている2本の線を直接繋いでも掃除機は動いてくれません。
掃除機のスイッチを簡素化する事は可能でしょうか?
それともリレーのほうを工夫して自動ON、OFFできるのでしょうか?

Aベストアンサー

No.2 補足です、タイマーIC555でリレー作動時間を延長してはどうでしょうか?

http://www.piclist.com/images/www/hobby_elec/ckt4.htm

QExcel2003で同フォントサイズでも参照元と参照先で文字間が異なる

私の環境(WindowsXP)では以下の様に入力すると表題のような現象が発生します

工程1.A1セルに"あああ"と入力します
工程2.A2セルに"=A1"と入力して参照表示します
工程3.A1,A2セルのフォントを"Verdana"などの英数フォントにします

同フォント、同ファイルにも関わらずA2セルのほうが文字間が広くなります

A1が"あああ"ならA2は"あ あ あ"のような感じです。

皆さんの環境では同じような現象は発生しますでしょうか?
回避策がございましたら教えてください。よろしくお願いします

Aベストアンサー

おそらく、A1のフォントが"Verdana"になっていないと思われます。
ご確認ください。

どうやら、全角は英数以外は直接英数フォントを選べないみたいです。
A2は式なのでVerdanaが選択され、文字配置スペースだけはVerdanaになっている模様です。どうしてもA1をVerdanaフォントの文字配置スペースで表示したいなら、A2をコピーし、「形式を選択して貼り付け」で書式をA1に貼り付けてはいかがでしょう。

Q自動で動いて掃除してくれる掃除機

自動で動いて掃除してくれる掃除機を探しています

以前深夜のテレビショッピングなどで見たのですが、円盤型の掃除機が自動で掃除してくれるものです

商品名もわかりませんし、ネットショッピングも探してみたのですが見つかりませんでした

よろしくお願いします

Aベストアンサー

こんなのがありますよ。

http://www.mrock.net/roomba/

http://digimoba.com/products/special/cleaning2.html

Qエクセルでシート参照する場合、同じフォントサイズは出来ますか

質問の意味が分かって頂けるでしょうか不安ですが、ご存知の方、お教え下さい。
出来るのか出来ないのかは分からないのですが…。

「シートのデータを参照する場合、フォントの大きさまで参照出来るのか」なんです。

例えば同じブック内のシートAのデータが
東京都(←20ポイント)足立区(←10ポイント)となっていた場合に、
シートBに参照データとしたら、全部同一ポイントになるのです。

これをシートAと同じように
東京都(←20ポイント)足立区(←10ポイント)とする方法は
ありますでしょうか。

Aベストアンサー

たとえばSheet2のB2で=Sheet1!A3といった使い方をしたいと、そしてSheet2のB2の書式(フォントサイズもこれ)もSheet1のA3と合わせたいということでしょうか。
「=(セル)を含めて関数は、値!しかもって来ません。間数は値を代入したり、計算したりするもので、現在のエクセルの関数は、そこで機能を制限しています。」
このことを明確に意識しない質問が出ますが、これを知れば答えは
でます。
(1)前もってそのセルのフォントサイズの設定
(2)あとでフォントサイズの設定
(3)コピー
(4)VBAでプログラムを組む(多分(1)、(2)、(3)のプログラム化)
しかないでしょう。

Qエアコン自動お掃除機能はどうですか?パナとダイキン

エアコンが壊れたので買い替えを検討しています。
パナソニックのEXシリーズはお掃除ロボットで、ホコリが外に排出されるみたいです。
ダイキンのFシリーズはフィルター自動お掃除で、ダストボックスに溜まるようです。

実際使っている方、自動お掃除機能ってどうですか?
 便利ですか?
 ダストボックスをお掃除するくらいなら、フィルターを自分で掃除しても同じですか?
 構造が複雑になる分、壊れやすいですか?
 うるさいですか?

よければパナソニックかダイキンのどちらかに
必要なければその下のランクのお掃除機能のないものにしようと思います。


 

Aベストアンサー

こんにちは。

フィルター自動おそうじ機能はあったほうがいいです。フィルターを自分で掃除することも可能だと思いますが、定期的にやろうと思ってもうっかり忘れてしまう可能性がありますので、その都度自動でやってもらったほうが楽だと思います。

ごく稀にフィルターとお掃除ユニットがかみ合わずエラーになることがありますが、自ら修繕できるレベル(ダストボックス・エアフィルターを一旦外し、もう一度はめ直す)ですのであまり問題ないかと思います。騒音ですが、あまりうるさいほどではありません。外出時なら問題ないかと思いますが、就寝時に作動して音が気になるなら自動設定を解除して手動で作動させる方法もあるかと思います。

※私の場合は三菱の最上位シリーズ(ZWシリーズ)を使用しており、フィルター自動おそうじ(フィルターおそうじメカ、ダストボックスにためて捨てるタイプ)に加え、低濃度オゾンによる内部クリーン機能(カビクリーンシャワー)も備えており、フィルターのみならず、中もきれいを保つ構造になっています。また、三菱ではパネルやフラップの外装パーツが外せる「はずせるボディ」構造なので、パネルの丸洗いや通風路の掃除も容易にできるようになっています(「フィルターおそうじメカ」・「はずせるボディ」はHWシリーズ以上のタイプで搭載)。

こんにちは。

フィルター自動おそうじ機能はあったほうがいいです。フィルターを自分で掃除することも可能だと思いますが、定期的にやろうと思ってもうっかり忘れてしまう可能性がありますので、その都度自動でやってもらったほうが楽だと思います。

ごく稀にフィルターとお掃除ユニットがかみ合わずエラーになることがありますが、自ら修繕できるレベル(ダストボックス・エアフィルターを一旦外し、もう一度はめ直す)ですのであまり問題ないかと思います。騒音ですが、あまりうるさいほどではありません。外...続きを読む

QExcel絶対参照を相対参照にしたらファイルサイズが増加?

Excelにて、ファイルサイズを小さくしようと思い、絶対参照しているものを相対参照(「$」を外す)にしてみました。
素人考えでは、計算は変わらないし文字も減るから少しはファイルサイズが小さくなるだろうと思ったのですが、逆に大きくなってしまいました。
なぜこうなってしまうのでしょうか。
理屈のわかる方、教えてください。

Aベストアンサー

書式の場合ほどあからさまではありませんが、
数式の場合も、個別に設定するより、フィルやCtrl+Enterで【まとめて設定】した方が
ファイルサイズが小さくなる傾向があります。

直感的に考えても「A1は○○,A2も○○,A3も○○,…,A100も○○」
と記憶するより「A1,A2,A3,…,A100は○○」と記憶した方が情報量が少なくなりますよね。
 ※これはあくまでイメージで、実際はそれほど単純でもないのですが…。

例えば、B1セルを =$A$1+A1 として B10セルまでフィルした場合、
「B1セルにある =$A$1+A1 という数式」も「B5セルにある =$A$1+A5 という数式」も、
「A1セルの値に左隣のセルの値を加える」という同一の式( R1C1形式で表記すればどちらも =R1C1+RC[-1] )なので、
Excelの内部的には「B1,B2,…,B10に、ある同一の数式が入力された」と認識されるようです。

ところが、置換を行うとそれぞれのセルについて数式を個別に修正(再設定)することになりますから、
"$"を"$"に置換した場合のように【数式が変化しない場合でも】
「B1セルに=$A$1+A1,B2セルに=$A$1+A2,B3セルに=$A$1+A3,…」と個別に記憶することになり、
ファイルサイズが大きくなるのだと考えられます。
------------------------------------------------------------------
例えば、私の環境(WinXP,El2003)では、

A. B1:B65536について =0+1 を Ctrl+Enter で一括入力した場合
 ⇒ファイルサイズは3.39MBです。

B. B1:B65536について =$A$1+A1 を Ctrl+Enter で一括入力した場合
 ⇒ファイルサイズはAと同様3.39MBです。

C. Bについて、"A"を"A"に置換した場合(数式はBと変わらない)
 ⇒3.75MBに増えます。

D. Bについて、"$"を""(空白)に置換した場合
 ⇒Cと同じく3.75MBになります。

E. Cについて、B1セルをダブルクリックしてフィルした場合(数式はB,Cと変わらない)
 ⇒3.39MBに戻ります。

F. Dについて、B1セルをダブルクリックしてB列の数式を書き換えた場合
 ⇒3.39MBに戻ります。
------------------------------------------------------------------
なお、この件については、以前MSのサイトで
 ・書式はまとめて設定した方がファイルサイズが…
 ・数式はCtrl+Enterやフィルで入力した方がファイル…
 ・配列数式にすればさらに…
といったトピックを読んだような記憶があるのですが、今回見つけられませんでした。

私自身は長いこと「そういうもんだ」と思ってきたのですが、
リクツの部分についてはもしかすると思い違いがあるかもしれないので、
あくまで参考程度にお考えください。

書式の場合ほどあからさまではありませんが、
数式の場合も、個別に設定するより、フィルやCtrl+Enterで【まとめて設定】した方が
ファイルサイズが小さくなる傾向があります。

直感的に考えても「A1は○○,A2も○○,A3も○○,…,A100も○○」
と記憶するより「A1,A2,A3,…,A100は○○」と記憶した方が情報量が少なくなりますよね。
 ※これはあくまでイメージで、実際はそれほど単純でもないのですが…。

例えば、B1セルを =$A$1+A1 として B10セルまでフィルした場合、
「B1セルにある =$A$1+A1 と...続きを読む

Q自動掃除機ってありませんでした?

なんか床を自動で掃除してくれる掃除機、ありませんでしたっけ??
名前を度忘れしてしまいまして・・・・

・商品名
・メーカー
・値段

とか教えていただけると助かります!よろしくお願いいたします!

Aベストアンサー

商品名 自動掃除機 ルンバ 577 シルバー
 ※色々なシリーズが出ています
メーカー  iRobot (アイロボット)
値段 61,954-

価格ネット載せておきますね♪
URLクリックして下さいm--m

参考URL:http://kakaku.com/item/K0000056599/?cid=shop_g_1_kaden

Q[Excel]参照先セルの自動調整された行サイズを参照元でも

Excelで参照先のセルに改行文字が入っていた場合。
参照元の行サイズを自動的に調整したいのですが、自動的になってくれません。
いちおう「セルの書式設定」→「配置」 で「折り返して全体を表示する」に
チェックを付け直せば調整されるのですが、毎回やる必要があるので
なんとか自動的にやってくれる方法はないでしょうか?

Aベストアンサー

既存の機能を使って全自動というのは難しいかと思います。
一般に、(単なる参照も含め)"数式で生成する値が変わった"という事態について、
Excelは無頓着ですから(頓着されたらそれはそれで困る)

>「セルの書式設定」→「配置」 で「折り返して全体を表示する」にチェックを付け直せば…
とありますが、
メニュー>書式>行にある「自動調整」ボタンをツールバーに出しておけば、
対象範囲を選択して1クリックするだけですみますので、多少は手間が省けそうです。
(対象範囲はあらかじめ「折り返して全体を表示する」設定になっているという前提です)

☆念のため、「自動調整」ボタンの出し方
ツール>ユーザー設定 をクリック
「ユーザー設定」ダイアログが出ますがこれは無視して、Excel本体のWindowの
書式>行 を順次クリック
「自動調整ボタン」をCtrlを押しながら任意のツールバー上にドラッグ

また、マクロも選択肢に入るならば、
Sub Worksheet_Activate()
 With ActiveSheet.Range("対象範囲")
  .WrapText = True
  .Rows.AutoFit
 End With
End Sub
みたいな処理で実質全自動になりますね。
(.WrapText = Trueは要らないのかも)
ただ、この処理のためだけにイベントドリブンマクロってもの大げさな感じがしますね。

既存の機能を使って全自動というのは難しいかと思います。
一般に、(単なる参照も含め)"数式で生成する値が変わった"という事態について、
Excelは無頓着ですから(頓着されたらそれはそれで困る)

>「セルの書式設定」→「配置」 で「折り返して全体を表示する」にチェックを付け直せば…
とありますが、
メニュー>書式>行にある「自動調整」ボタンをツールバーに出しておけば、
対象範囲を選択して1クリックするだけですみますので、多少は手間が省けそうです。
(対象範囲はあらかじめ「折り返して全体...続きを読む

Q自動掃除機 HouseBeat と Roomba どっちが良いのでしょうか?

自動掃除機 HouseBeat と Roomba どっちが良いのでしょうか?
まったく同じように見えますが

Aベストアンサー

「ルンバ」は、米国アイロボット社の真面目に研究開発された製品。
「ハウスビート」は、中国企業のルンバのパクリ製品。

モーターなど、全てのパーツはルンバの方が優秀。
ルンバの方が製品寿命が長い。
メーカーサポートもルンバ。

真面目に数年間使用するのならば「ルンバ」
製品寿命をオモチャ的な要素で捉えられるのならば「ハウスビート」

両者は、値段が違います。
極端な例ですが、ルンバ1台の費用でハウスビートは2台買えます。
ルンバ1台で部屋を掃除させるよりも、ハウスビート2台で掃除させた方がキレイだったりします。

Qエクセルでのフォントとフォントサイズについて

大変お世話になっております。
富士通XPを使っております。 慣れないながらもエクセルで連絡網を作っていますが、四角を罫線の外枠で囲み、フォントとフォントサイズで入力して、次のセルに移ると初めに設定されていると思われますフォントとサイズに変わってしまいます。フォントをHG行書体、サイズを14にしておくにはどのような設定をしたら宜しいでしょうか。何分にも老人の楽しみでやっていますので、勝手ながら易しい説明でお願い頂ければと、よろしくお願い致します。

Aベストアンサー

こんにちは!

下にSheet1・Sheet2などと書いてあると思いますが
その1枚のシート全体のフォントとフォントサイズを全て変更するのであれば
1.全セル選択ボタン
(薄いグレーの1とAの左上にある何も文字が書いてないグレーの部分)をクリック
2.フォントをHG行書体、サイズを14にそれぞれ設定

これで、このシート全体のフォントとフォントサイズが一気に変更できますよ(^_-)


人気Q&Aランキング