Excel VBA質問箱 IV

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

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


42171 / 76732 ←次へ | 前へ→

【39632】Re:「入力済み」とMSGを出すには
回答  Kein  - 06/6/27(火) 23:16 -

引用なし
パスワード
   あー・・確かにそのコードではそうなりますね・・。すいません、ループの部分を

>  For Each C In Range("F4:AP4")
>   If C.Text = Stm Then Sc = C.Column
>   If Sc > 0 Then
>     If Not IsEmpty(Cells(Rc, Sc).Value) Then
>      MsgBox "その時間帯は入力済みです", 48: Exit Sub
>     End If
>   End If
>   If C.Text = Etm Then Ec = C.Column: Exit For
>  Next
>  If Sc = 0 Or Ec = 0 Then
>   Flg = True: GoTo ELine
>  End If


  For Each C In Range("F4:AP4")
   If C.Text = Stm Then
    Sc = C.Column
   ElseIf C.Text = Etm Then
    Ec = C.Column: Exit For
   End If
  Next
  If Sc = 0 Or Ec = 0 Then
   Flg = True: GoTo ELine
  End If
  If WorksheetFuction _
  .CountA(Range(Cells(Rc, Sc), Cells(Rc, Ec))) > 0 Then
   MsgBox "その時間帯は入力済みです", 48: Exit Sub
  End If

と、変更してみて下さい。

3 hits

【39624】「入力済み」とMSGを出すには にしもり 06/6/27(火) 17:50 質問
【39632】Re:「入力済み」とMSGを出すには Kein 06/6/27(火) 23:16 回答
【39641】Re:「入力済み」とMSGを出すには にしもり 06/6/28(水) 4:25 質問
【39644】Re:「入力済み」とMSGを出すには にしもり 06/6/28(水) 9:00 質問
【39651】Re:「入力済み」とMSGを出すには にしもり 06/6/28(水) 10:23 質問
【39655】Re:「入力済み」とMSGを出すには Kein 06/6/28(水) 13:32 回答
【39660】Re:「入力済み」とMSGを出すには にしもり 06/6/28(水) 14:18 質問
【39703】Re:「入力済み」とMSGを出すには にしもり 06/6/29(木) 12:12 質問
【39707】Re:「入力済み」とMSGを出すには にしもり 06/6/29(木) 13:29 質問
【39715】Re:「入力済み」とMSGを出すには にしもり 06/6/29(木) 15:30 質問
【39719】Re:「入力済み」とMSGを出すには にしもり 06/6/29(木) 18:20 質問
【39732】Re:「入力済み」とMSGを出すには Kein 06/6/29(木) 23:41 発言
【39733】Re:「入力済み」とMSGを出すには Kein 06/6/29(木) 23:42 発言
【39736】Re:「入力済み」とMSGを出すには にしもり 06/6/30(金) 9:09 質問
【39740】Re:「入力済み」とMSGを出すには にしもり 06/6/30(金) 9:36 質問
【39744】Re:「入力済み」とMSGを出すには にしもり 06/6/30(金) 10:32 回答

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