- ベストアンサー
Spread(ver6)のヘッダでヘッダー部分の背景色を指定した場合における問題と解決方法について
- Spread(ver6)のヘッダでヘッダー部分の背景色を指定した場合、枠線が白っぽく表示される問題があります。統一する方法はありますか？
- また、以下のロジックを入れた場合にはセルの罫線と同じように線が引かれていますが、何か記述漏れがあるのでしょうか？
- ヘッダの文字色を変更するためのロジックが記述されていますが、背景色を指定した場合に問題が発生し、枠線が白っぽく表示されます。この問題の解決方法をご教示ください。
- -cinq-
- お礼率46% (34/73)
- Visual Basic
- 回答数3
- ありがとう数1
- みんなの回答 （3）
- 専門家の回答
質問者が選んだベストアンサー
その他の回答 (2)
- Kuppycat
- ベストアンサー率50% (109/216)
- Kuppycat
- ベストアンサー率50% (109/216)
'// ヘッダの文字色替え Spred(0).Col = 0 Spred(0).Row = -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 = BackColorStyleOverGrid ← 追加してみて
補足
回答ありがとうございます。 上記のロジックを追加しましたが、同じ結果でした。 原因は Spred(0).Row にあるみたいです。 -1に設定するとヘッダの線は正しく表示されるようです。 しかし、-1だとセルの情報が変わってしまいます。 もし、なにかわかりましたらよろしくお願い致します。
関連するQ&A
- SPREADの行の削除
VB6.0 SPREAD3.0 OS:2000 SPREADでカレント表示した行を削除ボタンを押したら 削除したいのですがやり方がうまくわかりません。 クリックしたらカレント表示 Private Sub oSpmain_Click(ByVal Col As Long, ByVal Row As Long) With oSpmain .ReDraw = False .Row = -1: .Col = -1: .BackColor = vbWhite .ForeColor = RGB(255, 300, 0) .BlockMode = True .Row = Row: .Row2 = Row .Col = 1: .Col2 = .MaxCols .BackColor = .ForeColor .ForeColor = vbWhite Xor .ForeColor .BlockMode = False .ReDraw = True End With End Sub ここまではできたのですが、削除が思うようにできません。アドバイスお願いします。
- ベストアンサー
- Visual Basic
- GrapeCityのSpreadについて
いつもお世話になっております。 VB6.0、Spread3.0を使っています。 下記コードで罫線の色を変えようとしているのですが、 うまくいきません。 Me.vaSpread3.Col = Me.vaSpread3.ActiveCol Me.vaSpread3.Row = Me.vaSpread3.ActiveRow Me.vaSpread3.CellBorderType = 16 Me.vaSpread3.CellBorderStyle = 5 Me.vaSpread3.CellBorderColor = MyColor Me.vaSpread3.Action = SS_ACTION_SET_CELL_BORDER おわかりのかたがおられましたらよろしくお願いいたします。
- ベストアンサー
- Visual Basic
- VBAを使って条件付書式のセルを保護したい
VBAを使って =A2<>0の条件付書式の入ったセルが 黒塗りのときをロックしたいと思い セルの状態を調べたいのですが FormatConditionsを使えばいいのかと想うのですが 使い方がイマイチわかりません。 たとえば 黒で塗りつぶしたセルを探そうと想ったときは locked_col = RGB(0, 0, 0) cell_col = Worksheets("Sheet1").Cells(j, i).Interior.Color 'セルが黒塗りの場合ロックする If Not cell_col = locked_col Then Cells(j, i).Locked = False End If っていう風にはできないのでしょうか？ 知恵をおかしください
- 締切済み
- その他MS Office製品
- ie8のcssでcol要素のwidthがきかない
ie7でうまく表示しているソースで、先日ie8にアップグレードし表示を確認しましたら、セルの幅の設定がうまくいかず、すべてのセルの幅が同じ長さ(省略値?)になっていました。 いろいろと確認して行くと、どうもcol要素のcssのwidthが無視されているようでした。 cssはまだ勉強し始めたばかりで詳しくありません。cell11,cell12の中にwidthを指定すればwidthは有効のようです。 どなたか、どこを修正すれば直るか教えてください。ソースは以下の通りです。 ------------------------------------------- htmlのソース <table class="table2"> <col class="col41"> <col class="col42"> <col class="col51"> <col class="col52"> <col class="col41"> <col class="col42"> <col class="col51"> <col class="col52"> <tr> <th class="cell12" colspan="2" align="center" nowrap>３月</th> <th class="cell12" colspan="2" align="center" nowrap>４月</th> <th class="cell12" colspan="2" align="center" nowrap>５月</th> <th class="cell12" colspan="2" align="center" nowrap>６月</th> </tr> <tr> <th class="cell11" nowrap>点数</th> <th class="cell11" nowrap>金額</th> <th class="cell11" nowrap>点数</th> <th class="cell11" nowrap>金額</th> <th class="cell11" nowrap>点数</th> <th class="cell11" nowrap>金額</th> <th class="cell11" nowrap>点数</th> <th class="cell11" nowrap>金額</th> </tr> <tr> <td class="cell12" nowrap>100</td> <td class="cell12" nowrap>200,000</td> <td class="cell12" nowrap>50</td> <td class="cell12" nowrap>100,000</td> <td class="cell12" nowrap></td> <td class="cell12" nowrap></td> <td class="cell12" nowrap></td> <td class="cell12" nowrap></td> </tr> </table> ----------------------------------------- cssのソース .table2 { border : 0px solid black ; border-collapse: collapse ; margin: 0px; padding: 0px; } .col41 { /* 緑 各月 点数 */ text-align: right; width: 50px; background-color: #e0ffff ; } .col42 { /* 緑 各月 金額 */ text-align: right; width: 80px; background-color: #e0ffff ; } .col51 { /* 白 各月 点数 */ text-align: right; width: 50px; background-color: #ffffff ; } .col52 { /* 白 各月 金額 */ text-align: right; width: 80px; background-color: #ffffff ; } .cell11 { border-right : 1px solid silver ; border-bottom: 1px solid black ; } .cell12 { border-right : 1px solid silver ; border-bottom: 1px solid silver ; } よろしくお願いします。
- ベストアンサー
- CSS
- 選んだ行の削除
VB6.0 SPREAD3.0 SPREADで何行か表示している時に削除したい行をクリックし、その行に色（黄色）をつけ、その色のついた行を削除ボタンを押したら削除する・・・という仕様にしたいと思っております。 そして以下のように書いてみたのですが、問題があり、 (1)クリックした行の色が変わると同時に何故だか最終行の文字の色が黄色に変わってしまう。 (2)例えば一行目をクリックしてから３行目をクリックすると一行目の文字の色が黄色になってしまい、もとに戻らない。 (3)行を選択しないまま削除ボタンを押すと下から順に行が削除されてしまう。 という３つの問題があり、解決できないでいます。 なにかアドバイスがありましたらよろしくお願いします。 '---クリックした行の色を反転--- Private Sub spread_Click(ByVal Col As Long, ByVal Row As Long) With oSpmain .ReDraw = False .Row = .Row: .Col = -1: .BackColor = vbWhite .ForeColor = RGB(255, 300, 0) .BlockMode = True .Row = Row: .Row2 = Row .Col = 1: .Col2 = .MaxCols .BackColor = .ForeColor .ForeColor = vbWhite Xor .ForeColor .BlockMode = False .ReDraw = True End With End Sub '---削除ボタン--- Private Sub sakujyo_Click() With spread .BlockMode = True .Action = ActionDeleteRow .BlockMode = False .MaxRows = .MaxRows - 1 End With End Sub
- ベストアンサー
- Visual Basic
- .netでグリッドにデータ表示する方法
超初歩的な質問ですみません。 今後の開発で.netを使用するので、試しにSELECT文で取得したデータをグリッドに表示しようとしたのですが、グリッドが画面に表示されません。(グリッドのヘッダはおろか、枠線すら出力されません。)グリッドプロパティの「DataSource」(=DataSet1)、「DataMember」(=Emp)を設定しています。ロジックに問題があると思うのですが、ヘルプやサイトを見てもわかりませんでした。 あつかましいお願いで申し訳ありませんが、下記ロジックに対するご助言を宜しくお願い致します。 ＜ロジック_スタート＞ Dim sSQL As String sSQL = "" sSQL = sSQL & " SELECT" sSQL = sSQL & " Emp.Col1 AS Col1" sSQL = sSQL & " , Emp.Col2 AS Col2" sSQL = sSQL & " FROM" sSQL = sSQL & " Emp" OracleDataAdapter1.SelectCommand.CommandText = sSQL DataSet1.Clear() OracleDataAdapter1.Fill(DataSet1, "Emp") ＜ロジック_エンド＞ 尚、環境はOS：Win2000、DB：Oracle9i、.net2003です。
- 締切済み
- Visual Basic
- エクセルVBAで結合セルの真ん中にチェックボックスを作成する方法を教え
エクセルVBAで結合セルの真ん中にチェックボックスを作成する方法を教えて下さい。 数個下の質問で結合されたセルに一つだけチェックボックスを作る方法を質問した者です。 度々すみません。 今度の質問ですが、結合したセルの上下左右の真ん中にチェックボックスを作る方法を教えていただけないでしょうか？ 現在のプログラムは下記のようになっております。 宜しくお願い致します。 Dim ss As Excel.Range, cbx As CheckBox With Selection.Parent For Each ss In Selection If (ss.MergeArea.Column = ss.Column) * (ss.MergeArea.Row = ss.Row) Then Set cbx = .CheckBoxes.Add(Left:=ss.Left, Top:=ss.Top, _ Height:=ss.Height, Width:=ss.Width) cbx.Text = "" RowCnt = Selection.Row '選択されているセルの行をRowCnt変数で表現 cbx.LinkedCell = "A" & RowCnt '選択されているセルのA列にチェックボックスを作成 cbx.Display3DShading = False '3D表示なし With cbx.ShapeRange .Fill.Solid .Fill.Visible = msoFalse '塗りつぶしなし .Line.Visible = False '線on,off .Line.Weight = 0.25 '線幅 .Line.ForeColor.RGB = RGB(0, 0, 0) '線色 End With End If Next End With
- ベストアンサー
- Visual Basic
- Excel_VBAでセル参照式を変更するには？
あるシートのA1セルに、他シートセルの参照式を入れたく思います。 シート名は固定ですが、セルは下・右に移動させるため変数としています。 例えば、Sheet_1シートA列のrow_1を1-10までDO文でまわす場合に、行も数字で表記されてしまうため下記では参照式が成立しません。 cell_formula = "Sheet_1!" & row_1 & col_1 ActiveCell.Value = "=" & cell_formula 上記だと「cell_formula = Sheet_1!11」となってしまい、希望する「Sheet_1!A1」とならないのでエラーとなります。 間に変換式を入れることで、「Sheet_1!A1」と変えられないでしょうか？ 説明が悪いようでしたら補足しますので、よろしくお願い致します。
- ベストアンサー
- オフィス系ソフト
- 画像をマクロでエクセルシートに貼り付けるには
画像をマクロを使ってエクセルシートに貼り付けようとしています。 2つ質問があります。 下記のマクロをベースとして。 （１）画像の縦横比を固定のまま、貼り付けたい。LockPictureAspectRatio=msoTrueだろうと思うのですが、見つかりません。 LockPictureAspectRatioは、画像のバケツボタンの fill effect/picture/select picture/insert/ から来ています。 （２）位置をセルを選んで与えたい。つまり、Cell(10,10) －－＞ pointへの変換方法を教えて下さい。 下のマクロでは、x=１００，y=１００と与えていますが、これを、セルを選ぶことで与えたいのです。 Sub myMacro() Dim myPicture As String Dim a As Object myPicture = "C:\Documents and Settings\nrjito\My Documents\My Pictures\test.jpg" Set a = ActiveSheet.Shapes.AddShape(msoShapeRectangle, 100, 100, 300, 300) a.Fill.ForeColor.RGB = RGB(255, 255, 255) a.Fill.Transparency = 0 a.LockAspectRatio = msoTrue a.Fill.UserPicture myPicture End Sub よろしくお願い致します。
- ベストアンサー
- オフィス系ソフト
- 検索値が隣どうしの場合に黄色に塗潰されない。
いつもお世話になっております。 どかたかご存知でしたら回答をお願いします。 QNo.9570997 で2018/12/25に質問させて頂き 昨日、回答を頂きましたが、１か所不具合があり修正したいですが 自力では無理なので再度質問させて頂きます。 ◆不具合内容 下記の”不具合がでるパターン”はその下にある”〇例題”の A2：02→01 ※A1とA2の値が01となる。 A5：07→01 の２か所の値を変更したものです。 ＞複写数：01 ＞検索値：01 で、検索した場合、Ａ２に０１がありますが黄色に塗る潰されず Ａ１の０１と、Ａ５の０１が塗り潰されます。 Ａ２の０１を黄色に塗潰すにはどうすればよいですか？ 同じ値が隣同士に存在するといずれか１つしか黄色に塗潰されないです。 それ以外の機能は問題ありません。 〇不具合が出るパターン Ａ B C Ｄ Ｅ Ｆ G Ｈ Ｉ Ｊ Ｋ Ｌ Ｍ 1 01 11 16 26 31 40 08 15 21 25 30 35 2 01 03 06 17 27 41 01 11 26 28 31 36 3 04 09 12 19 22 42 02 03 06 16 17 37 4 05 13 14 23 29 43 04 09 12 22 27 38 5 01 10 18 20 24 27 05 13 19 23 29 39 6 7 04 13 16 30 31 33 05 08 20 22 26 37 8 02 15 17 24 29 34 01 03 07 18 19 38 9 01 03 07 19 25 35 04 12 14 16 25 39 10 11 12 14 21 27 36 10 11 21 23 27 40 11 06 09 10 23 28 37 06 08 09 20 28 41 ◆回答頂いたソース Option Explicit Sub Macro1() ' Dim Col As Integer Dim IRange As Range ' Cells.Interior.Pattern = xlNone [A13:O557].ClearContents ' For Col = 0 To [Q1] - 1 Set IRange = [A1:O11].Offset(Col * 13) IRange = [A1:O11].Value Level1 IRange, Cells(2, Col + 17) Next Col End Sub ' Sub Level1(IRange As Range, ByVal Search As Integer) ' Dim Cell1 As Range Dim TableC(43) As Integer Dim Count As Integer ' For Each Cell1 In IRange ' If Cell1 = Search Then Count = Count + 1 Level2 Cell1, TableC(), Search Cell1.Interior.Color = vbYellow End If Next Cell1 ' For Each Cell1 In IRange ' If Cell1.Interior.Color <> vbBlue Then ElseIf TableC(Cell1) < Count Then Cell1.Interior.Pattern = xlNone End If Next Cell1 End Sub ' Sub Level2(Cell1 As Range, TableC() As Integer, Search As Integer) ' Dim Cell2 As Range Dim TableB(43) As Boolean Dim RowF As Boolean Dim ColF As Boolean ' RowF = Cell1.Row > 1 ColF = Cell1.Column > 1 ' For Each Cell2 In Cell1.Offset(RowF, ColF).Resize(2 - RowF, 2 - ColF) ' If Cell2 < "01" Then ElseIf Abs(Cell1 - Cell2) = 1 Then Cell2.Interior.Color = vbRed ElseIf Cell1.Address <> Cell2.Address Then Cell2.Interior.Color = vbBlue TableC(Cell2) = TableC(Cell2) + 1 - TableB(Cell2) TableB(Cell2) = True End If Next Cell2 End Sub ＊＊＊ 2018/12/25 の質問 ＊＊＊ 【改造】検索値と一緒に出ている隣接数字を知るには？ いつもお世話になっております。 どかたかご存知でしたら回答をお願いします。 １ケ月程前に下記の質問をさせていただきました。 そして回答を頂きました。これを改造したく質問します。 尚、5×6マス以外に、5×5マス、5×7マスへの改造方法も教えて頂けると助かります。 ◆改造（付け加える）要件・・・下記以外は前回と同じです。 (3)コピー後に検索値欄の値でコピーした側の４つの5×6のセル内を検索して塗潰す。 具体的には、 (1)検索値と同じ値を見つけたら、黄色でセルを塗潰す。【既存】 (2)検索値と同じ値で隣接する８方向（上、下、左、右、右下、左下、右上、左上） の数字との差が0か１なら、検索値とそのセルを赤色で塗潰す。【既存】 (3)検索値と同じ値で隣接する８方向（上、下、左、右、右下、左下、右上、左上） の数字が全て同じなら、青く塗り潰す。【追加】 〇例題 Ａ B C Ｄ Ｅ Ｆ G Ｈ Ｉ Ｊ Ｋ Ｌ Ｍ 1 01 11 16 26 31 40 08 15 21 25 30 35 2 02 03 06 17 27 41 01 11 26 28 31 36 3 04 09 12 19 22 42 02 03 06 16 17 37 4 05 13 14 23 29 43 04 09 12 22 27 38 5 07 10 18 20 24 27 05 13 19 23 29 39 6 7 04 13 16 30 31 33 05 08 20 22 26 37 8 02 15 17 24 29 34 01 03 07 18 19 38 9 01 03 07 19 25 35 04 12 14 16 25 39 10 11 12 14 21 27 36 10 11 21 23 27 40 11 06 09 10 23 28 37 06 08 09 20 28 41 複写数：01 ※最大1~43の数字が入る。 検索値：01 ※最大43個の数字が右に並ぶ。 〇結果 A1、H2、A9、H8：01が黄色で塗潰される。 A2、H3、A8 ：02が赤色で塗潰される。 B2、I3、B9、I8 ：03が青色で塗潰される。 〇青色を塗潰す説明 A1にある01の隣接数字は小さい順に、02、03、11 H2にある01の隣接数字は小さい順に、02、03、08、11、15 A9にある01の隣接数字は小さい順に、02、03、11、12、15 H8にある01の隣接数字は小さい順に、03、04、05、08、12 01が見つかった４か所全てに出現している隣接数字は03なので03を青色で塗潰す。 逆に03を検索値とした場合は、 B2にある03接数字は小さい順に、01、02、04、06、09、11、12、16 I3にある03隣接数字は小さい順に、01、02、04、06、09、11、12、26 B9にある03隣接数字は小さい順に、01、02、07、11、12、14、15、17 I8にある0の隣接数字は小さい順に、01、04、05、07、08、12、14、20 03が見つかった４か所全てに出現している隣接数字は01、12なので、 01、12を青色で塗潰す。
- ベストアンサー
- Excel（エクセル）
- ファックスを受信した際に表示されるアイコンが表示されません。
- 着信や新着メッセージのアイコンは表示されるのですが、ファックスのアイコンが表示されません。
- ブラザー製品を使用していますが、相手からファックスが届いた場合には表示されないようです。
補足
説明不足でごめんなさい。 変えたいのは、一部です。 ============================ -- あ | ============================ |→ ヘッダ a ｜ b ｜ c | ============================ -- 1 ｜ 2 ｜ 3 -- ---------------------------- | 4 ｜ 5 ｜ 6 |→ 項目 ---------------------------- -- c を以下のように変更したい。 文字色→ 赤 背景色→ 薄緑 Rowを-1にすると 3と6のセルが 文字色→ 赤 背景色→ 薄緑 に変わってしまいます。 Rowを-1000 +1 にすると上記の現象は 起きませんが罫線が引かれて表示されてしまいます。 上記の説明でわかりますでしょうか？