Excel VBA質問箱 IV

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

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


54206 / 76732 ←次へ | 前へ→

【27324】Re:手入力している列の指定を自動で探せるようにしたいのですが・・・
回答  でれすけ  - 05/8/5(金) 12:59 -

引用なし
パスワード
   こんにちは。

http://www.vbalab.net/vbaqa/c-board.cgi?cmd=one;no=27135;id=excel
こちらの質問とかなり似ているというか、ほとんど同じですね。
同じ会社の方ですか?

そちらの質問の方で進展があれば書き込もうと思っていたコードですが、
その後まだ反応がないので、こちらに書き込みます。


Private Sub Worksheet_Change(ByVal Target As Range)
Const CNum As Integer = 4
Dim aCell As Range, Rng As Range, fstAdr As String
Dim DateCols() As Long, n As Long

ReDim DateCols(1 To 256)

n = 0
Set aCell = Cells.Find("結果", after:=Cells(Cells.Count))
If aCell Is Nothing Then Exit Sub
fstAdr = aCell.Address
Do
 n = n + 1
 DateCols(n) = aCell.Column + 1
 If Rng Is Nothing Then
   Set Rng = aCell.Offset(, 2).Resize(, CNum).EntireColumn
 Else
   Set Rng = Union(Rng, aCell.Offset(, 2).Resize(, CNum).EntireColumn)
 End If
 Set aCell = Cells.FindNext(aCell)
Loop Until aCell.Address = fstAdr

Set Target = Intersect(Target, Rng, Me.UsedRange)
If Target Is Nothing Then Exit Sub

ReDim Preserve DateCols(1 To n)

With Application
 .EnableEvents = False
 .ScreenUpdating = False
 .EnableCancelKey = xlErrorHandler
' .Interactive = False
End With

On Error GoTo Err_Handler
  For Each aCell In Target
    n = WorksheetFunction.Match(aCell.Column, DateCols, 1)
    With aCell.EntireRow
     If WorksheetFunction.CountBlank(.Cells(1, DateCols(n) + 1).Resize(, CNum)) = CNum Then
      .Cells(1, DateCols(n)).ClearContents
     Else
      .Cells(1, DateCols(n)).Value = Date
     End If
    End With
  Next
On Error GoTo 0

Terminate:
With Application
 .EnableEvents = True
 .ScreenUpdating = True
 .EnableCancelKey = xlInterrupt
' .Interactive = True
End With
Exit Sub

'------------エラーハンドラ------------
Err_Handler:
MsgBox Err.Description
Resume Terminate

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

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