Excel VBA質問箱 IV

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

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


54225 / 76732 ←次へ | 前へ→

【27304】手入力している列の指定を自動で探せるようにしたいのですが・・・
質問  すてぃっち  - 05/8/4(木) 16:59 -

引用なし
パスワード
   下のような表を作っています。

J列に"東京地区の結果→K列、R列、Y列の総合結果列(数式)

K列に"結果"→M〜Q列での結果が入る列(数式)
L列に"日付"
M〜Q列に"確認項目"

R列に"結果"→T〜X列での結果が入る列(数式)
S列に"日付"
T〜X列に"確認項目"

Y列に"結果"→M〜Q列での結果が入る列(数式)
Z列に"日付"
AA〜AE列に"確認項目"

AF列に"大阪地区の結果"→K列、R列、Y列の総合結果列(数式)

AG列に"結果"→AI〜AM列での結果が入る列(数式)
AH列に"日付"
AI〜AM列に"確認項目"

AN列に"結果"→AP〜AT列での結果が入る列(数式)
AO列に"日付"
AP〜AT列に"確認項目"

AU列に"結果"→M〜Q列での結果が入る列(数式)
AV列に"日付"
AW〜BA列に"確認項目"

BB〜BC列に"備考1"、"備考2"がそれぞれ入っています


知り合いに"結果"列に入力がなされたときに、"日付"列に自動的に日付が入るようにVBAで作成してもらいました。
∵・∴・∵・∴・∵・∴・∵・∴∵・∴・∵・∴・∵・∴・∵・∴∵・∴・∵・∴・∵・∴・∵・∴
Private Sub Worksheet_Change(ByVal Target As Range)
  Dim Tr As Long
  Dim Tc As Long
  Dim Hc As Long
  
  If Target.Cells.Count > 1 Then Exit Sub
  Application.EnableEvents = False
  Tr = Target.Row
  Tc = Target.Column
  
  If Tr >= 5 Then
    Select Case Tc
      Case Is < 11
      Case Is <= 17
        Hc = 11
        DateIn Tr, Hc
      Case Is <= 24
        Hc = 18
        DateIn Tr, Hc
      Case Is <= 31
        Hc = 25
        DateIn Tr, Hc
      Case Is <= 39
        Hc = 33
        DateIn Tr, Hc
      Case Is <= 46
        Hc = 40
        DateIn Tr, Hc
      Case Is <= 53
        Hc = 47
        DateIn Tr, Hc
    End Select
  End If
  
  Set Target = Nothing
  Application.EnableEvents = True
End Sub
-----------------------------------------------------------
Sub DateIn(ByRef Tr As Long, Hc As Long)
  If Cells(Tr, Hc).Value <> "" Then
    Cells(Tr, Hc + 1).Value = Format(Date, "yyyy/mm/dd")
  Else
    Cells(Tr, Hc + 1).Value = ""
  End If
End Sub
∵・∴・∵・∴・∵・∴・∵・∴∵・∴・∵・∴・∵・∴・∵・∴∵・∴・∵・∴・∵・∴・∵・∴

このコードだと表の仕組みが変わったときに使えなくなってしまうんです・・・
直接列を手入力で指定してるからですよね?
"結果"と"日付"の位置関係は変わることはないので、"結果"という文字列を検索して、同じ処理って出来ないでしょうか?
0 hits

【27304】手入力している列の指定を自動で探せるようにしたいのですが・・・ すてぃっち 05/8/4(木) 16:59 質問
【27311】Re:手入力している列の指定を自動で探せる... [名前なし] 05/8/4(木) 23:04 発言
【27320】Re:手入力している列の指定を自動で探せる... すてぃっち 05/8/5(金) 11:42 質問
【27324】Re:手入力している列の指定を自動で探せる... でれすけ 05/8/5(金) 12:59 回答
【27335】Re:手入力している列の指定を自動で探せる... すてぃっち 05/8/5(金) 16:31 質問
【27339】Re:手入力している列の指定を自動で探せる... でれすけ 05/8/5(金) 18:49 発言
【27413】Re:手入力している列の指定を自動で探せる... すてぃっち 05/8/8(月) 18:14 お礼
【27414】Re:手入力している列の指定を自動で探せる... すてぃっち 05/8/8(月) 18:17 質問
【27457】同様の処理を行いたいのですが、表の作りが... すてぃっち 05/8/9(火) 19:46 質問
【27460】Re:同様の処理を行いたいのですが、表の作... りん 05/8/9(火) 20:13 回答
【27462】Re:同様の処理を行いたいのですが、表の作... すてぃっち 05/8/9(火) 20:45 発言
【27463】Re:同様の処理を行いたいのですが、表の作... りん 05/8/9(火) 22:31 回答
【27502】無事解決致しました。ありがとうございまし... すてぃっち 05/8/10(水) 15:00 お礼
【27505】最初の質問に対して回答いただいたコードを... すてぃっち 05/8/10(水) 15:05 質問
【27519】Re:最初の質問に対して回答いただいたコー... りん 05/8/10(水) 18:36 回答
【27535】Re:最初の質問に対して回答いただいたコー... すてぃっち 05/8/11(木) 8:55 質問
【27569】Re:最初の質問に対して回答いただいたコー... りん 05/8/12(金) 9:14 回答
【27572】Re:最初の質問に対して回答いただいたコー... すてぃっち 05/8/12(金) 10:38 質問
【27574】Re:最初の質問に対して回答いただいたコー... りん 05/8/12(金) 11:13 回答
【27585】Re:最初の質問に対して回答いただいたコー... すてぃっち 05/8/12(金) 15:02 お礼
【27586】感謝。 すてぃっち 05/8/12(金) 15:05 お礼

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