[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『チェックボックスのマクロか、関数処理か・・』(モー)
チェックボックスを下にコピーして、マクロを組み入れないと、チェックしても全部チェックがついてしまうので、下記の記述をしてみました。
でも、うまく動作しません。
Subチェック39_chick
Wiht ActiveSheet.Shapes(Application,Caller).Topleftcall.
offset(0, 1)
.Value=Not .value
End With
End sub
または、チェックボックスを使わず、1or0で区別して1は支払、0は未払で
関数を組み入れて、下記の様にした方が簡単かも・・とも考えていて、試行錯誤してるのですが、うまくいきません。
A B C D
1 予算 支払予定額 処理 残債
2 100 50 〇 50
3 150 75 × 150
< 使用 Excel:Excel2019、使用 OS:Windows10 >
これが原因では?
設定とか全て同じですよね?
(みすぼらしさ) 2022/03/17(木) 15:32
(モー) 2022/03/17(木) 15:38
チェックボックスにマクロを組み込むのではなく マクロでチェックボックスを設置してみては
例 D2:D20 にチェックボックスを設置、リンクセルはE列に Sub Test() Dim cbx As CheckBox Dim c As Range
For Each c In Range("D2:D20") Set cbx = ActiveSheet.CheckBoxes.Add( _ Top:=c.Top, _ Left:=c.Left, _ Width:=c.Height, _ Height:=c.Height) With cbx .Text = "" .Value = xlOff .LinkedCell = c.Offset(, 1).Address(0, 0) End With Next End Sub
(ピンク) 2022/03/17(木) 15:47
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.