Excel VBA質問箱 IV

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

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


26499 / 76738 ←次へ | 前へ→

【55570】Re:シートチェンジ
回答  阪神  - 08/5/11(日) 18:48 -

引用なし
パスワード
   ▼acch さん:

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim target_cell As String
  Dim target_cell1 As String
  Dim target_cell2 As String
  Application.EnableEvents = False
  target_cell = Range(Target.Address).Value
  target_cell1 = Mid(target_cell, 1, 2)
  target_cell2 = Mid(target_cell, 3, 2)
  target_cell = "2000/01/01 " & target_cell1 & ":" & target_cell2
  Range(Target.Address) = target_cell
  Application.EnableEvents = True
End Sub

1 hits

【55569】シートチェンジ acch 08/5/11(日) 17:52 質問
【55570】Re:シートチェンジ 阪神 08/5/11(日) 18:48 回答
【55577】Re:シートチェンジ acch 08/5/11(日) 23:30 お礼
【55666】Re:シートチェンジ acch 08/5/14(水) 21:38 質問
【55667】Re:シートチェンジ acch 08/5/14(水) 22:13 お礼

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