Excel VBA質問箱 IV

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

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


45312 / 76735 ←次へ | 前へ→

【36420】Re:誰か教えてくださいUserformの開き方
回答  Kein  - 06/3/30(木) 18:17 -

引用なし
パスワード
   Sub UFO2()
 Dim FR As Range, FR2 As Range
 
 If UserForms.Count > 0 Then Exit Sub
 With Sheets("Sheet1").Range("A1:A3")
   Set FR = .Find(10, , xlValues, xlWhole)
   Set FR2 = .Find(20, , xlValues, xlWhole)
 End With
 If FR Is Nothing And FR2 Is Nothing Then Exit Sub
 UserForm1.Show 0
 Set FR = Nothing: Set FR2 = Nothing
End Sub

で、どうかな ?

   

0 hits

【36417】誰か教えてくださいUserformの開き方 初心者A 06/3/30(木) 17:48 質問
【36420】Re:誰か教えてくださいUserformの開き方 Kein 06/3/30(木) 18:17 回答
【36452】Re:誰か教えてくださいUserformの開き方 初心者A 06/3/31(金) 14:55 質問
【36455】Re:誰か教えてくださいUserformの開き方 Jaka 06/3/31(金) 15:44 発言
【36465】Re:誰か教えてくださいUserformの開き方 初心者A 06/3/31(金) 18:23 質問
【36466】Re:誰か教えてくださいUserformの開き方 K 06/3/31(金) 18:59 発言
【36467】Re:誰か教えてくださいUserformの開き方 初心者A 06/3/31(金) 19:24 お礼

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