こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

Excelでワンタッチで行チェックする方法

お世話になります。
現在LibreOfficeCalcで、チェックリスト表を作っております。

ワンタッチでその行の色を変えて、チェック済みが一目瞭然になるようにしたいです。
タブレットPCで使用する想定です。

現在、チェックボックス&条件付き書式でやっているのですが、
以下の問題があります。

・チェックボックスのコピペが出来ない
・行フィルタをかけるとチェックボックス機能しない
そこで別の方法を考えております。

1.タブレットでワンタッチで行え、
2.行をフィルタで絞り込んでも大丈夫
といった方法が無いかと悩んでいます。

〆やレ点をコピペするという方法でもいいのですが、
キーボードが使えないので、出来れば
チェックボックス的なものが一番いいのですが・・・

「行の配色を変える」ボタンを設置し、ウインドウを二分割して
ボタンを常に表示しておく方法もありますでしょうか?

また、最新のExcel2016では出来る、
というような情報でも助かります。
何か良いアイデアがありましたらお願いします。

投稿日時 - 2018-07-15 13:01:15

QNo.9518418

暇なときに回答ください

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

>最新のExcel2016では出来る

Excel2016で、かつ、VBAを使ってもいい。
という条件であれば、

次のようなコードをシートモジュールに配置すれば
1列目の任意セルを選択する都度
選択された行の色がオフオンするとともに
選択した1列目のセル値が切り替わります。

Option Explicit


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
 Const strRow = 2
 Const endRow = 30
 
 Dim ChckOn As String
 Dim ChckOff As String
 
 ChckOn = ChrW(9745) '選択状態の文字
 ChckOff = ChrW(9633) '非選択状態の文字

 If Target.Column <> 1 Then Exit Sub
 If Target.Row > endRow Then Exit Sub
 If Target.Row < strRow Then Exit Sub
 If Target.Cells.Count > 1 Then Exit Sub

 If Target.Column = 1 Then
  If Target.Value = ChckOff Then
   Target.Value = ChckOn
   With Rows(Target.Row).Interior
    .Color = rgbTomato
   End With
  Else
   Target.Value = ChckOff
   With Rows(Target.Row).Interior
    .Pattern = xlNone
   End With
  End If
 End If
 
 Target.Offset(0, 1).Select

End Sub

投稿日時 - 2018-07-16 11:24:06

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(1)

あなたにオススメの質問