Excel VBA質問箱 IV

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

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


26486 / 76732 ←次へ | 前へ→

【55577】Re:シートチェンジ
お礼  acch  - 08/5/11(日) 23:30 -

引用なし
パスワード
   ▼阪神 さん:
ありがとうございました。
イベントを発生させないようにするのですね。

>▼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

0 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 お礼

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