Excel VBA質問箱 IV

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

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


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

3036 / 76735

←次へ　｜　前へ→


	【79338】ランダムな数字の入力方法

アエロリット - 17/7/31(月) 20:59 -


	引用なし

	パスワード

目的：推移図に入力してある、値が異常の場合、正常値に修正。

現状、下記に記入してある項目1～2まではしましたが、値が異常の場合、正常値に修正の仕方がわかりません。
知恵をお借りできませんでしょうか。
よろしくお願いいたします。

処理内容:
1.アクティブシートに入力してあるA3の文字を取得
2.listシートに記入してある文字列から検索して、ワークブック（推移図）を開く。
3.ワークブック（推移図）を開く。
4.セルF32～AI32(31日まである場合はAJ32、それ以降の列は空欄)まで日付が入力されています。
5.セルF33～AI33(31日まである場合はAJ33、それ以降の列は空欄)までデータ（数字）が入っています。
6.基準線が3つ有ります。（基準線は、1.+基準線（AY11に入力してある)、2.-基準線（AY15に入力してある）、3.センターライン（+基準線と-基準線の間、（AY13に入力してある））　
7.+基準線を超えたら、+基準線とセンターラインの間にランダムな値に修正したい。
※可能なら、+基準線に寄ってるランダムな数字orセンターラインに寄ってるランダムな数字を選択できると有りがたい。
8.同様に-基準線を超えたら、-基準線とセンターラインの間にランダムな値に修正したい。
※可能なら、-基準線に寄ってるランダムな数字orセンターラインに寄ってるランダムな数字を選択できると有りがたい。
9.データ修正が終了したら、次のシートを同様に修正する
※データは、シートによって小数点5ケタまで使用しています。

Option Explicit
Sub error_correction()
Dim Target As String
Dim FilenameIn As Range
Dim FilenameOut As Range
Dim PathnameIn As String
Dim PathnameOut As String
Dim plus As Double
Dim minus As Long
Dim Cl As Long
Dim cal As Long

Cl = Cells(51, 13).Value

Target = Cells(3, 1).Value

Worksheets("list").Select
PathnameOut = Cells(13, 3).Value
Set FilenameIn = Range(Cells(3, 2), Cells(12, 2)).Find(Target, LookAt:=xlPart)
Set FilenameOut = FilenameIn.Offset(0, 1)
If FilenameIn.Offset(0, 2).Value <> "5F" Then
　　PathnameIn = Cells(13, 2).Value
　　PathnameOut = Cells(13, 3).Value
　　Else
　　　　PathnameIn = Cells(14, 2).Value
　　　　PathnameOut = Cells(14, 3).Value
End If
Workbooks.Open Filename:=PathnameOut & "\" & FilenameOut & ".xls"
plus = Cells(33, 14)

'下記以降の処理がわかりません。
Do
If plus >= Cells(11, 51).Value Then
　 Cells(33, 14).Value = plus - (Cells(11, 51) - Cells(13, 51))
　 If Cells(33, 14) >= Cells(11, 51) Then
　　　Cells
　 End If
　　
End If
Loop

Set FilenameIn = Nothing
Set FilenameOut = Nothing

End Sub

1 hits

▼

【79338】ランダムな数字の入力方法 アエロリット 17/7/31(月) 20:59