- ベストアンサー
現在のセルの位置を返す関数は？の関連質問です
質問No.236012で素晴らしい回答頂きましたが、締め切ってしまいましたので追加質問をさして頂きます。 nishi6さんの回答Ｎｏ３で Private Sub Worksheet_SelectionChange(ByVal Target As Range) Const BoldCol = "A" '太字にする列 Const maxRow = 4 '太字にするセルの最後の行(開始は１行目から) の部分で太字にする開始は１行目からになっていますが、例えば２行目から４行目までという風に、開始の行と最後の行を指定する場合はどのようにすればよいでしょうか。
- siba10
- お礼率66% (800/1201)
- オフィス系ソフト
- 回答数1
- ありがとう数1
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
開始行を指定するようにしてみました。 Private Sub Worksheet_SelectionChange(ByVal Target As Range) Const BoldCol = "A" '太字にする列 Const startRow = 2 '太字にするセルの最初の行 Const maxRow = 4 '太字にするセルの最後の行 '単一セルの操作の場合 If Target.Count = 1 Then 'A列の太字属性を解除 Range(BoldCol & startRow & ":" & BoldCol & maxRow).Font.Bold = False If startRow <= Target.Row And Target.Row <= maxRow Then '特定行間内にあればA列を太字属性にする Range(BoldCol & Target.Row).Font.Bold = True End If End If End Sub
関連するQ&A
- エクセルｖｂａ (ByVal Target As Range)について
シートのイベントプロシージャーが Private Sub Worksheet_SelectionChange(ByVal Target As Range) End Sub となりますが (ByVal Target As Range)部分は何なのでしょうか？ 何のためにあるのかわかりません。 Private Sub Worksheet_SelectionChange() End Sub としたらエラーが返ってきました。 理由を教えてください。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- マクロの疑問
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address <> "A2" Then Range("A2").Select End If End Sub とすると、どのセルを選んでもA2に飛ぶのに、 Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "A3" Then Range("A2").Select End If End Sub とすると、A3を選んでも全く移動しないのはなぜでしょうか。 なにか落とし穴がありそうで。。。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- エクセル デバッグできるのとできないのがある
シートイベントについて教えてください。 シートモジュールに --------------------------------------------------------- Option Explicit Private Sub Worksheet_Activate() MsgBox "" End Sub Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) MsgBox "" End Sub Private Sub Worksheet_Change(ByVal Target As Range) MsgBox "" End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) MsgBox "" End Sub --------------------------------------------------------- と記載した時に、 Ｆ８で動かせるのは、Worksheet_Activateだけなのですがなぜでしょうか？ ほかのイベントは、F8で実行させても、ＯＳの音が鳴るだけで、マクロの実行はされません。 ご回答よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- エクセルマクロ(VBA)で指定したセルが変化したときに実行するには？
VBAでsheetの中のworksheet_changeなどでマクロを書くと、そのシー トの中のどのセルを変化させてもマクロが実行されるのですが、これ を、A1とc1とc2が変化したときだけ処理を実行させたいのです。 以下のマクロのどこかを編集すると、そのようなことが出来るのでし ょうか？ Private Sub Worksheet_SelectionChange(ByVal Target As Range) ----実行する内容---- End Sub Private Sub Worksheet_Change(ByVal Target As Range) ----実行する内容---- End Sub
- ベストアンサー
- オフィス系ソフト
- 複数のセルを選択しているかを取得するプロパティは？
SelectionChangeイベントで 複数のセルを選択しているかを取得するプロパティってないのでしょうか？ 今は、 Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Len(Target.Address) > 5 Then MsgBox "複数のセルが選択されています" End If End Sub こうしていますが、行数が多くなると文字も多くなってしまうので、このコードでは対応できません。 Rangeオブジェクトに何個セルが入ってるかを知る方法はありますか？ ウォッチのTargetのcellsを見ても、どう見ればいいのかわかりません
- ベストアンサー
- オフィス系ソフト
- VBA マクロの削除について教えてください
VBEのWorksheet上にある、下記のコードが消えません。 Private Sub Worksheet_SelectionChange(ByVal Target As Range) End Sub 全選択して、Deleteするのですが、消しても復活しています。 これ以上方法が思いつかないので、ご教示をおねがいします。
- ベストアンサー
- その他（プログラミング・開発）
- セル値
すみません エクセルＶＢＡ勉強中のものですが、セルＡ１とＡ２がブランクだったら、セルＢ１に”あ”を表示するという式を作ったのですがうまく動いてくれません ご指導のほどお願いします。 Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Cells(1, 1).Value <> "" & Cells(2, 1).Value <> "" Then Cells(1, 2).Value = "あ" End If End Sub
- 締切済み
- Visual Basic
- Excelで選択しているセルの行を色づけしたい
以前、このサイトでVBAを以下のように設定したのですが、 一度、ファイルを閉じてしまうと、無効になってしまいます。どうすれば、いいのでしょうか？ Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) ActiveSheet.Rows.Interior.ColorIndex = xlNone Rows(Target.Row).Interior.ColorIndex = 15 End Sub
- ベストアンサー
- オフィス系ソフト
- エクセルVBA/イベント発生でコピペ不能はなぜ？
シートに以下のマクロを設定すると、そのシート内ではコピーしたもののペーストが不能になります。 どうしてでしょうか？ Private Sub Worksheet_SelectionChange(ByVal Target As Range) Target.Interior.ColorIndex = 6 End Sub
- ベストアンサー
- オフィス系ソフト
お礼
ご指導ありがとうございます。 全く望んでいた通りの回答です。 充分に利用さしていただきます。