Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

57080 / 76738

←次へ　｜　前へ→


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

0 hits

▼

【24396】フォームのﾗﾍﾞﾙを2者択一したい。 改造したいな 05/4/21(木) 12:09