スプレッドのヘッダの文字色を指定列だけ
変更することは可能でしょうか?

Spd_spread1.ShadowText = vbRed

を記述すると全文字が赤色になってしまいます。
ちなみに行番号・列番号を指定してみましたが
同じ結果になってしまいました。

どなたかご存知の方がいらっしゃいましたらよろしくお願いします!

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

A 回答 (1件)

verが明記されていなけど


spread 6.0では下記でいけますね

  Me.vaSpread1.Col = 2
  Me.vaSpread1.Row = 0
  Me.vaSpread1.CellType = CellTypeButton
  'Me.vaSpread1.TypeButtonColor = RGB(0, 255, 0)
  'Me.vaSpread1.TypeButtonDarkColor = RGB(0, 0, 0)
  'Me.vaSpread1.TypeButtonLightColor = RGB(255, 255, 255)
  Me.vaSpread1.TypeButtonTextColor = RGB(255, 0, 0)
  Me.vaSpread1.TypeButtonText = "ほげほげ"
    • good
    • 0
この回答へのお礼

ご回答有難うございました。
Ver6.0なので上記の記述でうまくいきました!

お礼日時:2005/04/18 17:38

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

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

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

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

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

Qアクリル絵の具のコゲ茶色~黄土色について。

はじめまして。こんばんわ。
最近スーツデコにはまり、時間を見つけては作成しています。
タルトやチョコ、マカロン等の形はすぐに作れたのですが…
問題は色味。
紙粘土は手っ取り早くふわふわ粘土の色つきを使い作成しているので色味は何の問題もなし。
ですが、問題は樹脂粘土の色味ですごく戸惑っています。

色付けにはアクリル絵の具を使用。との事でダイソーで買ってきたアクリル絵の具を使用。
色は茶色[BURNT SIEMMA]と黄土色[YELLOW OCHER]を樹脂粘土に混ぜ込んだのですが、どうも色が上手に出ず。

・茶色[BURNT SIEMMA]を混ぜればオレンジ色。
・黄土色[YELLOW OCHER]を混ぜれば山吹色。
・少量づつ混ぜ込んでも、大量に混ぜ込んでも変な色のまま。
・上記二つを混ぜれば混ぜるほどに赤っぽいオレンジに変色。

どちらの絵具も有名なメーカー製の絵具同様
茶色・黄土色と表記される色なのに…
ダイソー製だからきれいな色が悪いんでしょうか?
[こげ茶色・うす茶色・黄土色]この三つの色味が出る絵の具がありましたら教えてください!

はじめまして。こんばんわ。
最近スーツデコにはまり、時間を見つけては作成しています。
タルトやチョコ、マカロン等の形はすぐに作れたのですが…
問題は色味。
紙粘土は手っ取り早くふわふわ粘土の色つきを使い作成しているので色味は何の問題もなし。
ですが、問題は樹脂粘土の色味ですごく戸惑っています。

色付けにはアクリル絵の具を使用。との事でダイソーで買ってきたアクリル絵の具を使用。
色は茶色[BURNT SIEMMA]と黄土色[YELLOW OCHER]を樹脂粘土に混ぜ込んだのですが、どうも色が上手に出ず...続きを読む

Aベストアンサー

樹脂粘土は絵の具を混ぜ込んで色味を作るのですか。作成の経験はないのですが…すみません。色味の点で何かお役に立てるかと思いまして。

・茶色[BURNT SIEMMA]…SIENNA(バーント シェンナ)、ですね。
 メーカーにより違いはありますが、「あかちゃいろ」という感じの色です。赤みが強いので質問文のような色になるのでしょう。
ダイソーではあるかどうかわかりませんが、より暗く赤みを感じない色として「バーント アンバー(こげ茶色)」があります。薄めても焼いた菓子の色に近いのではないかと思います。
黄土色は、一つの絵具で出すのは難しいと思います。絵の具のYELLOW OCHREは、ちょっと食品とは思えないほど黄色みが強いので…。これももちろんメーカーによって違いがありますので一概には言えませんが。
混色は難しいでしょうか?
黄色みが強い時には補色である紫(赤+青の混色です。)を少しづつ混ぜることで和らげることができますが…。混ぜすぎるとひどい色になります。言葉では説明が難しいです。
単色で近い色としては、参考リンクの「和色」ページにある黄檗色(きはだいろ)・鬱金色(うこんいろ)あたりがイメージに近いのではないかと思うのですが。

