|
IROCサン、答ありがとうございます。
あまりに簡単に書いてしまったので、細かい部分でエラーが出てしまいました。
Private Sub enter_Click()
If Len(idn) > 3 Then
i = 2
Do
STR1 = Sheets("DAICHOU").Cells(i, 1).Value
i = i + 1
Loop Until STR1 = idn Or STR1 = ""
ActiveCell.Value = idn
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Sheets("DAICHOU").Cells(i - 1, 3).Value
Else
i = 2
Do
STR2 = Sheets("DAICHOU").Cells(i, 3).Value
STR3 = Sheets("DAICHOU").Cells(i, 4).Value
i = i + 1
Loop Until STR2 = idn Or STR3 = idn Or STR2 = ""
Private Sub setid2_Initialize()
Select Case Worksheets("DAiCHOU").Cells(i - 1, 12).Value
Case "電気"
Label24.Caption = "ELCBトリップ"
Case "ガス"
Label24.Caption = "ガス漏れ"
tid = Sheets("DAICHOU").Cells(i - 1, 1).Value
pat = Sheets("DAICHOU").Cells(i - 1, 9).Value
jid = Sheets("DAICHOU").Cells(i - 1, 4).Value
njtd = Sheets("DAICHOU").Cells(i - 1, 3).Value
pl1 = Sheets("DAICHOU").Cells(i - 1, 5).Value & "区" & Sheets("DAICHOU").Cells(i - 1, 13).Value
pl2 = Sheets("DAICHOU").Cells(i - 1, 10).Value & " - " & Sheets("DAICHOU").Cells(i - 1, 11).Value
G = Sheets("DAICHOU").Cells(i - 1, 12).Value
men = Sheets("DAICHOU").Cells(i - 1, 26).Value
cnum = Sheets("DAICHOU").Cells(i - 1, 27).Value
tokki = Sheets("DAICHOU").Cells(i - 1, 28).Value & " " & Sheets("DAICHOU").Cells(i - 1, 32).Value & " " & Sheets("DAICHOU").Cells(i - 1, 33).Value
If Len(tokki) > 2 Then
Set FRID = setid2.tokki
FRID.BackColor = RGB(255, 50, 255)
End If
といった処理内に今回の処理を追加させたかったのですが、
冒頭の処理があるため、Private Subではじめることができません。
ヒントでもよいので教えていただくと、ありがたいです。
長文失礼します。
|
|