Excel VBA質問箱 IV

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

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


57074 / 76732 ←次へ | 前へ→

【24398】Re:フォームのラベルを2者択一したい。
発言  改造したいな  - 05/4/21(木) 14:24 -

引用なし
パスワード
   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ではじめることができません。
ヒントでもよいので教えていただくと、ありがたいです。
長文失礼します。

1 hits

【24396】フォームのラベルを2者択一したい。 改造したいな 05/4/21(木) 12:09 質問
【24397】Re:フォームのラベルを2者択一したい。 IROC 05/4/21(木) 12:57 回答
【24398】Re:フォームのラベルを2者択一したい。 改造したいな 05/4/21(木) 14:24 発言
【24399】Re:フォームのラベルを2者択一したい。 IROC 05/4/21(木) 14:32 回答
【24401】IROCさんありがとうございました。 改造したいな 05/4/21(木) 14:51 お礼

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