Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
9991 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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 お礼[未読]
【24396】フォームのﾗﾍﾞﾙを2者択一したい。
質問  改造したいな  - 05/4/21(木) 12:09 -
引用なし
パスワード
   シート内のセルの文字を参照し、
任意の文字列をユーザーフォームに反映させたいのですが？
（例）　ﾗﾍﾞﾙ１　
　　　　 If Sheet(i,1)が"電気"ならば"ヒータ"
　　　　　　　　　　　　"ガス"ならば"装置"
と、いった具合にしたいのですが．．．
簡単な質問ですが、皆さん教示ください。
【24397】Re:フォームのﾗﾍﾞﾙを2者択一したい。
回答  IROC  - 05/4/21(木) 12:57 -
引用なし
パスワード
   Private Sub UserForm_Initialize()
　 Select case worksheets("Sheet1").Range("A1").Value
　 case "電気"
　　　　label1.caption = "ヒータ"
　 case "ガス"
　　　　label1.caption = "装置"
　 end Select
End Sub
【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ではじめることができません。
ヒントでもよいので教えていただくと、ありがたいです。
長文失礼します。
【24399】Re:フォームのﾗﾍﾞﾙを2者択一したい。
回答  IROC  - 05/4/21(木) 14:32 -
引用なし
パスワード
   プロシージャは分ける。

Private Sub enter_Click()
　 :
End Sub


Private Sub UserForm_Initialize() '←名前を変えない。
　 :
End Sub


イベントプロシージャは、
コードウィンドウの上にあるコンボボックスで選択して下さい。
【24401】IROCさんありがとうございました。
お礼  改造したいな  - 05/4/21(木) 14:51 -
引用なし
パスワード
   select caseのみで、できるのがわかりました。
これに懲りず皆さん色々教えていただきたいです。
自分も、もっと勉強していきたいと思います。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
9991 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free