Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


1467 / 13646 ツリー ←次へ | 前へ→

【74253】コードのオンオフスイッチを作りたい 初心者 13/5/8(水) 15:41 質問[未読]
【74254】Re:コードのオンオフスイッチを作りたい UO3 13/5/8(水) 15:43 発言[未読]
【74255】Re:コードのオンオフスイッチを作りたい 初心者 13/5/8(水) 16:24 発言[未読]
【74256】Re:コードのオンオフスイッチを作りたい 初心者 13/5/8(水) 16:25 発言[未読]
【74257】Re:コードのオンオフスイッチを作りたい UO3 13/5/8(水) 17:59 発言[未読]
【74260】Re:コードのオンオフスイッチを作りたい 初心者 13/5/9(木) 9:37 発言[未読]
【74261】Re:コードのオンオフスイッチを作りたい UO3 13/5/9(木) 10:18 発言[未読]

【74253】コードのオンオフスイッチを作りたい
質問  初心者  - 13/5/8(水) 15:41 -

引用なし
パスワード
   以下のコードをオンオフするスイッチを作りたいのですが、
どうすればいいでしょうか…

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)

Application.EnableEvents = False

With Target
Range(.EntireColumn.Address & "," & .EntireRow.Address).Select
.Activate
End With

Application.EnableEvents = True

End Sub

【74254】Re:コードのオンオフスイッチを作りたい
発言  UO3  - 13/5/8(水) 15:43 -

引用なし
パスワード
   ▼初心者 さん:

こんにちは

>以下のコードをオンオフするスイッチを作りたいのですが、

具体的にはどういうことをしたいのでしょうか。
言葉で説明いただけませんか?

【74255】Re:コードのオンオフスイッチを作りたい
発言  初心者  - 13/5/8(水) 16:24 -

引用なし
パスワード
   選択している行をハイライト表示したいのと、
そのハイライトモードのオンオフを切り替えられるようにしたいと思っております。

ネットで検索した限りでは塗りつぶししていたものがすべて消えてしまったりして困っております。

【74256】Re:コードのオンオフスイッチを作りたい
発言  初心者  - 13/5/8(水) 16:25 -

引用なし
パスワード
   >選択している行をハイライト表示したい

すみません、アクティブなセルの行をハイライト表示したい
の間違いです。

【74257】Re:コードのオンオフスイッチを作りたい
発言  UO3  - 13/5/8(水) 17:59 -

引用なし
パスワード
   ▼初心者 さん:

とりあえず、アクティブセルの行をハイライト。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  ActiveCell.EntireRow.Select
End Sub

で、この機能を活性化させたり眠らせたりは、いかようにもできますが
具体的には、どういうアクションで眠らせたり活性化させたりしたいですか?

(たとえば、このシート上でダブルクリックするたびにモードがオンになったりオフになったり)

【74260】Re:コードのオンオフスイッチを作りたい
発言  初心者  - 13/5/9(木) 9:37 -

引用なし
パスワード
   >で、この機能を活性化させたり眠らせたりは、いかようにもできますが
>具体的には、どういうアクションで眠らせたり活性化させたりしたいですか?
>
ありがとうございます。
チェックボックスで動作してくれれば大変ありがたいのですが、
ボタン型など誰が見てもわかるような動作方法にしたいです。

【74261】Re:コードのオンオフスイッチを作りたい
発言  UO3  - 13/5/9(木) 10:18 -

引用なし
パスワード
   ▼初心者 さん:

それではシート上に、ActiveX(コントロールツールボックス)のチェックボックスを配置し
それが選択されている場合にのみ、選択されたセルの行がハイライトするコードです。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If CheckBox1.Value Then
    ActiveCell.EntireRow.Select
  End If
End Sub

1467 / 13646 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free