
No.3ベストアンサー
- 回答日時:
補足について、Sheet1で処理を行う想定で書いてみました。
最初のConstの2行で、A列と4行目までを指定しています。実情に合うよう変更して下さい。
Sheet1のコードウインドウに貼り付けます。
最初の質問の回答とは同時登録できませんのでご注意ください。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Const BoldCol = "A" '太字にする列
Const maxRow = 4 '太字にするセルの最後の行(開始は1行目から)
'単一セルの操作の場合
If Target.Count = 1 Then
'A列の太字属性を解除
Range(BoldCol & "1:" & BoldCol & maxRow).Font.Bold = False
If Target.Row <= maxRow Then
'特定行にあればA列を太字属性にする
Range(BoldCol & Target.Row).Font.Bold = True
End If
End If
End Sub
うわ~! すごい。
まさに前々から、こんなことが出来ればいいなと思いつつ、マクロってチンプンカンプンで投げ出していました。
今でも詳しい意味はわからないけど、コピーして貼り付けさして頂き、自分の知識で解る範囲で改修して利用さしていただきます。
ありがとうございました。
No.2
- 回答日時:
こんにちは!
数式では
=ADDRESS(CELL("row"),CELL("col"),4)
こんな感じでしょうか!
ただし、この関数(CELL())は再計算処理がされた時に
更新されますから、
>マウスで指定されたセルの位置が返される
にはならず F9を押すか数値を入力した時点で値が
返されます。
リアルタイムに値を返すのならやはり
#1 nishi6 さんのVBAになると思います!
No.1
- 回答日時:
ワークシート関数は思いつきませんでした。
マクロで行ってみました。ツール→マクロ→Visual Basic Editor でVBE画面に移り、
表示→プロジェクトエクスプローラでプロジェクトエクスプローラを表示し、
(1)Sheet1に質問の機能を実現する場合は
→プロジェクトエクスプローラのSheet1をダブルクリック
→出てきたコードウインドウに下記マクロを貼り付けます。(3行)
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("A1") = Target.Address(False, False)
End Sub
(2)どのシートにも質問の機能を実現する場合は
→プロジェクトエクスプローラのThisWorkbookをダブルクリック
→出てきたコードウインドウに下記マクロを貼り付けます。(3行)
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Sh.Range("A1") = Target.Address(False, False)
End Sub
当方、Excel2000ですが、Excel97でも問題ないでしょう。ご参考に。
この回答への補足
早速ご回答くださいましてありがとうございます。
マクロのことは余り知識がありませんが、ご指示通りにマクロをコピーして貼り付けますと、うまくいきました。
的を外れた追加質問になるかもしれませんが、教えてください。
シートの左端に行番号がありますが、現在のセルの位置の行番号が太字に表示されて、現在のセルが何行目かすぐわかりますよね。
この様に例えば、A1に水道光熱費、A2に旅費交通費、A3に通信費、A4に交際費と標準文字で入力されていたとき、セルが1行目にあるときは(何列目であっても)A1の水道光熱費が太字文字で表示され、セルが2行目にあるときはA2の旅費交通費が太字文字で表示されると言うような事はできるのでしょうか?
もちろん行が変われば、標準文字に戻るようにです。
よろしくお願いします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
Excelの入力規則で2列表示したい
Excel(エクセル)
-
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
-
VBA シートのボタン名を変更したい
Visual Basic(VBA)
-
-
4
Excel:いまフォーカスがあるセルを特定し、その行のセルのデータをA列から順に参照したい。
Excel(エクセル)
-
5
IF関数で空欄(")の時、Nullにしたい
その他(Microsoft Office)
-
6
特定のセルがアクティブになったときのイベント?
Excel(エクセル)
-
7
Excelでセル参照したとき、書式も一緒に持ってくるには?
Windows Vista・XP
-
8
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
9
Excelのセルにユーザー名を表示する方法
Excel(エクセル)
-
10
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
11
Excel VBAでマウスの左クリックのイベントを検知するには
Visual Basic(VBA)
-
12
ドロップダウンリスト 自動表示したい
Excel(エクセル)
-
13
エクセルVBAでセルに入力したパスでブックを開く
Excel(エクセル)
-
14
EXCELで特定のセルに表示された項目をヘッダーやフッターに出力するには
Excel(エクセル)
-
15
Enterキーでマクロを起動さす。
その他(ソフトウェア)
-
16
ユーザーフォームを表示中にシートの操作をさせるには
Excel(エクセル)
-
17
VB6,リストボックスの特定行の色変更は可能?
Visual Basic(VBA)
-
18
Excelで数値→文字列変換で指数表示になったものをいっぺんに直したい
Excel(エクセル)
-
19
ExcelVBAのユーザーフォームの中に線を引きたい
Visual Basic(VBA)
-
20
Excel・Word リサーチ機能を無効にする。
Word(ワード)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
EXCELで特定のセルに表示...
-
Excel内での検索結果をシート...
-
太字に設定されているセルの個...
-
クリックすると文章が表示され...
-
マクロを実行すると画像がズレ...
-
エクセル 数字をすべて○などの...
-
エクセル 未入力セルがあると...
-
Excel2007 色のカウント (VBA)
-
Excel ハイパーリンクのURLを別...
-
Excelの文字色でカウントし平均...
-
エクセルでページ数をあるセル...
-
Excelでセルをクリックす...
-
【EXCEL】先週の月曜日の日付を...
-
エクセル シート保護された共...
-
フォントの色を指定して削除出...
-
excelのソルバーをVBAで複数行...
-
セル背景や文字を点滅させる方法
-
未記入がある場合はマクロを実...
-
ExcelVBAで、ColorIndexの取得
-
セルがクリックされた回数をカ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
EXCELで特定のセルに表示...
-
Excel内での検索結果をシート...
-
エクセル 数字をすべて○などの...
-
Excelで、図形内の文字をセルに...
-
クリックすると文章が表示され...
-
Excel2007 色のカウント (VBA)
-
Excel ハイパーリンクのURLを別...
-
太字に設定されているセルの個...
-
Excelでセルをクリックす...
-
セルの内容をテキストボックス...
-
セルがクリックされた回数をカ...
-
エクセルでPDFリンクを大量...
-
フォントの色を指定して削除出...
-
現在のセルの位置を返す関数は...
-
エクセルでセルをダブルクリッ...
-
未記入がある場合はマクロを実...
-
Excel:セルの値(文字列)を数...
-
マクロを実行すると画像がズレ...
-
アポストロフィーの一括挿入 ...
-
シート保護とグループ化機能を...
おすすめ情報