参考に、ターナーのアクリルガッシュでは20mlチューブで¥280くらいです。お近くに画材店があったら、直接色味を見ることをお勧めします。

参考URL:http://www.art-maruni.com/gazai/akuriru/enogu/turner/normal1.htm

樹脂粘土は絵の具を混ぜ込んで色味を作るのですか。作成の経験はないのですが…すみません。色味の点で何かお役に立てるかと思いまして。

・茶色[BURNT SIEMMA]…SIENNA(バーント シェンナ)、ですね。
 メーカーにより違いはありますが、「あかちゃいろ」という感じの色です。赤みが強いので質問文のような色になるのでしょう。
ダイソーではあるかどうかわかりませんが、より暗く赤みを感じない色として「バーント アンバー(こげ茶色)」があります。薄めても焼いた菓子の色に近いのではないかと思いま...続きを読む

QSpread(ver6)のヘッダで。。。

ヘッダー部分の背景色を指定した場合,枠線が白っぽく(セルの罫線の場合と枠線が違って)
表示されるされますが,統一する方法はありますか?

または,以下のロジックをいれた場合にはセルの罫線と同じように線がひかれているのですが,なにか記述もれがあるのでしょうか?

'// ヘッダの文字色替え
Spred(0).Col = 1
Spred(0).Row = -999
Spred(0).CellType = SS_CELL_TYPE_STATIC_TEXT
Spred(0).TypeTextWordWrap = True
Spred(0).TypeHAlign = SS_CELL_H_ALIGN_CENTER
Spred(0).TypeVAlign = SS_CELL_V_ALIGN_VCENTER
Spred(0).ForeColor = vbRed
Spred(0).BackColor = RGB(200,255,200)

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

Aベストアンサー

'// ヘッダの文字色替え
Spred(0).Col = 3
Spred(0).Row = SpreadHeader + 1
Spred(0).CellType = CellTypeStaticText
Spred(0).TypeTextWordWrap = True
Spred(0).TypeHAlign = TypeHAlignCenter
Spred(0).TypeVAlign = TypeVAlignCenter
Spred(0).ForeColor = vbRed
Spred(0).BackColor = RGB(200, 255, 200)
Spred(0).BackColorStyle = BackColorStyleOverHorzGridOnly

これでどうかな?
罫線と背景色の前後関係は、BackColorStyleで
罫線そのものの表示、非表示は、GridShowHoriz、GridShowVertで
罫線の色は、GridColorで
設定できるので、いろいろ試して見てください

Qあなたが好きな色、嫌いな色、心安らぐ色は?

人それぞれ好きな色、嫌いな色、心安らぐ色ってあると思うんですけど、あなたの場合はどうですか?私の場合は
好きな色=ピンク、嫌いな色朱色、心安らぐ色=青です。

Aベストアンサー

 嫌いな色はありませんが、使いにくい色はあると思います。
・・・たぶん、自分に使いこなす能力が不足しているせいだと思います。

 グレイ、スカイブルー、ネイヴィーブルー、モッズグリーン、ダークオリーブ、臙脂色、レンガ色、オゥード色、カーキ色、ベージュ、ライトブラウン、ダークブラウン、などの無地のスーツを愛用してます。

 グレイはグレンチェックなどの模様は好きですが、縦縞は堅い印象で嫌いです。

 黒は、パンツ、セーター類では使いますが、スーツは葬式用に持っているだけです。

 苦手なのはベージュやライトグリーンなどに、白色を混ぜて「濁った中間色」にしたものです。

・・・これは、2~3年前、殆んどのサラリーマンの「ネクタイ」に使われていた色なのですが、いかにも自信が無さそうに見えてマイナスな印象を他人に与えると思います。

Qスプレッドのヘッダとコンボボックスについて

2点不明点がありますのでよろしくお願いします。

【1】スプレッドのヘッダ
 スプレッドのヘッダを列・行とも表示する時
 _____________
 | あ |  い |  う  | 
 |-----|------|----------|   
 | え |    |     |
 |-----|------|----------|
 | お |    |     |
 |-----|------|----------|

  「い・う」 には設定できますが
  「あ」に設定できますか?

【2】コンボボックスの連結
スプレッドの1つの行をコンボボックスにしたいのですが
上表で例えると 「お」の行をコンボボックスにする。
しかし、画面を実行するとコンボボックスが押下されません。
コンボボックスを連結するにはどのようにしたらよいのでしょうか?

Aベストアンサー

【1】は可能です。下記のように設定してください。
With fpSpread1
.Col = 0
.Row = 0
.Text = "内容"
End With

