エクセルのセル内の文字色に関してのマクロを下記の通り書きました。


Function SpecialCell(targetRange As Range, _
intColor As Integer) As Integer
'赤は3,緑は4,青は5,黄は6
Dim myCell As Range

For Each myCell In targetRange
If myCell.Font.ColorIndex = intColor _
Or myCell.Interior.ColorIndex = intColor Then
SpecialCell = SpecialCell + 1
End If
Next
End Function

その後答えを求めるセルに
=SpecialCell(D5:D125,3)

これはちゃんと表示できます。

しかし、
=SpecialCell(D10,D8,D29,D49,D51,D57,3)

このようにセルの個別ごとに求めようとすると
#VALUE!

が出ますので引数が間違っているのだとは思うのですが、
この場合はどうすればよろしいでしょうか?

また、セル内に複数の色つき文字がある場合、
例えば同一セル内に
(1)(2)(3)
とあって、
(1)が赤
(2)が青
(3)がピンク

とした場合、
=SpecialCell(D5:D125,3)
これでは0と出てきてしまいます。。。
この場合はどういう風に数式をいれればよいのでしょうか?


以上2点ほどご教授いただけると助かります。
よろしくお願いいたします。。。

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

A 回答 (12件中1~10件)

kmetu さんの「セル範囲を()で囲む」を私のソースに適用させてもらって(^^;


ん? (1) は【丸囲み数字1】ですか?では

Function SpecialCell(TargetRange As Range, intColor As Integer) As Integer
  '赤は3,緑は4,青は5,黄は6
  Dim myCell   As Range
  Dim intIDX   As Integer
  Dim strVALUE  As String

  For Each myCell In TargetRange
    If myCell.Font.ColorIndex = intColor Then
      SpecialCell = SpecialCell + 1
      GoTo SkipFor
    End If
    If myCell.Interior.ColorIndex = intColor Then
      SpecialCell = SpecialCell + 1
      GoTo SkipFor
    End If
    If myCell.Value <> "" Then
      For intIDX = 1 To Len(myCell.Value)
        If myCell.Characters(intIDX, 1).Font.ColorIndex = intColor Then
          SpecialCell = SpecialCell + 1
        End If
      Next
    End If
  
SkipFor:
  Next
 
End Function

これで、=SpecialCell((D10,D8,D29,D49,D51,D57),3) のように書けばOKかと。

この回答への補足

ごめんなさい。下記のURLでいけました。

今までの経緯を思うと、壊れるの前提で書いてしまいましたw

ありがとうございました。。。

補足日時:2011/12/01 16:08
    • good
    • 0
この回答へのお礼

たびたびありがとうございます。

このコードを試したところ、無事D欄・E欄ともに計算してくれました。

そして恐縮ながらもう一つ教えていただけると助かります。。。

Dの縦欄は、セル内背景色を分けているのと、文字色は1色です。
(なので、背景色ごとのセル分けで集計するための問1でした)

このセル内の背景色を4色で分けているのですが、中の文字色は関係なく、背景色の数字を数えるのはできますでしょうか?

%を出す為に、現在背景色を手計算で問1で教えていただいた数字で割っております。。。
この背景色も計算できると非常に助かります。。。
(現在のD欄とE欄の計算式が壊れないよう)

http://miyahorinn.fc2web.com/tips/s_02_02_04_02. …
とりあえず、これを元に作成してみますけど、問題があればご教授下さいませ。
よろしくお願いたします。。。

そしてありがとうございました。。。
助かりました。。。

お礼日時:2011/12/01 16:01

> 現在入れているマクロでD欄は正常に統計が取れます。


> E欄の統計を取るマクロを入れるとD欄が壊れる。

入れるとはどういう意味でしょうか?

同じ名前(Function SpecialCell)で

> なので、標準モジュール1を最初の奴
> 標準モジュール2を教えていただいた奴

としたのでしょうか。でしたらそれは無茶でしょうし"名前が適切ではありません。"
とエラーが出るのは当然です。

とりあえず名前を変えて試すか、私の示したコードだけで試してください。

丸付きの文字3文字でしたら

/3は不要で
=SpecialCell(E6:E126,3)
=SpecialCell(E6:E126,5)

でいけます。
    • good
    • 0
この回答へのお礼

>エラーが出るのは当然です。

すいません、基本素人なもので、とりあえず試してみただけですw

そして、やはりANo.7のコードに変えて、それまで計算していたD欄の統計部分の計算式を再計算するとコンパイルエラーがでます。。。

=SpecialCell(E6:E126,3)
でE欄のところに埋め込んでもやはり計算してくれませんでした。。。

ANo.11さんのコードを入れてみたところ1回答えが全ておかしくなりましたが、エラーではなかったため、再計算すると元に戻り、D欄&E欄も無事に計算できました。
こちらのコードでもう少々ごにょごにょしてみたいと思います。

長い間ご教授いただきありがとうございました。。。
また、よろしくお願いいたします。。。

お礼日時:2011/12/01 15:42

補足を読みました。


(1)(2)(3)で・・・という事なら、「)」「(」を無視して 123 だけ判定すれば良いですね(^^)
なので


Function SpecialCell(RangeString As String, intColor As Integer) As Integer
  '赤は3,緑は4,青は5,黄は6
  Dim TargetRange As Range
  Dim myCell   As Range
  Dim intIDX   As Integer
  Dim strVALUE  As String

  Set TargetRange = ActiveSheet.Range(RangeString)

  For Each myCell In TargetRange
    If myCell.Font.ColorIndex = intColor Then
      SpecialCell = SpecialCell + 1
      GoTo SkipFor
    End If
    If myCell.Interior.ColorIndex = intColor Then
      SpecialCell = SpecialCell + 1
      GoTo SkipFor
    End If
    If myCell.Value <> "" Then
      '"("と")"を取り除く
      strVALUDE = Replace(Replace(myCell.Value,"(",""),")","")
      For intIDX = 1 To Len(strVALUE)
        If myCell.Characters(intIDX, 1).Font.ColorIndex = intColor Then
          SpecialCell = SpecialCell + 1
        End If
      Next
    End If
    
SkipFor:
  Next
  
End Function

関数の書き方は =SpecialCell("A1,D1,C1",3) などと、セル範囲を【文字列】で渡す事に変わりはありません。
    • good
    • 0

=SpecialCell("D10,D8,D29,D49,D51,D57",3)


のように、検査したいセルのアドレスをダブルクォーテーション「"」で囲んで下さい。


です。アドレスの指定している部分を「"」で囲んで「文字列」にしてください。
通常のセル範囲指定とは異なります。
    • good
    • 0

> 具体例が3文字なので1セット3文字と考えてます。



(1)を1セット3文字という意味です。

この回答への補足

あ、ごめんなさい。

括弧で出てきちゃうのですが、実際には丸がこみの数字で
(1)(2)(3)←これでワンセット3文字です。

ややこしくてすいません。

補足日時:2011/12/01 11:54
    • good
    • 0

> E欄の統計を取る際に、例えば同一セル内で


>
> (1)(2)(3)(左から、赤・黒・青)
> (1)(2)(3)(左から、黒・黒・赤)
> (1)(2)(3)(左から、青・赤・青)
>
> これの回答を
> 赤 3個
> 青 3個
> ピンク 0個
>
> というような集計をしたくて、ご相談しました。。。


Function SpecialCell(targetRange As Range, _
intColor As Integer) As Integer
'赤は3,緑は4,青は5,黄は6
Dim myCell As Range
Dim myFlg As Boolean

Function SpecialCell(targetRange As Range, _
intColor As Integer) As Integer
'赤は3,緑は4,青は5,黄は6
Dim myCell As Range

For Each myCell In targetRange
For i = 1 To Len(myCell.Value)
If myCell.Characters(Start:=i, Length:=1).Font.ColorIndex = intColor _
Or myCell.Interior.ColorIndex = intColor Then
SpecialCell = SpecialCell + 1
End If
Next
Next
End Function

前回のコードに元にあったOr myCell.Interior.ColorIndex = intColorを足してます。
(足さなくてもE列に関しては同じですが)



=SpecialCell(E6:E126,3)/3
=SpecialCell(E6:E126,5)/3

これでこちらでは希望の数値が出ました。具体例が3文字なので1セット3文字と考えてます。

> ちなみに標準モジュールに下記コードを追加して両方走らせると、

両方走らせるというのがちょっと意味がわかりません。

この回答への補足

早々の解答ありがとうございます。


早速いれてみたところ、、、
コンパイルエラー 名前が適切ではありません。
っと出ましてD欄の統計部分もダメになりました。
(#NAME)
いけそうな気がしたのですが、、、


>両方走らせるというがちょっと意味がわかりません。

現在入れているマクロでD欄は正常に統計が取れます。
E欄の統計を取るマクロを入れるとD欄が壊れる。

なので、標準モジュール1を最初の奴
標準モジュール2を教えていただいた奴

とやればうまくいけるかな?
っと思ったので試してみたらダメでしたw
という意味です。

補足日時:2011/12/01 11:54
    • good
    • 0

こんばんは!


せっかくコードをお考えのようなので、余計なお世話になるかもしれませんが・・・

セルを範囲指定した後に実行するマクロを考えてみました。
(Sheet2を作業用のSheetとして使用していますので、Sheet2は使用していないという前提です)

Sheet1のマクロにしていますので、画面左下にあるSheet1のSheet見出し上で右クリック → コードの表示 → ↓のコードをコピー&ペーストし、範囲指定した後にマクロを実行してみてください。

Sub test()
Dim c As Range
Dim i As Long
Dim str As String
Dim ws As Worksheet
Set ws = Worksheets(2)
Application.ScreenUpdating = False
For Each c In Selection
For i = 1 To Len(c)
str = Mid(c, i, 1)
If WorksheetFunction.CountIf(ws.Columns(1), c.Characters(Start:=i, Length:=1) _
.Font.ColorIndex) = 0 And c.Characters(Start:=i, Length:=1).Font.ColorIndex <> xlAutomatic Then
ws.Cells(Rows.Count, 1).End(xlUp).Offset(1) = _
c.Characters(Start:=i, Length:=1).Font.ColorIndex
End If
Next i
ws.Cells(Rows.Count, 2).End(xlUp).Offset(1) = WorksheetFunction.Count(ws.Columns(1))
ws.Columns(1).Clear
Next c
ws.Cells(Rows.Count, 2).End(xlUp).Offset(1) = WorksheetFunction.Count(ws.Columns(1))
ws.Columns(1).Clear
MsgBox ("3色使用セルは" & WorksheetFunction.CountIf(ws.Columns(2), 3) & "個です。")
ws.Columns(2).Clear
Application.ScreenUpdating = True
End Sub

※ セル内のフォント色は「自動」以外の物を数えるようにしてみました。
※ 上記コードは「3色」の場合のコードですので、2色の場合は
>MsgBox ("3色使用セルは" & WorksheetFunction.CountIf(ws.Columns(2), 3) & "個です。")
の行を
>MsgBox ("2色使用セルは" & WorksheetFunction.CountIf(ws.Columns(2), 2) & "個です。")

に変更してマクロを実行してみてください。

以上、参考になれば良いのですが・・・m(_ _)m
    • good
    • 0
この回答へのお礼

ご教授ありがとうございます。

やってみました!
これはこれで面白いですね!

なのですが、すいません。
その出てきた数字をさらに集計しまとめなければいけないので、データとして張り付いていないとだめなのです。。。

でも、ありがとうございました。。。

お礼日時:2011/12/01 09:49

> 今までのを消して上記を入れてみましたが、、、


>
> 今まで出来ていた1色のところも0になりました。
> 3色のところも0になりました。。。

うーん…こちらで適当なデータを入れて試したら指定色の文字数分の数値がでるのですが…
具体的にどのようなデータなのでしょうか。

全部は無理としても

D10,D8,D29,D49,D51,D57

のデータだけでも示せますでしょうか。

この回答への補足

再度ありがとうございます。

Dの縦欄は、セル内背景色を分けているのと、文字色は1色です。
(なので、背景色ごとのセル分けで集計するための問1でした)

Eの縦欄は背景色は無くて全てのセルに(1)(2)(3)数字が3個あり、その内1位なら赤、2位なら青、3位ならピンク、それ以外は黒と入力と文字色分けは手入力です。

E欄の統計を取る際に、例えば同一セル内で

(1)(2)(3)(左から、赤・黒・青)
(1)(2)(3)(左から、黒・黒・赤)
(1)(2)(3)(左から、青・赤・青)

これの回答を
赤 3個
青 3個
ピンク 0個

というような集計をしたくて、ご相談しました。。。
最初からセルを分けてれば問題は無かったのでしょうが、そこまで気が回りませんでした。。。
セル分けをするとなると、もう膨大な量のデータになりそうなので、、、
現在手入力で数えてますが、その内間違えそうですw

ちなみに標準モジュールに下記コードを追加して両方走らせると、数値が正しく無いと出て表示自体が全部壊れてしまいました。。。

補足日時:2011/12/01 09:43
    • good
    • 0
この回答へのお礼

>例えば同一セル内で

分かりにくいので訂正。

セルが3個あって、1個のセル内に3つの数字があり、その3つの数字に色がついています。

お礼日時:2011/12/01 09:46

もう一点は



Function SpecialCell(targetRange As Range, _
intColor As Integer) As Integer
'赤は3,緑は4,青は5,黄は6
Dim myCell As Range

For Each myCell In targetRange

For i = 1 To Len(myCell.Value)
If myCell.Characters(Start:=i, Length:=1).Font.ColorIndex = intColor Then
SpecialCell = SpecialCell + 1
End If
Next
Next
End Function

というコードでいかがでしょうか。

この回答への補足

ご教授ありがとうございます。

今までのを消して上記を入れてみましたが、、、

今まで出来ていた1色のところも0になりました。
3色のところも0になりました。。。


=SpecialCell(D5:D125,3)(1色のところ)
=SpecialCell(E5:E125,3)(3色のところ)

呼び出す引数の書き方がおかしいのでしょうか?

またご教授下さい。よろしくお願いいたします。

補足日時:2011/11/30 18:04
    • good
    • 0

このマクロは、ご自身で作成されたものですか?



> =SpecialCell(D10,D8,D29,D49,D51,D57,3)

Functionで定義している引数が2つ(targetRange As Range, intColor As Integer)しかないのに、それ以上書いてもエラーになるだけです。上記の様な指定をしたいなら、マクロを修正するしかありません。

> セル内に複数の色つき文字がある場合

マクロ内では、セル全体の文字書式(.Font.ColorIndex)しか判定していませんので、これもマクロを修正しないとダメです。

ご質問の内容は「どういう風に数式をいれればよいのでしょうか?」なので、セルに入れる数式の方法ですが。。。 残念ながら、回答としては「質問者さんのやりたい事が出来るマクロでは無い」です(^^;


マクロを直すとすれば、こういう感じでしょうか。

Function SpecialCell(RangeString As String, intColor As Integer) As Integer
  '赤は3,緑は4,青は5,黄は6
  Dim TargetRange As Range
  Dim myCell   As Range
  Dim bolFlag   As Boolean
  Dim intIDX   As Integer

  Set TargetRange = ActiveSheet.Range(RangeString)

  For Each myCell In TargetRange
    bolFlag = False
    If myCell.Font.ColorIndex = intColor Then bolFlag = True
    If myCell.Interior.ColorIndex = intColor Then bolFlag = True
    If myCell.Value <> "" Then
      For intIDX = 1 To Len(myCell.Value)
        If myCell.Characters(intIDX, 1).Font.ColorIndex = intColor Then bolFlag = True
      Next
    End If
    
    If bolFlag Then SpecialCell = SpecialCell + 1
  Next
  
End Function

動作確認してませんが(^^;
=SpecialCell("D10,D8,D29,D49,D51,D57",3)
のように、検査したいセルのアドレスをダブルクォーテーション「"」で囲んで下さい。

この回答への補足

回答ありがとうございます。

>このマクロは、ご自身で作成されたものですか?

いえ、ほとんど素人ですので、ググッてググッてようやく見つけたマクロをいれてます。。。

第(1)の問いはNO2さんの括弧で囲む方法でいけました。

第(2)に関しては、教えていただいたマクロを今まで書いてあったのを消して再計算してみましたら、、、
今まで、=SpecialCell(D5:D125,3)
で出てきたところも0となってしまいできませんでした。。。

現状、セル内に1色の文字がある項目の計算は
=SpecialCell(D5:D125,3)
で出来てます。

セル内に1色~3色の文字がある項目の計算ができません。

(両方計算する必要があり、現在3色ある部分は目視計算)


またご教授いただければ幸いです。

補足日時:2011/11/30 18:00
    • good
    • 0

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

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

このQ&Aを見た人はこんなQ&Aも見ています

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

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

Q「仲良しであること」を表す漢字1文字

タイトル通り、「仲良しであること」を1文字で表せる漢字を探しています。この場合の「仲良し」は男女間なのですが、「恋人同士として仲良し」なのではなく「友達として、チームとして仲良し」を意味します。ちなみにこの漢字1文字は、オリジナルTシャツのデザインにする予定です。

自分なりに考えてみると「和」くらいしか思いつかないのですが、それではありきたりなのでもう少しひねった漢字にしたいと思っています。他に「懇ろ」も思いつきましたが(「ろ」は入れません)、これだと「友達として仲良し」ではなくなってしまうなぁ、と思いました。

何かいい漢字がありましたら、あるいは意味から漢字を調べられるようなサイトがありましたら、ぜひ教えてください。よろしくお願いします。

Aベストアンサー

・藹(和気藹々)

・欒(団欒)

・間を○で囲って「仲間」をイメージ

・良を○で囲って「仲が良い」をイメージ

Qエクセル2000を使ってますがA1のセルの文字とB1のセルの文字を

エクセル2000を使ってますがA1のセルの文字とB1のセルの文字を
結合させたいのですができますでしょうか?
つまりA1に”文字”と入っていてB1に”結合”と入ってます。
これを文字結合としたいのです。
2007でしたら”=A1&B1”で出来るのですが2000では 
出来ないみたいです。
どなたかよろしくおねがいmす。

Aベストアンサー

=CONCATENATE(A1,B1)です

Q漢字3文字の名前

もうすぐ女の子を出産予定です。
漢字3文字の名前を考え中ですが、3文字の名前って、書くときに長すぎたりバランスが取りにくかったりするものでしょうか。
ちなみに苗字は漢字2文字です。
私自身は漢字2文字の名前なので良くわからなくて・・・。
ご自身のお名前が漢字3文字の方、お子さんのお名前が漢字3文字の方、よければコメントをお願いします♪

Aベストアンサー

私自身が三文字です。

苗字や、三つの漢字の画数にもよりますが、
一般的に三文字の漢字で特に不都合を感じたことはありません。
バランスもとりにくいと思ったことはないです。

ただ子供の頃から、もし将来結婚して苗字が変わるなら、
読みが三文字で漢字も三文字(例えば佐々木さんとか)の人とは
結婚したくないな~と、思っていました。苗字も名前もすべて一文字
ずつ書くのは、何となくですが、当て字というか、
ヨロシクを夜露四苦と書くようなイメージがあって・・・
(完全に主観的な感想です^^;)

以外に便利だと思うのは、たくさんの名前の中から自分の
名前を探さなければならないような場面(学生時代等はよく
ありました。名簿とか。)で、三文字の名前って、
すごく探しやすくて良かったです(笑)。
二文字の子が多い中で、三文字が並ぶとぱっと目が行きますから。

Q特定の文字を入れるとセルの色・文字色が変わる

VBA初心者です。 
特定の文字を入力すると、セルの色と文字の色が変わるようにしたいのですが
可能でしょうか?(例えば、”赤”と入力すると、セルの色が青・文字色が白。という感じです)
特定の文字は約10種あります。
どうか、お助けを。。

Aベストアンサー

対象のシート名を右クリックして以下のコードをコピー貼り付けしてみてください。

Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Value
Case "赤"
Target.Interior.ColorIndex = 5
Target.Font.ColorIndex = 2
Case "青"
Target.Interior.ColorIndex = 10
Target.Font.ColorIndex = 3
End Select
End Sub

Qこの文字(アート・デザイン)の名称を教えてください。

5年ほど前、軽井沢のプリンスショッピングプラザ(アウトレット)で学生風の方が露天商のような形で商売をしていました。商品は客の名前をデザインされたアートな文字で書いてくれるというものでした。情報が少なくて申し訳ないのですが、知っている方がおりましたら教えてください。
【その文字について】
・幅5cm程度のスポンジのようなものに原色系の顔料を染みこませて、虹のような色遣いで書く。
・基本的にはアルファベットであるが、漢字でも書いてくれるようだった。
・文字の一つ一つに植物や鳥が描かれている(熱帯系のデザインに見える)。
・1枚1000円ぐらいで書いてくれた。
・とてもおめでたい(幸運を呼ぶ)文字らしい。

参考になるサイト等ありましたらご紹介ください。よろしくお願いいたします。

Aベストアンサー

No.1の回答者です。

違かったですか…。他には知らないですね。すみません。

今回は、

>当時「花文字」以外の呼び名を聞いたような気がしているのですが・・・

の補足回答です。質問の回答ではないので、あしからず。

「花文字」という呼び名のほかには、
「花鳥文字」「吉祥花文字」「開運風水花文字」「花鳥書法」「虹書法」などあるようです。(種類が違うのかもしれませんが…)


そういえば、

>学生風の方が露天商のような形で商売をしていました

ということなのですが、
その学生風の人のオリジナルという可能性もあるのでは?とも思ったんですが。


最後に、ほかに「花文字」に関するサイトを見つけたので紹介しておきます。
もはや関係のないものなので、参考という程度に。

http://www.asia-jps.com/hana01.html

http://kotobukimiyuki.at.infoseek.co.jp/miyukiss/hanamoji.jpg

http://www.d-word.jp/pdt_related1/

http://www.giwado.com/order/kachomoji.html

No.1の回答者です。

違かったですか…。他には知らないですね。すみません。

今回は、

>当時「花文字」以外の呼び名を聞いたような気がしているのですが・・・

の補足回答です。質問の回答ではないので、あしからず。

「花文字」という呼び名のほかには、
「花鳥文字」「吉祥花文字」「開運風水花文字」「花鳥書法」「虹書法」などあるようです。(種類が違うのかもしれませんが…)


そういえば、

>学生風の方が露天商のような形で商売をしていました

ということなのですが、
その学...続きを読む

Qエクセル マクロでセルの色を変えたいです

初歩的な質問ですみません。

セルの値に西暦を入力し、その一桁目の値を検索して
セルの色を変えたいのですが。

一桁目の値によって色を変えるので、色の種類は10種類です。

よろしくお願いいたします。

Aベストアンサー

仮にそういう操作をA列のセルに対して行いたいのだとして。
仮に実際に色を付けたいセルもそのA列のセルだとして。
条件に合致しない内容が記入された時(たとえば文字,たとえば消去)はちゃんと色を消したいとして。

シート名タブを右クリックしてコードの表示を選び,現れたシートに下記をコピー貼り付ける

Private Sub Worksheet_Change(ByVal Target As Range)
 Dim h As Range
 Dim ha As Range
 Set ha = Application.Intersect(Target, Range("A:A"), ActiveSheet.UsedRange)
 If ha Is Nothing Then Exit Sub
 For Each h In ha
  If h <> "" And IsNumeric(h.Value) Then
   h.Interior.ColorIndex = 37 + Int(h) Mod 10
  Else
   h.Interior.ColorIndex = xlNone
  End If
 Next
End Sub

ワークシート画面に戻り,A列にデータを記入する

仮にそういう操作をA列のセルに対して行いたいのだとして。
仮に実際に色を付けたいセルもそのA列のセルだとして。
条件に合致しない内容が記入された時(たとえば文字,たとえば消去)はちゃんと色を消したいとして。

シート名タブを右クリックしてコードの表示を選び,現れたシートに下記をコピー貼り付ける

Private Sub Worksheet_Change(ByVal Target As Range)
 Dim h As Range
 Dim ha As Range
 Set ha = Application.Intersect(Target, Range("A:A"), ActiveSheet.UsedRange)
 If ha Is Nothing T...続きを読む

Q漢字の他に、漢字のように何万字もあるような複雑な文字ってあるんでしょう

漢字の他に、漢字のように何万字もあるような複雑な文字ってあるんでしょうか?

やっぱり、漢字が世界で最も文字数の多い文字なんでしょうか?

Aベストアンサー

 文字には大きく分けて二種類あります。音(意味がない)によるものと語によるものです。世界の文字を全部勉強した訳ではありませんが、文字組織からだいたいの見当はつきます。

(1)音をあらわすもの。
  音素文字、いわゆるアルファベットはその例。母音を表す文字と子音を表す文字で総数50以下。

  音節文字、日本語の仮名はその例。総数は多くても150以下

(2)語を表すもの。表語文字、漢字はその例。1994年の『中華字海』では、85,568字。日本の常用でも2,000字程度。

>>やっぱり、漢字が世界で最も文字数の多い文字なんでしょうか?

 多分そうだろうと思います。

http://ja.wikipedia.org/wiki/%E6%96%87%E5%AD%97

QエクセルマクロVBA:該当セルの行の色を変更したい

すみません。

ご存じの方、ご教授願います。

エクセル用マクロを作成しているのですが、
たとえば、

A1、A4、A9に目的の該当文”FFFF”があり、
行1、行4、行9のバックカラーを変更する場合、
どのようなマクロを作成すればよいのでしょうか?

なお、上記A1、A4、A9は毎回一定ではなく、該当セルの数がゼロの場合もあれば、10以上の場合もあります。(同じ列には存在しています。)

検索”FFFF”→SHIFT+スペースではセルの場所が特定されてしまうので、目的の文の場所がかわったあるいはないときにも背景色を変えてしまいます。

どうかよろしくお願いします。

Aベストアンサー

こんな感じで如何でしょう。

Sub Sample()
Dim aCell As Range

Application.ScreenUpdating = False
Cells.Interior.ColorIndex = xlNone
For Each aCell In Range(Cells(1, 1), Cells(Rows.Count, 1).End(xlUp))
If aCell.Value = "FFFF" Then aCell.EntireRow.Interior.ColorIndex = 6
Next aCell
Application.ScreenUpdating = True
End Sub

Qロゴや文字のデザイン。

漢字やひらがな、英語などデザイン風に少しデフォルメして書きたいのですがどのようにかけばかっこよく見えるでしょうか。
よく、路上の壁面に書いてあるような文字の書き方(特徴)などわかるかたおしえてください。
文字がなんて書いてあるかが少しわかんないくらいにしたいのですが。
ロゴのようなものでも良いです。
最近の10代20代くらいの人が好きそうな感じで…
よろしくおねがいします。

Aベストアンサー

グラフィティ(らくがきと言う意味で)と呼ばれる文字ですね。かっこ良く、なんて書いてあるかがわかんないくらいの文字が書けるように、みんなひたすら紙に書いて練習しているのだと思います。

当たり前ですが、シャッターやコンクリの塀、人の迷惑になる場所に書くのは犯罪ですので、そういった場所に書くのは絶対にやめましょう。

こんなところとかご参考に
http://www.11-d.nu/

以下のサイトからは、PLAY→好きな英字入力で作れます。

参考URL:http://www.mindgem.nu/graffiti.html

QEXCELでセル参照の際に、参照元セルの色を参照先セルの色を反映させたい。

はじめて質問します。宜しくお願いします。
現在の手書き伝票をEXCELで再現・作成したいと考えております。
手書き伝票は、複写式で合計4枚になります。
経費削減のため、SHEET1の1枚入力欄に記入すると、
SHEET2に入力内容が反映され、印刷ではA3用紙1枚が出力され、
印刷したものをカッターで4分割して4枚として使用したいです。

現在は、会社名や住所、電話番号の変更があった際は、伝票横の余白に「⚪︎⚪︎変更あり」と
かいておりますが、文字が見にくくなったり、見落としたりする可能性があります。
EXCELでは変更のあったセルをわかりやすくしたいのです。
ただし、カラーは使用せず、白黒のみとしたいので、
「太字・斜体・変更したセルを薄いグレーの網かけにする」を考えています。

しかし、セルの参照では、参照元セルの文字だけが参照先セルに入力され、
参照元の書式が反映されなくて困っています。

そこで、皆様のお知恵をお借りしたいのですが、
EXCELのVBAはわかりませんので、できるだけ簡単なものでできると助かります。
VBAが必要でしたら、勉強しますので、できるだけわかりやすくお願いします。

最後に、上記のような伝票を作成する上での注意点などがありましたら、
あわせてアドバイス頂けますと大変嬉しいです。

何卒、宜しくお願いいたします。

はじめて質問します。宜しくお願いします。
現在の手書き伝票をEXCELで再現・作成したいと考えております。
手書き伝票は、複写式で合計4枚になります。
経費削減のため、SHEET1の1枚入力欄に記入すると、
SHEET2に入力内容が反映され、印刷ではA3用紙1枚が出力され、
印刷したものをカッターで4分割して4枚として使用したいです。

現在は、会社名や住所、電話番号の変更があった際は、伝票横の余白に「⚪︎⚪︎変更あり」と
かいておりますが、文字が見にくくなったり、見落としたりする可能性があり...続きを読む

Aベストアンサー

一案です。
一枚分の入力の作業が終わったら
一枚部分の範囲を選択、コピー
A3全体を選択
張り付け、形式を選択して貼り付け
書式にチェックを入れて OK

これで良ければマクロの記録で
VBA化してみてください。


このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング

おすすめ情報