OKWAVEのAI「あい」が美容・健康の悩みに最適な回答をご提案!
-PR-
解決
済み

現在のセルの位置を返す関数は?の関連質問です

  • 暇なときにでも
  • 質問No.236151
  • 閲覧数35
  • ありがとう数1
  • 気になる数0
  • 回答数1
  • コメント数0

お礼率 66% (800/1201)

質問No.236012で素晴らしい回答頂きましたが、締め切ってしまいましたので追加質問をさして頂きます。
nishi6さんの回答No3で
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Const BoldCol = "A"    '太字にする列
  Const maxRow = 4      '太字にするセルの最後の行(開始は1行目から)
の部分で太字にする開始は1行目からになっていますが、例えば2行目から4行目までという風に、開始の行と最後の行を指定する場合はどのようにすればよいでしょうか。
通報する
  • 回答数1
  • 気になる
    質問をブックマークします。
    マイページでまとめて確認できます。

質問者が選んだベストアンサー

  • 回答No.1
レベル13

ベストアンサー率 68% (791/1163)

開始行を指定するようにしてみました。

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
お礼コメント
siba10

お礼率 66% (800/1201)

ご指導ありがとうございます。
全く望んでいた通りの回答です。
充分に利用さしていただきます。
投稿日時 - 2002-03-19 06:35:38
-PR-
-PR-
このQ&Aのテーマ
このQ&Aで解決しましたか?
-PR-
-PR-
このやり方知ってる!同じこと困ったことある。経験を教えて!
このQ&Aにはまだコメントがありません。
あなたの思ったこと、知っていることをここにコメントしてみましょう。

その他の関連するQ&A、テーマをキーワードで探す

キーワードでQ&A、テーマを検索する
-PR-
-PR-
-PR-

特集


いま みんなが気になるQ&A

-PR-

ピックアップ

-PR-
ページ先頭へ