Excel 2003 で日付コントロールを使用して特定のセルに日付を選択して挿入する方法

Excel2003で日付コントロールを使って特定のセルをクリックして日付を挿入する方法を緊急公開します

レベルをクリアできなかったプレイヤーを助けるために、具体的なパズルの解決方法を学びましょう。 Excel2007 の場合は、VBA を使用して問題を解決できます。具体的な手順は次のとおりです:

1. Excel を開き、[開発ツール] タブをクリックし、[コントロール] グループで [挿入] を見つけてクリックし、ドロップダウン リストで右下隅にある [その他のコントロール] をクリックします。下に： ＃＃ ＃

2. ポップアップの [その他のコントロール] ダイアログ ボックスで、スクロール バーを一番下までドラッグし、マウスの左ボタンで [カレンダー コントロール 12.0] を選択し、[OK] をクリックします。

3. ワークシートに戻り、以下に示すように、マウスの左ボタンでカレンダー コントロールをドラッグし、サイズと位置を調整します。

4. マウスの左ボタンで「カレンダー コントロール」をダブルクリックして VBA エディタを起動し、次のコードをコピーして貼り付けます。 プライベートサブカレンダー1_Click()

ActiveCell = Format(Calendar1.Value, "yyyy-mm-dd")

Me.Calendar1.Visible = False

エンドサブ

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Column = 1 then

If Target.Row > 1 then

私と一緒に。カレンダー1

.Visible = True

.Top = ターゲット.トップ ターゲット.高さ

.Left = ターゲット.左ターゲット.幅

.値 = 日付

で終わる

＃＃＃それ以外＃＃＃

Me.Calendar1.Visible = False

終了の場合

＃＃＃それ以外＃＃＃

Me.Calendar1.Visible = False

終了の場合

エンドサブ

Where "If Target.Column = 1 then

If Target.Row > 1 then "最初の行を除く最初の列 A 列をクリックして、カレンダー コントロールをポップアップ表示します。必要に応じて変更を加え、VBA コード エディターを閉じて、元の画面に戻ります。ワークシート

5. A2上でマウスの左ボタンをクリックすると「カレンダーコントロール」が表示されますので、必要に応じて「コントロール」上で入力したい日付をクリックしてください。

EXCEL で日付コントロールを使用して複数の列を実装する

プライベート サブ DTPicker1_Change()

ActiveCell.Value = DTPicker1.Value

DTPicker1.Visible = False

エンドサブ

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

私と一緒に.DTPicker1

Target.count=1 の場合、

Target.Column = 1 および Target.Column =5 の場合は、

.Visible = True

.幅 = ターゲット.幅 15

.左 = ターゲット.左

.Top = Target.Top

.高さ = ターゲット.高さ

＃＃＃それ以外＃＃＃

.Visible = False

終了の場合

＃＃＃それ以外＃＃＃

.Visible = False

終了 if

で終わる

エンドサブ

Excel テーブルで複数列の DTP 時間コントロールを設定する方法

多くの実験を行った結果、このコードを使用すると、列 1 と列 2 でカレンダー コントロールを同時に使用できるようになり、他の列をクリックしても表示されなくなります。

プライベートサブカレンダー1_Click()

ActiveCell = Calendar1.Value

Me.Calendar1.Visible = False

エンドサブ

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Column

1 then (2 列未満を意味し、最初の行は含まれません)

Me.Calendar1.Visible = True

＃＃＃それ以外＃＃＃

Me.Calendar1.Visible = False (他の列をクリックしても表示されません)

終了の場合

エンドサブ

以上がExcel 2003 で日付コントロールを使用して特定のセルに日付を選択して挿入する方法の詳細内容です。詳細については、PHP 中国語 Web サイトの他の関連記事を参照してください。