tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
[ツリー表示へ]　 [ワード検索]　 [Home]

タイトル ： 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
- 関連一覧ツリー （ をクリックするとツリー全体を一括表示します）

古いスレッドにレスはつけられません。