|
▼初心者M さん:
>それをまた、別のファイルで使うために改変しようとし、試行錯誤の末行き詰まってしまったので、申し訳ございませんがまたお知恵を貸して頂きたいです。
> For x = X0 To X0 + (XX - 1) * Xstp Step Xstp '取り込んだ最大値を上書き
> For y = Y0 To Y0 + (YY - 1) * Ystp Step Ystp
> For Each c In Cells(y, x).Resize(9)
> ss = c.Value
>
> If c.Offset(, 1).Value = 0 Then '掛け数が入力されていたら無視
>
> If Len(ss) > 0 Then
> c.Offset(, 2).Value = dic(ss)
>
> 'If c.Offset(, 2).Value = 0 Then '0なし
> 'GoTo nxt
>
> 'If c.Offset(, 1).Value <> 0 Then '←無視された行に色をつけたいが、うまく動かない
> 'c.Offset(, 1).Interior.Color = RGB(0, 128, 0)
> 'c.Offset(, 1).Interior.Coloindex = 10
> 'End If
>
> 'End If
> End If
> End If
> 'nxt:
> Next
> Next
> Next
>
> MsgBox ("持ち上げが完了しました。掛け数の設定されている台は、手集計して下さい")
>
>End Sub
>
>___________________________________
>
>やりたいのは、上記の中にもある
>
>1.無視された行に色を付ける
>
>2.最初に読み込むセル(記号の有るセル)を、リサイズした9行の中でも「C9」「C12」「C15」のように3つずつだけにする
>
>3.読み込んだ記号に対応した数値は、例えば「C9」に対し「E8」「E9」「E10」のように3つずつあり、これらを別々の数値として、それぞれ最大値に合わせる(3回回すイメージをしています)。
>
>4.最後に、それぞれの記号に対し、書き込んだ回数をカウントし、特定の数値にに対して違っていたら警告を出したい。
>
>2に関しては、読み込む部分のコードをResize(9)からOffset(1, 0)、Offset(4, 0)、Offset(7, 0)に変えて3回回したら上手く動いたのですが、それ以降が止まってしまいますし、何か違う気がします。
サンプルの表を出して、
この表を こうしたいのだが、こうなってしまう
のように、
絵で説明してくださると、時間のあるとき考えてみるのですが...
|
|