1151050549

2022/6/30 10:05

11回答

Excel VBAについてコードをご教示頂けますでしょうか。

Excel VBAについてコードをご教示頂けますでしょうか。 「メール配信先」の項目に○が入力されている場合、「依頼日」の項目に今日の日付が入り、「メール配信先」の項目が空欄の場合は空欄のままにする、という命令を「返信済にする」のボタンにMacro1として登録したいと思っています。

画像

Visual Basic | Excel・77閲覧・xmlns="http://www.w3.org/2000/svg">100

ベストアンサー

0
tak********

2022/6/30 12:51

以下のような感じでいいのではないでしょうか？ ・「Private Sub CommandButton1_Click()」はACTIVEXのボタンの場合です。提示の条件であれば、「Macro1_Click」になると思います。 Private Sub CommandButton1_Click() Dim ii As Long Application.ScreenUpdating = False For ii = 4 To Cells(Rows.CountLarge, "L").End(xlUp).Row If Cells(ii, "L").Value = "○" Then Cells(ii, "H").Value = Format(Now(), "yyyy/mm/dd") End If Next ii Application.ScreenUpdating = True End Sub ※余計な一言 <m(__)m> ・なぜ、わざわざ危なそうな「Macro1」を使うのでしょう？