2017-01-01から1ヶ月間の記事一覧
以下の二つは共存可能。 Private Sub CommandButton1_Click() MsgBox ("左クリック") End Sub Private Sub CommandButton1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) If Button = 2 Then MsgBox ("…
VBAを使ってエクセルで使えるカレンダーコントロールを作ります。ボタンの配置などを含めてすべてコードに落とし込んでいるためコピーペーストのみで再現できます。そのため5分もかからず使えるようになります。