【2】ですが、押下できないということは、「▼」がクリックできないと言うことでしょうか?
だとするならば、
・対象のセルにロックがかかっている。
・編集モードがReadOnlyになっている。
などが考えられます。

行全体をひとつのコンボボックスとするのであれば、あらかじめ対象の行のセルを連結しておき、一番左のセルに対してコンボボックスの設定を行ってください。

QWord 2010で「その他の色」を保存するには

Word 2010で文書を作成中に特定の文字列を「ホーム」にある「フォントの色」の「標準の色」にも「テーマの色」にもない色(例えば、RGBでR0、G0、B255)にした後でその文書を保存して閉じて再度開いた場合で、かつその「「標準の色」にも「テーマの色」にもない色」を使う場合は、その「「標準の色」にも「テーマの色」にもない色」を再度作成しなければなりません。その文書を開くたびにその「「標準の色」にも「テーマの色」にもない色」を再度作成しなければならないので不便です。

その「「標準の色」にも「テーマの色」にもない色」を保存しておいて、次回以降にその文書を開いたときに、その「「標準の色」にも「テーマの色」にもない色」を再度作成することなくすぐ使えるようにするにはどうしたらいいでしょうか。

Aベストアンサー

方法1:
色を付けた文字列をちょこっと選択しておいた状態で,ホームタブのスタイル一覧の▼をプルダウンして「選択範囲を新しいクイックスタイルとして保存」しておきます。たとえば「色1」などの名前で。
以後は,文字の色をわざわざ作り直す(そのたびにちょっとずつ色の配合を間違えたりする事もあるかもしれません)ことをしないで,登録した文字スタイルを適用していきます。

登録したスタイルは,とりあえず作業中の文章に記録されます。
他の文章ファイルにも共用したい場合は,登録したスタイルを右クリックしてスタイルの変更を開始し,「この文章のみ」から「このテンプレートを使用した新規文章」にマークしてNormalテンプレートに登録しておきます。
ワード終了後,全文章対象のテンプレートの変更を問われるので,はいと答えておきます。

さらに別の既存文章ファイルを開いた際は,ホームタブのスタイルの変更▼からスタイルセット▼で「テンプレートのクイックスタイルにリセット」します。


方法2:
色を付けた文字列をちょこっと選択しておいた状態で,フォントの色▼からその他の色..を開始し,そのままOKします。これで「最近使った」事になるので,最近使用した色りストに復元します。
最近使用した色はアプリケーションの記録なので,文章に残すことは出来ません。

方法1:
色を付けた文字列をちょこっと選択しておいた状態で,ホームタブのスタイル一覧の▼をプルダウンして「選択範囲を新しいクイックスタイルとして保存」しておきます。たとえば「色1」などの名前で。
以後は,文字の色をわざわざ作り直す(そのたびにちょっとずつ色の配合を間違えたりする事もあるかもしれません)ことをしないで,登録した文字スタイルを適用していきます。

登録したスタイルは,とりあえず作業中の文章に記録されます。
他の文章ファイルにも共用したい場合は,登録したスタイルを右ク...続きを読む

Qオートフィルタをマクロで作成したときに列番号ではなく文字で判別させたい

こんにちわ、質問させていただきます。
マクロでオートフィルタを使いたいのですが、
Worksheets("Sheet1").Range("A1").AutoFilter _
field:=1, _
Criteria1:="東京"
VisibleDropDown:=False
このfield:=1という列番号指定を文字列で検索したいと思っています。
例えばどこかの行に「地域」という列があった場合”地域”の列にフィルタをかけて東京を検索したいといった場合です。

地域  市外局番  郵便番号
東京   03     100

このフィールドを文字列指定することは不可能なのでしょうか?

Aベストアンサー

