VB6.0について質問です。
スプレッドでマウスのカーソルがあたっている行のバックカラーを変えたいのですがうまくいきません。
MouseMoveイベントでやっています。
バックカラーを変えるところまではなんとかできたのですが
その後カーソルがあたっていないところは色をもどしたいのですができません><
今やっている処理は以下のコードです。
実現するにはどこをに何を加えたらよいですか?
Private Sub spdlist_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
Dim actrow
With spdlist
.Col = -1
actrow = Int(y / 400)
.Row = actrow
.BackColor = vbred
End With
End Sub
No.1ベストアンサー
- 回答日時:
セル幅を1行ごとに計算しなければなりません。
できればClickイベントを使いたいところです。
下記のような感じでいかがですか?
.RowHeight(i) + 10としているのは、.RowHeightには
罫線の幅が含まれないからです。
スクロールには対応していません。
Public OldRow As Integer
Option Explicit
Private Sub fpSpread1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
Dim i As Integer
Dim MyHeit As Integer
With fpSpread1
.Col = -1
.Row = OldRow
.BackColor = vbWhite
.UnitType = 2
MyHeit = 0
For i = 0 To .MaxRows
MyHeit = MyHeit + .RowHeight(i) + 10
If MyHeit > y Then Exit For
Next i
.Col = -1
.Row = i
.BackColor = vbRed
OldRow = i
End With
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) ワークシート内を検索 1 2022/12/19 23:46
- Visual Basic(VBA) EXCEL VBAにて動的にCheckBOXを複数作成し、同BOXにイベントを追加したい 1 2023/03/16 07:05
- Visual Basic(VBA) 【VBA】写真の貼り付けコードがうまく機能しません。 5 2022/09/01 18:43
- Visual Basic(VBA) vbaの計算 if elseと範囲について 6 2022/11/26 01:49
- Visual Basic(VBA) ①ExcelVBAでカレンダーを作り、別のユザーフォームで日付を入力したいのですがエラーになります。 1 2023/02/17 18:39
- Excel(エクセル) バイナリー演算を勉強したい 1 2023/04/19 14:17
- Visual Basic(VBA) VBAプログラミング 2 2022/11/27 12:13
- Excel(エクセル) マクロで列を加えたら上手くいかなくなりました。 2 2022/05/23 17:59
- Excel(エクセル) エクセルのマクロについて教えてください。 2 2023/01/11 08:33
- Visual Basic(VBA) VBAで質問ですが、皆さんはどの様に導き出しているのでしょうか? 6 2022/05/03 21:53
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルVBAでフォームのListbo...
-
リストビューをスクロールさせ...
-
Excelでワードアートや図を常に...
-
PDFを(htmlのように)無限に縦...
-
Excelの質問で票の途中に...
-
Excelで一部分だけを常に表示さ...
-
Excelで1.2行目だけ固定して...
-
ExcelVBAで他のアプリをスクロ...
-
ページ訪問時にiframe内を自動...
-
webページで横方向にアンカーを...
-
JTableとJScrollPaneについて
-
複数の画像を横にスクロールさ...
-
リストボックスをクリックした...
-
webデザインです。 プログラミ...
-
Visual Basicから Spreadのスク...
-
VBE画面の縦のスクロールバ...
-
ページ読み込み時に自動でスク...
-
vb,netでtextboxの文字を右から...
-
jQueryで指定した要素を自動横...
-
写真を右から左にスクロールさ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excelでワードアートや図を常に...
-
エクセルVBAでフォームのListbo...
-
PDFを(htmlのように)無限に縦...
-
リストビューをスクロールさせ...
-
Excelで1.2行目だけ固定して...
-
Excelの質問で票の途中に...
-
Excelで一部分だけを常に表示さ...
-
大きい表へのスクロールバーの...
-
ページ訪問時にiframe内を自動...
-
Visual Basicから Spreadのスク...
-
vb,netでtextboxの文字を右から...
-
webページで横方向にアンカーを...
-
リストビューの表示開始行変更
-
スクロール位置を中央にしたい
-
マウスオーバー→ホイール回転で...
-
VBE画面の縦のスクロールバ...
-
IFRAMEでscrolling="yes|no"の...
-
マウスでコロコロしたいんですが…
-
文章の自動スクロール
-
アコーディオンで開かれたパネ...
おすすめ情報