Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


51852 / 76732 ←次へ | 前へ→

【29735】Re:単一のセルの値が更新された時
発言  kobasan  - 05/10/12(水) 20:46 -

引用なし
パスワード
   今晩は。
ちょっと作ってみました。
シートモジュールに貼り付けて試してみてください。

Option Explicit

Private orgV
Private orgAd As String

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Count > 1 Then Exit Sub
  If IsNumeric(Target.Text) = True And orgAd <> "" Then
    Application.EnableEvents = False
    Range(orgAd).Value = Target.Value - orgV
    Application.EnableEvents = True
  End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Target.Count > 1 Then Exit Sub
  If IsNumeric(Target.Text) = True Then
    orgV = Target.Value
    orgAd = Target.Address(0, 0)
  Else
    orgV = 0
  End If
End Sub

0 hits

【29696】単一のセルの値が更新された時 川崎 05/10/12(水) 3:57 質問
【29708】Re:単一のセルの値が更新された時 MARBIN 05/10/12(水) 10:15 回答
【29735】Re:単一のセルの値が更新された時 kobasan 05/10/12(水) 20:46 発言
【29739】Re:単一のセルの値が更新された時 川崎 05/10/12(水) 21:37 質問
【29741】Re:単一のセルの値が更新された時 りん 05/10/12(水) 21:56 回答
【29745】Re:単一のセルの値が更新された時 kobasan 05/10/12(水) 22:14 発言
【29746】Re:単一のセルの値が更新された時 川崎 05/10/12(水) 22:28 お礼

51852 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free