Sub test()
ActiveSheet.Rows("1:1").Find(What:="地域", LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate
x = ActiveCell.Column

Worksheets("Sheet1").Range("A1").AutoFilter _
Field:=x, _
Criteria1:="東京"

End Sub

Qカーキ色の服

カーキ色の服って持っていないんです。
デニム紺色、黒色、くすんだピンク色、ブラウン系を主に持っています。

肌の色は、ベージュオークルです。
標準より若干白めで、黄色がかった色です。

この肌色には、カーキ色のトップスは合うでしょうか?
カーキ色のトップスに合わせるボトムの色で似合うのは、何色でしょうか?
(くすんだピンク色なんてどうでしょうか?)

よろしくお願いします。

Aベストアンサー

こんにちは~☆
まだ間に合うかなぁ?
黒に変えてしまったでしょうか?

新しい色に挑戦する事って、すごくいいと思いますよ!
着こなしの幅がかなり広がります。
unidapyonさんの肌の色も問題ないと思うし・・・。
私はデニムに合わせても黒にもブラウンにもいいと思います。
黒に合わせるとちょっとヘビーって#2さんも言ってたように、ちょっと重めですよね?
インナーを白とかにすればアリです。
カーキと一口で言っても幅がありますので、ちょっと私の想像してるカーキとは違うかもしれませんが、もしこれからボトムを買い足すとしたら個人的にはベージュをおススメします。
ベージュのシンプルなAラインのスカートorプリーツスカート(アコーディオンとかじゃなくて、綿のちょっとカジュアルな太めのプリーツ)にカーキのブラウスっていいと思いますよ!
スカートなら靴はブーツとかですね。

カーキは秋っぽいとのことですが、夏(晩夏)くらいから使えるし、ここ最近定番色のようになっているので使えると思います。
夏なら白いボトムでもOKですよ!
デニムじゃない綿素材の紺なんかとも相性いいです。
ぜひぜひ頑張ってトライしてください!

こんにちは~☆
まだ間に合うかなぁ?
黒に変えてしまったでしょうか?

新しい色に挑戦する事って、すごくいいと思いますよ!
着こなしの幅がかなり広がります。
unidapyonさんの肌の色も問題ないと思うし・・・。
私はデニムに合わせても黒にもブラウンにもいいと思います。
黒に合わせるとちょっとヘビーって#2さんも言ってたように、ちょっと重めですよね?
インナーを白とかにすればアリです。
カーキと一口で言っても幅がありますので、ちょっと私の想像してるカーキとは違うかもしれませんが、...続きを読む

QA列にB列の空白セル以外のセルの数だけ1から番号をふりたい。

A列にB列の空白セル以外のセルの数だけ1から番号をふりたい。

WIN7 Excel2007でマクロ作成中です。A列にB列の番号の入っているセル(空白セル以外の)の数だけ番号を入力したいのですが、下記コードで、うまく出来ません。どうしたらよろしいでしょうか。

Sub 行番号を入れる2()
Dim i As Integer
Dim fCnt As Long

'シートが保護されていたら保護を解除
If ActiveSheet.ProtectContents = True Then
ActiveSheet.Unprotect
End If
fCnt = WorksheetFunction.CountA(Sheets("一覧").Columns(2)) 'COUNTA関数でB列の入力セル数を求める。
For i = 1 To fCnt
Worksheets("一覧").Cells(i + 3, 1).Value = i
Next i
End Sub

Aベストアンサー

見出し:1行目
データ:2行目~~

'-------------------------------------
Sub test()
 Dim R As Long
 Dim No As Long

 ActiveSheet.Unprotect

 For R = 2 To Cells(Rows.Count, "B").End(xlUp).Row
   If Cells(R, "B").Value <> "" Then
     No = No + 1
     Cells(R, "A").Value = No
   End If
 Next R

 ActiveSheet.Protect
End Sub
'---------------------------------------------

Protectの引数は省略。
以上です。
 

QWORDとEXCELの「フォントと背景色」の(相互利用)

「WORD」で「その他の色」で作った「Font色」「塗りつぶし色(プラス)出来れば透過を掛けた色も」を、「EXCEL」での「Font色」「背景色」に使用したいのですが、普通では「EXCEL」の「Font色」「背景色」では「既定の40色」からしか選択できないようです。
「EXCEL」で「Font色」「背景色」とも「その他の色」で自由に作る(or コピー)ことは可能でしょうか? その手順は?
Office2003を使っています。

Aベストアンサー

#1のmshr1962です。
>これは一体何を『コピー』してくる設計になっているのでしょうね?

別のエクセルブックです。
いくつか異なる設定をしたエクセルブックがあるときに
ブック名を参照することでそれと同じ設定を呼び出せます。
ただしコピー時にそのブックが同時に開いてないと参照できません。

「ブックのカラー パレットを変更する」
http://office.microsoft.com/ja-jp/assistance/HP051989351041.aspx

Qスプレッド行ヘッダについて

スプレッドの行ヘッダをプログラムの中で書き換えることは可能ですか?
可能であるならどのようにすればよいかご教授願います。
宜しくお願い致します。

Aベストアンサー

Col = 0,Row = 0以外
に指定して、Textを変更して下さい。


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

人気Q&Aランキング