Excelで「クリックアンドドラッグ」を使用してプロジェクトスケジュールを作成する方法

エクセルソリューション 2025 年 10 月 3 日

次の記事は、カレンダーをマークアウトして問い合わせる方法を示しています。 ねずみ。

*現実の世界では、意味のある日記エントリをデータベースに読み書きするためのフォームを開きます。この演習では、右クリックの仕組みを明らかにし、ワークシート自体から詳細を見つけます。

始める前に、スプレッドシートについて少し説明します。スプレッドシートの作業モデルを見つけることができます。こちら.

プロセス

グリッド内のセルをクリックすると、そのセルが強調表示され、その値が変更されます。クリックアンドドラッグすると、範囲が強調表示され、その値が変更されます。セルにデータが入力されている場合はクリアされます。それ以外の場合は、この場合は「*」が入力されます。

対照的に、右クリックは、選択したセルからの情報の要求です。

いくつかのモジュールとともに、基本的にXNUMXつのイベントが使用されます。

ワークシート_選択変更 これは、XNUMXつまたは複数のセルが選択されたときに呼び出されます。
ワークシート_右クリック前 これは、マウスの右ボタンで呼び出されます。

課題

セルを右クリックすると、選択も構成され、トリガーされます 選択変更。そのイベントにコースを実行させ、選択したセルをクリアしてから、制御を 右クリック前kイベント、クリアされたセルを再作成するとき。しかし、このアクションはトリガーします 選択が変更されました もう一度イベントをクリアするのを止めなければなりません。

これは、blnLoadingと呼ばれるブールフラグを使用して行います。

そのイベント

ワークシートの後ろのコードウィンドウに次のように入力します（つまり、モジュールではありません）。

Option Explicit

    Dim blnLoading As Boolean
    Dim sPhase As String
    Dim currCellValue As String
    Dim dDate As Date

    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
     If ActiveCell.Row > 14 And ActiveCell.Row < 25 Then
         If ActiveCell.Column > 4 And ActiveCell.Column < 47 Then 'selection is valid
 
             On Error Resume Next
             currCellValue = Target.Value 'get the target value from (ByVal Target As Range)
 
             If blnLoading = True Then 'a value of True will force an exit from this event
                 blnLoading = False
                 Exit Sub
             End If
 
             sPhase = Cells(ActiveCell.Row, 1)
             If sPhase = "" Then Exit Sub
 
             If ActiveCell = "*" Then 'if the cell is populated, clear the selected range
                 Call ClearRange
                 Call UnblockCalendar
             Else
                 Call PopulateRange
             End If
 
             Call RedrawCells
             Range("A1").Select 'revive the SelectionChange event by changing selection.
             Exit Sub
         End If
     End If
End Sub

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
     If currCellValue = "*" Then   'picked up by the previous event BEFORE it cleared it;
                                     'This means this is a valid diary entry with detail.
        blnLoading = True    'this will prevent the SelectionChange event (above) from running.
        Target.Select
        'currCell = Target.Address
        'Range(currCell).Select

            Target.Value = "*" 're-instate the value of the cell, since SelectionChange has cleared it
            Call PopulateRange
            dDate = Cells(13, ActiveCell.Column)
            sPhase = Cells(ActiveCell.Row, 1)
            MsgBox dDate & " - " & sPhase
        Cancel = True 'suppress Excel’s standard right_click menus
    End If
    Range("A1").Select
        blnLoading = False
End Sub

これにより、XNUMXつのイベントが処理されます。

参照コード

次の範囲の入力と削除をコードに追加します。

Sub ClearRange()
     Selection.FormulaR1C1 = ""
     With Selection.Interior
         .Pattern = xlNone
         .TintAndShade = 0
         .PatternTintAndShade = 0
     End With
End Sub

Sub PopulateRange()
     Selection.FormulaR1C1 = "*"
     With Selection.Interior
         .Pattern = xlSolid
         .PatternColorIndex = xlAutomatic
         .ThemeColor = xlThemeColorLight2
         .TintAndShade = 0.799981688894314
         .PatternTintAndShade = 0
     End With
End Sub

グリッド線のメンテナンス

モジュールをアプリケーションに挿入します。グリッドの外観を維持するために、次のコードを追加します。これは、マクロレコーダー、冗長性などからコピーされました。

Option Explicit

Sub UnblockCalendar()
     Selection.FormulaR1C1 = ""
     With Selection
         Selection.Borders(xlDiagonalDown).LineStyle = xlNone
         Selection.Borders(xlDiagonalUp).LineStyle = xlNone
         Selection.Borders(xlEdgeLeft).LineStyle = xlNone
         Selection.Borders(xlEdgeTop).LineStyle = xlNone
         Selection.Borders(xlEdgeBottom).LineStyle = xlNone
         Selection.Borders(xlEdgeRight).LineStyle = xlNone
         Selection.Borders(xlInsideVertical).LineStyle = xlNone
         Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
     End With
End Sub

Sub RedrawCells()
     Selection.Borders(xlDiagonalDown).LineStyle = xlNone
     Selection.Borders(xlDiagonalUp).LineStyle = xlNone
     With Selection.Borders(xlEdgeLeft)
         .LineStyle = xlContinuous
         .ColorIndex = 0
         .TintAndShade = 0
         .Weight = xlThin
     End With
     With Selection.Borders(xlEdgeTop)
         .LineStyle = xlContinuous
         .ColorIndex = 0
         .TintAndShade = 0
         .Weight = xlThin
     End With
     With Selection.Borders(xlEdgeBottom)
         .LineStyle = xlContinuous
         .ColorIndex = 0
         .TintAndShade = 0
         .Weight = xlThin
     End With
     With Selection.Borders(xlEdgeRight)
         .LineStyle = xlContinuous
         .ColorIndex = 0
         .TintAndShade = 0
         .Weight = xlThin
     End With
     With Selection.Borders(xlInsideVertical)
         .LineStyle = xlContinuous
         .ColorIndex = 0
         .TintAndShade = 0
         .Weight = xlThin
     End With
     With Selection.Borders(xlInsideHorizontal)
         .LineStyle = xlContinuous
         .ColorIndex = 0
         .TintAndShade = 0
         .Weight = xlThin
     End With
End Sub

大惨事からの保護

Excel開発を頻繁に行う人なら、複雑なxlsmスプレッドシートが時折クラッシュし、開いているドキュメントが破損することがあるのはご存知でしょう。予想以上に多くのケースで、破損したワークブックはExcelの回復ルーチンでは復元できません。バックアップがない場合、作業内容は失われます。これを防ぐには、次のようなツールを使用するのが効果的です。 Excelの修正.

著者紹介：

フェリックスフッカーは、のデータ復旧の専門家です DataNumen、Inc。は、以下を含むデータ復旧技術の世界的リーダーです。 RAR修復およびSQL回復ソフトウェア製品。詳細については、次のWebサイトをご覧ください。 WWW。datanumen.com