タイトル : Re^3: VBAなんですが 投稿日 : 2009/11/09(Mon) 15:34 投稿者 : YK
こんにちは。 > エクセルのシート上にコントロールボックスからチェックボックスを作りました。 とありますから コントロールツールボックスとして > 1行目のチェックボックスがONならA1のセルに日付を入力 > 2行目のチェックボックスがONならA2のセルに日付を入力 チェックボックスのある行のA列に日付を入れます Sub Macro1() Dim shp As OLEObject With Worksheets("Sheet1") For Each shp In .OLEObjects If TypeName(shp.Object) = "CheckBox" Then If shp.Object.Value = True Then .Cells(shp.TopLeftCell.Row, 1).Value = Date Else .Cells(shp.TopLeftCell.Row, 1).Value = Empty End If End If Next End With End Sub |