セルをクリックしてセル値を変更するにはどうすればよいですか？

Excelでセルをクリックしてセルの値を変更することはできますか？ たとえば、特定のセルA1を初めてクリックすると、「Excel」というテキストが表示され、もう一度A1をクリックすると、「Word」というテキストが表示され、これをクリックすると「Outlook」というテキストが表示されます。 1回目のセル。 この場合、セルAXNUMXの値は、次のスクリーンショットに示すように、「Excel」から「Word」、「Outlook」、「Excel」へと繰り返されます。

VBAコードのセルをクリックしてセル値を変更する

VBAコードのセルをクリックしてセル値を変更する

Excelでこのタスクを完了するには、次のVBAコードが役立つ場合があります。次のようにしてください。

1。 をクリックしてセル値を変更するシートタブを右クリックし、を選択します。 コードを表示 コンテキストメニューから、開いた状態で アプリケーション向け Microsoft Visual Basic ウィンドウで、次のコードをコピーして空のモジュールに貼り付けます。

VBAコード：セルをクリックしてセル値を変更します。

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
'Updateby Extendoffice
  Application.EnableEvents = False
  With Target
  If .Address = Range("A1").Address Then
    Select Case .Value
      Case "Excel"
        .Value = "Word"
      Case "Word"
        .Value = "Outlook"
      Case "Outlook"
        .Value = "Excel"
      Case Else
        .Value = "Word"
    End Select
  End If
  End With
  Range("A2").Select
  Application.EnableEvents = True
End Sub

Note：上記のコードでは、 A1 「」をクリックして値を変更するセルです。Excel"、"Word"、"Outlook」は繰り返し表示するセル値であり、必要に応じて変更できます。

2。 コードを貼り付けたら、コードを保存してウィンドウを閉じます。 これで、セルA1を最初にクリックすると、「Excel」というテキストが一度に表示され、もう一度クリックすると、「Word」というテキストが表示され、XNUMX回目にクリックすると「Outlook」というテキストが表示されます。スクリーンショットを参照してください：

その他の関連記事：

Excelでセルの内容をクリックするだけでデータをフィルタリングするにはどうすればよいですか？

Excelのヘッダーをクリックして列データを並べ替える方法は？