Excel VBA質問箱 IV

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

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


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

20216 / 76732

←次へ　｜　前へ→


	【61938】Re:EXCEL VBA 繰返しと計算結果。

Hirofumi - 09/6/13(土) 8:59 -


	引用なし

	パスワード

Upしてから気が付きました

　　　　　　　　'★Sheet4の整列をさせない為削除

と書いてのですが、これは、

　　　　　　　　'★Sheet4の整列をしなくても善い様にする為、為削除

です、修正コードでは、Loop内で削除処理も行う為、日付が整列している必要は無くなります
また、

'★行削除の為、代入式右辺の「i」を「i + delRows」に変更

と書きましたが、此れは

'★行削除の為、代入式右辺の「i」を「i - delRows」に変更

の間違いです
後もう一点、今回TextBox2～9が追加されている様ですが
このTextBoxの値が「0」の場合0の乗算が行われエラーに成ります
また、TextBoxの値が空白（""）もしくは、文字列の場合、型違いのエラーが発生しますので
TextBox2～9の値のチェックをコードの先頭で入れるべきと思います

例

　　If Me.TextBox1.Text = "" Then
　　　　strPrompt = "*****日を入力してください。"
　　　　GoTo Wayout
　　End If

　　'★TextBox2～9のチェック
　　For i = 2 To 9
　　　　If Val(Me.Controls("TextBox" & i)) = 0 Then
　　　　　　strPrompt = "TextBox" & i & "の値が不正です確認して下さい"
　　　　　　GoTo Wayout
　　　　End If
　　Next i

1 hits

▼

【61854】EXCEL VBA 繰返しと計算結果。 おねがいします。 09/6/9(火) 14:16